fixed debugger menu items

git-svn-id: trunk@7825 -
This commit is contained in:
mattias 2005-09-25 21:53:21 +00:00
parent aa968f10a6
commit b444eb0e1b

View File

@ -992,7 +992,7 @@ end;
procedure TDebugManager.mnuViewDebugDialogClick(Sender: TObject);
begin
ViewDebugDialog(TDebugDialogType(TMenuItem(Sender).Tag));
ViewDebugDialog(TDebugDialogType((Sender as TIDEMenuItem).Tag));
end;
procedure TDebugManager.mnuResetDebuggerClicked(Sender: TObject);