Responding to debugger actions

Author: lmbelo

source/containers/Container.DataSet.Debugger.pas

@@ -62,6 +62,7 @@   TDebuggerDataSetContainer = class(TDataModule)
     FDebugSessionStopped: IDisconnectable;
     FSetupDebugger: IDisconnectable;
     FSetupDebuggerDone: IDisconnectable;
+    FDebugAction: IDisconnectable;
     //Debugger events
     FContinuedEvent: IUnsubscribable;
     FExitedEvent: IUnsubscribable;
@@ -103,6 +104,8 @@   TDebuggerDataSetContainer = class(TDataModule)
     procedure AddBreakpoint(const ASourceName: string; const ALine: integer);
     procedure RemoveBreakpoint(const ASourceName: string; const ALine: integer);
     procedure ClearBreakpoints(const ASourceName: string);
+    //Clear active source line and indicator values
+    procedure ClearSourceLineAndIndicator();
   end;
 
 var
@@ -153,6 +156,25 @@ procedure TDebuggerDataSetContainer.DataModuleCreate(Sender: TObject);
     begin
       SetupDebuggerDone(AEventNotification.Body.Debugger);
     end);
+
+  FDebugAction := TGlobalBuilderChain.SubscribeToEvent<TDebugActionEvent>(
+    procedure(const AEventNotification: TDebugActionEvent)
+    const
+      DANGLE_INDICATOR_STATES = [
+        TDebugAction.Stop,
+        TDebugAction.StepIn,
+        TDebugAction.StepOver,
+        TDebugAction.StepOut,
+        TDebugAction.Continue];
+    begin
+      if not (AEventNotification.Body.Action in DANGLE_INDICATOR_STATES) then
+        Exit;
+
+      if fdmtActiveSource.IsEmpty then
+        Exit;
+
+      ClearSourceLineAndIndicator();
+    end);
 end;
 
 procedure TDebuggerDataSetContainer.DataModuleDestroy(Sender: TObject);
@@ -238,14 +260,7 @@ procedure TDebuggerDataSetContainer.DebugSessionStarted(
           'Thread %d continued.', [
           AEventNotification.Body.ThreadId]));
 
-      System.Classes.TThread.Synchronize(System.Classes.TThread.Current,
-        procedure()
-        begin
-          fdmtActiveSource.Edit();
-          fdmtActiveSourceactive_source_line.AsInteger := 0;
-          fdmtActiveSourceactive_source_line_indicator.AsBoolean := false;
-          fdmtActiveSource.Post();
-        end);
+      ClearSourceLineAndIndicator();
     end);
 
   FBreakpointEvent := ABaseProtocolClient.SubscribeToEvent<TBreakpointEvent>(
@@ -827,4 +842,16 @@ procedure TDebuggerDataSetContainer.ClearBreakpoints(const ASourceName: string);
     end);
 end;
 
+procedure TDebuggerDataSetContainer.ClearSourceLineAndIndicator;
+begin
+  System.Classes.TThread.Synchronize(System.Classes.TThread.Current,
+    procedure()
+    begin
+      fdmtActiveSource.Edit();
+      fdmtActiveSourceactive_source_line.AsInteger := 0;
+      fdmtActiveSourceactive_source_line_indicator.AsBoolean := false;
+      fdmtActiveSource.Post();
+    end);
+end;
+
 end.