XP style Manifest ?

sasan_vm

Hello,
I got problem when use Manifest for active xp style in project, many buttons on
designer not work , like font style button, shadow, ...

can tell me why ?

Regards,
m.t

sasan_vm

I use BCB6 ,
No idea , any body help me please .

MetalMickey

It is a bug in the Down property of TToolButton when XP Themes are applied.

I have posted a fix (if you have source of course) for FR3 to the FR3 newsgroup, and perhaps a formal fix will be added in a future release.

You could of course ask Mike (I assume you are using ThemeManager) if he can add support to fix TToolButton instead.

Good luck

Chris

Ralf

Hi,

i have the same problem under Delphi 5.
Is there any solution?!

Regards
Ralf

-=Den=-

i know solution:
1. Copy ComCtrls.pas form delphi to project dir.
2. In implementation section add:

 const 
 ComCtlVersionIE6 = $00060000;
 var
 IsOnCheckDownNeed: Boolean;

3. In initialization section add:

IsOnCheckDownNeed := GetComCtlVersion >= ComCtlVersionIE6;

4. In TToolButton.MouseDown change :

if (Style = tbsDropDown) and (Button = mbLeft) and Enabled then ...
to:
if ((Style = tbsDropDown) or ((Style = tbsCheck) and IsOnCheckDownNeed)) and (Button = mbLeft) and Enabled then ...

5. rebuild your project.

Ralf

That's ist!!! :-)

Thank you!