XP style Manifest ?

Comments

• sasan_vm

  September 2005 edited 2:54PM

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

  September 2005 edited 2:54PM

  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

  August 2006 edited 2:54PM

  Hi,
  
  i have the same problem under Delphi 5.
  Is there any solution?!
  
  Regards
  Ralf
  
  
• -=Den=-

  August 2006 edited 2:54PM

  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

  August 2006 edited 2:54PM

  That's ist!!! :-)
  
  Thank you!