mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-15 01:39:25 +02:00
ide: change enabled state to View registers and View assembler menu items according to debugging state
git-svn-id: trunk@23080 -
This commit is contained in:
parent
16847565ea
commit
fc439939dd
@ -1877,10 +1877,12 @@ begin
|
|||||||
itmViewLocals.Tag := Ord(ddtLocals);
|
itmViewLocals.Tag := Ord(ddtLocals);
|
||||||
itmViewRegisters.OnClick := @mnuViewDebugDialogClick;
|
itmViewRegisters.OnClick := @mnuViewDebugDialogClick;
|
||||||
itmViewRegisters.Tag := Ord(ddtRegisters);
|
itmViewRegisters.Tag := Ord(ddtRegisters);
|
||||||
|
itmViewRegisters.Enabled := False;
|
||||||
itmViewCallStack.OnClick := @mnuViewDebugDialogClick;
|
itmViewCallStack.OnClick := @mnuViewDebugDialogClick;
|
||||||
itmViewCallStack.Tag := Ord(ddtCallStack);
|
itmViewCallStack.Tag := Ord(ddtCallStack);
|
||||||
itmViewAssembler.OnClick := @mnuViewDebugDialogClick;
|
itmViewAssembler.OnClick := @mnuViewDebugDialogClick;
|
||||||
itmViewAssembler.Tag := Ord(ddtAssembler);
|
itmViewAssembler.Tag := Ord(ddtAssembler);
|
||||||
|
itmViewAssembler.Enabled := False;
|
||||||
itmViewDebugOutput.OnClick := @mnuViewDebugDialogClick;
|
itmViewDebugOutput.OnClick := @mnuViewDebugDialogClick;
|
||||||
itmViewDebugOutput.Tag := Ord(ddtOutput);
|
itmViewDebugOutput.Tag := Ord(ddtOutput);
|
||||||
|
|
||||||
@ -1979,6 +1981,10 @@ begin
|
|||||||
SrcEditMenuInspect.Enabled := (not DebuggerInvalid)
|
SrcEditMenuInspect.Enabled := (not DebuggerInvalid)
|
||||||
and (dcEvaluate in FDebugger.Commands);
|
and (dcEvaluate in FDebugger.Commands);
|
||||||
itmRunMenuAddWatch.Enabled := True; // always allow to add a watch
|
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: add other debugger menuitems
|
||||||
// TODO: implement by actions
|
// TODO: implement by actions
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user