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

LCL: clean up

Browse Source 
git-svn-id: trunk@32563 -
This commit is contained in:
mattias 2011-09-30 07:53:38 +00:00
parent 6fc4a3abf4
commit 43bf91ff49
2 changed files with 7 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/controls.pp
View File

@ -996,7 +996,6 @@ type
procedure DoActionChange(Sender: TObject);
function GetAutoSizingAll: Boolean;
function GetAnchorSide(Kind: TAnchorKind): TAnchorSide;
function GetAnchorSideIndex(Index: integer): TAnchorSide;
function GetAnchoredControls(Index: integer): TControl;
function GetBoundsRect: TRect;
function GetClientHeight: Integer;
@ -1023,7 +1022,7 @@ type
procedure DoMouseDown(var Message: TLMMouse; Button: TMouseButton;
Shift: TShiftState);
procedure DoMouseUp(var Message: TLMMouse; Button: TMouseButton);
procedure SetAnchorSideIndex(Index: integer; const AValue: TAnchorSide);
procedure SetAnchorSide(Kind: TAnchorKind; AValue: TAnchorSide);
procedure SetBorderSpacing(const AValue: TControlBorderSpacing);
procedure SetBoundsRect(const ARect: TRect);
procedure SetBoundsRectForNewParent(const AValue: TRect);
@ -1462,10 +1461,10 @@ type
property BiDiMode: TBiDiMode read FBiDiMode write SetBiDiMode stored IsBiDiModeStored default bdLeftToRight;
property ParentBiDiMode: Boolean read FParentBiDiMode write SetParentBiDiMode default True;
published
property AnchorSideLeft: TAnchorSide index 0 read GetAnchorSideIndex write SetAnchorSideIndex;
property AnchorSideTop: TAnchorSide index 1 read GetAnchorSideIndex write SetAnchorSideIndex;
property AnchorSideRight: TAnchorSide index 2 read GetAnchorSideIndex write SetAnchorSideIndex;
property AnchorSideBottom: TAnchorSide index 3 read GetAnchorSideIndex write SetAnchorSideIndex;
property AnchorSideLeft: TAnchorSide index akLeft read GetAnchorSide write SetAnchorSide;
property AnchorSideTop: TAnchorSide index akTop read GetAnchorSide write SetAnchorSide;
property AnchorSideRight: TAnchorSide index akRight read GetAnchorSide write SetAnchorSide;
property AnchorSideBottom: TAnchorSide index akBottom read GetAnchorSide write SetAnchorSide;
property Cursor: TCursor read GetCursor write SetCursor default crDefault;
property Left: Integer read FLeft write SetLeft; // no default value - controls usually placed to different positions
property Height: Integer read FHeight write SetHeight; // no default value - controls usually have differnt sizes

16
lcl/include/control.inc
View File

@ -1494,18 +1494,6 @@ begin
Result:=FAnchorSides[Kind];
end;
function TControl.GetAnchorSideIndex(Index: integer): TAnchorSide;
begin
case Index of
0: Result:=FAnchorSides[akLeft];
1: Result:=FAnchorSides[akTop];
2: Result:=FAnchorSides[akRight];
3: Result:=FAnchorSides[akBottom];
else
Result:=nil;
end;
end;
function TControl.GetAnchoredControls(Index: integer): TControl;
begin
Result := TControl(FAnchoredControls[Index]);
@ -1813,9 +1801,9 @@ begin
FOnMouseWheelUp(Self, Shift, MousePos, Result);
end;
procedure TControl.SetAnchorSideIndex(Index: integer; const AValue: TAnchorSide);
procedure TControl.SetAnchorSide(Kind: TAnchorKind; AValue: TAnchorSide);
begin
GetAnchorSideIndex(Index).Assign(AValue);
GetAnchorSide(Kind).Assign(AValue);
end;
procedure TControl.SetBorderSpacing(const AValue: TControlBorderSpacing);