Changeset 32 for trunk/Forms/FormConnect.pas

Timestamp:

Jun 29, 2024, 7:58:36 AM (3 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from units names.
• Modified: Use TFormEx for all forms.

File:

• trunk/Forms/FormConnect.pas (moved) (moved from trunk/Forms/UFormConnect.pas ) (8 diffs)

trunk/Forms/FormConnect.pas

@@ -1 @@
-unit UFormConnect;
+unit FormConnect;
 
 interface
@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, Spin, UDatabase;
+  ComCtrls, Spin, DbEngine, FormEx;
 
 type
@@ -11 +11 @@
   { TFormConnect }
 
-  TFormConnect = class(TForm)
+  TFormConnect = class(TFormEx)
     ButtonXmlBrowse: TButton;
     ButtonOk: TButton;
@@ -33 +33 @@
     procedure ButtonXmlBrowseClick(Sender: TObject);
     procedure ComboBoxDbEnginesChange(Sender: TObject);
-    procedure FormCreate(Sender: TObject);
+  private
+    FDbManager: TDbManager;
+    procedure SetDbManager(AValue: TDbManager);
   public
     procedure Load(ConnectProfile: TDbConnectProfile);
@@ -39 +41 @@
     procedure ReloadDbEngines;
     procedure UpdateInterface;
+    property DbManager: TDbManager read FDbManager write SetDbManager;
   end;
 
@@ -47 +50 @@
 
 uses
-  UCore, UEngineXML, UEngineMySQL;
+  EngineXML, EngineMySQL;
 
 resourcestring
@@ -69 +72 @@
 end;
 
-procedure TFormConnect.FormCreate(Sender: TObject);
+procedure TFormConnect.SetDbManager(AValue: TDbManager);
 begin
+  if FDbManager = AValue then Exit;
+  FDbManager := AValue;
   ReloadDbEngines;
 end;
@@ -110 +115 @@
   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]);
+    for I := 0 to DbManager.ClientTypes.Count - 1 do
+      ComboBoxDbEngines.Items.AddObject(DbManager.ClientTypes[I].Name,
+        DbManager.ClientTypes[I]);
   finally
     ComboBoxDbEngines.Items.Endupdate;