bk/2024-09-24-2219

Author: Cesar4D

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

@@ -136,6 +136,11 @@ procedure TDelphiAIDevIDENTAEditViewNotifier.ClearLinesNotUsed;
   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;

Src/KeyboardBinding/DelphiAIDev.KeyboardBinding.pas

@@ -107,7 +107,7 @@ procedure TDelphiAIDevKeyboardBinding.CodeCompletionSearch(const Context: IOTAKe
       TDelphiAIDevCodeCompletionSearch.New.Process(Context);
   finally
     //BindingResult := TKeyBindingResult.krUnhandled;
-    BindingResult := TKeyBindingResult.krHandled;
+    BindingResult := TKeyBindingResult.krNextProc; //krHandled;
   end;
 end;
 
@@ -121,7 +121,7 @@ procedure TDelphiAIDevKeyboardBinding.KeyTab(const Context: IOTAKeyContext; KeyC
   if TDelphiAIDevCodeCompletionVars.GetInstance.LineIni > 0 then
   begin
     TDelphiAIDevCodeCompletionKeyTab.New.Process(Context);
-    BindingResult := TKeyBindingResult.krHandled;
+    BindingResult := TKeyBindingResult.krNextProc; //krHandled;
   end;
 end;
 

Src/Test/DelphiAIDev.Test.pas

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