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

LCL: TWinControl: add ParentBackground property

Browse Source 
git-svn-id: trunk@55776 -
This commit is contained in:
ondrej 2017-09-03 09:54:16 +00:00
parent 6a4cf08b92
commit e651d02c3a
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/controls.pp
View File

@ -2132,6 +2132,7 @@ type
function GetClientRect: TRect; override;
function GetControlOrigin: TPoint; override;
function GetDeviceContext(var WindowHandle: HWND): HDC; override;
function GetParentBackground: Boolean; inline;
function IsControlMouseMsg(var TheMessage): Boolean;
procedure CreateHandle; virtual;
procedure CreateParams(var Params: TCreateParams); virtual;
@ -2155,6 +2156,7 @@ type
procedure SetBorderStyle(NewStyle: TBorderStyle); virtual;
procedure SetColor(Value: TColor); override;
procedure SetChildZPosition(const AChild: TControl; const APosition: Integer);
procedure SetParentBackground(const AParentBackground: Boolean); virtual;
procedure ShowControl(AControl: TControl); virtual;
procedure UpdateControlState;
procedure UpdateShowing; virtual; // checks control's handle visibility, called by DoAllAutoSize and UpdateControlState
@ -2166,6 +2168,7 @@ type
property BorderStyle: TBorderStyle read GetBorderStyle write SetBorderStyle default bsNone;
property OnGetSiteInfo: TGetSiteInfoEvent read FOnGetSiteInfo write FOnGetSiteInfo;
property OnGetDockCaption: TGetDockCaptionEvent read FOnGetDockCaption write FOnGetDockCaption;
property ParentBackground: Boolean read GetParentBackground write SetParentBackground;
public
// properties which are supported by all descendents
property BorderWidth: TBorderWidth read FBorderWidth write SetBorderWidth default 0;

17
lcl/include/wincontrol.inc
View File

@ -6513,6 +6513,18 @@ begin
InvalidatePreferredSize;
end;
procedure TWinControl.SetParentBackground(const AParentBackground: Boolean);
begin
if ParentBackground = AParentBackground then
Exit;
if AParentBackground then
ControlStyle := ControlStyle + [csParentBackground]
else
ControlStyle := ControlStyle - [csParentBackground];
Invalidate;
end;
{------------------------------------------------------------------------------
Method: TWinControl.Create
Params: None
@ -7683,6 +7695,11 @@ begin
Result:=HandleAllocated and (GetCaptureControl=Self);
end;
function TWinControl.GetParentBackground: Boolean;
begin
Result := csParentBackground in ControlStyle;
end;
{------------------------------------------------------------------------------
function TWinControl.ParentHandlesAllocated: boolean;