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

LCL/SpeedButton: Fix position of caption when no glyph is present.

Browse Source
This commit is contained in:
wp_xyz 2023-07-29 00:36:46 +02:00
parent df99227b6b
commit 11b92b26c8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/speedbutton.inc
View File

@ -720,11 +720,11 @@ begin
OffsetGlyph.X:= M;
OffsetGlyph.Y:= (ClientSize.cy - GlyphHeight) div 2;
if (Margin >= 0) and (Spacing >= 0) then
OffsetCap.X := OffsetGlyph.X + GlyphWidth + Spacing
OffsetCap.X := OffsetGlyph.X + GlyphWidth + S
else
begin
if Spacing >= 0 then
OffsetCap.X := OffsetGlyph.X + GlyphWidth + Spacing
OffsetCap.X := OffsetGlyph.X + GlyphWidth + S
else
OffsetCap.X := (OffsetGlyph.X + ClientSize.CX - TextSize.CX) div 2;
end;
@ -739,7 +739,7 @@ begin
else
begin
if Spacing >= 0 then
OffsetCap.X := OffsetGlyph.X - Spacing - TextSize.CX
OffsetCap.X := OffsetGlyph.X - S - TextSize.CX
else
OffsetCap.X := (OffsetGlyph.X - TextSize.CX) div 2;
end;