paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-21 10:20:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

Win32: clear cached data on themechange. Patch by Anton Kavalenka. Resolves issue #40085.

Browse Source
This commit is contained in:
Bart 2023-02-11 17:06:34 +01:00
parent 727ea7ca57
commit b16ec6790f
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -153,7 +153,7 @@ const
{ TWin32ThemeServices } { TWin32ThemeServices }
procedure TWin32ThemeServices.UnloadThemeData; procedure TWin32ThemeServices.UnloadThemeData;
procedure _Unload(_Theme: TThemeData); procedure _Unload(var _Theme: TThemeData);
var var
Entry: TThemedElement; Entry: TThemedElement;
begin begin
@ -165,11 +165,11 @@ procedure TWin32ThemeServices.UnloadThemeData;
end; end;
end; end;
var var
E: TThemePPIDataEntry; i:integer;
begin begin
_Unload(FThemeData); _Unload(FThemeData);
for E in FThemePPIData do for i:=low(FThemePPIData) to high(FThemePPIData) do
_Unload(E.Data); _Unload(FThemePPIData[I].Data);
FThemePPIData := nil; FThemePPIData := nil;
end; end;
@ -429,10 +429,17 @@ begin
end; end;
function TWin32ThemeServices.ContentRect(DC: HDC; Details: TThemedElementDetails; BoundingRect: TRect): TRect; function TWin32ThemeServices.ContentRect(DC: HDC; Details: TThemedElementDetails; BoundingRect: TRect): TRect;
var
tmpr:TRect;
begin begin
if ThemesEnabled then if ThemesEnabled then
begin
with Details do with Details do
GetThemeBackgroundContentRect(Theme[Element], DC, Part, State, BoundingRect, @Result) if GetThemeBackgroundContentRect(Theme[Element], DC, Part, State, BoundingRect, @tmpr)=S_OK then
Result:=tmpr
else
Result := inherited;
end
else else
Result := inherited; Result := inherited;
end; end;