FiveTech Support Forums

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd

    USE CUSTOMER

    DEFINE WINDOW oWnd

    ACTIVATE WINDOW oWnd;
             ON CLICK TEST()

    CLOSE

    RETURN NIL


STATIC FUNCTION TEST()

    LOCAL oDlg

    DEFINE DIALOG oDlg;
           SIZE 800, 600

    @ 1, 1 LISTBOX FIELDS

    ACTIVATE DIALOG oDlg;
             CENTER NOMODAL

    RETURN NIL

         if ::Initiate()
            if Len( ::aControls ) >= 1
               ::aControls[ 1 ]:PostMsg( WM_SETFOCUS )
            endif
         endif
               
         ::Show()      
         ::Refresh() // needed for resource dialogs

function test()
 local oDlg, oFld, oGet, cCombo, cTest := "Hello world", cAnother := "Another GET"

SetGetColorFocus( CLR_BLUE )

   DEFINE DIALOG oDlg TITLE "Antonio Test" SIZE 400, 300 TRANSPARENT
   @ 1, 19 GET cTest OF oDlg COLOR CLR_HRED,CLR_GRAY
   @ 3, 5 FOLDEREX_ST oFld PIXEL PROMPT "&One", "&Two", "&Three" SIZE 140,120
   @ 1, 1 GET oGet VAR cTest OF oFld:aDialogs[ 1 ] COLOR CLR_HRED,CLR_GRAY
   @ 2, 1 COMBOBOX cCombo PROMPTS {"A","B","C"} OF oFld:aDialogs[ 1 ]
   @ 4, 1 GET cAnother OF oFld:aDialogs[ 1 ] COLOR CLR_HRED,CLR_GRAY
   @ 5, 1 SAY "Bolder.. , when TAB changes the focus goes in-/outside the folder" OF oFld:aDialogs[ 1 ]
   @ 7.2, 14 BUTTON "Ok" ACTION msginfo(;
   "BG-Color Get 1: "+str(oFld:aDialogs[ 1 ]:aControls[1]:nClrpane)+CRLF+CRLF+;
   "BG-Color Get 2: "+str(oFld:aDialogs[ 1 ]:aControls[3]:nClrpane);
   )
   ACTIVATE DIALOG oDlg CENTER //NOWAIT
return nil

         if ::Initiate()
            ::SetFocus()
         endif