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

lcl: remove unneeded check in TButtonGlyph.SetGlyph

Browse Source 
git-svn-id: trunk@30346 -
This commit is contained in:
blikblum 2011-04-17 12:20:56 +00:00
parent f5d51f780f
commit a42083fe74
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/buttonglyph.inc
View File

@ -140,7 +140,7 @@ begin
FOriginal.Assign(Value);
FOriginal.OnChange := @GlyphChanged;
FNumGlyphs := 1;
if (FOriginal <> nil) and (FOriginal.Height > 0) then
if FOriginal.Height > 0 then
begin
if FOriginal.Width mod FOriginal.Height = 0 then
begin