Skip to content

Commit 73479d3

Browse files
Cesar4DCesar4D
committed
bk/2024-06-24-1601
1 parent dda1cdb commit 73479d3

14 files changed

+1061
-10
lines changed

‎Package/DelphiAIDeveloper.dpk‎

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -74,6 +74,9 @@ contains
7474
C4D.Conn.Interfaces in '..\Src\Conn\C4D.Conn.Interfaces.pas',
7575
C4D.Conn in '..\Src\Conn\C4D.Conn.pas',
7676
C4D.Conn.Types in '..\Src\Conn\C4D.Conn.Types.pas',
77-
C4D.Conn.Utils in '..\Src\Conn\C4D.Conn.Utils.pas';
77+
C4D.Conn.Utils in '..\Src\Conn\C4D.Conn.Utils.pas',
78+
DelphiAIDev.DefaultsQuestions.View in '..\Src\DefaultsQuestions\DelphiAIDev.DefaultsQuestions.View.pas' {DelphiAIDevDefaultsQuestionsView},
79+
DelphiAIDev.Utils.ListView in '..\Src\Utils\DelphiAIDev.Utils.ListView.pas',
80+
DelphiAIDev.Utils.GetIniPositionStr in '..\Src\Utils\DelphiAIDev.Utils.GetIniPositionStr.pas';
7881

7982
end.

‎Package/DelphiAIDeveloper.dproj‎

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -175,6 +175,12 @@
175175
<DCCReference Include="..\Src\Conn\C4D.Conn.pas"/>
176176
<DCCReference Include="..\Src\Conn\C4D.Conn.Types.pas"/>
177177
<DCCReference Include="..\Src\Conn\C4D.Conn.Utils.pas"/>
178+
<DCCReference Include="..\Src\DefaultsQuestions\DelphiAIDev.DefaultsQuestions.View.pas">
179+
<Form>DelphiAIDevDefaultsQuestionsView</Form>
180+
<FormType>dfm</FormType>
181+
</DCCReference>
182+
<DCCReference Include="..\Src\Utils\DelphiAIDev.Utils.ListView.pas"/>
183+
<DCCReference Include="..\Src\Utils\DelphiAIDev.Utils.GetIniPositionStr.pas"/>
178184
<RcItem Include="Img\c4d_gear.bmp">
179185
<ResourceType>BITMAP</ResourceType>
180186
<ResourceId>c4d_gear</ResourceId>

‎Src/AI/DelphiAIDev.AI.Interfaces.pas‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@ interface
44

55
type
66
IDelphiAIDevAI = interface
7-
['{2B55607E-0A53-469F-8E63-FA467BFD021B}']
7+
['{B82FACA6-66DA-4DC0-877F-8263B5C172C1}']
88
function GetResponse(const AQuestion: string): string;
99
end;
1010

‎Src/Conn/C4D.Conn.Configs.pas‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -19,7 +19,9 @@ TC4DConnConfigs = class
1919
constructor Create;
2020
destructor Destroy; override;
2121
function ComponentConnection: TComponentConnection;
22+
{$IFDEF C4DConnZeos}
2223
function ComponentConnectionZeos: TC4DConnConfigs;
24+
{$ENDIF}
2325
function ComponentConnectionFireDac: TC4DConnConfigs;
2426
function ConnectionSingleton: Boolean;
2527
function ConnectionSingletonON: TC4DConnConfigs;
@@ -54,6 +56,7 @@ function TC4DConnConfigs.ComponentConnection: TComponentConnection;
5456
Result := FComponentConnection;
5557
end;
5658

59+
{$IFDEF C4DConnZeos}
5760
function TC4DConnConfigs.ComponentConnectionZeos: TC4DConnConfigs;
5861
begin
5962
Result := Self;
@@ -62,6 +65,7 @@ function TC4DConnConfigs.ComponentConnectionZeos: TC4DConnConfigs;
6265

6366
FComponentConnection := TComponentConnection.Zeos;
6467
end;
68+
{$ENDIF}
6569

6670
function TC4DConnConfigs.ComponentConnectionFireDac: TC4DConnConfigs;
6771
begin

‎Src/Conn/C4D.Conn.Interfaces.pas‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -9,7 +9,7 @@ interface
99

1010
type
1111
IC4DConnection = interface
12-
['{1495345D-9D24-4BA6-B9F5-830514B06DBD}']
12+
['{F76544A9-F17F-4220-8C9E-A99D3A1A9DEC}']
1313
function Component: TComponent;
1414
function Open: IC4DConnection;
1515
function Close: IC4DConnection;
@@ -23,7 +23,7 @@ interface
2323
end;
2424

2525
IC4DConnQuery = interface
26-
['{4510C139-4A3F-4602-9B17-F93D00C5825F}']
26+
['{9F8958BA-2128-4D47-B2F5-F42B449B0E3C}']
2727
function Close: IC4DConnQuery;
2828
function Clear: IC4DConnQuery;
2929
function CloseClear: IC4DConnQuery;
@@ -69,7 +69,7 @@ interface
6969
end;
7070

7171
IC4DConn = interface
72-
['{89324C16-161B-449E-AD00-2F1AACC30CA3}']
72+
['{0940FDA5-86DA-495A-B3A9-949869639B3F}']
7373
function Configs: TC4DConnConfigs;
7474
function Connection: IC4DConnection;
7575
function Query: IC4DConnQuery; overload;

‎Src/Consts/DelphiAIDev.Consts.pas‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -47,6 +47,10 @@ TConsts = class
4747
//MAIN MENU IDE NAME AND CAPTIONS
4848
MENU_IDE_CHAT_NAME = 'DelphiAIDevChat1';
4949
MENU_IDE_CHAT_CAPTION = 'Chat';
50+
51+
MENU_IDE_DEFAULTS_QUESTIONS_NAME = 'DelphiAIDevDefaultsQuestions1';
52+
MENU_IDE_DEFAULTS_QUESTIONS_CAPTION = 'Defaults questions';
53+
5054
MENU_IDE_CHAT_SETTINGS_NAME = 'DelphiAIDevSettings1';
5155
MENU_IDE_CHAT_SETTINGS_CAPTION = 'Settings';
5256
MENU_IDE_SETTINGS_NAME = 'C4DWizarSettings1';

‎Src/DefaultsQuestions/DelphiAIDev.DefaultsQuestions.View.dfm‎

Lines changed: 210 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,210 @@
1+
object DelphiAIDevDefaultsQuestionsView: TDelphiAIDevDefaultsQuestionsView
2+
Left = 0
3+
Top = 0
4+
BorderIcons = [biSystemMenu]
5+
Caption = 'IA Developer - Defaults questions'
6+
ClientHeight = 561
7+
ClientWidth = 884
8+
Color = clBtnFace
9+
Font.Charset = DEFAULT_CHARSET
10+
Font.Color = clWindowText
11+
Font.Height = -11
12+
Font.Name = 'Tahoma'
13+
Font.Style = []
14+
KeyPreview = True
15+
OldCreateOrder = False
16+
Position = poScreenCenter
17+
OnClose = FormClose
18+
OnCreate = FormCreate
19+
OnKeyDown = FormKeyDown
20+
OnShow = FormShow
21+
PixelsPerInch = 96
22+
TextHeight = 13
23+
object Panel1: TPanel
24+
Left = 0
25+
Top = 507
26+
Width = 884
27+
Height = 35
28+
Align = alBottom
29+
BevelEdges = [beLeft, beRight, beBottom]
30+
BevelOuter = bvNone
31+
Padding.Left = 2
32+
Padding.Top = 2
33+
Padding.Right = 2
34+
Padding.Bottom = 2
35+
ParentBackground = False
36+
TabOrder = 0
37+
object btnEdit: TButton
38+
AlignWithMargins = True
39+
Left = 124
40+
Top = 2
41+
Width = 120
42+
Height = 31
43+
Cursor = crHandPoint
44+
Margins.Left = 0
45+
Margins.Top = 0
46+
Margins.Right = 2
47+
Margins.Bottom = 0
48+
Align = alLeft
49+
Caption = 'Edit'
50+
TabOrder = 0
51+
OnClick = btnEditClick
52+
end
53+
object btnClose: TButton
54+
AlignWithMargins = True
55+
Left = 770
56+
Top = 2
57+
Width = 110
58+
Height = 31
59+
Cursor = crHandPoint
60+
Margins.Left = 0
61+
Margins.Top = 0
62+
Margins.Right = 2
63+
Margins.Bottom = 0
64+
Align = alRight
65+
Caption = 'Close'
66+
TabOrder = 1
67+
OnClick = btnCloseClick
68+
end
69+
object btnAdd: TButton
70+
AlignWithMargins = True
71+
Left = 2
72+
Top = 2
73+
Width = 120
74+
Height = 31
75+
Cursor = crHandPoint
76+
Margins.Left = 0
77+
Margins.Top = 0
78+
Margins.Right = 2
79+
Margins.Bottom = 0
80+
Align = alLeft
81+
Caption = 'Add new'
82+
TabOrder = 2
83+
OnClick = btnAddClick
84+
end
85+
object btnRemove: TButton
86+
AlignWithMargins = True
87+
Left = 246
88+
Top = 2
89+
Width = 120
90+
Height = 31
91+
Cursor = crHandPoint
92+
Margins.Left = 0
93+
Margins.Top = 0
94+
Margins.Right = 2
95+
Margins.Bottom = 0
96+
Align = alLeft
97+
Caption = 'Remove'
98+
TabOrder = 3
99+
OnClick = btnRemoveClick
100+
end
101+
end
102+
object ListViewHistory: TListView
103+
Left = 0
104+
Top = 50
105+
Width = 884
106+
Height = 457
107+
Align = alClient
108+
Columns = <
109+
item
110+
Caption = 'Question'
111+
Width = 570
112+
end
113+
item
114+
Alignment = taRightJustify
115+
Caption = 'Order'
116+
Width = 43
117+
end
118+
item
119+
Alignment = taCenter
120+
Caption = 'Visible'
121+
Width = 45
122+
end
123+
item
124+
Alignment = taCenter
125+
Caption = 'CodeOnly'
126+
Width = 70
127+
end
128+
item
129+
Alignment = taCenter
130+
Caption = 'Id'
131+
end
132+
item
133+
Alignment = taCenter
134+
Caption = 'IdParent'
135+
Width = 70
136+
end>
137+
Font.Charset = DEFAULT_CHARSET
138+
Font.Color = clWindowText
139+
Font.Height = -12
140+
Font.Name = 'Tahoma'
141+
Font.Style = []
142+
ReadOnly = True
143+
RowSelect = True
144+
ParentFont = False
145+
SortType = stText
146+
TabOrder = 1
147+
ViewStyle = vsReport
148+
OnColumnClick = ListViewHistoryColumnClick
149+
OnDblClick = ListViewHistoryDblClick
150+
OnKeyDown = ListViewHistoryKeyDown
151+
OnSelectItem = ListViewHistorySelectItem
152+
end
153+
object pnTop: TPanel
154+
Left = 0
155+
Top = 0
156+
Width = 884
157+
Height = 50
158+
Margins.Left = 0
159+
Margins.Top = 0
160+
Margins.Right = 0
161+
Margins.Bottom = 0
162+
Align = alTop
163+
BevelOuter = bvNone
164+
TabOrder = 2
165+
object btnSearch: TButton
166+
AlignWithMargins = True
167+
Left = 799
168+
Top = 14
169+
Width = 75
170+
Height = 27
171+
Cursor = crHandPoint
172+
Margins.Left = 2
173+
Margins.Top = 14
174+
Margins.Right = 10
175+
Margins.Bottom = 9
176+
Align = alRight
177+
Caption = 'Search'
178+
TabOrder = 0
179+
OnClick = btnSearchClick
180+
end
181+
object edtSearch: TEdit
182+
AlignWithMargins = True
183+
Left = 10
184+
Top = 15
185+
Width = 787
186+
Height = 25
187+
Margins.Left = 10
188+
Margins.Top = 15
189+
Margins.Right = 0
190+
Margins.Bottom = 10
191+
Align = alClient
192+
AutoSize = False
193+
TabOrder = 1
194+
OnKeyDown = edtSearchKeyDown
195+
end
196+
end
197+
object StatusBar1: TStatusBar
198+
Left = 0
199+
Top = 542
200+
Width = 884
201+
Height = 19
202+
Panels = <
203+
item
204+
Width = 50
205+
end
206+
item
207+
Width = 50
208+
end>
209+
end
210+
end

0 commit comments

Comments
 (0)