bk/2024-09-24-2251

Author: Cesar4D

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

@@ -87,6 +87,32 @@ procedure TDelphiAIDevIDENTAEditViewNotifier.BeforeSave;
 
 end;
 
+procedure TDelphiAIDevIDENTAEditViewNotifier.ClearLinesNotUsed;
+var
+  LView: IOTAEditView;
+  LColCurrent: Integer;
+  LLineCurrent: Integer;
+begin
+  ////LVars.Release := False;
+  if LVars.Module = nil then
+    Exit;
+
+  //**
+  if LVars.Contents.Count <= 1 then
+    Exit;
+  //**
+
+  LView := TUtilsOTA.GetIOTAEditView(LVars.Module);
+  LColCurrent := LView.CursorPos.Col;
+  LLineCurrent := LView.CursorPos.Line;
+  try
+    LView.Buffer.EditPosition.Move(LVars.LineIni, 2);
+    LView.Buffer.EditPosition.Delete(Pred(LVars.Contents.Count));
+  finally
+    LView.Buffer.EditPosition.Move(LLineCurrent, LColCurrent);
+  end;
+end;
+
 procedure TDelphiAIDevIDENTAEditViewNotifier.BeginPaint(const View: IOTAEditView; var FullRepaint: Boolean);
 begin
   FullRepaint := True;
@@ -125,33 +151,6 @@ procedure TDelphiAIDevIDENTAEditViewNotifier.Modified;
 
 end;
 
-procedure TDelphiAIDevIDENTAEditViewNotifier.ClearLinesNotUsed;
-var
-  LView: IOTAEditView;
-  LColCurrent: Integer;
-  LLineCurrent: Integer;
-begin
-  ////LVars.Release := False;
-
-  if LVars.Module = nil then
-    Exit;
-
-  //**
-  if LVars.Contents.Count <= 1 then
-    Exit;
-  //**
-
-  LView := TUtilsOTA.GetIOTAEditView(LVars.Module);
-  LColCurrent := LView.CursorPos.Col;
-  LLineCurrent := LView.CursorPos.Line;
-  try
-    LView.Buffer.EditPosition.Move(LVars.LineIni, 2);
-    LView.Buffer.EditPosition.Delete(Pred(LVars.Contents.Count));
-  finally
-    LView.Buffer.EditPosition.Move(LLineCurrent, LColCurrent);
-  end;
-end;
-
 procedure TDelphiAIDevIDENTAEditViewNotifier.PaintLine(const View: IOTAEditView; LineNumber: Integer;
   const LineText: PAnsiChar; const TextWidth: Word; const LineAttributes: TOTAAttributeArray;
   const Canvas: TCanvas; const TextRect: TRect; const LineRect: TRect; const CellSize: TSize);
@@ -163,8 +162,8 @@ procedure TDelphiAIDevIDENTAEditViewNotifier.PaintLine(const View: IOTAEditView;
 
   LLineText := string(LineText);
 
-  if not LLineText.Trim.IsEmpty then
-    Exit;
+  //AQUI VERIFICA SE A LINHA NAO FOR VAZIA NAO ADICIONA O TEXTO DA SUGESTAO
+  //if not LLineText.Trim.IsEmpty then Exit;
 
   //if LineNumber <> View.CursorPos.Line then Exit;
 
@@ -177,7 +176,7 @@ procedure TDelphiAIDevIDENTAEditViewNotifier.PaintLine(const View: IOTAEditView;
 //    end;
 //  end;
 
-  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;

Src/KeyboardBinding/DelphiAIDev.KeyboardBinding.pas

@@ -91,7 +91,7 @@ procedure TDelphiAIDevKeyboardBinding.BindKeyboard(const BindingServices: IOTAKe
   //  Exit;
 
   LShortcut := TConsts.CODE_COMPLETION_SHORTCUT_INVOKE;
-  if not(Trim(TDelphiAIDevSettings.GetInstance.CodeCompletionShortcutInvoke).IsEmpty) then
+  if not Trim(TDelphiAIDevSettings.GetInstance.CodeCompletionShortcutInvoke).IsEmpty then
     LShortcut := TDelphiAIDevSettings.GetInstance.CodeCompletionShortcutInvoke;
 
   BindingServices.AddKeyBinding([TextToShortCut(LShortcut)], Self.CodeCompletionSearch, nil);

Src/Test/DelphiAIDev.Test.pas

@@ -25,7 +25,6 @@   TDelphiAIDevTest = class
     property Apelido: string read FApelido write FApelido;
     property Cep: Integer read FCep write FCep;
     procedure Clear;
-
    end;
 
 implementation