paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 07:59:45 +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 var
ALeftTop: TPoint; ALeftTop: TPoint;
begin begin
if FIsTComponent then begin if FIsTComponent then
GetComponentBounds(TComponent(FPersistent),ALeft,ATop,AWidth,AHeight); begin
ALeftTop:=GetParentFormRelativeTopLeft(TComponent(FPersistent)); GetComponentBounds(TComponent(FPersistent), ALeft, ATop, AWidth, AHeight);
ALeft:=ALeftTop.X; ALeftTop := GetParentFormRelativeTopLeft(TComponent(FPersistent));
ATop:=ALeftTop.Y; ALeft := ALeftTop.X;
end else begin ATop := ALeftTop.Y;
ALeft:=0; end else
ATop:=0; begin
AWidth:=0; ALeft := 0;
AHeight:=0; ATop := 0;
AWidth := 0;
AHeight := 0;
end; end;
end; end;
@ -636,8 +638,7 @@ begin
SetUsedBounds(ALeft, ATop, AWidth, AHeight); SetUsedBounds(ALeft, ATop, AWidth, AHeight);
end; end;
procedure TSelectedControl.SetUsedBounds(ALeft, ATop, AWidth, AHeight: integer procedure TSelectedControl.SetUsedBounds(ALeft, ATop, AWidth, AHeight: integer);
);
begin begin
FUsedLeft:=ALeft; FUsedLeft:=ALeft;
FUsedTop:=ATop; FUsedTop:=ATop;