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

PackageTabs: Fix speedbutton misalignment caused by commit d216b7144d. Based on patch by @ganmax.

Browse Source
This commit is contained in:
wp_xyz 2024-09-10 19:37:32 +02:00
parent 3afd9c5762
commit 4a845e1051
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/packagetabs/packagetabs_impl.pas
View File

@ -513,8 +513,8 @@ begin
inherited CalculatePreferredSize(PreferredWidth, PreferredHeight, inherited CalculatePreferredSize(PreferredWidth, PreferredHeight,
WithThemeSpace); WithThemeSpace);
PreferredHeight := PreferredHeight + 4; PreferredHeight := PreferredHeight - 2;
PreferredWidth := PreferredWidth + 8; PreferredWidth := PreferredWidth + 6;
end; end;
{ TGroupTabLabel } { TGroupTabLabel }
@ -537,7 +537,7 @@ begin
WithThemeSpace); WithThemeSpace);
PreferredHeight := PreferredHeight + 8; PreferredHeight := PreferredHeight + 8;
PreferredWidth := PreferredWidth + 8; PreferredWidth := PreferredWidth + 6;
end; end;
procedure TGroupTabLabel.MouseDown(Button: TMouseButton; Shift: TShiftState; procedure TGroupTabLabel.MouseDown(Button: TMouseButton; Shift: TShiftState;