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

lcl: comment

Browse Source 
git-svn-id: trunk@41163 -
This commit is contained in:
mattias 2013-05-13 09:35:23 +00:00
parent b24a4ade47
commit a45fef9f7e
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/menuitem.inc
View File

@ -1251,7 +1251,7 @@ var
begin begin
if (FImageIndex = AValue) then if (FImageIndex = AValue) then
Exit; Exit;
//debugln('TMenuItem.SetImageIndex A ',Name,' Old=',FImageIndex,' New=',Value); //debugln(['TMenuItem.SetImageIndex A ',Name,' Old=',FImageIndex,' New=',AValue]);
AImageList := GetImageList; AImageList := GetImageList;
FImageIndex := AValue; FImageIndex := AValue;
if AImageList = nil then if AImageList = nil then