bk/2024-09-02-1148

Author: Cesar4D

Src/DB/Chat/DelphiAIDev.DB.Chat.View.pas

@@ -245,17 +245,10 @@ constructor TDelphiAIDevDBChatView.Create(AOwner: TComponent);
   FConn := TC4DConn.New;
   FQueryExecuteSQL := FConn.Query.DataSource(DataSource1);
 
-
   Self.ConfScreenOnCreate;
   Self.FillMemoReturnWithFile;
 end;
 
-procedure TDelphiAIDevDBChatView.DBGrid1DrawColumnCell(Sender: TObject;
-  const Rect: TRect; DataCol: Integer; Column: TColumn;  State: TGridDrawState);
-begin
-  TUtilsDBGrids.DrawColumnCell(TDBGrid(Sender), Rect, DataCol, Column, Vcl.Grids.TGridDrawState(State));
-end;
-
 destructor TDelphiAIDevDBChatView.Destroy;
 begin
   Self.SaveMemoReturnInFile;
@@ -297,6 +290,12 @@ procedure TDelphiAIDevDBChatView.FormClose(Sender: TObject; var Action: TCloseAc
   Self.WaitingFormOFF;
 end;
 
+procedure TDelphiAIDevDBChatView.DBGrid1DrawColumnCell(Sender: TObject;
+  const Rect: TRect; DataCol: Integer; Column: TColumn;  State: TGridDrawState);
+begin
+  TUtilsDBGrids.DrawColumnCell(TDBGrid(Sender), Rect, DataCol, Column, Vcl.Grids.TGridDrawState(State));
+end;
+
 procedure TDelphiAIDevDBChatView.ConfScreenOnCreate;
 begin
   mmReturn.Lines.Clear;

Src/DB/Registers/DelphiAIDev.DB.Registers.Fields.pas

@@ -73,4 +73,5 @@ procedure TDelphiAIDevDBRegistersFields.GetDataFromOtherObject(const AOtherObj:
   FLastReferences := AOtherObj.LastReferences;
 end;
 
+
 end.

Src/DelphiAIDev.Register.pas

@@ -4,10 +4,10 @@ interface
 
 uses
   DelphiAIDev.Chat.View,
+  DelphiAIDev.DB.Chat.View,
   DelphiAIDev.MainMenu.Register,
   DelphiAIDev.KeyboardBinding,
   DelphiAIDev.PopupMenuProjects,
-  DelphiAIDev.DB.Chat.View,
   DelphiAIDev.IDE.OTAIDENotifier;
 
 procedure Register;
@@ -17,10 +17,10 @@ implementation
 procedure Register;
 begin
   DelphiAIDev.Chat.View.RegisterSelf;
+  DelphiAIDev.DB.Chat.View.RegisterSelf;
   DelphiAIDev.MainMenu.Register.RegisterSelf;
   DelphiAIDev.KeyboardBinding.RefreshRegister;
   DelphiAIDev.PopupMenuProjects.RegisterSelf;
-  DelphiAIDev.DB.Chat.View.RegisterSelf;
   DelphiAIDev.IDE.OTAIDENotifier.RegisterSelf;
 end;
 

Src/MainMenu/DelphiAIDev.MainMenu.Clicks.pas

@@ -31,7 +31,6 @@ implementation
   DelphiAIDev.Settings.View,
   DelphiAIDev.View.About;
 
-
 class procedure TDelphiAIDevIDEMainMenuClicks.ChatClick(Sender: TObject);
 begin
   DelphiAIDev.Chat.View.DelphiAIDevChatViewShowDockableForm;

Src/Settings/DelphiAIDev.Settings.View.dfm

@@ -207,7 +207,7 @@ object DelphiAIDevSettingsView: TDelphiAIDevSettingsView
     Top = 33
     Width = 667
     Height = 521
-    ActivePage = TabSheet4
+    ActivePage = TabSheet3
     TabOrder = 1
     object TabSheet1: TTabSheet
       Caption = 'Preferences'
@@ -981,7 +981,7 @@ object DelphiAIDevSettingsView: TDelphiAIDevSettingsView
               Width = 82
               Height = 13
               Cursor = crHandPoint
-              Hint = 'https://ollama.com/'
+              Hint = 'https://ollama.com/download'
               Caption = 'Ollama Download'
               Font.Charset = DEFAULT_CHARSET
               Font.Color = clBlue

Src/Test/DelphiAIDev.Test.Client.pas

@@ -10,16 +10,13 @@   TDelphiAIDevTestClient = class
     FBairro: string;
     FNumero: Integer;
     FTelefone: string;
-    FEmail: string;
-    FSalario: Double;
+
   public
     property Nome: string read FNome write FNome;
     property Endereco: string read FEndereco write FEndereco;
     property Bairro: string read FBairro write FBairro;
     property Numero: Integer read FNumero write FNumero;
     property Telefone: string read FTelefone write FTelefone;
-    property Email: string read FEmail write FEmail;
-    property Salario: Double read FSalario write FSalario;
 
     procedure Clear;
   end;
@@ -28,7 +25,11 @@ implementation
 
 procedure TDelphiAIDevTestClient.Clear;
 begin
-
+  FNome := '';
+  FEndereco := '';
+  FBairro := '';
+  FNumero := 0;
+  FTelefone := '';
 end;
 
 end.

Src/Test/DelphiAIDev.Test.pas

@@ -23,15 +23,15 @@   TDelphiAIDevTest = class
     property Email: string read FEmail write FEmail;
     property DataNascimento: TDateTime read FDataNascimento write FDataNascimento;
     property Apelido: string read FApelido write FApelido;
-
-
+    property Cep: Integer read FCep write FCep;
     procedure Clear;
   end;
 
 implementation
 
 procedure TDelphiAIDevTest.Clear;
 begin
+
 end;
 
 end.