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

LCL: Fix wrong ListBox painting in WinXP. Issue #28275, patch from wp.

Browse Source 
git-svn-id: trunk@49321 -
This commit is contained in:
juha 2015-06-12 21:42:11 +00:00
parent c462c54354
commit 95725008c2
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -613,8 +613,11 @@ begin
Exit(DeliverMessage(WindowInfo^.WinControl, LMessage));
end;
WM_ERASEBKGND:
// Avoid unnecessary background paints to avoid flickering of the listbox
if WindowsVersion <= wvXP then // Standardbehavior for XP
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