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

MenuEditor: High-DPI: Arrow and Cleanup. Issue #31877

Browse Source 
git-svn-id: trunk@55075 -
This commit is contained in:
michl 2017-05-24 20:33:18 +00:00
parent a6ca7b1221
commit 49d6818b67
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
designer/menueditor.pp
View File

@ -2451,9 +2451,9 @@ var
r.Right:=ClientWidth;
r.Left:=r.Right - MenuBar_Height;
SetLength(pts, 4);
pts[0]:=Point(r.Left, 9);
pts[1]:=Point(r.Left + 4, 12);
pts[2]:=Point(r.Left, 15);
pts[0]:=Point(r.Left, ScaleY(9, 96));
pts[1]:=Point(r.Left + ScaleX(4, 96), ScaleY(12, 96));
pts[2]:=Point(r.Left, ScaleY(15, 96));
pts[3]:=pts[0];
oldBrushColor:=Canvas.Brush.Color;
oldPenColor:=Canvas.Pen.Color;

16
designer/menutemplates.pas
View File

@ -11,7 +11,7 @@ uses
// LazUtils
LazFileUtils, Laz2_XMLCfg,
// IdeIntf
IDEDialogs, IDEImagesIntf,
IDEDialogs,
// IDE
LazarusIDEStrConsts, MenuShortcuts;
@ -274,15 +274,15 @@ end;
procedure InitMenuBaseSizes;
begin
MenuBar_Height := MulDiv(20, TIDEImages.GetScalePercent, 100);
Separator_Height := MulDiv(7, TIDEImages.GetScalePercent, 100);
Separator_Centre := MulDiv(3, TIDEImages.GetScalePercent, 100);
DropDown_Height := MulDiv(24, TIDEImages.GetScalePercent, 100);
MenuBar_Text_Offset := MulDiv(7, TIDEImages.GetScalePercent, 100);
MenuBar_Height := ScaleY(20, 96);
Separator_Height := ScaleY(7, 96);
Separator_Centre := ScaleY(3, 96);
DropDown_Height := ScaleY(24, 96);
MenuBar_Text_Offset := ScaleX(7, 96);
Double_MenuBar_Text_Offset := MenuBar_Text_Offset shl 1;
DropDown_Text_Offset := MulDiv(35, TIDEImages.GetScalePercent, 100);
DropDown_Text_Offset := ScaleX(35, 96);
Double_DropDown_Text_Offset := DropDown_Text_Offset shl 1;
Gutter_Offset := MulDiv(6, TIDEImages.GetScalePercent, 100);
Gutter_Offset := ScaleX(6, 96);
Gutter_X := DropDown_Text_Offset - Gutter_Offset;
end;