Hi Alexander
This samples demonstrate the bug in FOCUS.
Using ENTER in Get1 is the focus is OK in Get2
Using TAB the focus return in TAB.
#include "hwgui.ch"
function main
Local oDlg, oTAB
Local oGet1, oGet2, oGet3, oVar1:="", oVar2:="", oVar3:=""
INIT DIALOG oDlg CLIPPER NOEXIT AT 0, 0 SIZE 200, 200
@ 10, 10 TAB oTab ITEMS {} SIZE 180, 180
BEGIN PAGE "Page 01" of oTab
@ 30, 60 Get oGet1 VAR oVar1 of oTab SIZE 100, 24
@ 30, 90 Get oGet2 VAR oVar2 of oTab SIZE 100, 24
END PAGE of oTab
BEGIN PAGE "Page 02" of oTab
@ 30, 60 Get oGet3 VAR oVar3 of oTab SIZE 100, 24
END PAGE of oTab
ACTIVATE DIALOG oDlg
return nil
Best Regards
Sandro Freire
http://www.lumainformatica.com.br
|
