paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 13:19:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: draw hintwindow with themes if color = clDefault

Browse Source 
git-svn-id: trunk@25426 -
This commit is contained in:
paul 2010-05-15 15:07:30 +00:00
parent 112777a442
commit 1b38c456a8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/hintwindow.inc
View File

@ -127,7 +127,7 @@ var
Details: TThemedElementDetails; Details: TThemedElementDetails;
begin begin
ARect := ClientRect; ARect := ClientRect;
if Color = clInfoBk then // draw using themes if (Color = clInfoBk) or (Color = clDefault) then // draw using themes
begin begin
Details := ThemeServices.GetElementDetails(tttStandardLink); Details := ThemeServices.GetElementDetails(tttStandardLink);
ThemeServices.DrawElement(Canvas.Handle, Details, ARect); ThemeServices.DrawElement(Canvas.Handle, Details, ARect);