refactor/copilot-for-AiDev

Author: Cesar4D

Package/DelphiAIDeveloper.dpk

@@ -36,21 +36,21 @@ requires
 
 contains
   DelphiAIDeveloper.Register in '..\Src\DelphiAIDeveloper.Register.pas',
-  DelphiAIDev.Chat.View in '..\Src\Chat\DelphiAIDev.Chat.View.pas' {DelphiCopilotChatView},
+  DelphiAIDev.Chat.View in '..\Src\Chat\DelphiAIDev.Chat.View.pas' {DelphiAIDevChatView},
   DelphiAIDev.Utils.OTA in '..\Src\Utils\DelphiAIDev.Utils.OTA.pas',
   DelphiAIDev.Utils in '..\Src\Utils\DelphiAIDev.Utils.pas',
   DelphiAIDev.Types in '..\Src\Types\DelphiAIDev.Types.pas',
   DelphiAIDev.Consts in '..\Src\Consts\DelphiAIDev.Consts.pas',
-  DelphiAIDev.View.Dialog in '..\Src\View\DelphiAIDev.View.Dialog.pas' {DelphiCopilotViewDialog},
+  DelphiAIDev.View.Dialog in '..\Src\View\DelphiAIDev.View.Dialog.pas' {DelphiAIDevViewDialog},
   DelphiAIDev.WaitingScreen in '..\Src\WaitingScreen\DelphiAIDev.WaitingScreen.pas',
-  DelphiAIDev.WaitingScreen.View in '..\Src\WaitingScreen\DelphiAIDev.WaitingScreen.View.pas' {DelphiCopilotWaitingScreenView},
-  DelphiAIDev.View.Memo in '..\Src\View\DelphiAIDev.View.Memo.pas' {DelphiCopilotViewMemo},
+  DelphiAIDev.WaitingScreen.View in '..\Src\WaitingScreen\DelphiAIDev.WaitingScreen.View.pas' {DelphiAIDevWaitingScreenView},
+  DelphiAIDev.View.Memo in '..\Src\View\DelphiAIDev.View.Memo.pas' {DelphiAIDevViewMemo},
   DelphiAIDev.MainMenu.Register in '..\Src\MainMenu\DelphiAIDev.MainMenu.Register.pas',
   DelphiAIDev.MainMenu in '..\Src\MainMenu\DelphiAIDev.MainMenu.pas',
   DelphiAIDev.MainMenu.Clicks in '..\Src\MainMenu\DelphiAIDev.MainMenu.Clicks.pas',
-  DelphiAIDev.View.About in '..\Src\View\DelphiAIDev.View.About.pas' {DelphiCopilotViewAbout},
+  DelphiAIDev.View.About in '..\Src\View\DelphiAIDev.View.About.pas' {DelphiAIDevViewAbout},
   Test in '..\Src\Test\Test.pas',
-  DelphiAIDev.Settings.View in '..\Src\Settings\DelphiAIDev.Settings.View.pas' {DelphiCopilotSettingsView},
+  DelphiAIDev.Settings.View in '..\Src\Settings\DelphiAIDev.Settings.View.pas' {DelphiAIDevSettingsView},
   DelphiAIDev.Settings in '..\Src\Settings\DelphiAIDev.Settings.pas',
   DelphiAIDev.Chat in '..\Src\Chat\DelphiAIDev.Chat.pas',
   DelphiAIDev.AI.Gemini in '..\Src\AI\DelphiAIDev.AI.Gemini.pas',

Package/DelphiAIDeveloper.dproj

@@ -124,31 +124,31 @@
         <DCCReference Include="RESTComponents.dcp"/>
         <DCCReference Include="..\Src\DelphiAIDeveloper.Register.pas"/>
         <DCCReference Include="..\Src\Chat\DelphiAIDev.Chat.View.pas">
-            <Form>DelphiCopilotChatView</Form>
+            <Form>DelphiAIDevChatView</Form>
         </DCCReference>
         <DCCReference Include="..\Src\Utils\DelphiAIDev.Utils.OTA.pas"/>
         <DCCReference Include="..\Src\Utils\DelphiAIDev.Utils.pas"/>
         <DCCReference Include="..\Src\Types\DelphiAIDev.Types.pas"/>
         <DCCReference Include="..\Src\Consts\DelphiAIDev.Consts.pas"/>
         <DCCReference Include="..\Src\View\DelphiAIDev.View.Dialog.pas">
-            <Form>DelphiCopilotViewDialog</Form>
+            <Form>DelphiAIDevViewDialog</Form>
         </DCCReference>
         <DCCReference Include="..\Src\WaitingScreen\DelphiAIDev.WaitingScreen.pas"/>
         <DCCReference Include="..\Src\WaitingScreen\DelphiAIDev.WaitingScreen.View.pas">
-            <Form>DelphiCopilotWaitingScreenView</Form>
+            <Form>DelphiAIDevWaitingScreenView</Form>
         </DCCReference>
         <DCCReference Include="..\Src\View\DelphiAIDev.View.Memo.pas">
-            <Form>DelphiCopilotViewMemo</Form>
+            <Form>DelphiAIDevViewMemo</Form>
         </DCCReference>
         <DCCReference Include="..\Src\MainMenu\DelphiAIDev.MainMenu.Register.pas"/>
         <DCCReference Include="..\Src\MainMenu\DelphiAIDev.MainMenu.pas"/>
         <DCCReference Include="..\Src\MainMenu\DelphiAIDev.MainMenu.Clicks.pas"/>
         <DCCReference Include="..\Src\View\DelphiAIDev.View.About.pas">
-            <Form>DelphiCopilotViewAbout</Form>
+            <Form>DelphiAIDevViewAbout</Form>
         </DCCReference>
         <DCCReference Include="..\Src\Test\Test.pas"/>
         <DCCReference Include="..\Src\Settings\DelphiAIDev.Settings.View.pas">
-            <Form>DelphiCopilotSettingsView</Form>
+            <Form>DelphiAIDevSettingsView</Form>
             <FormType>dfm</FormType>
         </DCCReference>
         <DCCReference Include="..\Src\Settings\DelphiAIDev.Settings.pas"/>

Src/Chat/DelphiAIDev.Chat.View.dfm

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