Changeset 128 for trunk/Forms/UFormMain.pas

Timestamp:

Jan 17, 2022, 4:53:31 PM (3 years ago)

Author:

chronos

Message:

• Added: Two more code examples.
• Added: Allow to disable debugging support.
• Added: Remember last opened tab in options form.

File:

• trunk/Forms/UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.pas

@@ -334 +334 @@
 var
   Title: string;
+  CanDebug: Boolean;
 begin
   Title := '';
@@ -352 +353 @@
   AProgramCompile.Enabled := (tcCompile in Core.CurrentTarget.Capabilities) and
     Core.Project.Openned;
-  AProgramStepInto.Enabled := (tcStepInto in Core.CurrentTarget.Capabilities) and
-    Core.Project.Openned and ((Core.CurrentTarget.State = rsPaused) or (Core.CurrentTarget.State = rsStopped));
-  AProgramStepOut.Enabled := (tcStepOut in Core.CurrentTarget.Capabilities) and
-    Core.Project.Openned and (Core.CurrentTarget.State = rsPaused);
-  AProgramRunToCursor.Enabled := (tcRunToCursor in Core.CurrentTarget.Capabilities) and
-    Core.Project.Openned and ((Core.CurrentTarget.State = rsPaused) or (Core.CurrentTarget.State = rsStopped));
-  AProgramStepOver.Enabled := (tcStepOver in Core.CurrentTarget.Capabilities) and
-    Core.Project.Openned and ((Core.CurrentTarget.State = rsPaused) or (Core.CurrentTarget.State = rsStopped));
-  AProgramShowExecutionPoint.Enabled := (tcPause in Core.CurrentTarget.Capabilities) and
-    Core.Project.Openned and (Core.CurrentTarget.State = rsPaused);
+  CanDebug := Core.DebugEnabled and Core.Project.Openned and
+    ((Core.CurrentTarget.State = rsPaused) or (Core.CurrentTarget.State = rsStopped));
+  AProgramStepInto.Enabled := CanDebug and (tcStepInto in Core.CurrentTarget.Capabilities);
+  AProgramStepOut.Enabled := CanDebug and (tcStepOut in Core.CurrentTarget.Capabilities);
+  AProgramRunToCursor.Enabled := CanDebug and (tcRunToCursor in Core.CurrentTarget.Capabilities);
+  AProgramStepOver.Enabled := CanDebug and (tcStepOver in Core.CurrentTarget.Capabilities);
+  AProgramShowExecutionPoint.Enabled := CanDebug and (tcPause in Core.CurrentTarget.Capabilities);
   AShowSourcePosition.Enabled := Core.CurrentTarget.Compiled;
   AShowTargetPosition.Enabled := Core.CurrentTarget.Compiled;
@@ -568 +566 @@
   if Core.CurrentTarget.State = rsStopped then begin
     if not Core.CurrentTarget.Compiled then AProgramCompile.Execute;
-    Core.CurrentTarget.BreakPoints.SetSystem(TDebugStep(Core.CurrentTarget.DebugSteps.First).ProgramPosition);
+    Core.CurrentTarget.BreakPoints.SetSystem(Core.CurrentTarget.DebugSteps.First.ProgramPosition);
     AProgramRun.Execute;
   end else Core.CurrentTarget.StepInto;