Graphic problem 1

[Ugo]

Dear Fwh's,
i found a little problem with RadioButton and Checkbox insert into the Folder.
Using the keyboard, focus is not looked on these controls.
The test is

Se invece uso il folder con i resources non mi appare mai la retinatura attorno ai Check e ai radio button:

Code: Select all

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

con questa dialog:

Code: Select all

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
}

e questo folder:

Code: Select all

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
}

Enrico not confirm this problem, but its exe does not work on my computer and in many others.
Someone can confirm or not?

Many thanks for your replies