I have FWH 2.7 feb 2006
Thank in advance
Gianni
Code: Select all
#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 TO 7, 8 LABEL "&Products" OF oDlg
@ 4, 2 CHECKBOX lFivePro PROMPT "&FivePro" OF oDlg
@ 5, 2 CHECKBOX lDialog PROMPT "&Dialog" OF oDlg
@ 6, 2 CHECKBOX lObjects PROMPT "O&bjects" OF oDlg
@ 3, 9 TO 7, 17 LABEL "&Nivel" OF oDlg
@ 4, 9 RADIO nNivel PROMPT "&Novice", "A&vanced", "&Expert" OF oDlg
@ 6, 3 BUTTON oBtn PROMPT "&Ok" OF oDlg SIZE 50, 12 ACTION (oGet2:ctext("OK ACTION RUN ON " + TIME()),oGet2:SetFocus()) DEFAULT
@ 6, 15 BUTTON "&Cancel" OF oDlg SIZE 50, 12 ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED
return nil