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

lcl: add TControlBorderSpacing.Around* properties

Browse Source 
git-svn-id: trunk@52146 -
This commit is contained in:
ondrej 2016-04-08 11:03:11 +00:00
parent f976741718
commit 87c63ee431
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lcl/controls.pp
View File

@ -700,6 +700,10 @@ type
FRight: TSpacingSize;
FTop: TSpacingSize;
FDefault: PControlBorderSpacingDefault;
function GetAroundBottom: Integer;
function GetAroundLeft: Integer;
function GetAroundRight: Integer;
function GetAroundTop: Integer;
function GetControlBottom: Integer;
function GetControlHeight: Integer;
function GetControlLeft: Integer;
@ -734,6 +738,10 @@ type
public
property Control: TControl read FControl;
property Space[Kind: TAnchorKind]: integer read GetSpace write SetSpace;
property AroundLeft: Integer read GetAroundLeft;
property AroundTop: Integer read GetAroundTop;
property AroundRight: Integer read GetAroundRight;
property AroundBottom: Integer read GetAroundBottom;
property ControlLeft: Integer read GetControlLeft;
property ControlTop: Integer read GetControlTop;
property ControlWidth: Integer read GetControlWidth;
@ -3605,6 +3613,26 @@ begin
if Assigned(OnChange) then OnChange(Self);
end;
function TControlBorderSpacing.GetAroundBottom: Integer;
begin
Result := Around+Bottom;
end;
function TControlBorderSpacing.GetAroundLeft: Integer;
begin
Result := Around+Left;
end;
function TControlBorderSpacing.GetAroundRight: Integer;
begin
Result := Around+Right;
end;
function TControlBorderSpacing.GetAroundTop: Integer;
begin
Result := Around+Top;
end;
function TControlBorderSpacing.GetControlBottom: Integer;
begin
if FControl<>nil then