bk/before-changing-copilot-name

Author: Cesar4D

Package/DelphiCopilot.dproj

@@ -107,6 +107,7 @@
         <DCC_RemoteDebug>false</DCC_RemoteDebug>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <VerInfo_Locale>1033</VerInfo_Locale>
+        <Debugger_HostApplication>C:\Program Files (x86)\Embarcadero\Studio\20.0\bin\bds.exe</Debugger_HostApplication>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">
         <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>

Src/Chat/DelphiCopilot.Chat.View.dfm

@@ -138,7 +138,7 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
         Left = 0
         Top = 3
         Width = 56
-        Height = 13
+        Height = 20
         Cursor = crHandPoint
         Hint = 'AI being used'
         Margins.Left = 0
@@ -149,6 +149,7 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
         Caption = 'lbCurrentAI'
         PopupMenu = pMenuCurrentAI
         OnClick = lbCurrentAIClick
+        ExplicitHeight = 13
       end
       object btnSend: TButton
         AlignWithMargins = True

Src/Utils/DelphiCopilot.Utils.OTA.pas

@@ -212,9 +212,15 @@ class function TUtilsOTA.EditorAsString(AIOTAModule: IOTAModule): string;
   LRead: Integer;
   LPosition: Integer;
   LStrBuffer: AnsiString;
+  LOTASourceEditor: IOTASourceEditor;
 begin
   Result := '';
-  LIOTAEditReader := Self.GetIOTASourceEditor(AIOTAModule).CreateReader;
+
+  LOTASourceEditor := Self.GetIOTASourceEditor(AIOTAModule);
+  if LOTASourceEditor = nil then
+    TUtils.ShowMsgSynchronize('Unable to get SourceEditor.');
+
+  LIOTAEditReader := LOTASourceEditor.CreateReader;
   try
     LPosition := 0;
     repeat

Src/Utils/DelphiCopilot.Utils.pas

@@ -264,47 +264,45 @@ class function TUtils.ConfReturnAI(const AValue: string): string;
 
 class function TUtils.ProcessTextForEditor(const AText: string): string;
 var
-  AdjustRet: Boolean;
-  Strings: TStrings;
+  LAdjustRet: Boolean;
+  LStrings: TStrings;
   I: Integer;
-  SpcCount: Integer;
-  c: Char;
-  s: string;
+  LCount: Integer;
+  LChar: Char;
+  LStrLine: string;
 begin
-  AdjustRet := CopyReverse(AText, 1, 2) = #13#10;
-  Strings := TStringList.Create;
+  LAdjustRet := CopyReverse(AText, 1, 2) = #13#10;
+  LStrings := TStringList.Create;
   try
-    Strings.Text := AText;
+    LStrings.Text := AText;
     //SpcCount := 0;
-    for I := 0 to Pred(Strings.Count) do
+    for I := 0 to Pred(LStrings.Count) do
     begin
-      s := Strings[I];
-      if Length(s) > 2 then
+      LStrLine := LStrings[I];
+      if Length(LStrLine) > 2 then
       begin
-        if s[2] = ' ' then
+        if LStrLine[2] = ' ' then
         begin
-          c := s[1];
-          s[1] := ' ';
-          SpcCount := 0;
-          while (SpcCount < Length(s)) and (s[SpcCount + 2] = ' ') do
-            Inc(SpcCount);
-          s[SpcCount + 1] := c;
-
-          Strings[I] := s;
+          LChar := LStrLine[1];
+          LStrLine[1] := ' ';
+          LCount := 0;
+          while (LCount < Length(LStrLine)) and (LStrLine[LCount + 2] = ' ') do
+            Inc(LCount);
+          LStrLine[LCount + 1] := LChar;
+
+          LStrings[I] := LStrLine;
         end
         else
-        begin
-          Strings[I] := s;
-        end;
+          LStrings[I] := LStrLine;
       end;
     end;
-    Result := Strings.Text;
+    Result := LStrings.Text;
     Delete(Result, Pred(Result.Length), 2);
   finally
-    Strings.Free;
+    LStrings.Free;
   end;
 
-  if AdjustRet then
+  if LAdjustRet then
     Result := Result + #13#10;
 end;