Buenas tardes foro,
Como implemento un folder con 2 labels que me quede ajustado a una ventana ?
DEFINE WINDOW oWnd .....
.../...
oWnd:oClient := oFolder
ACTIVATE WINDOW oWnd ....
#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
#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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 126 guests