I still experience some problems with the display of labels in TFolderEx.
As soon as I check a checkbox on a folder the text of the labels gets bold.
Have a look on the screenshots. You see on the right image the labels are bold (enabled and disabled) whereas on the left image everything is as it should (before clicking the checkbox)
and for my sourcecode view testfx8.prg:
- Code: Select all Expand view
- #include "FIVEWIN.CH"
FUNCTION MAIN()
local oDlg, oFld1, oSay, oSay2, oBtn, oCheck
local lCheck := .f.
DEFINE DIALOG oDlg RESOURCE "DIALOG0"
REDEFINE FOLDEREX oFld1 ID 110 OF oDlg;
PROMPT "&Clipper", "&Windows" DIALOGS "Sub1", "Sub2"
REDEFINE SAY oSay ID 1001 OF oFld1:aDialogs[1] UPDATE
REDEFINE SAY oSay2 ID 1004 OF oFld1:aDialogs[1] UPDATE
oSay2:Disable()
REDEFINE CHECKBOX oCheck VAR lCheck ID 1003 OF oFld1:aDialogs[1]
REDEFINE BUTTON oBtn ID 1002 OF oFld1:aDialogs[1];
ACTION (oSay:Disable(), oSay2:Enable()) // oFld:aDialogs[1]:Refresh()
ACTIVATE DIALOG oDlg CENTERED
and my testfx8.rc:
- Code: Select all Expand view
- DIALOG0 DIALOGEX 44,23,315,171
FONT 8,"MS Sans Serif"
LANGUAGE 7,1
STYLE WS_POPUP|WS_VISIBLE|WS_CAPTION|WS_SYSMENU|DS_MODALFRAME|DS_3DLOOK
BEGIN
CONTROL "",110,"TFOLDEREX",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP,4,5,305,163
END
sub1 DIALOGEX 18,18,264,159
FONT 8,"MS Sans Serif"
LANGUAGE 7,1
STYLE WS_CHILDWINDOW|WS_VISIBLE|DS_3DLOOK
BEGIN
CONTROL "Text",101,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_GROUP|WS_TABSTOP|BS_AUTORADIOBUTTON,24,33,28,12
CONTROL "this is a Label 1 with Information",1001,"Static",WS_CHILDWINDOW|WS_VISIBLE,24,60,165,9
CONTROL "Click me",1002,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP,57,102,54,15
CONTROL "Checkbox",1003,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP|BS_AUTOCHECKBOX,27,15,54,9
CONTROL "this is a Label 2 with Information",1004,"Static",WS_CHILDWINDOW|WS_VISIBLE,24,75,168,9
END
sub2 DIALOGEX 18,18,273,150
FONT 8,"MS Sans Serif"
LANGUAGE 7,1
STYLE WS_CHILDWINDOW|WS_VISIBLE|DS_3DLOOK
BEGIN
CONTROL "Text",102,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_GROUP|WS_TABSTOP|BS_AUTORADIOBUTTON,37,30,28,12
CONTROL "Label 2",1001,"Static",WS_CHILDWINDOW|WS_VISIBLE,39,60,54,9
END
