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

win32: draw disabled toolbutton text as gray (issue #0023197)

Browse Source 
git-svn-id: trunk@41644 -
This commit is contained in:
paul 2013-06-10 02:25:03 +00:00
parent a17f69a025
commit 7fd7d1a57d
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/win32/win32themes.pas
View File

@ -500,7 +500,13 @@ begin
Exit;
end;
if ThemesEnabled then
DrawText(TCanvas(ACanvas).Handle, Details, S, R, Flags, Flags2)
begin
// windows does not paint disabled toolbar text properly - the only way is
// to fix it here with disabled button text
if (Details.Element = teToolBar) and (Details.State = TS_DISABLED) then
Details := GetElementDetails(tbPushButtonDisabled);
DrawText(TCanvas(ACanvas).Handle, Details, S, R, Flags, Flags2);
end
else
inherited;
end;