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

lcl: call defaulthandler if color=clDefault for wmerasebkgnd

Browse Source 
git-svn-id: trunk@25428 -
This commit is contained in:
paul 2010-05-15 15:12:33 +00:00
parent ebc780e6e8
commit 04de1fcdae
1 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lcl/include/wincontrol.inc
View File

@ -4560,7 +4560,7 @@ procedure TWinControl.SetColor(Value: TColor);
begin
if Value=Color then exit;
inherited SetColor(Value);
if FBrush <> nil then
if BrushCreated then
FBrush.Color := Color;
if HandleAllocated and ([csLoading,csDestroying]*ComponentState=[]) then
begin
@ -4741,9 +4741,9 @@ end;
procedure TWinControl.CreateBrush;
begin
if FBrush<>nil then exit;
FBrush:=TBrush.Create;
FBrush.Color:=Color;
if BrushCreated then exit;
FBrush := TBrush.Create;
FBrush.Color := Color;
// ToDo: ParentColor
end;
@ -6096,8 +6096,9 @@ end;
------------------------------------------------------------------------------}
function TWinControl.GetBrush: TBrush;
begin
if FBrush=nil then CreateBrush;
Result:=FBrush;
if not BrushCreated then
CreateBrush;
Result := FBrush;
end;
{------------------------------------------------------------------------------
@ -6882,8 +6883,13 @@ procedure TWinControl.WMEraseBkgnd(var Message: TLMEraseBkgnd);
begin
if (Message.DC <> 0) and (wcfEraseBackground in FWinControlFlags) then
begin
EraseBackground(Message.DC);
Message.Result := 1;
if Color = clDefault then
DefaultHandler(Message)
else
begin
EraseBackground(Message.DC);
Message.Result := 1;
end;
end;
end;
@ -7415,7 +7421,7 @@ end;
function TWinControl.BrushCreated: Boolean;
begin
Result:=FBrush<>nil;
Result := FBrush <> nil;
end;
{------------------------------------------------------------------------------