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

win32: remove groupbox wm_erasebackground workaround - this reduces flicking

Browse Source 
git-svn-id: trunk@24942 -
This commit is contained in:
paul 2010-04-26 01:55:11 +00:00
parent 2588baa18d
commit e4743af864
2 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1524,19 +1524,10 @@ begin
exit; exit;
end; end;
if not GetNeedParentPaint(WindowInfo, lWinControl) or (eraseBkgndCommand = ecDoubleBufferNoRemove) then if not GetNeedParentPaint(WindowInfo, lWinControl) or (eraseBkgndCommand = ecDoubleBufferNoRemove) then
begin
if ThemeServices.ThemesEnabled and WindowInfo^.isGroupBox and (lWinControl <> nil) then
begin
// Groupbox (which is a button) doesn't erase it's background properly; force repaint
lWinControl.EraseBackground(HDC(WParam));
LMessage.Result := 1;
end
else
begin begin
LMessage.Msg := LM_ERASEBKGND; LMessage.Msg := LM_ERASEBKGND;
LMessage.WParam := WParam; LMessage.WParam := WParam;
LMessage.LParam := LParam; LMessage.LParam := LParam;
end;
end else end else
begin begin
if not ThemeServices.ThemesEnabled then if not ThemeServices.ThemesEnabled then