@ 1, 1 GET oGet1 VAR cVar1 SIZE 30,12 PIXEL ;
VALID ( LogFile( "valid.txt", { "valid" } ), .T. )
...
@ 40,50 BUTTON oBtn PROMPT '&Test' ;
SIZE 30, 20 PIXEL ;
ACTION ( LogFile( "action.txt", { "action" } ), ( cVar2 := cVar1 ), oGet2:Refresh() )
@ 1, 1 GET oGet1 VAR cVar1 SIZE 30,12 PIXEL ;
Valid ( LogFile( "valid.txt", { "valid" } ), .T. )
...
@ 40,50 BUTTON oBtn PROMPT '&Test' ;
SIZE 30, 20 PIXEL ;
ACTION ( LogFile( "action.txt", { "action" } ), MsgInfo( "action" ) )
@ 1, 1 GET oGet1 VAR cVar1 SIZE 30,12 PIXEL ;
Valid ( MsgBeep(), .T. )
...
@ 40,50 BUTTON oBtn PROMPT '&Test' ;
SIZE 30, 20 PIXEL ;
ACTION ( ( cVar2 := cVar1 ), oGet2:Refresh(), oBtn:SetFocus() )
METHOD Click() CLASS TButton
if ! ::lProcessing
::lProcessing = .t.
if ::bWhen != nil .and. ! Eval( ::bWhen )
::lProcessing = .f.
return nil
endif
::oWnd:lValidating = .T.
if GetFocus() != ::hWnd
SetFocus( ::hWnd )
endif
if ::bAction != nil
Eval( ::bAction )
endif
if ! ::lCancel .and. ::oWnd:hWnd != 0
Super:Click()
endif
if ( GetFocus() == ::hWnd )
::PostMsg( BM_SETSTYLE, BS_DEFPUSHBUTTON, 1 )
else
if ! ::lDefault
::PostMsg( BM_SETSTYLE, BS_PUSHBUTTON, 1 )
endif
endif
::lProcessing = .f.
endif
return nil
#include 'Fivewin.ch'
function Main()
LOCAL oDlg
LOCAL oGet1, oGet2, oGet3, oBtn
LOCAL cVar1 := 'ABCDEF '
LOCAL cVar2 := SPACE( 8 )
LOCAL cVar3 := SPACE( 8 )
DEFINE DIALOG oDlg FROM 0, 0 TO 10, 30 ;
TITLE 'Test Alt / Button / GET_VALID'
@ 1, 1 GET oGet1 VAR cVar1 SIZE 30,12 PIXEL ;
Valid ( LogFile( "valid" + AllTrim( Str( GetTickCount() ) ) + ".txt", { "valid" } ), .T. )
@ 2, 1 GET oGet2 VAR cVar2 SIZE 30,12
@ 3, 1 GET oGet3 VAR cVar3 SIZE 30,12
@ 40,50 BUTTON oBtn PROMPT '&Test' ;
SIZE 30, 20 PIXEL ;
ACTION ( LogFile( "action" + AllTrim( Str( GetTickCount() ) ) + ".txt", { "action", GetClassName( GetFocus() ) } ) )
ACTIVATE DIALOG oDlg CENTER
return NIL
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Enrico Maria Giordano, Google [Bot], nageswaragunupudi and 135 guests