Comments on: Give a Delphi TToolBar a Proper Themed Background http://www.brandonstaggs.com/2009/06/29/give-a-delphi-ttoolbar-a-proper-themed-background/ Software, Society, the Bible, Politics, and everything else. Wed, 28 Dec 2011 22:22:01 +0000 hourly 1 http://wordpress.org/?v=3.2.1 By: pcunite http://www.brandonstaggs.com/2009/06/29/give-a-delphi-ttoolbar-a-proper-themed-background/comment-page-1/#comment-6496 pcunite Thu, 01 Dec 2011 19:01:49 +0000 http://www.brandonstaggs.com/?p=664#comment-6496 C++ Builder 2007 example #include void __fastcall TForm1::ToolBar1_CustomDraw(TToolBar *Sender, const TRect &ARect, bool &DefaultDraw) { TThemeServices * pTheme = new TThemeServices; TThemedElementDetails ElementDetails; RECT pRECT = Sender->ClientRect; pRECT.top = pRECT.top - GetSystemMetrics(SM_CYMENU); if(pTheme->ThemesEnabled == true) { ElementDetails = pTheme->GetElementDetails(trRebarRoot); pTheme->DrawElement(Sender->Canvas->Handle, ElementDetails, pRECT); } delete pTheme; } C++ Builder 2007 example

#include

void __fastcall TForm1::ToolBar1_CustomDraw(TToolBar *Sender, const TRect &ARect, bool &DefaultDraw)
{
TThemeServices * pTheme = new TThemeServices;
TThemedElementDetails ElementDetails;
RECT pRECT = Sender->ClientRect;
pRECT.top = pRECT.top – GetSystemMetrics(SM_CYMENU);

if(pTheme->ThemesEnabled == true)
{
ElementDetails = pTheme->GetElementDetails(trRebarRoot);
pTheme->DrawElement(Sender->Canvas->Handle, ElementDetails, pRECT);
}
delete pTheme;
}

]]> By: colin http://www.brandonstaggs.com/2009/06/29/give-a-delphi-ttoolbar-a-proper-themed-background/comment-page-1/#comment-5105 colin Sun, 20 Feb 2011 23:14:01 +0000 http://www.brandonstaggs.com/?p=664#comment-5105 Hi Very Cool, how could you do this with TPanel? Hi Very Cool, how could you do this with TPanel?

]]> By: Mike http://www.brandonstaggs.com/2009/06/29/give-a-delphi-ttoolbar-a-proper-themed-background/comment-page-1/#comment-3837 Mike Thu, 11 Feb 2010 15:39:00 +0000 http://www.brandonstaggs.com/?p=664#comment-3837 Thank you for your tutorial, it's really cool to improve my Delphi application like this! THANKS!!! Thank you for your tutorial, it’s really cool to improve my Delphi application like this!

THANKS!!!

]]>