FiveTech Software tech support forums

CLASSE CONTROL.PRG METHOD Initiate( hDlg ) CLASS TControl DEFAULT ::lActive := .t., ::lDrag := .f., ::lCaptured := .f.,; ::lFocused := .f., ::lCancel := .f. if( ( ::hWnd := GetDlgItem( hDlg, ::nId ) ) != 0 ) If( ::lActive, ::Enable(), ::Disable() ) ::Link() if ::oFont != nil ::SetFont( ::oFont ...

... ::hWnd ) .and. ; ( oWnd := oWndFromhWnd( hCtlFocus ) ) != nil .and. ; Upper( oWnd:Classname() ) $ "TBUTTON;TBTNBMP;TSBUTTON" .and. ; ( oWnd:lCancel != nil .and. oWnd:lCancel .and. ; ( ::oWnd:nLastKey != VK_TAB .and. ::oWnd:nLastKey != VK_RETURN .and. ; ::oWnd:nLastKey != VK_DOWN .and. ::oWnd:nLastKey ...