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

LCL/SpeedButton: Fix misaligned icons in TFilenameEdit etc.

Browse Source 
(cherry picked from commit 2b04018e69)
This commit is contained in:
wp_xyz 2022-02-10 14:59:49 +01:00 committed by Maxim Ganetsky
parent 2187550bd5
commit bbac02ab05
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

@ -1080,13 +1080,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);