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

do not erase background in WM_CTLCOLOR... ; force erase background in groupboxes on winxp, having black borders around buttons (fixes bug #943)

Browse Source 
git-svn-id: trunk@7703 -
This commit is contained in:
micha 2005-09-14 20:21:37 +00:00
parent 991408b9d6
commit 86419b045d
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -752,7 +752,6 @@ Begin
} }
WM_CTLCOLORMSGBOX..WM_CTLCOLORSTATIC: WM_CTLCOLORMSGBOX..WM_CTLCOLORSTATIC:
begin begin
// Groupbox (which is a button) doesn't erase it's background properly
// it's needed for winxp themes where controls send the WM_ERASEBKGND // it's needed for winxp themes where controls send the WM_ERASEBKGND
// message to their parent to clear their background and then draw // message to their parent to clear their background and then draw
// transparently // transparently
@ -772,10 +771,6 @@ Begin
LMessage.Result := GetStockObject(HOLLOW_BRUSH); LMessage.Result := GetStockObject(HOLLOW_BRUSH);
SetBkMode(WParam, TRANSPARENT); SetBkMode(WParam, TRANSPARENT);
WinProcess := false; WinProcess := false;
end else
if WindowInfo^.isGroupBox then
begin
lWinControl.EraseBackground(WParam);
end; end;
end; end;
if WinProcess then if WinProcess then
@ -892,9 +887,16 @@ Begin
EraseBkgndStack := EraseBkgndStack shr EraseBkgndStackShift; EraseBkgndStack := EraseBkgndStack shr EraseBkgndStackShift;
if (eraseBkgndCommand <> ecNoMsg) and not WindowInfo^.hasTabParent then if (eraseBkgndCommand <> ecNoMsg) and not WindowInfo^.hasTabParent then
begin begin
LMessage.Msg := LM_ERASEBKGND; if TWin32WidgetSet(WidgetSet).ThemesActive and WindowInfo^.isGroupBox
LMessage.WParam := WParam; and (lWinControl <> nil) then
LMessage.LParam := LParam; begin
// Groupbox (which is a button) doesn't erase it's background properly; force repaint
lWinControl.EraseBackground(WParam);
end else begin
LMessage.Msg := LM_ERASEBKGND;
LMessage.WParam := WParam;
LMessage.LParam := LParam;
end;
end else begin end else begin
if WindowInfo^.hasTabParent and ((lWinControl = nil) if WindowInfo^.hasTabParent and ((lWinControl = nil)
or not (csOpaque in lWinControl.ControlStyle)) then or not (csOpaque in lWinControl.ControlStyle)) then