Skip to content

Commit 27d2bbe

Browse files
Cesar4DCesar4D
committed
refactor/rename-Copilot-for-DelphiAIDev
1 parent 18b576e commit 27d2bbe

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

42 files changed

+723
-714
lines changed

‎Package/DelphiAIDeveloper.dpk

Lines changed: 65 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,65 @@
1+
{$WARN IMPLICIT_IMPORT OFF}
2+
package DelphiAIDeveloper;
3+
4+
{$R *.res}
5+
{$R *.dres}
6+
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
7+
{$ALIGN 8}
8+
{$ASSERTIONS ON}
9+
{$BOOLEVAL OFF}
10+
{$DEBUGINFO OFF}
11+
{$EXTENDEDSYNTAX ON}
12+
{$IMPORTEDDATA ON}
13+
{$IOCHECKS ON}
14+
{$LOCALSYMBOLS ON}
15+
{$LONGSTRINGS ON}
16+
{$OPENSTRINGS ON}
17+
{$OPTIMIZATION OFF}
18+
{$OVERFLOWCHECKS OFF}
19+
{$RANGECHECKS OFF}
20+
{$REFERENCEINFO ON}
21+
{$SAFEDIVIDE OFF}
22+
{$STACKFRAMES ON}
23+
{$TYPEDADDRESS OFF}
24+
{$VARSTRINGCHECKS ON}
25+
{$WRITEABLECONST OFF}
26+
{$MINENUMSIZE 1}
27+
{$IMAGEBASE $400000}
28+
{$DEFINE DEBUG}
29+
{$ENDIF IMPLICITBUILDING}
30+
{$IMPLICITBUILD ON}
31+
32+
requires
33+
rtl,
34+
designide,
35+
RESTComponents;
36+
37+
contains
38+
DelphiAIDeveloper.Register in '..\Src\DelphiAIDeveloper.Register.pas',
39+
DelphiAIDev.Chat.View in '..\Src\Chat\DelphiAIDev.Chat.View.pas' {DelphiCopilotChatView},
40+
DelphiAIDev.Utils.OTA in '..\Src\Utils\DelphiAIDev.Utils.OTA.pas',
41+
DelphiAIDev.Utils in '..\Src\Utils\DelphiAIDev.Utils.pas',
42+
DelphiAIDev.Types in '..\Src\Types\DelphiAIDev.Types.pas',
43+
DelphiAIDev.Consts in '..\Src\Consts\DelphiAIDev.Consts.pas',
44+
DelphiAIDev.View.Dialog in '..\Src\View\DelphiAIDev.View.Dialog.pas' {DelphiCopilotViewDialog},
45+
DelphiAIDev.WaitingScreen in '..\Src\WaitingScreen\DelphiAIDev.WaitingScreen.pas',
46+
DelphiAIDev.WaitingScreen.View in '..\Src\WaitingScreen\DelphiAIDev.WaitingScreen.View.pas' {DelphiCopilotWaitingScreenView},
47+
DelphiAIDev.View.Memo in '..\Src\View\DelphiAIDev.View.Memo.pas' {DelphiCopilotViewMemo},
48+
DelphiAIDev.MainMenu.Register in '..\Src\MainMenu\DelphiAIDev.MainMenu.Register.pas',
49+
DelphiAIDev.MainMenu in '..\Src\MainMenu\DelphiAIDev.MainMenu.pas',
50+
DelphiAIDev.MainMenu.Clicks in '..\Src\MainMenu\DelphiAIDev.MainMenu.Clicks.pas',
51+
DelphiAIDev.View.About in '..\Src\View\DelphiAIDev.View.About.pas' {DelphiCopilotViewAbout},
52+
Test in '..\Src\Test\Test.pas',
53+
DelphiAIDev.Settings.View in '..\Src\Settings\DelphiAIDev.Settings.View.pas' {DelphiCopilotSettingsView},
54+
DelphiAIDev.Settings in '..\Src\Settings\DelphiAIDev.Settings.pas',
55+
DelphiAIDev.Chat in '..\Src\Chat\DelphiAIDev.Chat.pas',
56+
DelphiAIDev.AI.Gemini in '..\Src\AI\DelphiAIDev.AI.Gemini.pas',
57+
DelphiAIDev.AI.ChatGPT in '..\Src\AI\DelphiAIDev.AI.ChatGPT.pas',
58+
DelphiAIDev.AI.Interfaces in '..\Src\AI\DelphiAIDev.AI.Interfaces.pas',
59+
DelphiAIDev.Interfaces in '..\Src\Interfaces\DelphiAIDev.Interfaces.pas',
60+
DelphiAIDev.ModuleCreator.OTA in '..\Src\ModuleCreator\DelphiAIDev.ModuleCreator.OTA.pas',
61+
DelphiAIDev.ModuleCreator in '..\Src\ModuleCreator\DelphiAIDev.ModuleCreator.pas',
62+
DelphiAIDev.ModuleCreator.Interfaces in '..\Src\ModuleCreator\DelphiAIDev.ModuleCreator.Interfaces.pas',
63+
DelphiAIDev.IDE.ImageListMain in '..\Src\IDE\ImageListMain\DelphiAIDev.IDE.ImageListMain.pas';
64+
65+
end.

‎Package/DelphiCopilot.dproj renamed to ‎Package/DelphiAIDeveloper.dproj

Lines changed: 30 additions & 30 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22
<PropertyGroup>
33
<ProjectGuid>{7EF46619-47CC-4A26-9369-BCDD8C5ECFA8}</ProjectGuid>
4-
<MainSource>DelphiCopilot.dpk</MainSource>
4+
<MainSource>DelphiAIDeveloper.dpk</MainSource>
55
<ProjectVersion>18.8</ProjectVersion>
66
<FrameworkType>VCL</FrameworkType>
77
<Base>True</Base>
@@ -66,7 +66,7 @@
6666
<GenPackage>true</GenPackage>
6767
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
6868
<DCC_CBuilderOutput>All</DCC_CBuilderOutput>
69-
<SanitizedProjectName>DelphiCopilot</SanitizedProjectName>
69+
<SanitizedProjectName>DelphiAIDeveloper</SanitizedProjectName>
7070
<DCC_UnitSearchPath>modules\.dcp;modules\.dcu;modules;modules\restrequest4delphi\src;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
7171
<VerInfo_Locale>1046</VerInfo_Locale>
7272
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
@@ -122,45 +122,45 @@
122122
<DCCReference Include="rtl.dcp"/>
123123
<DCCReference Include="designide.dcp"/>
124124
<DCCReference Include="RESTComponents.dcp"/>
125-
<DCCReference Include="..\Src\DelphiCopilot.Register.pas"/>
126-
<DCCReference Include="..\Src\Chat\DelphiCopilot.Chat.View.pas">
125+
<DCCReference Include="..\Src\DelphiAIDeveloper.Register.pas"/>
126+
<DCCReference Include="..\Src\Chat\DelphiAIDev.Chat.View.pas">
127127
<Form>DelphiCopilotChatView</Form>
128128
</DCCReference>
129-
<DCCReference Include="..\Src\Utils\DelphiCopilot.Utils.OTA.pas"/>
130-
<DCCReference Include="..\Src\Utils\DelphiCopilot.Utils.pas"/>
131-
<DCCReference Include="..\Src\Types\DelphiCopilot.Types.pas"/>
132-
<DCCReference Include="..\Src\Consts\DelphiCopilot.Consts.pas"/>
133-
<DCCReference Include="..\Src\View\DelphiCopilot.View.Dialog.pas">
129+
<DCCReference Include="..\Src\Utils\DelphiAIDev.Utils.OTA.pas"/>
130+
<DCCReference Include="..\Src\Utils\DelphiAIDev.Utils.pas"/>
131+
<DCCReference Include="..\Src\Types\DelphiAIDev.Types.pas"/>
132+
<DCCReference Include="..\Src\Consts\DelphiAIDev.Consts.pas"/>
133+
<DCCReference Include="..\Src\View\DelphiAIDev.View.Dialog.pas">
134134
<Form>DelphiCopilotViewDialog</Form>
135135
</DCCReference>
136-
<DCCReference Include="..\Src\WaitingScreen\DelphiCopilot.WaitingScreen.pas"/>
137-
<DCCReference Include="..\Src\WaitingScreen\DelphiCopilot.WaitingScreen.View.pas">
136+
<DCCReference Include="..\Src\WaitingScreen\DelphiAIDev.WaitingScreen.pas"/>
137+
<DCCReference Include="..\Src\WaitingScreen\DelphiAIDev.WaitingScreen.View.pas">
138138
<Form>DelphiCopilotWaitingScreenView</Form>
139139
</DCCReference>
140-
<DCCReference Include="..\Src\View\DelphiCopilot.View.Memo.pas">
140+
<DCCReference Include="..\Src\View\DelphiAIDev.View.Memo.pas">
141141
<Form>DelphiCopilotViewMemo</Form>
142142
</DCCReference>
143-
<DCCReference Include="..\Src\MainMenu\DelphiCopilot.MainMenu.Register.pas"/>
144-
<DCCReference Include="..\Src\MainMenu\DelphiCopilot.MainMenu.pas"/>
145-
<DCCReference Include="..\Src\MainMenu\DelphiCopilot.MainMenu.Clicks.pas"/>
146-
<DCCReference Include="..\Src\View\DelphiCopilot.View.About.pas">
143+
<DCCReference Include="..\Src\MainMenu\DelphiAIDev.MainMenu.Register.pas"/>
144+
<DCCReference Include="..\Src\MainMenu\DelphiAIDev.MainMenu.pas"/>
145+
<DCCReference Include="..\Src\MainMenu\DelphiAIDev.MainMenu.Clicks.pas"/>
146+
<DCCReference Include="..\Src\View\DelphiAIDev.View.About.pas">
147147
<Form>DelphiCopilotViewAbout</Form>
148148
</DCCReference>
149149
<DCCReference Include="..\Src\Test\Test.pas"/>
150-
<DCCReference Include="..\Src\Settings\DelphiCopilot.Settings.View.pas">
150+
<DCCReference Include="..\Src\Settings\DelphiAIDev.Settings.View.pas">
151151
<Form>DelphiCopilotSettingsView</Form>
152152
<FormType>dfm</FormType>
153153
</DCCReference>
154-
<DCCReference Include="..\Src\Settings\DelphiCopilot.Settings.pas"/>
155-
<DCCReference Include="..\Src\Chat\DelphiCopilot.Chat.pas"/>
156-
<DCCReference Include="..\Src\AI\DelphiCopilot.AI.Gemini.pas"/>
157-
<DCCReference Include="..\Src\AI\DelphiCopilot.AI.ChatGPT.pas"/>
158-
<DCCReference Include="..\Src\AI\DelphiCopilot.AI.Interfaces.pas"/>
159-
<DCCReference Include="..\Src\Interfaces\DelphiCopilot.Interfaces.pas"/>
160-
<DCCReference Include="..\Src\ModuleCreator\DelphiCopilot.ModuleCreator.OTA.pas"/>
161-
<DCCReference Include="..\Src\ModuleCreator\DelphiCopilot.ModuleCreator.pas"/>
162-
<DCCReference Include="..\Src\ModuleCreator\DelphiCopilot.ModuleCreator.Interfaces.pas"/>
163-
<DCCReference Include="..\Src\IDE\ImageListMain\DelphiCopilot.IDE.ImageListMain.pas"/>
154+
<DCCReference Include="..\Src\Settings\DelphiAIDev.Settings.pas"/>
155+
<DCCReference Include="..\Src\Chat\DelphiAIDev.Chat.pas"/>
156+
<DCCReference Include="..\Src\AI\DelphiAIDev.AI.Gemini.pas"/>
157+
<DCCReference Include="..\Src\AI\DelphiAIDev.AI.ChatGPT.pas"/>
158+
<DCCReference Include="..\Src\AI\DelphiAIDev.AI.Interfaces.pas"/>
159+
<DCCReference Include="..\Src\Interfaces\DelphiAIDev.Interfaces.pas"/>
160+
<DCCReference Include="..\Src\ModuleCreator\DelphiAIDev.ModuleCreator.OTA.pas"/>
161+
<DCCReference Include="..\Src\ModuleCreator\DelphiAIDev.ModuleCreator.pas"/>
162+
<DCCReference Include="..\Src\ModuleCreator\DelphiAIDev.ModuleCreator.Interfaces.pas"/>
163+
<DCCReference Include="..\Src\IDE\ImageListMain\DelphiAIDev.IDE.ImageListMain.pas"/>
164164
<RcItem Include="Img\c4d_gear.bmp">
165165
<ResourceType>BITMAP</ResourceType>
166166
<ResourceId>c4d_gear</ResourceId>
@@ -199,7 +199,7 @@
199199
<BorlandProject>
200200
<Delphi.Personality>
201201
<Source>
202-
<Source Name="MainSource">DelphiCopilot.dpk</Source>
202+
<Source Name="MainSource">DelphiAIDeveloper.dpk</Source>
203203
</Source>
204204
<Excluded_Packages>
205205
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl\HcConnection.bpl">HcComponentes - HcConnection</Excluded_Packages>
@@ -225,9 +225,9 @@
225225
<Overwrite>true</Overwrite>
226226
</Platform>
227227
</DeployFile>
228-
<DeployFile LocalName="C:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl\DelphiCopilot.bpl" Configuration="Debug" Class="ProjectOutput">
228+
<DeployFile LocalName="C:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl\DelphiAIDeveloper.bpl" Configuration="Debug" Class="ProjectOutput">
229229
<Platform Name="Win32">
230-
<RemoteName>DelphiCopilot.bpl</RemoteName>
230+
<RemoteName>DelphiAIDeveloper.bpl</RemoteName>
231231
<Overwrite>true</Overwrite>
232232
</Platform>
233233
</DeployFile>

‎Package/DelphiAIDeveloper.res

688 Bytes
Binary file not shown.

‎Package/DelphiCopilot.dpk

Lines changed: 0 additions & 65 deletions
This file was deleted.

‎Package/DelphiCopilot.res

-664 Bytes
Binary file not shown.

‎README.md

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1 +1 @@
1-
# Delphi-Copilot
1+
# Delphi AI Developer

‎Src/AI/DelphiCopilot.AI.ChatGPT.pas renamed to ‎Src/AI/DelphiAIDev.AI.ChatGPT.pas

Lines changed: 11 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
unit DelphiCopilot.AI.ChatGPT;
1+
unit DelphiAIDev.AI.ChatGPT;
22

33
interface
44

@@ -7,37 +7,37 @@ interface
77
System.JSON,
88
System.Classes,
99
RESTRequest4D,
10-
DelphiCopilot.Utils,
11-
DelphiCopilot.Settings,
12-
DelphiCopilot.AI.Interfaces;
10+
DelphiAIDev.Utils,
11+
DelphiAIDev.Settings,
12+
DelphiAIDev.AI.Interfaces;
1313

1414
type
15-
TDelphiCopilotAIChatGPT = class(TInterfacedObject, IDelphiCopilotAI)
15+
TDelphiAIDevAIChatGPT = class(TInterfacedObject, IDelphiAIDevAI)
1616
private
17-
FSettings: TDelphiCopilotSettings;
17+
FSettings: TDelphiAIDevSettings;
1818
protected
1919
function GetResponse(const AQuestion: string): string;
2020
public
21-
class function New(const ASettings: TDelphiCopilotSettings): IDelphiCopilotAI;
22-
constructor Create(const ASettings: TDelphiCopilotSettings);
21+
class function New(const ASettings: TDelphiAIDevSettings): IDelphiAIDevAI;
22+
constructor Create(const ASettings: TDelphiAIDevSettings);
2323
end;
2424

2525
implementation
2626

2727
const
2828
API_JSON_BODY_BASE = '{"model": "%s", "messages": [{"role": "user", "content": "%s"}], "stream": false, "max_tokens": 2048}';
2929

30-
class function TDelphiCopilotAIChatGPT.New(const ASettings: TDelphiCopilotSettings): IDelphiCopilotAI;
30+
class function TDelphiAIDevAIChatGPT.New(const ASettings: TDelphiAIDevSettings): IDelphiAIDevAI;
3131
begin
3232
Result := Self.Create(ASettings);
3333
end;
3434

35-
constructor TDelphiCopilotAIChatGPT.Create(const ASettings: TDelphiCopilotSettings);
35+
constructor TDelphiAIDevAIChatGPT.Create(const ASettings: TDelphiAIDevSettings);
3636
begin
3737
FSettings := ASettings;
3838
end;
3939

40-
function TDelphiCopilotAIChatGPT.GetResponse(const AQuestion: string): string;
40+
function TDelphiAIDevAIChatGPT.GetResponse(const AQuestion: string): string;
4141
var
4242
LQuestion: string;
4343
LApiUrl: string;

‎Src/AI/DelphiCopilot.AI.Gemini.pas renamed to ‎Src/AI/DelphiAIDev.AI.Gemini.pas

Lines changed: 11 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
unit DelphiCopilot.AI.Gemini;
1+
unit DelphiAIDev.AI.Gemini;
22

33
interface
44

@@ -7,37 +7,37 @@ interface
77
System.JSON,
88
System.Classes,
99
RESTRequest4D,
10-
DelphiCopilot.Utils,
11-
DelphiCopilot.Settings,
12-
DelphiCopilot.AI.Interfaces;
10+
DelphiAIDev.Utils,
11+
DelphiAIDev.Settings,
12+
DelphiAIDev.AI.Interfaces;
1313

1414
type
15-
TDelphiCopilotAIGemini = class(TInterfacedObject, IDelphiCopilotAI)
15+
TDelphiAIDevAIGemini = class(TInterfacedObject, IDelphiAIDevAI)
1616
private
17-
FSettings: TDelphiCopilotSettings;
17+
FSettings: TDelphiAIDevSettings;
1818
protected
1919
function GetResponse(const AQuestion: string): string;
2020
public
21-
class function New(const ASettings: TDelphiCopilotSettings): IDelphiCopilotAI;
22-
constructor Create(const ASettings: TDelphiCopilotSettings);
21+
class function New(const ASettings: TDelphiAIDevSettings): IDelphiAIDevAI;
22+
constructor Create(const ASettings: TDelphiAIDevSettings);
2323
end;
2424

2525
implementation
2626

2727
const
2828
API_JSON_BODY_BASE = '{"contents": [{"parts": [ {"text": "%s"}]}]}';
2929

30-
class function TDelphiCopilotAIGemini.New(const ASettings: TDelphiCopilotSettings): IDelphiCopilotAI;
30+
class function TDelphiAIDevAIGemini.New(const ASettings: TDelphiAIDevSettings): IDelphiAIDevAI;
3131
begin
3232
Result := Self.Create(ASettings);
3333
end;
3434

35-
constructor TDelphiCopilotAIGemini.Create(const ASettings: TDelphiCopilotSettings);
35+
constructor TDelphiAIDevAIGemini.Create(const ASettings: TDelphiAIDevSettings);
3636
begin
3737
FSettings := ASettings;
3838
end;
3939

40-
function TDelphiCopilotAIGemini.GetResponse(const AQuestion: string): string;
40+
function TDelphiAIDevAIGemini.GetResponse(const AQuestion: string): string;
4141
var
4242
LApiUrl: string;
4343
LResponse: IResponse;

‎Src/AI/DelphiCopilot.AI.Interfaces.pas renamed to ‎Src/AI/DelphiAIDev.AI.Interfaces.pas

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,9 +1,9 @@
1-
unit DelphiCopilot.AI.Interfaces;
1+
unit DelphiAIDev.AI.Interfaces;
22

33
interface
44

55
type
6-
IDelphiCopilotAI = interface
6+
IDelphiAIDevAI = interface
77
['{2B55607E-0A53-469F-8E63-FA467BFD021B}']
88
function GetResponse(const AQuestion: string): string;
99
end;

‎Src/Chat/DelphiCopilot.Chat.View.dfm renamed to ‎Src/Chat/DelphiAIDev.Chat.View.dfm

Lines changed: 3 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1,8 +1,8 @@
1-
object DelphiCopilotChatView: TDelphiCopilotChatView
1+
object DelphiAIDevChatView: TDelphiAIDevChatView
22
Left = 0
33
Top = 0
44
BorderIcons = [biSystemMenu, biMaximize]
5-
Caption = 'Copilot Chat'
5+
Caption = 'Delphi AI Developer Chat'
66
ClientHeight = 661
77
ClientWidth = 975
88
Color = clBtnFace
@@ -138,7 +138,7 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
138138
Left = 0
139139
Top = 3
140140
Width = 56
141-
Height = 20
141+
Height = 13
142142
Cursor = crHandPoint
143143
Hint = 'AI being used'
144144
Margins.Left = 0
@@ -149,7 +149,6 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
149149
Caption = 'lbCurrentAI'
150150
PopupMenu = pMenuCurrentAI
151151
OnClick = lbCurrentAIClick
152-
ExplicitHeight = 13
153152
end
154153
object btnSend: TButton
155154
AlignWithMargins = True

0 commit comments

Comments
 (0)