Dialogo dentro de ventana

[Compuin]

Hola foro,

Algun sample que me muestre como colocar un dialogo dentro de una ventana (sin usar recursos) ?

Gracias

[karinha]

\SAMPLES\TESTFX?.PRG


Saludos.

[cnavarro]

Hola foro,

Algun sample que me muestre como colocar un dialogo dentro de una ventana (sin usar recursos) ?

Gracias

Prueba esto

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]

Hola foro,

Algun sample que me muestre como colocar un dialogo dentro de una ventana (sin usar recursos) ?

Gracias

Prueba esto

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 funciona

Necesito el dialogo dentro de la Ventana como un contenedor para los objetos

[cnavarro]

Hola foro,

Algun sample que me muestre como colocar un dialogo dentro de una ventana (sin usar recursos) ?

Gracias

No funciona

Necesito el dialogo dentro de la Ventana como un contenedor para los objetos

Qué es lo que no funciona? Es un ejemplo de un diálogo dentro de una ventana, sin usar recursos.

Entonces, no entiendo lo que necesitas, porque en ese diálogo puedes poner los controles que necesites.
A ver, como si fuese un Panel, es decir, que el diálogo no tenga título, etc?

[Compuin]

No queda el diálogo incrustado en la ventana. Ambos quedan separados

[cnavarro]

No queda el diálogo incrustado en la ventana. Ambos quedan separados

No entiendo bien lo que estás buscando, prueba esto

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
 

[Compuin]

Lo que necesito es un dialogo dentro de una ventana que se ajuste a medida que cambie de tamano la ventana

P.S. El ejemplo anterior no es lo que busco

[Compuin]

Lo que necesito es un dialogo dentro de una ventana que se ajuste a medida que cambie de tamano la ventana

P.S. El ejemplo anterior no es lo que busco

[Silvio.Falconi]

Hace mucho tiempo el señor Rao había hecho una prueba de ejemplo
http://forums.fivetechsupport.com/viewt ... 76#p216176

[Compuin]

Hace mucho tiempo el señor Rao había hecho una prueba de ejemplo
http://forums.fivetechsupport.com/viewt ... 76#p216176

Gracias Silvio, lo voy a revisar