mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-13 09:49:22 +02:00
Designer: formatting
git-svn-id: trunk@38466 -
This commit is contained in:
parent
f26e63161d
commit
50b8a2fee5
@ -692,8 +692,7 @@ begin
|
|||||||
end else begin
|
end else begin
|
||||||
GetComponentBounds(TComponent(FPersistent),
|
GetComponentBounds(TComponent(FPersistent),
|
||||||
FOldLeft,FOldTop,FOldWidth,FOldHeight);
|
FOldLeft,FOldTop,FOldWidth,FOldHeight);
|
||||||
FOldFormRelativeLeftTop:=
|
FOldFormRelativeLeftTop:=GetParentFormRelativeTopLeft(TComponent(FPersistent));
|
||||||
GetParentFormRelativeTopLeft(TComponent(FPersistent));
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -702,8 +701,7 @@ begin
|
|||||||
if not FIsTComponent then exit;
|
if not FIsTComponent then exit;
|
||||||
GetComponentBounds(TComponent(FPersistent),
|
GetComponentBounds(TComponent(FPersistent),
|
||||||
FCachedLeft,FCachedTop,FCachedWidth,FCachedHeight);
|
FCachedLeft,FCachedTop,FCachedWidth,FCachedHeight);
|
||||||
FCachedFormRelativeLeftTop:=
|
FCachedFormRelativeLeftTop:= GetParentFormRelativeTopLeft(TComponent(FPersistent));
|
||||||
GetParentFormRelativeTopLeft(TComponent(FPersistent));
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TSelectedControl.IsTopLvl: boolean;
|
function TSelectedControl.IsTopLvl: boolean;
|
||||||
|
Loading…
Reference in New Issue
Block a user