again I've found a problem with TFolderEx. Everything right from and beneath the checkbox I go over with the mouse disappears.
It only happens with windows XP (and XP-Mode on Win7) using the classic design of windows XP and a manifest.
On Win7 with classic design it also happens if you first click checkbox "Test1" and then checkbox "Test2"
I guess there are some problems with the paint event, which also could have to do with my previously reported problem (which also still is unanswered), that it isn't possible to disable a label (say)
Who can help me solve these issues?
Dialog freshly painted
After going over Test2 on TFolderEx with mouse (or clicking Test1 / Button1):
My source code of a working example:
- Code: Select all Expand view
- #include "FiveWin.ch"
function main()
local oDlg, oFld
local lCheck, lCheck2
local oBtn1, oBtn2
local oSay1
DEFINE DIALOG oDlg FROM 5, 5 TO 35, 60 TITLE "A Dialog Box"
@ 1, 2 CHECKBOX lCheck PROMPT "Test1" OF oDlg SIZE 80,13
@ 2, 2 BUTTON oBtn1 PROMPT "Button1" OF oDlg ACTION MsgInfo("ButtonTest")
@ 4, 2 SAY "Hello" OF oDlg
@ 75, 10 FOLDEREX oFld OF oDlg PIXEL SIZE 200, 100 ;
PROMPT "Page 1", "Page 2", "Page 3"
@ 1, 1 CHECKBOX lCheck2 PROMPT "Test2" OF oFld:aDialogs[1] SIZE 100,13
@ 2, 1 SAY oSay1 PROMPT "Page 1" OF oFld:aDialogs[1]
@ 3, 1 BUTTON oBtn2 PROMPT "Button1" OF oFld:aDialogs[1] ACTION MsgInfo("ButtonTest")
@ 2, 1 SAY "Seite 2" OF oFld:aDialogs[2]
oSay1:Disable()
ACTIVATE DIALOG oDlg
return .t.
and the text in the manifest (just save it as example.exe.manifest if the example is called example.prg)
- Code: Select all Expand view
- <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<dependency>
<dependentAssembly>
<assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="*" publicKeyToken="6595b64144ccf1df" language="*" />
</dependentAssembly>
</dependency>
</assembly>
