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

designer: simplify previous commit

Browse Source 
git-svn-id: trunk@20726 -
This commit is contained in:
paul 2009-06-24 01:38:46 +00:00
parent 7dd0bd8b77
commit b40172afcd
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
designer/controlselection.pp
View File

@ -734,7 +734,8 @@ begin
if DesignerForm <> nil then
M := Max(0, Min(M, DesignerForm.ClientWidth - NonVisualCompWidth));
TComponent(FPersistent).DesignInfo := DesignInfoFrom(Word(Min(M, Max(0, ALeft))), LongRec(TComponent(FPersistent).DesignInfo).Hi);
with LongRec(TComponent(FPersistent).DesignInfo) do
Lo := Word(Min(M, Max(0, ALeft)));
end;
FCachedLeft:=ALeft;
@ -769,7 +770,8 @@ begin
if DesignerForm <> nil then
M := Max(0, Min(M, DesignerForm.ClientHeight - NonVisualCompWidth));
TComponent(FPersistent).DesignInfo := DesignInfoFrom(LongRec(TComponent(FPersistent).DesignInfo).Lo, Word(Min(M, Max(0, ATop))));
with LongRec(TComponent(FPersistent).DesignInfo) do
Hi := Word(Min(M, Max(0, ATop)));
end;
FCachedTop:=ATop;