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

LCL/TSpeedButton: Improve text alignment when there is not glyph.

Browse Source
This commit is contained in:
wp_xyz 2022-02-07 15:42:10 +01:00
parent 8cfb1b7a3e
commit ad41c897b7
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/include/speedbutton.inc
View File

@ -701,6 +701,8 @@ begin
if Draw then
begin
if not HasGlyph then
S := 0;
case CurLayout of
blGlyphLeft : begin
Offset.X:= M;
@ -736,11 +738,17 @@ begin
begin
Left := Left + OffsetCap.X;
Top := Top + OffsetCap.Y;
if CurLayout = blGlyphRight then
Right := ClientSize.cx - M - GlyphWidth - S;
case CurLayout of
blGlyphLeft: Right := Left + TextSize.CX;
blGlyphRight:
begin
Right := ClientSize.cx - M - GlyphWidth - S;
Left := Right - TextSize.CX;
end;
end;
end;
TextFlags := DT_LEFT or DT_TOP or DT_CENTER or DT_NOCLIP;
TextFlags := DT_TOP or DT_CENTER;
if UseRightToLeftReading then
TextFlags := TextFlags or DT_RTLREADING;
@ -1074,6 +1082,13 @@ var
AIndex: Integer;
AEffect: TGraphicsDrawEffect;
begin
if (FGlyph.Glyph.Empty) and ((Images = nil) or (ImageIndex = -1)) then
begin
Result.CX := 0;
Result.CY := 0;
exit;
end;
FGlyph.GetImageIndexAndEffect(Low(TButtonState), Font.PixelsPerInch,
GetCanvasScaleFactor, AImageRes, AIndex, AEffect);
Result.CX := AImageRes.Width;