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

SpartaDockedFormEditor: Make resizer High-DPI aware.

Browse Source 
git-svn-id: trunk@55335 -
This commit is contained in:
michl 2017-06-12 11:57:05 +00:00
parent afacb97710
commit 4f341d6cca
2 changed files with 29 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
components/sparta/mdi/source/sparta_basicresizeframe.pas
View File

@ -34,9 +34,6 @@ type
var ScrollPos: Integer);
procedure sbHorizontalScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
public const
SIZER_RECT_SIZE = 8;
SIZER_LINE_WIDTH = 8;
private
FVerticalScrollPos: Integer;
FHorizontalScrollPos: Integer;
@ -61,6 +58,8 @@ type
FLastClientWidth, FLastClientHeight: Integer;
FOldHasMainMenu: Boolean;
FDesignerModified: Boolean;
FSizerLineWidth: Integer;
FSizerRectSize: Integer;
function HasMainMenu: Boolean;
procedure AppOnIdle(Sender: TObject; var Done: Boolean);
@ -141,6 +140,8 @@ type
property BgTopMargin: Integer index 1 read GetBackgroundMargin;
property BgRightMargin: Integer index 2 read GetBackgroundMargin;
property BgBottomMargin: Integer index 3 read GetBackgroundMargin;
property SizerRectSize: Integer read FSizerRectSize;
property SizerLineWidth: Integer read FSizerLineWidth;
procedure HideSizeControls;
procedure ShowSizeControls;
@ -270,12 +271,12 @@ begin
Exit;
if (Sender = pR) or (Sender = pL) then
begin
LWidth := SIZER_LINE_WIDTH;
LWidth := SizerLineWidth;
LHeight := Height;
end else
begin
LWidth := Width;
LHeight := SIZER_LINE_WIDTH;
LHeight := SizerLineWidth;
end;
LCanvas := (Sender as TPanel).Canvas;
if FFakeFocusControl.Focused then
@ -373,8 +374,8 @@ begin
Name := 'Node' + IntToStr(Node);
Caption:='';
Width := SIZER_RECT_SIZE;
Height := SIZER_RECT_SIZE;
Width := SizerRectSize;
Height := SizerRectSize;
Parent := Self;
Visible := True;
FNodes.Add(Panel);
@ -442,12 +443,12 @@ begin
begin
Align := alClient;
if pBG.Left + BgLeftMargin <= 0 then
BorderSpacing.Left := Max(-pBG.Left - (FHorizontalScrollPos - SIZER_RECT_SIZE), 0)
BorderSpacing.Left := Max(-pBG.Left - (FHorizontalScrollPos - SizerRectSize), 0)
else
BorderSpacing.Left := Max(pBG.Left + BgLeftMargin, 0);
if pBG.Top + BgTopMargin <= 0 then
BorderSpacing.Top := Max(-pBG.Top - (FVerticalScrollPos - SIZER_RECT_SIZE), 0)
BorderSpacing.Top := Max(-pBG.Top - (FVerticalScrollPos - SizerRectSize), 0)
else
BorderSpacing.Top := Max(pBG.Top + BgTopMargin, 0);
@ -670,12 +671,12 @@ end;
function TBasicResizeFrame.BottomSizerRectHeight: Integer;
begin
Result := SIZER_RECT_SIZE;
Result := SizerRectSize;
end;
function TBasicResizeFrame.BottomSizerLineWidth: Integer;
begin
Result := SIZER_LINE_WIDTH;
Result := SizerLineWidth;
end;
function TBasicResizeFrame.TopSizerRectTop: Integer;
@ -685,7 +686,7 @@ end;
function TBasicResizeFrame.TopSizerLineWidth: Integer;
begin
Result := SIZER_LINE_WIDTH;
Result := SizerLineWidth;
end;
function TBasicResizeFrame.VerticalSizerLineLength: Integer;
@ -699,12 +700,12 @@ end;
function TBasicResizeFrame.RightSizerRectWidth: Integer;
begin
Result := SIZER_RECT_SIZE;
Result := SizerRectSize;
end;
function TBasicResizeFrame.RightSizerLineWidth: Integer;
begin
Result := SIZER_LINE_WIDTH;
Result := SizerLineWidth;
end;
function TBasicResizeFrame.LeftSizerRectLeft: Integer;
@ -714,7 +715,7 @@ end;
function TBasicResizeFrame.LeftSizerLineWidth: Integer;
begin
Result := SIZER_LINE_WIDTH;
Result := SizerLineWidth;
end;
function TBasicResizeFrame.HorizontalSizerLineLength: Integer;
@ -842,12 +843,12 @@ end;
function TBasicResizeFrame.GetSizerRectSize: Integer;
begin
Result := SIZER_RECT_SIZE;
Result := SizerRectSize;
end;
function TBasicResizeFrame.GetSizerLineWidth: Integer;
begin
Result := SIZER_LINE_WIDTH;
Result := SizerLineWidth;
end;
function TBasicResizeFrame.GetBackgroundPanel: TPanel;
@ -890,6 +891,9 @@ constructor TBasicResizeFrame.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
FSizerRectSize := ScaleX(8, 96);
FSizerLineWidth := ScaleX(8, 96);
FFakeFocusControl := TEdit.Create(Self);
FFakeFocusControl.Parent := Self;
FFakeFocusControl.Top := -100;
@ -1001,21 +1005,21 @@ begin
// width and height
pL.Top:=0;
pL.Height := FDesignedForm.Height + 2*SIZER_RECT_SIZE + BgTopMargin + BgBottomMargin;
pL.Height := FDesignedForm.Height + 2*SizerRectSize + BgTopMargin + BgBottomMargin;
pR.Top:=0;
pR.Height := FDesignedForm.Height + 2*SIZER_RECT_SIZE + BgTopMargin + BgBottomMargin;
pR.Height := FDesignedForm.Height + 2*SizerRectSize + BgTopMargin + BgBottomMargin;
pT.Left:=0;
pT.Width := FDesignedForm.Width + 2*SIZER_RECT_SIZE + BgLeftMargin + BgRightMargin;
pT.Width := FDesignedForm.Width + 2*SizerRectSize + BgLeftMargin + BgRightMargin;
pB.Left:=0;
pB.Width := FDesignedForm.Width + 2*SIZER_RECT_SIZE + BgLeftMargin + BgRightMargin;
pB.Width := FDesignedForm.Width + 2*SizerRectSize + BgLeftMargin + BgRightMargin;
// client
if pBG.Left + BgLeftMargin <= 0 then
pClient.Left := -(pBG.Left) - (FHorizontalScrollPos - SIZER_RECT_SIZE)
pClient.Left := -(pBG.Left) - (FHorizontalScrollPos - SizerRectSize)
else
pClient.Left := pBG.Left + BgLeftMargin;
if pBG.Top + BgTopMargin <= 0 then
pClient.Top := -(pBG.Top) - (FVerticalScrollPos - SIZER_RECT_SIZE)
pClient.Top := -(pBG.Top) - (FVerticalScrollPos - SizerRectSize)
else
pClient.Top := pBG.Top + BgTopMargin;

4
components/sparta/mdi/source/sparta_basicresizer.pas
View File

@ -95,8 +95,8 @@ begin
FResizerFrame.Constraints.MaxWidth := pMain.Width;
FResizerFrame.Constraints.MaxHeight := pMain.Height;
LWidth := DesignedForm.Width + FResizerFrame.BgLeftMargin + FResizerFrame.BgRightMargin + 2*FResizerFrame.SIZER_RECT_SIZE;
LHeight := DesignedForm.Height + FResizerFrame.BgTopMargin + FResizerFrame.BgBottomMargin + 2*FResizerFrame.SIZER_RECT_SIZE;
LWidth := DesignedForm.Width + FResizerFrame.BgLeftMargin + FResizerFrame.BgRightMargin + 2*FResizerFrame.SizerRectSize;
LHeight := DesignedForm.Height + FResizerFrame.BgTopMargin + FResizerFrame.BgBottomMargin + 2*FResizerFrame.SizerRectSize;
if not FResizerFrame.NodePositioning then
begin
FResizerFrame.Width := LWidth;