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

IDE: designer: High-DPI: selection grabber. Issue #32397

Browse Source 
git-svn-id: trunk@56001 -
This commit is contained in:
ondrej 2017-10-09 07:08:51 +00:00
parent f0349db72b
commit c4eba5ff15
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
designer/controlselection.pp
View File

@ -372,6 +372,7 @@ type
function GetBottomGuideLine(var ALine: TRect): boolean;
function GetLeftGuideLine(var ALine: TRect): boolean;
function GetRightGuideLine(var ALine: TRect): boolean;
function GetRealGrabberSize: integer;
function GetTopGuideLine(var ALine: TRect): boolean;
procedure FindNearestBottomGuideLine(var NearestInt: TNearestInt);
procedure FindNearestClientLeftRight(var NearestInt: TNearestInt);
@ -1232,23 +1233,23 @@ procedure TControlSelection.AdjustGrabbers;
var g:TGrabIndex;
OutPix, InPix, NewGrabberLeft, NewGrabberTop: integer;
begin
OutPix:=GrabberSize div 2;
InPix:=GrabberSize-OutPix;
OutPix:=GetRealGrabberSize div 2;
InPix:=GetRealGrabberSize-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-GrabberSize) div 2);
NewGrabberLeft:=FRealLeft+((FRealWidth-GetRealGrabberSize) 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-GrabberSize) div 2);
FGrabbers[g].Width:=GrabberSize;
FGrabbers[g].Height:=GrabberSize;
NewGrabberTop:=FRealTop+((FRealHeight-GetRealGrabberSize) div 2);
FGrabbers[g].Width:=GetRealGrabberSize;
FGrabbers[g].Height:=GetRealGrabberSize;
FGrabbers[g].Move(NewGrabberLeft,NewGrabberTop);
end;
end;
@ -2160,6 +2161,13 @@ begin
Result := DesignerProcs.GetParentFormRelativeBounds(AComponent);
end;
function TControlSelection.GetRealGrabberSize: integer;
begin
Result := FGrabberSize;
if Assigned(FForm) and Application.Scaled then
Result := FForm.Scale96ToScreen(FGrabberSize);
end;
function TControlSelection.GetItems(Index:integer):TSelectedControl;
begin
Result:=TSelectedControl(FControls[Index]);