FiveTech Support Forums

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oFld, oBtn

    LOCAL lVar := .F.

    DEFINE DIALOG oDlg;
           RESOURCE "FOLDER"

    REDEFINE FOLDER oFld;
             ID 101 OF oDlg;
             PROMPTS "Test";
             DIALOGS "TEST"

    REDEFINE BTNBMP;
             ID 101 OF oFld:aDialogs[ 1 ];
             FILE "\fwh\bitmaps\open.bmp";
             NOBORDER

    REDEFINE CHECKBOX lVar;
             ID 102 OF oFld:aDialogs[ 1 ]

    REDEFINE BUTTON oBtn PROMPT "&Close";
             ID 201 OF oFld:aDialogs[ 1 ];
             ACTION oDlg:End()

    REDEFINE BTNBMP;
             ID 102 OF oDlg;
             FILE "\fwh\bitmaps\open.bmp";
             NOBORDER

    REDEFINE BUTTON;
             ID 201 OF oDlg;
             ACTION oDlg:End()

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

FOLDER DIALOG 49, 52, 365, 295
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "Folder test"
FONT 8, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
 CONTROL "", 101, "SysTabControl32", 0 | WS_CHILD | WS_VISIBLE, 5, 5, 265, 195
 PUSHBUTTON "&Close", 201, 5, 275, 40, 15
 CONTROL "", 102, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE, 280, 5, 30, 25
}

TEST DIALOG 49, 52, 365, 295
STYLE WS_CHILD
FONT 8, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
 CONTROL "", 101, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE, 10, 10, 30, 25
 AUTOCHECKBOX "Checkbox", 102, 97, 74, 60, 12
 PUSHBUTTON "Button", 201, 103, 134, 50, 14
}

METHOD KeyChar( nKey, nFlags ) CLASS TCheckbox

   IF nKey == VK_RETURN
      ::oWnd:GoNextCtrl( ::hWnd )
   ENDIF

RETURN Super:KeyChar( nKey, nFlags )

//----------------------------------------------------------------------------//

METHOD KeyDown( nKey, nFlags ) CLASS TCheckbox

   DO CASE
   CASE nKey == VK_UP
      IF Len( ::oWnd:aControls ) > 1
         ::oWnd:GoPrevCtrl( ::hWnd )
      ENDIF
   CASE nKey == VK_DOWN
      IF Len( ::oWnd:aControls ) > 1
         ::oWnd:GoNextCtrl( ::hWnd )
      ENDIF
   ENDCASE

RETURN Super:KeyDown( nKey, nFlags )

METHOD GetDlgCode( nLastKey ) CLASS TButton

   ::oWnd:nLastKey := nLastKey

   IF ::oWnd:oWnd != nil .and. ( ::oWnd:oWnd:IsKindOf( "TFOLDER" ) .or. ;
                                 ::oWnd:oWnd:IsKindOf( "TFOLDEREX" ) )
      RETURN DLGC_WANTALLKEYS
   ENDIF

RETURN NIL

CLASS TRadioFROM TControl
    ....
   METHOD KeyChar( nKey, nFlags )
   ....
endclass

//----------------------------------------------------------------------------//

METHOD KeyChar( nKey, nFlags ) CLASS TRadio

   IF nKey == VK_RETURN
      ::oWnd:GoNextCtrl( ::hWnd )
   ENDIF

RETURN Super:KeyChar( nKey, nFlags )

//----------------------------------------------------------------------------//

        #include "FiveWin.ch"

        function Main()

           local oDlg, oFnt, oFld, lVal := .T., cVar := space(25), cVar2 := space(25), nNivel:=1, lVar1:=.f., lVar2:=.t., lVar3:=.f.

           DEFINE FONT oFnt NAME "Tahoma" SIZE 0, -12
           
           DEFINE DIALOG oDlg SIZE 400, 300 FONT oFnt

           @ 0.5, 1 FOLDER oFld PROMPTS "One", "Two", "Three" SIZE 190, 120

           @ 1, 1  SAY "Hola1" SIZE 25, 12 OF oFld:aDialogs[ 1 ]
           
           @ 1, 10 GET      cVar                SIZE 80, 12 OF oFld:aDialogs[ 1 ]
           
           @ 3, 10 CHECKBOX lVal PROMPT "&Test" SIZE 80, 12 OF oFld:aDialogs[ 1 ]

           @ 5, 1  SAY "Hola2" SIZE 25, 12 OF oFld:aDialogs[ 1 ]
           @ 5, 10 GET      cVar2               SIZE 80, 12 OF oFld:aDialogs[ 1 ]      

          @ 1,  1 SAY "&Name:" OF oFld:aDialogs[ 2 ]
          @ 1,  6 GET cVar OF oFld:aDialogs[ 2 ]
          @ 2,  1 SAY "&Address:" OF oFld:aDialogs[ 2 ]
          @ 2,  6 GET cVar2 OF oFld:aDialogs[ 2 ]  

          @ 4,  1 CHECKBOX lVar1 PROMPT "&FivePro" OF oFld:aDialogs[ 2 ] SIZE 70, 11
          @ 5,  1 CHECKBOX lVar2  PROMPT "&Dialog"  OF oFld:aDialogs[ 2 ] SIZE 70, 11
          @ 6,  1 CHECKBOX lVar3 PROMPT "&Objects" OF oFld:aDialogs[ 2 ] SIZE 70, 11

          @ 4,  9 RADIO nNivel PROMPT "&Novice", "A&vanced", "&Expert" OF oFld:aDialogs[ 2 ]
       
           @ 7.3, 14 BUTTON "&Ok" ACTION oDlg:End()

           ACTIVATE DIALOG oDlg CENTERED

        return nil

METHOD KeyDown( nKey, nFlags ) CLASS TRadio

   do case
      case nKey == VK_DOWN .or. nKey == VK_RIGHT
           ::oRadMenu:GoNext()
           ::oRadMenu:aItems[ ::oRadMenu:nOption ]:SetFocus()
           return 0

      case nKey == VK_UP .or. nKey == VK_LEFT
           ::oRadMenu:GoPrev()
           ::oRadMenu:aItems[ ::oRadMenu:nOption ]:SetFocus()
           return 0
   endcase

return Super:KeyDown( nKey, nFlags )