V1.75

2020-08-06 22:12:28 +02:00
parent 5c29a4d1aa
commit 933f55330f
12 changed files with 225 additions and 46 deletions
--- a/UnitDebug.pas
+++ b/UnitDebug.pas
@@ -202,15 +202,15 @@ begin
  begin
    i:=0;
    repeat
-      trouve:=pos('erreur',Lines[i])<>0;
+      trouve:=pos('erreur',uppercase(Lines[i]))<>0;
      inc(i);
    until (i>=Lines.Count) or trouve;
    if trouve then
    begin
-      Lines.Add('trouvé en '+intToSTR(i));
-      SelStart:=Perform(EM_LINEINDEX,5,0);
-      perform(EM_SCROLLCARET,0,0);
-      setfocus;
+    Affiche('trouvé en '+intToSTR(i),clyellow);
+    SelStart := I - 1;
+    SelLength := Length('erreur');
+    SetFocus;
    end;
  end;
 end;