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

Merged revision(s) 49321 #95725008c2, 49561 #c6a1a07dac from trunk:

Browse Source 
LCL: Fix wrong ListBox painting in WinXP. Issue #28275. 
........
LCL-Win32: Take care of standard style painting when reducing flicker in TListbox. Issue #28146, patch from wp.
........

git-svn-id: branches/fixes_1_4@49564 -
This commit is contained in:
maxim 2015-07-24 21:54:29 +00:00
parent f189317ad2
commit 1cd1576a00
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32wsstdctrls.pp
View File

@ -613,8 +613,12 @@ begin
Exit(DeliverMessage(WindowInfo^.WinControl, LMessage));
end;
WM_ERASEBKGND:
// Avoid unnecessary background paints to avoid flickering of the listbox
if (WindowsVersion <= wvXP) or not ThemeServices.ThemesEnabled then
// Standardbehavior for XP, or no themes
Result := CallDefaultWindowProc(Window, Msg, WParam, LParam)
else
begin
// Avoid unnecessary background paints to avoid flickering of the listbox
WindowInfo := GetWin32WindowInfo(Window);
Count := SendMessage(Window, LB_GETCOUNT, 0, 0);
if Assigned(WindowInfo^.WinControl) and