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

Designer: TControlSelection method optimizations by Zex Atilla

Browse Source 
git-svn-id: trunk@39063 -
This commit is contained in:
juha 2012-10-13 09:13:51 +00:00
parent 03611adae0
commit a4875743e3
1 changed files with 16 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
designer/controlselection.pp
View File

@ -1397,42 +1397,23 @@ begin
end;
end;
procedure TControlSelection.FindNearestGridY(var NearestInt: TNearestInt);
var GridSizeY, NearestGridY: integer;
begin
if not EnvironmentOptions.SnapToGrid then exit;
GridSizeY:=CleanGridSizeY;
// add half GridSizeY, so that rounding is correct
if NearestInt.Level>=0 then
NearestGridY:=NearestInt.Level+(GridSizeY div 2)
else
NearestGridY:=NearestInt.Level-(GridSizeY div 2);
// round
dec(NearestGridY,NearestGridY mod GridSizeY);
ImproveNearestInt(NearestInt,NearestGridY);
end;
procedure TControlSelection.FindNearestClientLeftRight(
var NearestInt: TNearestInt);
procedure TControlSelection.FindNearestClientLeftRight(var NearestInt: TNearestInt);
var MaxDist: integer;
begin
MaxDist:=(CleanGridSizeX+1) div 2;
if Abs(NearestInt.Level-0)<MaxDist then
if NearestInt.Level<MaxDist then
ImproveNearestInt(NearestInt,0);
if (FForm<>nil)
and (Abs(NearestInt.Level-FForm.ClientWidth)<MaxDist) then
if (FForm<>nil) and (Abs(NearestInt.Level-FForm.ClientWidth)<MaxDist) then
ImproveNearestInt(NearestInt,FForm.ClientWidth);
end;
procedure TControlSelection.FindNearestClientTopBottom(
var NearestInt: TNearestInt);
procedure TControlSelection.FindNearestClientTopBottom(var NearestInt: TNearestInt);
var MaxDist: integer;
begin
MaxDist:=(CleanGridSizeY+1) div 2;
if Abs(NearestInt.Level-0)<MaxDist then
if NearestInt.Level<MaxDist then
ImproveNearestInt(NearestInt,0);
if (FForm<>nil)
and (Abs(NearestInt.Level-FForm.ClientHeight)<MaxDist) then
if (FForm<>nil) and (Abs(NearestInt.Level-FForm.ClientHeight)<MaxDist) then
ImproveNearestInt(NearestInt,FForm.ClientHeight);
end;
@ -1893,16 +1874,19 @@ var GridSizeX, NearestGridX: integer;
begin
if not EnvironmentOptions.SnapToGrid then exit;
GridSizeX:=CleanGridSizeX;
// add half GridSizeX, so that rounding is correct
if NearestInt.Level>=0 then
NearestGridX:=NearestInt.Level+(GridSizeX div 2)
else
NearestGridX:=NearestInt.Level-(GridSizeX div 2);
// round
dec(NearestGridX,NearestGridX mod GridSizeX);
NearestGridX := ((NearestInt.Level + GridSizeX div 2) div GridSizeX) * GridSizeX;
ImproveNearestInt(NearestInt,NearestGridX);
end;
procedure TControlSelection.FindNearestGridY(var NearestInt: TNearestInt);
var GridSizeY, NearestGridY: integer;
begin
if not EnvironmentOptions.SnapToGrid then exit;
GridSizeY:=CleanGridSizeY;
NearestGridY := ((NearestInt.Level + GridSizeY div 2) div GridSizeY) * GridSizeY;
ImproveNearestInt(NearestInt,NearestGridY);
end;
procedure TControlSelection.DoChange(ForceUpdate: Boolean = False);
begin
if (FUpdateLock > 0) then