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

PackageTabs: High-DPI-aware button margins.

Browse Source
This commit is contained in:
wp_xyz 2025-05-17 12:11:37 +02:00
parent a6559d89ab
commit 3464b4a577
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/packagetabs/packagetabs_impl.pas
View File

@ -503,8 +503,9 @@ begin
if IDEEditorOptions.TabPosition in [tpLeft, tpRight] then
begin
Alignment := taLeftJustify;
Margin := 2; // need for left text align
BorderSpacing.Left := 8;
Margin := Scale96ToFont(4); // need for left text align
BorderSpacing.Left := Scale96ToFont(8);
BorderSpacing.Right := 1;
end;
Transparent := True;
@ -929,7 +930,7 @@ begin
if FPanel is TPackageTabScrollBox then
begin
xLbl.Alignment := taLeftJustify;
xLbl.BorderSpacing.Left := 2;
xLbl.BorderSpacing.Left := FPanel.Scale96ToFont(4);
end
else if FPanel is TPackageTabFlowPanel then
begin