Folder ajustado a ventana o dialogo

[Compuin]

Buenas tardes foro,

Como implemento un folder con 2 labels que me quede ajustado a una ventana ?

[cnavarro]

Prueba a ver

Code: Select all  Expand view  RUN

   DEFINE WINDOW oWnd .....

   .../...

   oWnd:oClient  := oFolder
   ACTIVATE WINDOW oWnd ....

 

[Compuin]

No funciona maestro Navarro

Uso este codigo

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()

   local oDlg, oFld

   DEFINE DIALOG oDlg TITLE "FiveWin Dynamic folders" ;
   FROM 5, 5 TO 20, 49

      @ 0.5, 1 FOLDER oFld PROMPT "&xBase", "&And OOP", "&Power" ;
      OF oDlg //SIZE 160, 90
     
      @ 1, 1 BUTTON "&Hello" OF oFld:aDialogs[ 1 ] ;
      ACTION MsgInfo( "Hello world!" )

     oDlg:oClient  := oFld
     
     ACTIVATE DIALOG oDlg CENTERED

return nil

procedure AppSys // Xbase++ requirement

return

[cnavarro]

Si funciona con ventanas, pero en tu caso con Dialogs

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()

   local oDlg, oFld

   DEFINE DIALOG oDlg TITLE "FiveWin Dynamic folders" ;
   FROM 5, 5 TO 200, 490 PIXEL //TRUEPIXEL

     
   ACTIVATE DIALOG oDlg CENTERED ON INIT ( oFld := CreateFolder( oDlg ), oDlg:oClient  := oFld )

return nil

Function CreateFolder( oDlg )

   local oFld

      @ 0, 0 FOLDER oFld PROMPT "&xBase", "&And OOP", "&Power" ;
      OF oDlg PIXEL SIZE oDlg:nWidth - 6, oDlg:nHeight - 29

      @ 10, 10 BUTTON "&Hello" OF oFld:aDialogs[ 1 ] ;
      ACTION MsgInfo( "Hello world!" ) SIZE 128, 32 PIXEL

Return oFld
 

[Compuin]

Muchas gracias maestro Navarro