paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 11:01:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, reverted buttonglyph.inc changes

Browse Source 
git-svn-id: trunk@37493 -
This commit is contained in:
jesus 2012-06-03 08:23:52 +00:00
parent 35adfd6e3d
commit 417879c7be
1 changed files with 1 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/include/buttonglyph.inc
View File

@ -211,8 +211,6 @@ procedure TButtonGlyph.GlyphChanged(Sender: TObject);
end;
end;
var
numg1, numg2: integer;
begin
if FImagesCache <> nil then
begin
@ -225,17 +223,7 @@ begin
begin
FImagesCache := GetImageListCache;
FImagesCache.RegisterListener(Self);
/// Test for finding the reason for bug #22164: Invalid floating point operation.
/// Max(1, NumGlyphs) returns 0 (zero) because of a compiler bug!
numg1:=1;
if NumGlyphs > 1 then
numg1 := NumGlyphs;
numg2:=Max(1, NumGlyphs);
if numg1 <> numg2 then
DebugLn(Format('TButtonGlyph.GlyphChanged: Max(1, %d) gives a wrong result %d, should be %d.',
[NumGlyphs, numg2, numg1]));
/// Can be removed later!
FImagesCache.RegisterBitmap(Self, FOriginal, numg1); // Max(1, NumGlyphs)
FImagesCache.RegisterBitmap(Self, FOriginal, Max(1, NumGlyphs));
end;
if Sender = FOriginal then