paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 11:19:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: designer: tune up r56001 #c4eba5ff15, issue #32397

Browse Source 
git-svn-id: trunk@56003 -
This commit is contained in:
ondrej 2017-10-09 09:13:50 +00:00
parent b5e57a129f
commit bfec6d9c02
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
designer/controlselection.pp
View File

@ -1231,25 +1231,26 @@ end;
procedure TControlSelection.AdjustGrabbers;
var g:TGrabIndex;
OutPix, InPix, NewGrabberLeft, NewGrabberTop: integer;
OutPix, InPix, NewGrabberLeft, NewGrabberTop, AGrabberSize: integer;
begin
OutPix:=GetRealGrabberSize div 2;
InPix:=GetRealGrabberSize-OutPix;
AGrabberSize := GetRealGrabberSize;
OutPix:=AGrabberSize div 2;
InPix:=AGrabberSize-OutPix;
for g:=Low(TGrabIndex) to High(TGrabIndex) do begin
if gpLeft in FGrabbers[g].Positions then
NewGrabberLeft:=FRealLeft-OutPix
else if gpRight in FGrabbers[g].Positions then
NewGrabberLeft:=FRealLeft+FRealWidth-InPix
else
NewGrabberLeft:=FRealLeft+((FRealWidth-GetRealGrabberSize) div 2);
NewGrabberLeft:=FRealLeft+((FRealWidth-AGrabberSize) div 2);
if gpTop in FGrabbers[g].Positions then
NewGrabberTop:=FRealTop-OutPix
else if gpBottom in FGrabbers[g].Positions then
NewGrabberTop:=FRealTop+FRealHeight-InPix
else
NewGrabberTop:=FRealTop+((FRealHeight-GetRealGrabberSize) div 2);
FGrabbers[g].Width:=GetRealGrabberSize;
FGrabbers[g].Height:=GetRealGrabberSize;
NewGrabberTop:=FRealTop+((FRealHeight-AGrabberSize) div 2);
FGrabbers[g].Width:=AGrabberSize;
FGrabbers[g].Height:=AGrabberSize;
FGrabbers[g].Move(NewGrabberLeft,NewGrabberTop);
end;
end;