#include "FiveWin.ch"
//----------------------------------------------------------------------------//
function BuildWindow()
local oForm1, oSay1, oGet1, cGet1 := Space( 20 ), oBtn1, oBtn2, oChk1, lChk1 := .F.
DEFINE WINDOW oForm1 TITLE "Form1" ;
FROM 21, 61 TO 36, 116
@ 48, 80 SAY oSay1 PROMPT "Say" SIZE 56, 16 PIXEL OF oForm1
@ 48, 160 GET oGet1 VAR cGet1 SIZE 120, 24 PIXEL OF oForm1
@ 136, 72 BUTTON oBtn1 PROMPT "Button" ;
SIZE 82, 26 PIXEL OF oForm1 ;
ACTION MsgInfo( "Not defined yet!" )
@ 136, 192 BUTTON oBtn2 PROMPT "Button" ;
SIZE 82, 26 PIXEL OF oForm1 ;
ACTION MsgInfo( "Not defined yet!" )
@ 96, 136 CHECKBOX oChk1 VAR lChk1 PROMPT "Checkbox" SIZE 83, 27 PIXEL OF oForm1
ACTIVATE WINDOW oForm1
return oForm1
//----------------------------------------------------------------------------//
//----------------------------------------------------------------------------//
function BuildWindow()
#include "oform1.lcl"
cGet1 := Space( 20 )
lChk1 := .F.
#include "oForm1.fwf"
oform1:bGotFocus := { || Mifunción( umiparametro) }
ACTIVATE WINDOW oForm1
return oForm1
//----------------------------------------------------------------------------//
Será FW 12.07 compatible con esta sintáxis?
@ 3,75 SAY "&Buscar por:" OF oDlg SIZE 60,10 PIXEL
@ 2,135 GET cGet OF oDlg SIZE 200,10 PIXEL
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 89 guests