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

ide: change enabled state to View registers and View assembler menu items according to debugging state

Browse Source 
git-svn-id: trunk@23080 -
This commit is contained in:
paul 2009-12-11 02:57:40 +00:00
parent 16847565ea
commit fc439939dd
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/debugmanager.pas
View File

@ -1877,10 +1877,12 @@ begin
itmViewLocals.Tag := Ord(ddtLocals);
itmViewRegisters.OnClick := @mnuViewDebugDialogClick;
itmViewRegisters.Tag := Ord(ddtRegisters);
itmViewRegisters.Enabled := False;
itmViewCallStack.OnClick := @mnuViewDebugDialogClick;
itmViewCallStack.Tag := Ord(ddtCallStack);
itmViewAssembler.OnClick := @mnuViewDebugDialogClick;
itmViewAssembler.Tag := Ord(ddtAssembler);
itmViewAssembler.Enabled := False;
itmViewDebugOutput.OnClick := @mnuViewDebugDialogClick;
itmViewDebugOutput.Tag := Ord(ddtOutput);
@ -1979,6 +1981,10 @@ begin
SrcEditMenuInspect.Enabled := (not DebuggerInvalid)
and (dcEvaluate in FDebugger.Commands);
itmRunMenuAddWatch.Enabled := True; // always allow to add a watch
// menu view
itmViewRegisters.Enabled := (not DebuggerInvalid);
itmViewAssembler.Enabled := (not DebuggerInvalid);
// TODO: add other debugger menuitems
// TODO: implement by actions
end;