FiveTech Support Forums

#include "FiveWin.ch"

function Main(cPara)
local oDlg, oFld, oGet, cTest := "Hello world", cAnother := "Another GET"
local oCbx,nPos,cDia := "AAA"

   DEFINE DIALOG oDlg SIZE 400, 400

      @ 1, 3 COMBOBOX oCbx VAR cDia OF oDlg SIZE 100, 300 ;
            ITEMS { "AAA","BBB","CCC" }

IF !EMPTY(cPara)
   @ 40, 5 FOLDER oFld PIXEL ;
      PROMPT "&One", "&Two", "&Three" ;
      SIZE 190, 120
ELSE
   @ 40, 5 FOLDEREX oFld PIXEL ;
      PROMPT "&One", "&Two", "&Three" ;
      SIZE 190, 120
ENDIF

   oFld:bChange := {|| UpDateInfo( oCbx, oFld:nOption ) }

   @ 1, 1 GET oGet VAR cTest OF oFld:aDialogs[ 1 ]

   @ 2, 1 GET cAnother OF oFld:aDialogs[ 1 ]

   @ 9.2, 14 BUTTON "Ok" ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ( oGet:SetFocus(), .F. )

return nil

STATIC PROCEDURE UpDateInfo( oCombo, nPos )
   oCombo:Select( nPos )
   oCombo:update()

   fwlog PROCNAME( 2 ), PROCLINE( 2 ), nPos
RETURN

   oFld:bChange := {|| UpDateInfo( oCbx, oFld:nOption ) }