hotfix/chamada-tela-db-chat

Author: Cesar4D

Src/DB/Chat/DelphiAIDev.DB.Chat.View.dfm

@@ -17,7 +17,6 @@ object DelphiAIDevDBChatView: TDelphiAIDevDBChatView
   ShowHint = True
   OnActivate = FormActivate
   OnClose = FormClose
-  OnCreate = FormCreate
   OnResize = FormResize
   OnShow = FormShow
   DesignSize = (

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

@@ -134,7 +134,6 @@   TDelphiAIDevDBChatView = class(TDockableForm)
     procedure btnCleanAllClick(Sender: TObject);
     procedure btnExecuteSQLClick(Sender: TObject);
     procedure cBoxDatabasesClick(Sender: TObject);
-    procedure FormCreate(Sender: TObject);
     procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
     procedure CopyCurrentColumn1Click(Sender: TObject);
     procedure CopyCurrentLine1Click(Sender: TObject);
@@ -248,6 +247,7 @@ constructor TDelphiAIDevDBChatView.Create(AOwner: TComponent);
 
   Self.ConfScreenOnCreate;
   Self.FillMemoReturnWithFile;
+  TUtilsDBGrids.ConfDBGrid(DBGrid1);
 end;
 
 destructor TDelphiAIDevDBChatView.Destroy;
@@ -281,11 +281,6 @@ procedure TDelphiAIDevDBChatView.FormActivate(Sender: TObject);
   end;
 end;
 
-procedure TDelphiAIDevDBChatView.FormCreate(Sender: TObject);
-begin
-  TUtilsDBGrids.ConfDBGrid(DBGrid1);
-end;
-
 procedure TDelphiAIDevDBChatView.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
   Self.WaitingFormOFF;