bk/2024-09-16-1501

Author: Cesar4D

Src/AI/DelphiAIDev.AI.pas

@@ -56,7 +56,7 @@ procedure TDelphiAIDevAI.ProcessSend(const AQuestion: string);
   LQuestion := TUtils.AdjustQuestionToJson(AQuestion);
   FResponse.Clear;
 
-  if TUtils.InDebugMy then
+  if TUtils.DebugMyIsOn then
     TUtils.AddLogDeleteFileFirst(LQuestion, 'DelphiAIDevAI_ProcessSend');
 
   case FAiUse of

Src/IDE/NTAEditViewNotifier/DelphiAIDev.IDE.NTAEditViewNotifier.pas

@@ -96,11 +96,13 @@ procedure TDelphiAIDevIDENTAEditViewNotifier.EditorIdle(const View: IOTAEditView
 begin
   TUtilsOTA.GetCursorPosition(LRow, LColumn);
 
-  if (LRow <> LVars.Row) or (LColumn <> LVars.Column) then
-  begin
-    LVars.LineIni := 0;
-    LVars.Clear;
-  end;
+  if LVars.LineIni > 0 then
+    if (LRow <> LVars.Row) or (LColumn <> LVars.Column) then
+    begin
+      LVars.LineIni := 0;
+      LVars.Clear;
+      TUtils.AddLog('EditorIdle');
+    end;
 end;
 
 procedure TDelphiAIDevIDENTAEditViewNotifier.EndPaint(const View: IOTAEditView);
@@ -130,18 +132,23 @@ procedure TDelphiAIDevIDENTAEditViewNotifier.PaintLine(const View: IOTAEditView;
   //if LineNumber <> View.CursorPos.Line then
   //  Exit;
 
-  if (LineNumber >= LVars.LineIni)and(LineNumber <= LVars.LineEnd) then
+  if (LineNumber >= LVars.LineIni)and(LineNumber < LVars.LineEnd) then
   begin
     Canvas.Brush.Style := bsClear;
-    Canvas.Font.Color := $777777; //$666666;
+    Canvas.Font.Color := $777777;
     if TDelphiAIDevSettings.GetInstance.CodeCompletionSuggestionColorUse then
       Canvas.Font.Color := TDelphiAIDevSettings.GetInstance.CodeCompletionSuggestionColor;
 
     try
       LLineText := LVars.Contents[LineNumber - LVars.LineIni];
       Canvas.TextOut(TextRect.Left, TextRect.Top, LLineText.TrimRight);
     except on E: Exception do
-      TUtils.AddLog(E.Message);
+      if TUtils.DebugMyIsOn then
+        TUtils.AddLog('Exception in TDelphiAIDevIDENTAEditViewNotifier.PaintLine: ' + sLineBreak +
+          'LineNumber: ' + LineNumber.ToString + sLineBreak +
+          'LineIni: ' + LVars.LineIni.ToString + sLineBreak +
+          'LineEnd: ' + LVars.LineEnd.ToString + sLineBreak +
+          E.Message);
     end;
   end;
 end;

Src/Utils/DelphiAIDev.Utils.pas

@@ -36,7 +36,7 @@   TUtils = class
     class procedure DriverIDFillItemsTStrings(AStrings: TStrings);
     class procedure DefaultsQuestionsKindFillItemsTStrings(AStrings: TStrings);
     class function AdjustQuestionToJson(const AValue: string): string;
-    class function InDebugMy: Boolean;
+    class function DebugMyIsOn: Boolean;
     class procedure AddLog(const AMessage: string);
     class procedure AddLogDeleteFileFirst(const AMessage: string; const ANameFile: string);
     class procedure AddLogInFileTxt(const AMessage: string; const ANameFile: string; ADeleteFileFirst: Boolean = False);
@@ -213,7 +213,7 @@ class function TUtils.AdjustQuestionToJson(const AValue: string): string;
   Result := Result.Replace('\\"', '\"', [rfReplaceAll, rfIgnoreCase]);
 end;
 
-class function TUtils.InDebugMy: Boolean;
+class function TUtils.DebugMyIsOn: Boolean;
 begin
   Result := FileExists('C:\Temp\DelphiAIDev\DebugOn.c4d');
 end;