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

win32: reduce flickering of themed applications (bug #0010307, bug #0012190)

Browse Source 
git-svn-id: trunk@18594 -
This commit is contained in:
paul 2009-02-06 18:44:50 +00:00
parent 6fc8235611
commit aaefb01ca1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/win32/win32callback.inc
View File

@ -1635,7 +1635,8 @@ begin
end; end;
end else end else
begin begin
SendPaintMessage(HDC(WParam)); if not ThemeServices.ThemesEnabled then
SendPaintMessage(HDC(WParam));
LMessage.Result := 1; LMessage.Result := 1;
end; end;
WinProcess := False; WinProcess := False;