[Hwgui-developers] Bug in samples

[Sandro R. R. F. <san...@ya...>]

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