paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 22:56:06 +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 if IDEEditorOptions.TabPosition in [tpLeft, tpRight] then
begin begin
Alignment := taLeftJustify; Alignment := taLeftJustify;
Margin := 2; // need for left text align Margin := Scale96ToFont(4); // need for left text align
BorderSpacing.Left := 8; BorderSpacing.Left := Scale96ToFont(8);
BorderSpacing.Right := 1;
end; end;
Transparent := True; Transparent := True;
@ -929,7 +930,7 @@ begin
if FPanel is TPackageTabScrollBox then if FPanel is TPackageTabScrollBox then
begin begin
xLbl.Alignment := taLeftJustify; xLbl.Alignment := taLeftJustify;
xLbl.BorderSpacing.Left := 2; xLbl.BorderSpacing.Left := FPanel.Scale96ToFont(4);
end end
else if FPanel is TPackageTabFlowPanel then else if FPanel is TPackageTabFlowPanel then
begin begin