bk/2024-09-16-2237

Author: Cesar4D

Src/CodeCompletion/DelphiAIDev.CodeCompletion.Search.pas

@@ -91,6 +91,8 @@ procedure TDelphiAIDevCodeCompletionSearch.Process(const AContext: IOTAKeyContex
       Abort;
     end;
 
+    //Pegar o nome da tab da unit aberta
+    FVars.Module := TUtilsOTA.GetCurrentModule;
     FVars.Contents.Text := TUtils.ConfReturnAI(FAI.Response.Text);
 
     LRow := LIOTAEditPosition.Row;

Src/CodeCompletion/DelphiAIDev.CodeCompletion.Vars.pas

@@ -4,11 +4,14 @@ interface
 
 uses
   System.SysUtils,
-  System.Classes;
+  System.Classes,
+  ToolsAPI;
 
 type
   TDelphiAIDevCodeCompletionVars = class
   private
+    FRelease: Boolean;
+    FModule: IOTAModule;
     FLineIni: Integer;
     FLineEnd: Integer;
     FRow: Integer;
@@ -19,6 +22,8 @@   TDelphiAIDevCodeCompletionVars = class
     class function GetInstance: TDelphiAIDevCodeCompletionVars;
     destructor Destroy; override;
     procedure Clear;
+    property Release: Boolean read FRelease write FRelease;
+    property Module: IOTAModule read FModule write FModule;
     property LineIni: Integer read FLineIni write FLineIni;
     property LineEnd: Integer read FLineEnd write FLineEnd;
     property Row: Integer read FRow write FRow;
@@ -53,6 +58,8 @@ destructor TDelphiAIDevCodeCompletionVars.Destroy;
 
 procedure TDelphiAIDevCodeCompletionVars.Clear;
 begin
+  FRelease := False;
+  FModule := nil;
   FLineIni := 0;
   FLineEnd := 0;
   FRow := 0;

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

@@ -96,11 +96,13 @@ procedure TDelphiAIDevIDENTAEditViewNotifier.EditorIdle(const View: IOTAEditView
 begin
   TUtilsOTA.GetCursorPosition(LRow, LColumn);
 
-  if LVars.LineIni > 0 then
+  //if LVars.LineIni > 0 then
+  if not LVars.Release then
     if (LRow <> LVars.Row) or (LColumn <> LVars.Column) then
     begin
-      LVars.LineIni := 0;
-      LVars.Clear;
+      //LVars.LineIni := 0;
+      //LVars.Clear;
+      LVars.Release := True;
       TUtils.AddLog('EditorIdle');
     end;
 end;
@@ -120,6 +122,8 @@ procedure TDelphiAIDevIDENTAEditViewNotifier.PaintLine(const View: IOTAEditView;
   const Canvas: TCanvas; const TextRect: TRect; const LineRect: TRect; const CellSize: TSize);
 var
   LLineText: string;
+  LColCurrent: Integer;
+  LLineCurrent: Integer;
 begin
   if LineNumber < 1 then
     Exit;
@@ -132,6 +136,26 @@ procedure TDelphiAIDevIDENTAEditViewNotifier.PaintLine(const View: IOTAEditView;
   //if LineNumber <> View.CursorPos.Line then
   //  Exit;
 
+  //verificar o nome da tab da unit aberta
+  if LVars.Release then
+  begin
+    LVars.Release := False;
+
+    //**
+    LColCurrent := View.CursorPos.Col;
+    LLineCurrent := View.CursorPos.Line;
+    //**
+    try
+      View.Buffer.EditPosition.Move(LVars.LineIni, 2);
+      View.Buffer.EditPosition.Delete(Pred(LVars.Contents.Count));
+    finally
+      LVars.Clear;
+      //**
+      View.Buffer.EditPosition.Move(LLineCurrent, LColCurrent);
+      //**
+    end;
+  end;
+
   if (LineNumber >= LVars.LineIni)and(LineNumber < LVars.LineEnd) then
   begin
     Canvas.Brush.Style := bsClear;