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

LCL: Fix font.color on ttItemHot elements on Windows Vista+. Issue #27015, patch from Andrey Zubarev.

Browse Source 
git-svn-id: trunk@46980 -
This commit is contained in:
juha 2014-11-24 10:39:01 +00:00
parent b79fe8fe8d
commit 4b33596e10
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -381,7 +381,12 @@ begin
end; end;
end end
else else
begin
if (Details.Element = teTreeview) and (Details.Part = TVP_TREEITEM) and (Details.State = TREIS_HOT) then
Details.State := TREIS_NORMAL;
inherited; inherited;
end;
end; end;
procedure TWin32ThemeServices.DrawIcon(DC: HDC; Details: TThemedElementDetails; procedure TWin32ThemeServices.DrawIcon(DC: HDC; Details: TThemedElementDetails;
@ -517,7 +522,7 @@ var
end; end;
begin begin
if NotImplementedInXP and (WindowsVersion < wvVista) then if (NotImplementedInXP and (WindowsVersion < wvVista))or not ThemesEnabled then
begin begin
FontUnderlineSave:=TCanvas(ACanvas).Font.Underline; FontUnderlineSave:=TCanvas(ACanvas).Font.Underline;
if (Details.Element = teTreeview) and (Details.Part = TVP_TREEITEM) and (Details.State = TREIS_HOT) then if (Details.Element = teTreeview) and (Details.Part = TVP_TREEITEM) and (Details.State = TREIS_HOT) then