Skip to content

Commit e9113e4

Browse files
Cesar4DCesar4D
committed
refactor/various-improvements
1 parent 0fb4cd4 commit e9113e4

File tree

5 files changed

+72
-22
lines changed

5 files changed

+72
-22
lines changed

‎Src/Chat/DelphiAIDev.Chat.View.dfm‎

Lines changed: 43 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -285,7 +285,7 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
285285
Left = 936
286286
Top = 8
287287
Width = 26
288-
Height = 95
288+
Height = 115
289289
Margins.Left = 0
290290
Margins.Top = 0
291291
Margins.Right = 0
@@ -296,12 +296,12 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
296296
TabOrder = 3
297297
DesignSize = (
298298
26
299-
95)
299+
115)
300300
object ShapeCommands: TShape
301301
Left = 0
302302
Top = 0
303303
Width = 26
304-
Height = 95
304+
Height = 115
305305
Margins.Left = 0
306306
Margins.Top = 0
307307
Margins.Right = 0
@@ -315,7 +315,7 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
315315
object btnCopy: TSpeedButton
316316
AlignWithMargins = True
317317
Left = 0
318-
Top = 23
318+
Top = 46
319319
Width = 26
320320
Height = 23
321321
Cursor = crHandPoint
@@ -354,7 +354,8 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
354354
FFFF00FFFF00FFFF00FFFF00FFB58C8CB58C8CB58C8CB58C8CB58C8CB58C8CB5
355355
8C8CBD8484FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
356356
OnClick = btnCopyClick
357-
ExplicitTop = 24
357+
ExplicitLeft = -8
358+
ExplicitTop = 55
358359
end
359360
object btnInsertAtCursor: TSpeedButton
360361
AlignWithMargins = True
@@ -389,7 +390,7 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
389390
object btnMoreActions: TSpeedButton
390391
AlignWithMargins = True
391392
Left = 0
392-
Top = 69
393+
Top = 92
393394
Width = 26
394395
Height = 23
395396
Cursor = crHandPoint
@@ -408,7 +409,7 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
408409
object btnCreateNewUnit: TSpeedButton
409410
AlignWithMargins = True
410411
Left = 0
411-
Top = 46
412+
Top = 23
412413
Width = 26
413414
Height = 23
414415
Cursor = crHandPoint
@@ -447,7 +448,41 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
447448
84FF00FFFF00FFFF00FFFF00FFFF00FF3184FF3184FF3184FFEFD6C6EFD6C6EF
448449
D6C6EFD6C6EFD6C6D6BDB5B58473FF00FFFF00FFFF00FFFF00FF}
449450
OnClick = btnCreateNewUnitClick
450-
ExplicitTop = 55
451+
end
452+
object btnCleanAll: TSpeedButton
453+
AlignWithMargins = True
454+
Left = 0
455+
Top = 69
456+
Width = 26
457+
Height = 23
458+
Cursor = crHandPoint
459+
Hint = 'Clean all and start a new chat'
460+
Margins.Left = 0
461+
Margins.Top = 0
462+
Margins.Right = 0
463+
Margins.Bottom = 0
464+
Align = alTop
465+
Flat = True
466+
Glyph.Data = {
467+
1A020000424D1A020000000000001A0100002800000010000000100000000100
468+
08000000000000010000210B0000210B00003900000039000000EA8F3100B66A
469+
5000AB735800C07B5800EAA15800FFB65800AB6A6000B67B6000C0846000A16A
470+
6A00A1736A00C0846A00A17B7300B68F7B00EAC07B00F4C07B00B68F8400EAC0
471+
8400F4C08400F4CA8400B6988F00C0988F00F4CA8F00C0A19800CAA19800B6AB
472+
9800F4CA9800F4D49800CAABA100D4ABA100D4B6A100E0B6A100EAB6A100EAC0
473+
A100F4CAA100F4D4A100FFD4A100EAC0AB00F4D4AB00E0D4B600F4D4B600F4E0
474+
B600E0C0C000E0CAC000F4E0C000E0CACA00F4E0CA00FFE0CA00FFEACA00FFEA
475+
D400FFEAE000FFF4E000FFF4EA00FFF4F400FFFFF400FF00FF00FFFFFF003737
476+
0909090909090909090909090937373710302926231A16110E0E0E1309373737
477+
10302C2826221611110E0E110937373714322E2C2826221A11110E1109373737
478+
14332E2C292823221A11110E093737371736322E2E2C2826221A111109373737
479+
183834322E2C2928261A1616093737371C383534312E2C292826221A09373737
480+
1C38383534322E2C28262323093737371D3838383532312E2C28282209373737
481+
1E3838383835323131302719093737371F383838383834342E0D0C0A09373737
482+
1F383838383838362A0204000137373725383838383838382B07050337373737
483+
1F353434343434342A070B37373737371F212121211F1F211C0637373737}
484+
OnClick = btnCleanAllClick
485+
ExplicitTop = 92
451486
end
452487
end
453488
object ImageList1: TImageList
@@ -787,10 +822,6 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
787822
Caption = 'Save content to file'
788823
OnClick = SaveContentToFile1Click
789824
end
790-
object ClearContent1: TMenuItem
791-
Caption = 'Clear content'
792-
OnClick = ClearContent1Click
793-
end
794825
end
795826
object pMenuQuestions: TPopupMenu
796827
Left = 522

‎Src/Chat/DelphiAIDev.Chat.View.pas‎

Lines changed: 9 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -63,7 +63,6 @@ TDelphiAIDevChatView = class(TDockableForm)
6363
pMenuMoreActions: TPopupMenu;
6464
SaveContentToFile1: TMenuItem;
6565
btnCreateNewUnit: TSpeedButton;
66-
ClearContent1: TMenuItem;
6766
Clear1: TMenuItem;
6867
N2: TMenuItem;
6968
WordWrap1: TMenuItem;
@@ -72,6 +71,7 @@ TDelphiAIDevChatView = class(TDockableForm)
7271
btnCodeOnly: TButton;
7372
btnDefaultsQuestions: TButton;
7473
pMenuQuestions: TPopupMenu;
74+
btnCleanAll: TSpeedButton;
7575
procedure FormShow(Sender: TObject);
7676
procedure cBoxSizeFontKeyPress(Sender: TObject; var Key: Char);
7777
procedure Cut1Click(Sender: TObject);
@@ -92,13 +92,13 @@ TDelphiAIDevChatView = class(TDockableForm)
9292
procedure btnMoreActionsClick(Sender: TObject);
9393
procedure SaveContentToFile1Click(Sender: TObject);
9494
procedure btnCreateNewUnitClick(Sender: TObject);
95-
procedure ClearContent1Click(Sender: TObject);
9695
procedure btnUseCurrentUnitCodeClick(Sender: TObject);
9796
procedure FormResize(Sender: TObject);
9897
procedure WordWrap1Click(Sender: TObject);
9998
procedure btnCodeOnlyClick(Sender: TObject);
10099
procedure btnDefaultsQuestionsClick(Sender: TObject);
101100
procedure Clear1Click(Sender: TObject);
101+
procedure btnCleanAllClick(Sender: TObject);
102102
private
103103
FChat: TDelphiAIDevChat;
104104
FSettings: TDelphiAIDevSettings;
@@ -446,7 +446,7 @@ procedure TDelphiAIDevChatView.ProcessSend;
446446
TThread.Synchronize(nil,
447447
procedure
448448
begin
449-
Self.AddResponseSimple('Unable to perform processing.' + sLineBreak + E.Message);
449+
Self.AddResponseSimple('Unable to perform processing.' + sLineBreak + TUtils.GetExceptionMessage(E));
450450
Abort;
451451
end);
452452
end;
@@ -715,11 +715,6 @@ procedure TDelphiAIDevChatView.Clear1Click(Sender: TObject);
715715
mmReturn.Lines.Clear;
716716
end;
717717

718-
procedure TDelphiAIDevChatView.ClearContent1Click(Sender: TObject);
719-
begin
720-
mmReturn.Lines.Clear;
721-
end;
722-
723718
procedure TDelphiAIDevChatView.btnMoreActionsClick(Sender: TObject);
724719
begin
725720
pMenuMoreActions.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
@@ -780,6 +775,12 @@ procedure TDelphiAIDevChatView.Gemini1Click(Sender: TObject);
780775
Self.ConfLabelCurrentAI;
781776
end;
782777

778+
procedure TDelphiAIDevChatView.btnCleanAllClick(Sender: TObject);
779+
begin
780+
mmQuestion.Lines.Clear;
781+
mmReturn.Lines.Clear;
782+
end;
783+
783784
initialization
784785

785786
finalization

‎Src/Consts/DelphiAIDev.Consts.pas‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@ interface
55
type
66
TConsts = class
77
public const
8-
SEMANTIC_VERSION = '1.6.0';
8+
SEMANTIC_VERSION = '1.7.0';
99
SEMANTIC_VERSION_LB = 'Version: ' + SEMANTIC_VERSION;
1010
WIN_CONTROL_FOCU_NIL = nil;
1111
DELPHI_AI_DEVELOPER_DPROJ = 'DelphiAIDeveloper.dproj';

‎Src/DefaultsQuestions/DelphiAIDev.DefaultsQuestions.PopupMenu.pas‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -51,7 +51,7 @@ destructor TDelphiAIDevDefaultsQuestionsPopupMenu.Destroy;
5151
end;
5252

5353
procedure TDelphiAIDevDefaultsQuestionsPopupMenu.CreateMenus(const APopupMenu: TPopupMenu);
54-
begin TUtils.ShowMsg('CreateMenus');
54+
begin
5555
FPopupMenu := APopupMenu;
5656
FPopupMenu.Items.Clear;
5757

‎Src/Utils/DelphiAIDev.Utils.pas‎

Lines changed: 18 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -27,6 +27,7 @@ TUtils = class
2727
class function ShowMsgInternal(const AMsg, ADetails: string; const AIcon: TC4DIcon;
2828
const AButtons: TC4DButtons; const ABtnFocu: TC4DBtnFocu; const AWinControlFocu: TWinControl): Boolean;
2929
public
30+
class function GetExceptionMessage(const E: Exception): string;
3031
class function StrToDefaultsQuestionsKind(Value: string): TC4DQuestionKind;
3132
class procedure DefaultsQuestionsKindFillItemsTStrings(AStrings: TStrings);
3233
class function AdjustQuestionToJson(const AValue: string): string;
@@ -136,6 +137,23 @@ implementation
136137
DelphiAIDev.View.Dialog,
137138
DelphiAIDev.WaitingScreen;
138139

140+
//Winapi.WinInet
141+
//class function TUtils.TestInternetConnection: Boolean;
142+
//var
143+
// LFlags: DWord;
144+
//begin
145+
// Result := InternetGetConnectedState(@LFlags, 0);
146+
// if Result then
147+
// Result := InternetCheckConnection('http://google.com', 1, 0);
148+
//end;
149+
150+
class function TUtils.GetExceptionMessage(const E: Exception): string;
151+
begin
152+
Result := E.Message;
153+
if Result.Contains('(12007)')then
154+
Result := sLineBreak + '* Check Your Internet Connection *' + sLineBreak + sLineBreak + Result;
155+
end;
156+
139157
class function TUtils.StrToDefaultsQuestionsKind(Value: string): TC4DQuestionKind;
140158
begin
141159
Result := TC4DQuestionKind.None;

0 commit comments

Comments
 (0)