LCL: TPanel: add ParentBackground property. Issue #32085

git-svn-id: trunk@55777 -

lcl/extctrls.pp

@@ -1047,6 +1047,7 @@ type
     procedure Loaded; override;
     procedure RealSetText(const Value: TCaption); override;
     procedure Paint; override;
+    procedure SetParentBackground(const AParentBackground: Boolean); override;
     procedure UpdateParentColorChange;
     property WordWrap: Boolean read FWordwrap write SetWordwrap default false;
   public
@@ -1059,6 +1060,7 @@ type
     property BevelWidth: TBevelWidth read FBevelWidth write SetBevelWidth default 1;
     property Color default {$ifdef UseCLDefault}clDefault{$else}clBtnFace{$endif};
     property FullRepaint: Boolean read FFullRepaint write FFullRepaint default True; // exists only for Delphi compatibility, has no effect in LCL
+    property ParentBackground default true;
     property ParentColor default true;
     property TabStop default False;
   end;
@@ -1093,6 +1095,7 @@ type
     property Enabled;
     property Font;
     property FullRepaint;
+    property ParentBackground;
     property ParentBidiMode;
     property ParentColor;
     property ParentFont;

lcl/include/custompanel.inc

@@ -27,7 +27,7 @@ begin
   FCompStyle:= csPanel;
   ControlStyle := ControlStyle + [csAcceptsControls, csCaptureMouse,
     csClickEvents, csSetCaption, csDoubleClicks, csReplicatable,
-    csNoFocus, csAutoSize0x0]
+    csNoFocus, csAutoSize0x0, csParentBackground]
     - [csOpaque]; // we need the default background
   FBevelColor := clDefault;
   FBevelOuter := bvRaised;
@@ -72,6 +72,17 @@ begin
   end;
 end;
 
+procedure TCustomPanel.SetParentBackground(const AParentBackground: Boolean);
+begin
+  if ParentBackground=AParentBackground then
+    Exit;
+  if AParentBackground then
+    ControlStyle := ControlStyle - [csOpaque]
+  else
+    ControlStyle := ControlStyle + [csOpaque];
+  inherited;
+end;
+
 procedure TCustomPanel.SetWordwrap(const Value: Boolean);
 begin
   if FWordwrap <> Value then