paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 03:37:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL/Toolbar: Fix incorrect high-dpi scaling of toolbuttons due to hard-coded constant margins.

Browse Source 
(cherry picked from commit 6d123c6ac8)
This commit is contained in:
wp_xyz 2022-09-13 21:55:27 +02:00 committed by Maxim Ganetsky
parent 54645ad05e
commit 5fce24b919
2 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/comctrls.pp
View File

@ -2114,7 +2114,8 @@ type
cDefSeparatorWidth = 8;
cDefDividerWidth = 5;
cDefButtonDropDecArrowWidth = 2;
cIconTextDist = 5;
cHorIconTextDist = 5;
cVertIconTextDist = 2;
protected
FToolBar: TToolBar;
class procedure WSRegisterClass; override;

21
lcl/include/toolbutton.inc
View File

@ -295,7 +295,7 @@ var
DropDownButtonRect: TRect;
TextSize: TSize;
TextPos: TPoint;
dist: Integer;
dist, marg: Integer;
IconSize: TSize;
IconPos: TPoint;
ImgList: TCustomImageList;
@ -373,18 +373,19 @@ begin
if FToolBar.List then
begin
// icon left of text
dist := FToolbar.Scale96ToFont(cIconTextDist);
IconPos.X:=(MainBtnRect.Left+MainBtnRect.Right-IconSize.cx-TextSize.cx-2) div 2;
dist := FToolbar.Scale96ToFont(cHorIconTextDist);
IconPos.X:=(MainBtnRect.Left+MainBtnRect.Right-IconSize.cx-TextSize.cx-dist) div 2;
IconPos.Y:=(MainBtnRect.Top+MainBtnRect.Bottom-IconSize.cy) div 2;
TextPos.X:=IconPos.X+IconSize.cx+dist;
TextPos.Y:=(MainBtnRect.Top+MainBtnRect.Bottom-TextSize.cy) div 2;
end else
begin
// icon above text
dist := cVertIconTextDist;
IconPos.X:=(MainBtnRect.Left+MainBtnRect.Right-IconSize.cx) div 2;
IconPos.Y:=(MainBtnRect.Top+MainBtnRect.Bottom-IconSize.cy-TextSize.cy-2) div 2;
IconPos.Y:=(MainBtnRect.Top+MainBtnRect.Bottom-IconSize.cy-TextSize.cy-dist) div 2;
TextPos.X:=(MainBtnRect.Left+MainBtnRect.Right-TextSize.cx) div 2;
TextPos.Y:=IconPos.Y+IconSize.cy+2;
TextPos.Y:=IconPos.Y+IconSize.cy+dist;
end;
end else
begin
@ -1151,8 +1152,9 @@ begin
TextSize := GetTextSize;
end;
// add space around text
inc(TextSize.cx, 4);
inc(TextSize.cy, 4);
dist := FToolbar.Scale96ToFont(4);
inc(TextSize.cx, dist);
inc(TextSize.cy, dist);
end;
// calculate icon size
@ -1176,13 +1178,14 @@ begin
if FToolBar.List then
begin
// icon left of text
dist := FToolbar.Scale96ToFont(cIconTextDist);
dist := FToolbar.Scale96ToFont(cHorIconTextDist);
TextPos.X := IconPos.X + IconSize.cx + dist;
end
else
begin
// icon above text
TextPos.Y := IconPos.Y + IconSize.cy + 2;
dist := FToolbar.Scale96ToFont(cVertIconTextDist);
TextPos.Y := IconPos.Y + IconSize.cy + dist;
end;
end
else