refactor/separado-key-tab

Author: Cesar4D

Package/DelphiAIDeveloper.dpk

@@ -112,6 +112,7 @@ contains
   DelphiAIDev.IDE.OTAEditorNotifier in '..\Src\IDE\OTAEditorNotifier\DelphiAIDev.IDE.OTAEditorNotifier.pas',
   DelphiAIDev.IDE.NTAEditViewNotifier in '..\Src\IDE\NTAEditViewNotifier\DelphiAIDev.IDE.NTAEditViewNotifier.pas',
   DelphiAIDev.CodeCompletion.Search in '..\Src\CodeCompletion\DelphiAIDev.CodeCompletion.Search.pas',
-  DelphiAIDev.Test.Client in '..\Src\Test\DelphiAIDev.Test.Client.pas';
+  DelphiAIDev.Test.Client in '..\Src\Test\DelphiAIDev.Test.Client.pas',
+  DelphiAIDev.CodeCompletion.KeyTab in '..\Src\CodeCompletion\DelphiAIDev.CodeCompletion.KeyTab.pas';
 
 end.

Package/DelphiAIDeveloper.dproj

@@ -228,6 +228,7 @@
         <DCCReference Include="..\Src\IDE\NTAEditViewNotifier\DelphiAIDev.IDE.NTAEditViewNotifier.pas"/>
         <DCCReference Include="..\Src\CodeCompletion\DelphiAIDev.CodeCompletion.Search.pas"/>
         <DCCReference Include="..\Src\Test\DelphiAIDev.Test.Client.pas"/>
+        <DCCReference Include="..\Src\CodeCompletion\DelphiAIDev.CodeCompletion.KeyTab.pas"/>
         <RcItem Include="Img\c4d_Logo.bmp">
             <ResourceType>BITMAP</ResourceType>
             <ResourceId>c4d_Logo</ResourceId>

Src/CodeCompletion/DelphiAIDev.CodeCompletion.KeyTab.pas

@@ -0,0 +1,54 @@
+unit DelphiAIDev.CodeCompletion.KeyTab;
+
+interface
+
+uses
+  System.SysUtils,
+  System.Classes,
+  ToolsAPI,
+  DelphiAIDev.CodeCompletion.Vars;
+
+type
+  IDelphiAIDevCodeCompletionKeyTab = interface
+    ['{A032D6DE-E66D-4088-B384-5FEE82F65160}']
+    procedure Process(const AContext: IOTAKeyContext);
+  end;
+
+  TDelphiAIDevCodeCompletionKeyTab = class(TInterfacedObject, IDelphiAIDevCodeCompletionKeyTab)
+  private
+    FVars: TDelphiAIDevCodeCompletionVars;
+  protected
+    procedure Process(const AContext: IOTAKeyContext);
+  public
+    class function New: IDelphiAIDevCodeCompletionKeyTab;
+    constructor Create;
+  end;
+
+implementation
+
+class function TDelphiAIDevCodeCompletionKeyTab.New: IDelphiAIDevCodeCompletionKeyTab;
+begin
+  Result := Self.Create;
+end;
+
+constructor TDelphiAIDevCodeCompletionKeyTab.Create;
+begin
+  FVars := TDelphiAIDevCodeCompletionVars.GetInstance;
+end;
+
+procedure TDelphiAIDevCodeCompletionKeyTab.Process(const AContext: IOTAKeyContext);
+var
+  LText: string;
+  i: Integer;
+begin
+  LText := '';
+  for i := 0 to Pred(FVars.Contents.Count) do
+    LText := LText + FVars.Contents[i].Trim + sLineBreak;
+
+  AContext.EditBuffer.EditPosition.InsertText(LText.Trim);
+  //Context.EditBuffer.EditPosition.Move(TDelphiAIDevCodeCompletionVars.GetInstance.LineEnd, 20);
+
+  FVars.GetInstance.Clear;
+end;
+
+end.

Src/KeyboardBinding/DelphiAIDev.KeyboardBinding.pas

@@ -10,7 +10,8 @@ interface
   ToolsAPI,
   DelphiAIDev.Utils.CnWizard,
   DelphiAIDev.Chat.View,
-  DelphiAIDev.CodeCompletion.Search;
+  DelphiAIDev.CodeCompletion.Search,
+  DelphiAIDev.CodeCompletion.KeyTab;
 
 type
   TDelphiAIDevKeyboardBinding = class(TNotifierObject, IOTAKeyboardBinding)
@@ -101,23 +102,13 @@ procedure TDelphiAIDevKeyboardBinding.KeyProcBlockReturnAndAlt(const Context: IO
 end;
 
 procedure TDelphiAIDevKeyboardBinding.KeyTab(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
-var
-  LText: string;
-  i: Integer;
 begin
   if KeyCode <> Shortcut(VK_TAB, []) then
     Exit;
 
   if TDelphiAIDevCodeCompletionVars.GetInstance.LineIni > 0 then
   begin
-    LText := '';
-    for i := 0 to Pred(TDelphiAIDevCodeCompletionVars.GetInstance.Contents.Count) do
-      LText := LText + TDelphiAIDevCodeCompletionVars.GetInstance.Contents[i].Trim + sLineBreak;
-
-    Context.EditBuffer.EditPosition.InsertText(LText.Trim);
-    //Context.EditBuffer.EditPosition.Move(TDelphiAIDevCodeCompletionVars.GetInstance.LineEnd, 20);
-
-    TDelphiAIDevCodeCompletionVars.GetInstance.Clear;
+    TDelphiAIDevCodeCompletionKeyTab.New.Process(Context);
     BindingResult := TKeyBindingResult.krHandled;
   end
   else

Src/Test/DelphiAIDev.Test.pas

@@ -30,5 +30,9 @@   TDelphiAIDevTest = class
 
 implementation
 
+procedure TDelphiAIDevTest.Clear;
+begin
+
+end;
 
 end.