Commit df1e1dc3 authored by Michael W. Vogel's avatar Michael W. Vogel
Browse files

LCL: Fixed ParentBackground of GroupBoxes cannot be set to true. Issue #38777

git-svn-id: trunk@65036 -
parent 72963f6a
......@@ -98,8 +98,9 @@ end;
procedure TCustomFrame.SetColor(Value: TColor);
begin
inherited SetColor(Value);
if Color <> clDefault then
ParentBackground := False;
if Color = clDefault then Exit;
if Assigned(Parent) and (Value = Parent.Color) then Exit;
ParentBackground := False;
end;
procedure TCustomFrame.SetParent(AParent: TWinControl);
......
......@@ -50,8 +50,9 @@ end;
procedure TCustomGroupBox.SetColor(Value: TColor);
begin
inherited SetColor(Value);
if Color <> clDefault then
ParentBackground := False;
if Color = clDefault then Exit;
if Assigned(Parent) and (Value = Parent.Color) then Exit;
ParentBackground := False;
end;
{------------------------------------------------------------------------------
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment