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

win32: teach statusbar to handle clDefault color

Browse Source 
git-svn-id: trunk@28116 -
This commit is contained in:
paul 2010-11-07 13:28:08 +00:00
parent 1abcaefd9e
commit b2aa415919
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/win32/win32wscomctrls.pp
View File

@ -455,7 +455,10 @@ class procedure TWin32WSStatusBar.SetColor(const AWinControl: TWinControl);
begin
if not WSCheckHandleAllocated(AWinControl, 'TWin32WSStatusBar.SetColor') then
Exit;
Windows.SendMessage(AWinControl.Handle, SB_SETBKCOLOR, 0, ColorToRGB(AWinControl.Color));
if AWinControl.Color = clDefault then
Windows.SendMessage(AWinControl.Handle, SB_SETBKCOLOR, 0, ColorToRGB(TWSWinControlClass(AWinControl.WidgetSetClass).GetDefaultColor(AWinControl)))
else
Windows.SendMessage(AWinControl.Handle, SB_SETBKCOLOR, 0, ColorToRGB(AWinControl.Color));
end;
class procedure TWin32WSStatusBar.GetPreferredSize(const AWinControl: TWinControl;