www.FiveTechSoft.com
https://forums.fivetechsoft.com/
Prueba estoCompuin wrote:Hola foro,
Algun sample que me muestre como colocar un dialogo dentro de una ventana (sin usar recursos) ?
Gracias
Code: Select all
#include "Fivewin.ch"
Function Main()
local oWnd
local oDlg
DEFINE WINDOW oWnd
// Si lo defines aqui, el diálogo ha de ser NOWAIT ( o sea NO MODAL )
DEFINE DIALOG oDlg OF oWnd
ACTIVATE DIALOG oDlg CENTERED IN PARENT NOWAIT
ACTIVATE WINDOW oWnd // ON INIT DlgInit( oWnd )
Return nil
// Si quieres que sea modal, tienes que poner la llamada a la creacion del dialogo en la clausula ON INIT de la ventana
Function DlgInit( oWnd )
local oDlg
DEFINE DIALOG oDlg OF oWnd
ACTIVATE DIALOG oDlg CENTERED IN PARENT
Return nil
No funcionacnavarro wrote:Prueba estoCompuin wrote:Hola foro,
Algun sample que me muestre como colocar un dialogo dentro de una ventana (sin usar recursos) ?
Gracias
Code: Select all
#include "Fivewin.ch" Function Main() local oWnd local oDlg DEFINE WINDOW oWnd // Si lo defines aqui, el diálogo ha de ser NOWAIT ( o sea NO MODAL ) DEFINE DIALOG oDlg OF oWnd ACTIVATE DIALOG oDlg CENTERED IN PARENT NOWAIT ACTIVATE WINDOW oWnd // ON INIT DlgInit( oWnd ) Return nil // Si quieres que sea modal, tienes que poner la llamada a la creacion del dialogo en la clausula ON INIT de la ventana Function DlgInit( oWnd ) local oDlg DEFINE DIALOG oDlg OF oWnd ACTIVATE DIALOG oDlg CENTERED IN PARENT Return nil
Compuin wrote:Hola foro,
Algun sample que me muestre como colocar un dialogo dentro de una ventana (sin usar recursos) ?
Gracias
Qué es lo que no funciona? Es un ejemplo de un diálogo dentro de una ventana, sin usar recursos.Compuin wrote:
No funciona
Necesito el dialogo dentro de la Ventana como un contenedor para los objetos
No entiendo bien lo que estás buscando, prueba estoCompuin wrote:No queda el diálogo incrustado en la ventana. Ambos quedan separados
Code: Select all
#include "Fivewin.ch"
Function Main()
local oWnd
local oDlg
DEFINE WINDOW oWnd
DEFINE DIALOG oDlg OF oWnd STYLE WS_POPUP
oDlg:SetColor( CLR_BLUE, CLR_GRAY )
ACTIVATE DIALOG oDlg CENTERED IN PARENT NOWAIT
ACTIVATE WINDOW oWnd
Return nil
Gracias Silvio, lo voy a revisarSilvio.Falconi wrote:Hace mucho tiempo el señor Rao había hecho una prueba de ejemplo
http://forums.fivetechsupport.com/viewt ... 76#p216176