Changeset 28 for trunk/Forms/UFormConnect.pas

Timestamp:

Sep 10, 2022, 10:21:48 PM (2 years ago)

Author:

chronos

Message:

• Modified: Do not create all application forms at initialization phase but dynamically.

File:

• trunk/Forms/UFormConnect.pas (modified) (7 diffs)

trunk/Forms/UFormConnect.pas

@@ -15 +15 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
-    ComboBox1: TComboBox;
+    ComboBoxDbEngines: TComboBox;
     EditHost: TEdit;
     EditXml: TEdit;
@@ -32 +32 @@
     TabSheetSql: TTabSheet;
     procedure ButtonXmlBrowseClick(Sender: TObject);
-    procedure ComboBox1Change(Sender: TObject);
-    procedure FormShow(Sender: TObject);
+    procedure ComboBoxDbEnginesChange(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
   public
     procedure Load(ConnectProfile: TDbConnectProfile);
     procedure Save(ConnectProfile: TDbConnectProfile);
-    procedure Init;
+    procedure ReloadDbEngines;
     procedure UpdateInterface;
   end;
-
-var
-  FormConnect: TFormConnect;
 
 
@@ -52 +49 @@
   UCore, UEngineXML, UEngineMySQL;
 
+resourcestring
+  SAnyFile = 'Any file';
+  SXmlFiles = 'XML files';
+
 { TFormConnect }
-
-procedure TFormConnect.FormShow(Sender: TObject);
-begin
-end;
 
 procedure TFormConnect.ButtonXmlBrowseClick(Sender: TObject);
 begin
-  OpenDialog1.Filter := 'XML files (.xml)|*.xml|Any file|*.*';
+  OpenDialog1.Filter := SXmlFiles + ' (.xml)|*.xml|' + SAnyFile + '|*.*';
   OpenDialog1.InitialDir := ExtractFileDir(EditXml.Text);
   OpenDialog1.FileName := ExtractFileName(EditXml.Text);
@@ -67 +64 @@
 end;
 
-procedure TFormConnect.ComboBox1Change(Sender: TObject);
+procedure TFormConnect.ComboBoxDbEnginesChange(Sender: TObject);
 begin
   UpdateInterface;
+end;
+
+procedure TFormConnect.FormCreate(Sender: TObject);
+begin
+  ReloadDbEngines;
 end;
 
@@ -76 +78 @@
   EditName.Text := ConnectProfile.Name;
   //EditConnectionString.Text := Database.ConnectionString;
-  ComboBox1.ItemIndex := ComboBox1.Items.IndexOfObject(ConnectProfile.ClientType);
-  if (ComboBox1.ItemIndex = -1) and (ComboBox1.Items.Count > 0) then
-    ComboBox1.ItemIndex := 0;
+  ComboBoxDbEngines.ItemIndex := ComboBoxDbEngines.Items.IndexOfObject(ConnectProfile.ClientType);
+  if (ComboBoxDbEngines.ItemIndex = -1) and (ComboBoxDbEngines.Items.Count > 0) then
+    ComboBoxDbEngines.ItemIndex := 0;
   if ConnectProfile.Params is TDbConnectParamsXml then
     EditXml.Text := TDbConnectParamsXml(ConnectProfile.Params).FileName;
@@ -92 +94 @@
   ConnectProfile.Name := EditName.Text;
   //DatabaseClient.ConnectionString := EditConnectionString.Text;
-  ConnectProfile.ClientType := TDbClientType(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
+  ConnectProfile.ClientType := TDbClientType(ComboBoxDbEngines.Items.Objects[ComboBoxDbEngines.ItemIndex]);
   if ConnectProfile.Params is TDbConnectParamsXml then
     TDbConnectParamsXml(ConnectProfile.Params).FileName := EditXml.Text;
@@ -101 +103 @@
 end;
 
-procedure TFormConnect.Init;
+procedure TFormConnect.ReloadDbEngines;
 var
   I: Integer;
 begin
-  ComboBox1.Items.Clear;
-  for I := 0 to Core.DbManager.ClientTypes.Count - 1 do
-    ComboBox1.Items.AddObject(TDbClientType(Core.DbManager.ClientTypes[I]).Name,
-      Core.DbManager.ClientTypes[I]);
+  ComboBoxDbEngines.Items.BeginUpdate;
+  try
+    ComboBoxDbEngines.Items.Clear;
+    for I := 0 to Core.DbManager.ClientTypes.Count - 1 do
+      ComboBoxDbEngines.Items.AddObject(Core.DbManager.ClientTypes[I].Name,
+        Core.DbManager.ClientTypes[I]);
+  finally
+    ComboBoxDbEngines.Items.Endupdate;
+  end;
 end;
 
 procedure TFormConnect.UpdateInterface;
 begin
-  PageControl1.TabIndex := ComboBox1.ItemIndex;
+  PageControl1.TabIndex := ComboBoxDbEngines.ItemIndex;
 end;