FiveTech Support Forums

function Main()

   Local oDlg, cVar1, cVar2, nVar1, nVar2, cVar3, lVar1, lVar2

   cVar1 := "Test1"
   cVar2 := "Test2"
   cVar3 := "One"
   lVar1 := .T.
   lVar2 := .T.
   nVar1 := 1
   nVar2 := 2

   DEFINE DIALOG oDlg

   @ 1,1 GET cVar1 WHEN lVar1
   @ 2,1 GET cVar2 WHEN lVar1
   @ 1,5 RADIO nVar1 ITEMS "Prova1", "Prova2" OF oDlg WHEN lVar1
   @ 3,1 COMBOBOX cVar3 ITEMS { "One", "Two", "Three", "Four" } OF oDlg WHEN lVar1
   @ 1,10 RADIO nVar2 ITEMS "Prova1", "Prova2" OF oDlg WHEN lVar1
   @ 3,8 CHECKBOX lVar2 PROMPT "Test" OF oDlg WHEN lVar1 SIZE 50, 12
   @ 3,16 CHECKBOX lVar1 PROMPT "Test" OF oDlg SIZE 50, 12 ON CHANGE oDlg:AEvalWhen( oDlg )

   ACTIVATE DIALOG oDlg

   RETURN Nil

function Main()

   Local oDlg, cVar1, cVar2, nVar1, nVar2, cVar3, lVar1, lVar2

   cVar1 := "Test1"
   cVar2 := "Test2"
   cVar3 := "One"
   lVar1 := .T.
   nVar1 := 1
   lVar2 := .T.
   nVar2 := 2

   DEFINE DIALOG oDlg RESOURCE "TestTABULATORE"

   REDEFINE GET cVar1 ID 101 OF oDlg WHEN lVar1
   REDEFINE GET cVar2 ID 102 OF oDlg WHEN lVar1
   REDEFINE RADIO nVar1 ID 103, 104 of oDlg WHEN lVar1
   REDEFINE RADIO nVar2 ID 105, 106 of oDlg WHEN lVar1
   REDEFINE COMBOBOX cVar3 ITEMS { "One", "Two", "Three", "Four" } ID 107 OF oDlg WHEN lVar1
   REDEFINE CHECKBOX lVar2 ID 108 OF oDlg WHEN lVar1
   REDEFINE CHECKBOX lVar1 ID 109 OF oDlg ON CHANGE oDlg:AEvalWhen( oDlg )

   ACTIVATE DIALOG oDlg

   RETURN Nil

TestTABULATORE DIALOG 6, 15, 222, 127
STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX
CAPTION "Test TAB"
FONT 8, "MS Sans Serif"
{
 EDITTEXT 101, 15, 18, 39, 12
 EDITTEXT 102, 17, 35, 37, 12
 CONTROL "Radio", 103, "BUTTON", BS_AUTORADIOBUTTON, 78, 19, 60, 12
 CONTROL "Radio", 104, "BUTTON", BS_AUTORADIOBUTTON, 79, 33, 60, 12
 CONTROL "Radio", 105, "BUTTON", BS_AUTORADIOBUTTON, 147, 20, 60, 12
 CONTROL "Radio", 106, "BUTTON", BS_AUTORADIOBUTTON, 147, 32, 60, 12
 CHECKBOX "Checkbox", 108, 119, 92, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP
 COMBOBOX 107, 22, 65, 49, 33, CBS_DROPDOWNLIST | WS_TABSTOP
 GROUPBOX "Group", -1, 8, 5, 204, 110, BS_GROUPBOX
 CHECKBOX "Checkbox", 109, 29, 92, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP
}

function Main()

   Local oDlg, cVar1, cVar2, nVar1, nVar2, cVar3, lVar1, lVar2, oFld, oCbx

   cVar1 := "Test1"
   cVar2 := "Test2"
   cVar3 := "One"
   lVar1 := .T.
   nVar1 := 1
   lVar2 := .T.
   nVar2 := 2

   DEFINE DIALOG oDlg RESOURCE "TestTabFolder"

   REDEFINE FOLDER oFld ID 1000 ITEMS "Test1", "Test2" DIALOGS "Folder", "Folder" OF oDlg

   REDEFINE GET cVar1 ID 101 OF oFld:aDialogs[1] WHEN lVar1
   REDEFINE GET cVar2 ID 102 OF oFld:aDialogs[1] WHEN lVar1
   REDEFINE RADIO nVar1 ID 103, 104 OF oFld:aDialogs[1] WHEN lVar1
   REDEFINE RADIO nVar2 ID 105, 106 OF oFld:aDialogs[1] WHEN lVar1
   REDEFINE COMBOBOX oCbx VAR cVar3 ITEMS { "One", "Two", "Three", "Four" } ID 107 OF oFld:aDialogs[1] WHEN lVar1
   REDEFINE CHECKBOX lVar2 ID 108 OF oFld:aDialogs[1] WHEN lVar1
   REDEFINE CHECKBOX lVar1 ID 109 OF oFld:aDialogs[1] ON CHANGE oDlg:AEvalWhen( oFld[1] )

   REDEFINE GET cVar1 ID 101 OF oFld:aDialogs[2] WHEN lVar1
   REDEFINE GET cVar2 ID 102 OF oFld:aDialogs[2] WHEN lVar1
   REDEFINE RADIO nVar1 ID 103, 104 OF oFld:aDialogs[2] WHEN lVar1
   REDEFINE RADIO nVar2 ID 105, 106 OF oFld:aDialogs[2] WHEN lVar1
   REDEFINE COMBOBOX cVar3 ITEMS { "One", "Two", "Three", "Four" } ID 107 OF oFld:aDialogs[2] WHEN lVar1
   REDEFINE CHECKBOX lVar2 ID 108 OF oFld:aDialogs[2] WHEN lVar1
   REDEFINE CHECKBOX lVar1 ID 109 OF oFld:aDialogs[2] ON CHANGE oDlg:AEvalWhen( oFld[2] )

   ACTIVATE DIALOG oDlg

   RETURN Nil

TestTabFolder DIALOG 6, 15, 222, 127
STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX
CAPTION "Test TAB Folder"
FONT 8, "MS Sans Serif"
{
 CONTROL "SysTabControl32", 1000, "SysTabControl32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 3, 4, 216, 123
}

Folder DIALOG 6, 15, 213, 114
STYLE WS_CHILD | WS_VISIBLE | WS_BORDER
FONT 8, "MS Sans Serif"
{
 EDITTEXT 101, 11, 17, 39, 12
 EDITTEXT 102, 13, 34, 37, 12
 CONTROL "Radio", 103, "BUTTON", BS_AUTORADIOBUTTON, 74, 18, 60, 12
 CONTROL "Radio", 104, "BUTTON", BS_AUTORADIOBUTTON, 75, 32, 60, 12
 CONTROL "Radio", 105, "BUTTON", BS_AUTORADIOBUTTON, 143, 19, 60, 12
 CONTROL "Radio", 106, "BUTTON", BS_AUTORADIOBUTTON, 143, 31, 60, 12
 CHECKBOX "Checkbox", 108, 115, 91, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP
 COMBOBOX 107, 18, 64, 49, 33, CBS_DROPDOWNLIST | WS_TABSTOP
 GROUPBOX "Group", -1, 4, 4, 204, 110, BS_GROUPBOX
 CHECKBOX "Checkbox", 109, 25, 91, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP
}