mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-07 18:40:41 +02:00
git-svn-id: trunk@18594 -
This commit is contained in:
parent
6fc8235611
commit
aaefb01ca1
@ -1635,7 +1635,8 @@ begin
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
SendPaintMessage(HDC(WParam));
|
||||
if not ThemeServices.ThemesEnabled then
|
||||
SendPaintMessage(HDC(WParam));
|
||||
LMessage.Result := 1;
|
||||
end;
|
||||
WinProcess := False;
|
||||
|
Loading…
Reference in New Issue
Block a user