www.FiveTechSoft.com
https://forums.fivetechsupport.com/
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=22943
Posted: Mon Nov 28, 2011 10:23 am
Posted: Mon Nov 28, 2011 12:46 pmPosted: Mon Nov 28, 2011 4:31 pmPosted: Mon Nov 28, 2011 10:42 pmPosted: Tue Nov 29, 2011 6:45 amPosted: Tue Nov 29, 2011 10:29 amPosted: Tue Nov 29, 2011 11:22 amPosted: Tue Nov 29, 2011 11:48 amPosted: Tue Nov 29, 2011 6:23 pmMETHOD GoNextCtrl( hCtrl ) CLASS TWindow
local hCtlNext
if ! Empty( ::aControls ) .and. hCtrl == ::LastActiveCtrl():hWnd .and. ;
! Empty( ::oWnd ) .and. ( ( Upper( ::oWnd:ClassName() ) $ "TFOLDER;TPAGES;TFOLDEREX" ) )
hCtlNext = NextDlgTab( ::oWnd:oWnd:hWnd, ::oWnd:hWnd )
else
hCtlNext = NextDlgTab( ::hWnd, hCtrl )
endif
::hCtlFocus = hCtrl
SetFocus( hCtlNext )
return nil
Posted: Tue Nov 29, 2011 7:21 pmPosted: Tue Nov 29, 2011 7:53 pmbyte-one wrote:Antonio, its better!! But when the focus is on a control from tfolderex and i press TAB, the next control is outside the actual tfolderex-dialog. This is also in previsious direction.
Also a NOWAIT-Problem??
Posted: Tue Nov 29, 2011 7:54 pmPosted: Wed Nov 30, 2011 10:32 amPosted: Wed Nov 30, 2011 1:58 pmMETHOD GetDlgCode( nLastKey ) CLASS TGet
if Len( ::oWnd:aControls ) == 1
return DLGC_WANTALLKEYS
endif
::oWnd:nLastKey = nLastKey
if ::oWnd:IsKindOf( 'TXBROWSE' )
return DLGC_WANTALLKEYS
else
if ::oWnd:oWnd != NIL .and. ::oWnd:oWnd:ClassName() $ "TFOLDER;TFOLDEREX"
return DLGC_WANTALLKEYS
endif
endif
return nil
Posted: Wed Nov 30, 2011 2:04 pm#include "FiveWin.ch"
function Main()
local oDlg, oGet, cTest := "Hello world", cAnother := "Another GET"
DEFINE DIALOG oDlg SIZE 400, 300
@ 3, 5 FOLDEREX oFld PIXEL ;
PROMPT "&One", "&Two", "&Three" ;
SIZE 190, 120
@ 1, 1 GET oGet VAR cTest OF oFld:aDialogs[ 1 ]
@ 2, 1 GET cAnother OF oFld:aDialogs[ 1 ]
@ 7.2, 14 BUTTON "Ok"
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT ( oGet:SetFocus(), .F. )
return nil