paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-25 15:17:15 +01: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; procedure TControlSelection.AdjustGrabbers;
var g:TGrabIndex; var g:TGrabIndex;
OutPix, InPix, NewGrabberLeft, NewGrabberTop: integer; OutPix, InPix, NewGrabberLeft, NewGrabberTop, AGrabberSize: integer;
begin begin
OutPix:=GetRealGrabberSize div 2; AGrabberSize := GetRealGrabberSize;
InPix:=GetRealGrabberSize-OutPix; OutPix:=AGrabberSize div 2;
InPix:=AGrabberSize-OutPix;
for g:=Low(TGrabIndex) to High(TGrabIndex) do begin for g:=Low(TGrabIndex) to High(TGrabIndex) do begin
if gpLeft in FGrabbers[g].Positions then if gpLeft in FGrabbers[g].Positions then
NewGrabberLeft:=FRealLeft-OutPix NewGrabberLeft:=FRealLeft-OutPix
else if gpRight in FGrabbers[g].Positions then else if gpRight in FGrabbers[g].Positions then
NewGrabberLeft:=FRealLeft+FRealWidth-InPix NewGrabberLeft:=FRealLeft+FRealWidth-InPix
else else
NewGrabberLeft:=FRealLeft+((FRealWidth-GetRealGrabberSize) div 2); NewGrabberLeft:=FRealLeft+((FRealWidth-AGrabberSize) div 2);
if gpTop in FGrabbers[g].Positions then if gpTop in FGrabbers[g].Positions then
NewGrabberTop:=FRealTop-OutPix NewGrabberTop:=FRealTop-OutPix
else if gpBottom in FGrabbers[g].Positions then else if gpBottom in FGrabbers[g].Positions then
NewGrabberTop:=FRealTop+FRealHeight-InPix NewGrabberTop:=FRealTop+FRealHeight-InPix
else else
NewGrabberTop:=FRealTop+((FRealHeight-GetRealGrabberSize) div 2); NewGrabberTop:=FRealTop+((FRealHeight-AGrabberSize) div 2);
FGrabbers[g].Width:=GetRealGrabberSize; FGrabbers[g].Width:=AGrabberSize;
FGrabbers[g].Height:=GetRealGrabberSize; FGrabbers[g].Height:=AGrabberSize;
FGrabbers[g].Move(NewGrabberLeft,NewGrabberTop); FGrabbers[g].Move(NewGrabberLeft,NewGrabberTop);
end; end;
end; end;