FiveTech Support Forums

#include "FiveWin.ch" 

function Main() 
   local oDlg 
   local lFivePro  := .T. 
   local lDialog   := .T. 
   local lObjects  := .F. 
   local nNivel    := 1 
   local cName     := SPACE( 10 ) 
   local cAddress  := SPACE( 30 ) 
   local oBtn, oGet1, oGet2 

   DEFINE DIALOG oDlg FROM 8, 2 TO 25, 50 TITLE "SetFocus test" 

   @ 1,  1 SAY "&Name:" OF oDlg 
   @ 1,  6 GET oGet1 VAR cName OF oDlg 
   @ 2,  1 SAY "&Address:" OF oDlg 
   @ 2,  6 GET oGet2 VAR cAddress OF oDlg 

   @ 3,  1 GROUP TO 7, 8 LABEL "&Products" OF oDlg 
   @ 4,  2 CHECKBOX lFivePro PROMPT "&FivePro" OF oDlg SIZE 60, 17
   @ 5,  2 CHECKBOX lDialog  PROMPT "&Dialog"  OF oDlg SIZE 60, 17 
   @ 6,  2 CHECKBOX lObjects PROMPT "O&bjects" OF oDlg SIZE 60, 17 

   @ 3,  9 GROUP TO 7, 17 LABEL "&Nivel" OF oDlg 
   @ 4,  9 RADIO nNivel PROMPT "&Novice", "A&vanced", "&Expert" OF oDlg 

   @ 6,  5 BUTTON oBtn PROMPT "&Ok"  OF oDlg SIZE 50, 12 ACTION (oGet2:ctext("OK ACTION RUN ON " + TIME()),oGet2:SetFocus()) DEFAULT 

   @ 6, 17 BUTTON "&Cancel" OF oDlg SIZE 50, 12 ACTION oDlg:End() 

   ACTIVATE DIALOG oDlg CENTERED 

return nil