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

PackageTabs: Align the tab captions on the left if they are located on the side

Browse Source
This commit is contained in:
n7800 2025-02-25 02:56:08 +05:00 committed by Maxim Ganetsky
parent 6161cd2261
commit 9764886e60
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/packagetabs/packagetabs_impl.pas
View File

@ -500,6 +500,13 @@ constructor TPackageTabButton.Create(aOwner: TComponent);
begin
inherited Create(aOwner);
if IDEEditorOptions.TabPosition in [tpLeft, tpRight] then
begin
Alignment := taLeftJustify;
Margin := 2; // need for left text align
BorderSpacing.Left := 8;
end;
Transparent := True;
Flat := True;
AutoSize := True;
@ -922,7 +929,7 @@ begin
if FPanel is TPackageTabScrollBox then
begin
xLbl.Alignment := taLeftJustify;
xLbl.BorderSpacing.Left := 10;
xLbl.BorderSpacing.Left := 2;
end
else if FPanel is TPackageTabFlowPanel then
begin