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

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

Browse Source 
git-svn-id: trunk@65036 -
This commit is contained in:
michl 2021-04-20 21:57:55 +00:00
parent 72963f6adb
commit df1e1dc31a
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/customframe.inc
View File

@ -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);

5
lcl/include/customgroupbox.inc
View File

@ -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;
{------------------------------------------------------------------------------