Changeset 113 for trunk/Forms/UFormMain.pas

Timestamp:

May 17, 2019, 10:32:20 PM (5 years ago)

Author:

chronos

Message:

• Fixed: SynEdit SelIndex is counter from 1 and not from 0.

File:

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

trunk/Forms/UFormMain.pas

@@ -418 +418 @@
   DebugStep: TDebugStep;
 begin
-  DebugStep := Core.CurrentTarget.DebugSteps.SearchByTargetPos(FormTargetCode.SynEditTarget.SelStart);
+  DebugStep := Core.CurrentTarget.DebugSteps.SearchByTargetPos(FormTargetCode.SynEditTarget.SelStart - 1);
   if Assigned(DebugStep) then begin
-    FormSourceCode.SynEditSource.SelStart := DebugStep.SourcePosition;
+    FormSourceCode.SynEditSource.SelStart := DebugStep.SourcePosition + 1;
     PageControlMain.TabIndex := 0;
   end;
@@ -429 +429 @@
   DebugStep: TDebugStep;
 begin
-  DebugStep := Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEditSource.SelStart);
+  DebugStep := Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEditSource.SelStart - 1);
   if Assigned(DebugStep) then begin
-    FormTargetCode.SynEditTarget.SelStart := DebugStep.TargetPosition;
+    FormTargetCode.SynEditTarget.SelStart := DebugStep.TargetPosition + 1;
     PageControlMain.TabIndex := 1;
   end;
@@ -521 +521 @@
   BreakPoint: TBreakPoint;
 begin
-  DebugStep := Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEditSource.SelStart);
+  DebugStep := Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEditSource.SelStart - 1);
   if Assigned(DebugStep) then begin
     BreakPoint := Core.CurrentTarget.BreakPoints.SearchByTargetPos(DebugStep.TargetPosition);
@@ -554 +554 @@
   if Core.CurrentTarget.State = rsStopped then begin
     if not Core.CurrentTarget.Compiled then AProgramCompile.Execute;
-    DebugStep := Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEditSource.SelStart);
+    DebugStep := Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEditSource.SelStart - 1);
     Core.CurrentTarget.BreakPoints.SetSystem(DebugStep.TargetPosition);
     AProgramRun.Execute;
   end else begin
-    DebugStep := Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEditSource.SelStart);
+    DebugStep := Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEditSource.SelStart - 1);
     Core.CurrentTarget.RunToCursor(DebugStep.TargetPosition);
   end;
@@ -568 +568 @@
 begin
   DebugStep := Core.CurrentTarget.DebugSteps.SearchByTargetPos(Core.CurrentTarget.ExecutionPosition);
-  FormSourceCode.SynEditSource.SelStart := DebugStep.SourcePosition;
-  FormTargetCode.SynEditTarget.SelStart := DebugStep.TargetPosition;
+  FormSourceCode.SynEditSource.SelStart := DebugStep.SourcePosition + 1;
+  FormTargetCode.SynEditTarget.SelStart := DebugStep.TargetPosition + 1;
   if PageControlMain.TabIndex = 0 then FormSourceCode.SynEditSource.SetFocus;
   if PageControlMain.TabIndex = 1 then FormTargetCode.SynEditTarget.SetFocus;