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

Gtk2: bitbtn: handle glyphs only if they are really visible

Browse Source 
git-svn-id: trunk@57924 -
This commit is contained in:
ondrej 2018-05-13 12:51:54 +00:00
parent 0a0c499b42
commit 4c167b9cba
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk2/gtk2wsbuttons.pp
View File

@ -350,14 +350,14 @@ var
AEffect: TGraphicsDrawEffect;
AImageRes: TScaledImageListResolution;
begin
ShowGlyph := ABitBtn.CanShowGlyph;
ShowGlyph := ABitBtn.CanShowGlyph(True);
if ShowGlyph then
begin
ImageWidget := BitBtnInfo^.ImageWidget;
AGlyph := TBitmap.Create;
AValue.GetImageIndexAndEffect(AButtonState, ABitBtn.Font.PixelsPerInch,
ABitBtn.GetCanvasScaleFactor, AImageRes, AIndex, AEffect);
if (AIndex <> -1) and (AImageRes.Resolution <> nil) then
if (AIndex <> -1) and AImageRes.Valid then
AImageRes.GetBitmap(AIndex, AGlyph, AEffect);
ShowGlyph := not AGlyph.Empty;
if ShowGlyph then