Skip to content

Commit 0ada226

Browse files
Cesar4DCesar4D
committed
bk/2024-06-15-0321
1 parent 5e2b7e9 commit 0ada226

4 files changed

Lines changed: 159 additions & 102 deletions

File tree

‎Src/AI/DelphiCopilot.AI.ChatGPT.pas‎

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,10 +52,7 @@ function TDelphiCopilotAIChatGPT.GetResponse(const AQuestion: string): string;
5252
begin
5353
Result := '';
5454
LApiUrl := FSettings.BaseUrlOpenAI;
55-
56-
TUtils.ShowMsgSynchronize(AQuestion);
5755
LQuestion := AQuestion.Replace(sLineBreak, '\n', [rfReplaceAll, rfIgnoreCase]);
58-
TUtils.ShowMsgSynchronize(LQuestion);
5956

6057
LResponse := TRequest.New
6158
.BaseURL(LApiUrl)

‎Src/Chat/DelphiCopilot.Chat.View.dfm‎

Lines changed: 101 additions & 83 deletions
Original file line numberDiff line numberDiff line change
@@ -17,6 +17,7 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
1717
ShowHint = True
1818
OnActivate = FormActivate
1919
OnClose = FormClose
20+
OnResize = FormResize
2021
OnShow = FormShow
2122
DesignSize = (
2223
975
@@ -157,7 +158,6 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
157158
Width = 74
158159
Height = 20
159160
Cursor = crHandPoint
160-
Margins.Left = 0
161161
Margins.Top = 0
162162
Margins.Right = 0
163163
Margins.Bottom = 0
@@ -166,6 +166,24 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
166166
TabOrder = 0
167167
OnClick = btnSendClick
168168
end
169+
object btnUseCurrentUnitData: TButton
170+
AlignWithMargins = True
171+
Left = 653
172+
Top = 3
173+
Width = 208
174+
Height = 20
175+
Cursor = crHandPoint
176+
Hint = 'Use data from current unit in query'
177+
Margins.Top = 0
178+
Margins.Right = 0
179+
Margins.Bottom = 0
180+
Align = alRight
181+
Caption = '* Use data from current unit in query* '
182+
ImageIndex = 1
183+
Images = ImageList1
184+
TabOrder = 1
185+
OnClick = btnUseCurrentUnitDataClick
186+
end
169187
end
170188
end
171189
object pnWait: TPanel
@@ -390,143 +408,143 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
390408
Left = 96
391409
Top = 240
392410
Bitmap = {
393-
494C010101003000040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
411+
494C010102003000040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
394412
0000000000003600000028000000400000001000000001002000000000000010
395-
000000000000000000000000000000000000000000FF000000FF000000FF0000
396-
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
397-
00FF000000FF000000FF000000FF000000FF0000000000000000000000000000
398-
0000000000000000000000000000000000000000000000000000000000000000
399-
0000000000000000000000000000000000000000000000000000000000000000
400-
0000000000000000000000000000000000000000000000000000000000000000
401-
0000000000000000000000000000000000000000000000000000000000000000
402-
0000000000000000000000000000000000000000000000000000000000000000
403-
000000000000000000000000000000000000000000FF000000FF000000FFAD73
404-
8400B5848400B5848400B5848400B5848400B5848400B5848400B5848400B584
405-
8400B5848400B5848400B5848400000000FF0000000000000000000000000000
406-
0000000000000000000000000000000000000000000000000000000000000000
407-
0000000000000000000000000000000000000000000000000000000000000000
408-
0000000000000000000000000000000000000000000000000000000000000000
409-
0000000000000000000000000000000000000000000000000000000000000000
410413
0000000000000000000000000000000000000000000000000000000000000000
411-
000000000000000000000000000000000000000000FF000000FF000000FFAD73
412-
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
413-
FF00FFFFFF00FFFFFF00B5848400000000FF0000000000000000000000000000
414+
0000000000000000000000000000000000000000000000000000999999009999
415+
9900999999009999990000000000000000000000000000000000000000000000
416+
0000000000000000000000000000000000000000000000000000555555005555
417+
5500555555005555550000000000000000000000000000000000000000000000
414418
0000000000000000000000000000000000000000000000000000000000000000
415419
0000000000000000000000000000000000000000000000000000000000000000
416420
0000000000000000000000000000000000000000000000000000000000000000
421+
0000000000000000000000000000000000000000000000000000000000009696
422+
9600969696009696960000000000000000000000000099999900E3E3E300CCCC
423+
CC00C0C0C000C0C0C00096969600000000000000000000000000000000004D4D
424+
4D004D4D4D004D4D4D0000000000000000000000000055555500CBCBCB00A4A0
425+
A00096969600969696004D4D4D00000000000000000000000000000000000000
417426
0000000000000000000000000000000000000000000000000000000000000000
418427
0000000000000000000000000000000000000000000000000000000000000000
419-
000000000000000000000000000000000000000000FF000000FF000000FFAD73
420-
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
421-
FF00FFFFFF00FFFFFF00B5848400000000FF0000000000000000000000000000
422428
0000000000000000000000000000000000000000000000000000000000000000
429+
0000000000000000000000000000000000000000000000000000969696009999
430+
9900A4A0A000B2B2B2009696960096969600000000009999990096969600CBCB
431+
CB00B2B2B200A4A0A000868686000000000000000000000000004D4D4D005555
432+
550066666600777777004D4D4D004D4D4D0000000000555555004D4D4D009999
433+
9900808080006666660042424200000000000000000000000000000000000000
423434
0000000000000000000000000000000000000000000000000000000000000000
424435
0000000000000000000000000000000000000000000000000000000000000000
425436
0000000000000000000000000000000000000000000000000000000000000000
437+
0000000000000000000000000000000000000000000096969600C0C0C0009999
438+
9900B2B2B200A4A0A000B2B2B200B2B2B20096969600CCCCCC00CBCBCB009696
439+
960096969600868686000000000000000000000000004D4D4D00868686005555
440+
5500777777005F5F5F0066996600777777004D4D4D00A4A0A000999999004D4D
441+
4D004D4D4D003939390000000000000000000000000000000000000000000000
426442
0000000000000000000000000000000000000000000000000000000000000000
427-
000000000000000000000000000000000000000000FF000000FF000000FFAD73
428-
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
429-
FF00FFFFFF00FFFFFF00B5848400000000FF0000000000000000000000000000
430443
0000000000000000000000000000000000000000000000000000000000000000
431444
0000000000000000000000000000000000000000000000000000000000000000
445+
00000000000000000000000000000000000096969600C0C0C000E3E3E3009999
446+
9900B2B2B200A4A0A000A4A0A000B2B2B20096969600B2B2B200CBCBCB00D7D7
447+
D700D7D7D700D7D7D700B2B2B200868686004D4D4D0096969600C0C0C0005555
448+
5500777777005F5F5F0033993300666699004D4D4D00FF990000FFCC3300FFCC
449+
6600FFCC6600CC99990077777700393939000000000000000000000000000000
432450
0000000000000000000000000000000000000000000000000000000000000000
433451
0000000000000000000000000000000000000000000000000000000000000000
434452
0000000000000000000000000000000000000000000000000000000000000000
435-
000000000000000000000000000000000000000000FF000000FF000000FFAD73
436-
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
437-
FF00FFFFFF00FFFFFF00B5848400000000FF0000000000000000000000000000
453+
00000000000000000000000000000000000096969600EAEAEA00D7D7D7009696
454+
9600B2B2B200B2B2B200A4A0A000969696009696960099999900A4A0A000C0C0
455+
C000C0C0C000C0C0C000C0C0C000868686004D4D4D00CCCCCC00B2B2B2005555
456+
550077777700777777006666990033669900006699003366660099993300FF99
457+
3300FF993300FF993300FF993300424242000000000000000000000000000000
438458
0000000000000000000000000000000000000000000000000000000000000000
439459
0000000000000000000000000000000000000000000000000000000000000000
440460
0000000000000000000000000000000000000000000000000000000000000000
461+
00000000000000000000000000000000000096969600EAEAEA00D7D7D7008686
462+
8600999999009999990096969600A4A0A000B2B2B200A4A0A00096969600B2B2
463+
B200CCCCCC00CBCBCB00B2B2B200868686004D4D4D00CCCCCC00B2B2B2000033
464+
99003366660033666600006699000066CC003399FF000066CC00006699009999
465+
6600FFCC6600FFCC3300FF993300393939000000000000000000000000000000
441466
0000000000000000000000000000000000000000000000000000000000000000
442467
0000000000000000000000000000000000000000000000000000000000000000
443-
000000000000000000000000000000000000000000FF000000FF000000FFAD73
444-
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
445-
FF00FFFFFF00FFFFFF00B5848400000000FF0000000000000000000000000000
446468
0000000000000000000000000000000000000000000000000000000000000000
469+
00000000000000000000000000000000000096969600EAEAEA00D7D7D7008686
470+
86009696960099999900C0C0C000B2B2B20096969600A4A0A000A4A0A0008686
471+
8600C0C0C000D7D7D700C0C0C000808080004D4D4D00CCCCCC00B2B2B2000033
472+
99000066CC000066CC003399FF003399CC000066990066666600336699000033
473+
990086868600FFCC6600FF993300333333000000000000000000000000000000
447474
0000000000000000000000000000000000000000000000000000000000000000
448475
0000000000000000000000000000000000000000000000000000000000000000
449476
0000000000000000000000000000000000000000000000000000000000000000
477+
00000000000000000000000000000000000096969600EAEAEA00D7D7D7008686
478+
8600A4A0A000B2B2B200B2B2B2009696960096969600CCCCCC00DDDDDD00C0C0
479+
C00099999900D7D7D700CBCBCB00777777004D4D4D00D7D7D700B2B2B2000033
480+
99000066FF000099FF003366CC00336666004D4D4D00FFCC6600FFCC99006699
481+
990033669900FFCC6600FFCC3300292929000000000000000000000000000000
450482
0000000000000000000000000000000000000000000000000000000000000000
451-
000000000000000000000000000000000000000000FF000000FF000000FFAD73
452-
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
453-
FF00FFFFFF00FFFFFF00B5848400000000FF0000000000000000000000000000
454483
0000000000000000000000000000000000000000000000000000000000000000
455484
0000000000000000000000000000000000000000000000000000000000000000
485+
00000000000000000000000000000000000096969600F1F1F100DDDDDD008686
486+
8600A4A0A000B2B2B200A4A0A0009696960096969600B2B2B200C0C0C000CBCB
487+
CB00C0C0C000CCCCCC00CBCBCB00777777004D4D4D00DDDDDD00C0C0C0000033
488+
99000066FF000099FF000066CC00336699004D4D4D008080800099996600A4A0
489+
A00099996600CCCC6600CC996600222222000000000000000000000000000000
456490
0000000000000000000000000000000000000000000000000000000000000000
457491
0000000000000000000000000000000000000000000000000000000000000000
458492
0000000000000000000000000000000000000000000000000000000000000000
459-
000000000000000000000000000000000000000000FF000000FF000000FFAD73
460-
8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
461-
FF00FFFFFF00FFFFFF00B5848400000000FF0000000000000000000000000000
493+
00000000000000000000000000000000000096969600FFFFFF00E3E3E3008686
494+
860086868600868686008686860086868600B2B2B20096969600969696009696
495+
9600969696009696960080808000000000004D4D4D00F1F1F100CBCBCB000033
496+
990000339900003399000033990000339900666699004D4D4D004D4D4D004D4D
497+
4D004D4D4D004D4D4D0039393900000000000000000000000000000000000000
462498
0000000000000000000000000000000000000000000000000000000000000000
463499
0000000000000000000000000000000000000000000000000000000000000000
464500
0000000000000000000000000000000000000000000000000000000000000000
501+
00000000000000000000000000000000000096969600F1F1F100C0C0C0009999
502+
9900CCCCCC0099999900A4A0A000B2B2B200C0C0C00096969600000000000000
503+
0000000000000000000000000000000000004D4D4D00DDDDDD00969696005555
504+
5500A4A0A000555555005F5F5F0077777700969696004D4D4D00000000000000
465505
0000000000000000000000000000000000000000000000000000000000000000
466506
0000000000000000000000000000000000000000000000000000000000000000
467-
000000000000000000000000000000000000000000FF000000FF3184FF003184
468-
FF003184FF00F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7
469-
F700F7F7F700F7F7F700B5848400000000FF0000000000000000000000000000
470507
0000000000000000000000000000000000000000000000000000000000000000
471508
0000000000000000000000000000000000000000000000000000000000000000
509+
00000000000000000000000000000000000096969600CCCCCC00F1F1F100C0C0
510+
C000B2B2B200B2B2B200C0C0C000A4A0A000A4A0A00096969600000000000000
511+
0000000000000000000000000000000000004D4D4D00A4A0A000DDDDDD009696
512+
9600777777008080800096969600666666005F5F5F004D4D4D00000000000000
472513
0000000000000000000000000000000000000000000000000000000000000000
473514
0000000000000000000000000000000000000000000000000000000000000000
474515
0000000000000000000000000000000000000000000000000000000000000000
475-
000000000000000000000000000000000000000000FF000000FF3184FF0042B5
476-
F7003184FF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00EFEF
477-
EF00EFEFEF00EFEFEF00B5848400000000FF0000000000000000000000000000
478516
0000000000000000000000000000000000000000000000000000000000000000
517+
00000000000000000000000000000000000096969600FFFFFF00FFFFFF00F8F8
518+
F800DDDDDD00CCCCCC00C0C0C000C0C0C000C0C0C00096969600000000000000
519+
0000000000000000000000000000000000004D4D4D00FFFFFF00F1F1F100E3E3
520+
E300C0C0C000A4A0A0008686860080808000808080004D4D4D00000000000000
479521
0000000000000000000000000000000000000000000000000000000000000000
480522
0000000000000000000000000000000000000000000000000000000000000000
481523
0000000000000000000000000000000000000000000000000000000000000000
482524
0000000000000000000000000000000000000000000000000000000000000000
483-
0000000000000000000000000000000000003184FF003184FF003184FF0042B5
484-
F7003184FF003184FF003184FF00E7E7E700E7E7E700E7E7E700E7E7E700B584
485-
7300B5948C00B58C8400B5848400000000FF0000000000000000000000000000
525+
000000000000000000000000000000000000A4A0A00096969600FFFFFF00FFFF
526+
FF00FFFFFF00EAEAEA00CCCCCC00969696009696960000000000000000000000
527+
000000000000000000000000000000000000666666004D4D4D00FFFFFF00FFFF
528+
FF00F8F8F800D7D7D700A4A0A0004D4D4D004D4D4D0000000000000000000000
486529
0000000000000000000000000000000000000000000000000000000000000000
487530
0000000000000000000000000000000000000000000000000000000000000000
488531
0000000000000000000000000000000000000000000000000000000000000000
489532
0000000000000000000000000000000000000000000000000000000000000000
490-
0000000000000000000000000000000000000000000000000000000000000000
491-
0000000000000000000000000000000000003184FF008CD6F700B5DEF700B5DE
492-
F700B5DEF7008CD6F7003184FF00DEDEDE00DEDEDE00DEDEDE00C6C6C600B584
493-
7300FFFFFF00FFFFFF00B5848400000000FF0000000000000000000000000000
494-
0000000000000000000000000000000000000000000000000000000000000000
495-
0000000000000000000000000000000000000000000000000000000000000000
496-
0000000000000000000000000000000000000000000000000000000000000000
497-
0000000000000000000000000000000000000000000000000000000000000000
498-
0000000000000000000000000000000000000000000000000000000000000000
499-
0000000000000000000000000000000000003184FF003184FF003184FF00B5DE
500-
F7003184FF003184FF003184FF00D6D6D600D6D6D600D6D6D600C6C6C600B584
501-
7300FFFFFF00B5848400000000FF000000FF0000000000000000000000000000
502-
0000000000000000000000000000000000000000000000000000000000000000
503-
0000000000000000000000000000000000000000000000000000000000000000
504-
0000000000000000000000000000000000000000000000000000000000000000
505-
0000000000000000000000000000000000000000000000000000000000000000
506-
0000000000000000000000000000000000000000000000000000000000000000
507-
000000000000000000000000000000000000000000FF000000FF3184FF00B5DE
508-
F7003184FF00CECECE00CECECE00CECECE00CECECE00CECECE00C6C6C600B584
509-
7300B5848400000000FF000000FF000000FF0000000000000000000000000000
510-
0000000000000000000000000000000000000000000000000000000000000000
511-
0000000000000000000000000000000000000000000000000000000000000000
512-
0000000000000000000000000000000000000000000000000000000000000000
513-
0000000000000000000000000000000000000000000000000000000000000000
514-
0000000000000000000000000000000000000000000000000000000000000000
515-
000000000000000000000000000000000000000000FF000000FF3184FF003184
516-
FF003184FF00EFD6C600EFD6C600EFD6C600EFD6C600EFD6C600D6BDB500B584
517-
7300000000FF000000FF000000FF000000FF0000000000000000000000000000
518-
0000000000000000000000000000000000000000000000000000000000000000
533+
0000000000000000000000000000000000000000000000000000969696009696
534+
9600969696009696960096969600000000000000000000000000000000000000
535+
00000000000000000000000000000000000000000000000000004D4D4D004D4D
536+
4D004D4D4D004D4D4D004D4D4D00000000000000000000000000000000000000
519537
0000000000000000000000000000000000000000000000000000000000000000
520538
0000000000000000000000000000000000000000000000000000000000000000
521539
0000000000000000000000000000000000000000000000000000000000000000
522540
0000000000000000000000000000000000000000000000000000000000000000
523541
000000000000000000000000000000000000424D3E000000000000003E000000
524542
2800000040000000100000000100010000000000800000000000000000000000
525-
000000000000000000000000FFFFFF00FFFF000000000000E001000000000000
526-
E001000000000000E001000000000000E001000000000000E001000000000000
527-
E001000000000000E001000000000000E001000000000000C001000000000000
528-
C001000000000000000100000000000000010000000000000003000000000000
529-
C007000000000000C00F00000000000000000000000000000000000000000000
543+
000000000000000000000000FFFFFF00FFC3FFC300000000E381E38100000000
544+
C081C08100000000800380030000000000000000000000000000000000000000
545+
0000000000000000000000000000000000000000000000000000000000000000
546+
0001000100000000003F003F00000000003F003F00000000003F003F00000000
547+
007F007F00000000C1FFC1FF0000000000000000000000000000000000000000
530548
000000000000}
531549
end
532550
object pMenuMemoReturn: TPopupMenu
@@ -558,8 +576,8 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
558576
end
559577
object pMenuCurrentAI: TPopupMenu
560578
OnPopup = pMenuCurrentAIPopup
561-
Left = 106
562-
Top = 599
579+
Left = 26
580+
Top = 583
563581
object Gemini1: TMenuItem
564582
Caption = 'Gemini'
565583
OnClick = Gemini1Click

0 commit comments

Comments
 (0)