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

IdeIntf: Remove an incorrect test about Bitmap from TIDEMenuItem.ConsistencyCheck.

Browse Source 
git-svn-id: trunk@51459 -
This commit is contained in:
juha 2016-01-30 12:42:04 +00:00
parent 3948707261
commit 95534c8596
1 changed files with 2 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/ideintf/menuintf.pas
View File

@ -879,22 +879,10 @@ procedure TIDEMenuItem.ConsistencyCheck;
RaiseGDBException(s);
end;
procedure RaiseBitmapError;
var
s: String;
begin
s:='TIDEMenuItem.ConsistencyCheck Name="'+Name+'" Caption="'+DbgStr(Caption)+'"';
debugln(s);
debugln(['RaiseBitmapError HasBitmap=',HasBitmap,' MenuItem.HasBitmap=',MenuItem.HasBitmap]);
debugln(['RaiseBitmapError ImageIndex=',ImageIndex,' MenuItem.ImageIndex=',MenuItem.ImageIndex]);
debugln(['RaiseBitmapError ImageList=',dbgsname(GetImageList),' MenuItem.ImageIndex=',DbgSName(MenuItem.GetImageList)]);
RaiseError;
end;
begin
if MenuItem<>nil then begin
if MenuItem.HasBitmap<>HasBitmap then
RaiseBitmapError;
debugln(['TIDEMenuItem.ConsistencyCheck: Bitmap=', FBitmap,
', ImageIndex=', ImageIndex, ', ImageList=', GetImageList]);
if MenuItem.Enabled<>Enabled then
RaiseError;
if MenuItem.Visible<>Visible then