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

LCL/SpeedButton: Fix misaligned icons in TFilenameEdit etc.

Browse Source
This commit is contained in:
wp_xyz 2022-02-10 14:59:49 +01:00
parent 6746d2273d
commit 2b04018e69
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

@ -1096,13 +1096,13 @@ var
AImageRes: TScaledImageListResolution;
AIndex: Integer;
AEffect: TGraphicsDrawEffect;
begin
if (FGlyph.Glyph.Empty) and ((Images = nil) or (ImageIndex = -1)) then
begin
if (FGlyph.Glyph.Empty) and ((Images = nil) or (ImageIndex = -1)) and (FGlyph.LCLGlyphName <> '') then
begin
Result.CX := 0;
Result.CY := 0;
exit;
end;
end;
FGlyph.GetImageIndexAndEffect(Low(TButtonState), Font.PixelsPerInch,
GetCanvasScaleFactor, AImageRes, AIndex, AEffect);