[Hwgui-developers] Issues about the TAB behaviour

[Rodrigo M. <rod...@te...>]

Hi All

Probably someone hear about the problem with tab key when used with tab
control.

1)When TAB is initalized its should set focus on first control. If you
change between pages it's does.

2)When key tab is pressed it's get focus on page control, when it's should
go to next control

Regards
Rodrigo


#include "windows.ch"
#include "guilib.ch"

Static oMain, oForm, oTab
Function Main()

        INIT WINDOW oMain MAIN TITLE "Tab Demo" ;
             AT 0,0 ;
             SIZE GetDesktopWidth(), GetDesktopHeight() - 28

                MENU OF oMain
                        MENUITEM "&Exit"   ACTION oMain:Close()
                        MENUITEM "&Demo"   ACTION Test()
                ENDMENU

        ACTIVATE WINDOW oMain
Return Nil

Function Test()
    Private oGet1, xGet1 := 10
    Private oGet2, xGet2 := Space(20)
    Private oGet3, xGet3 := Date()
    Private oGet4, xGet4 := 20
    Private oGet5, xGet5 := Space(20)
    Private oGet6, xGet6 := Date()

    PREPARE FONT oFont NAME "Courier New" WIDTH 0 HEIGHT -11

    INIT DIALOG oForm /*CLIPPER NOEXIT*/ TITLE "Tab Demo";
        FONT oFont ;
        AT 0, 0 SIZE 700, 425 ;
        STYLE DS_CENTER + WS_VISIBLE + WS_POPUP + WS_VISIBLE + WS_CAPTION +
WS_SYSMENU

        @ 8,8 TAB oTab ITEMS {} SIZE 684,370

        BEGIN PAGE 'Page 1' OF oTab
            @ 10, 30 GET oGet1 VAR xGet1 SIZE  30,25
            @ 10, 60 GET oGet2 VAR xGet2 SIZE 150,25
            @ 10, 90 GET oGet3 VAR xGet3 SIZE 100,25
        END PAGE OF oTab

        BEGIN PAGE 'Page 2' OF oTab
            @ 10, 30 GET oGet4 VAR xGet4 SIZE  30,25
            @ 10, 60 GET oGet5 VAR xGet5 SIZE 150,25
            @ 10, 90 GET oGet6 VAR xGet6 SIZE 100,25
        END PAGE OF oTab
    ACTIVATE DIALOG oForm
Return Nil