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

designer: formatting

Browse Source 
git-svn-id: trunk@18627 -
This commit is contained in:
paul 2009-02-10 04:19:06 +00:00
parent 0d0cb8c4f7
commit 40f211f179
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
designer/controlselection.pp
View File

@ -615,16 +615,18 @@ procedure TSelectedControl.GetFormRelativeBounds(var ALeft, ATop, AWidth,
var
ALeftTop: TPoint;
begin
if FIsTComponent then begin
GetComponentBounds(TComponent(FPersistent),ALeft,ATop,AWidth,AHeight);
ALeftTop:=GetParentFormRelativeTopLeft(TComponent(FPersistent));
ALeft:=ALeftTop.X;
ATop:=ALeftTop.Y;
end else begin
ALeft:=0;
ATop:=0;
AWidth:=0;
AHeight:=0;
if FIsTComponent then
begin
GetComponentBounds(TComponent(FPersistent), ALeft, ATop, AWidth, AHeight);
ALeftTop := GetParentFormRelativeTopLeft(TComponent(FPersistent));
ALeft := ALeftTop.X;
ATop := ALeftTop.Y;
end else
begin
ALeft := 0;
ATop := 0;
AWidth := 0;
AHeight := 0;
end;
end;
@ -636,8 +638,7 @@ begin
SetUsedBounds(ALeft, ATop, AWidth, AHeight);
end;
procedure TSelectedControl.SetUsedBounds(ALeft, ATop, AWidth, AHeight: integer
);
procedure TSelectedControl.SetUsedBounds(ALeft, ATop, AWidth, AHeight: integer);
begin
FUsedLeft:=ALeft;
FUsedTop:=ATop;