Changeset 28 for trunk/Forms/UFormDatabases.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/UFormDatabases.pas (modified) (5 diffs)

trunk/Forms/UFormDatabases.pas

@@ -43 +43 @@
   end;
 
-var
-  FormDatabases: TFormDatabases;
 
 implementation
@@ -52 +50 @@
 uses
   UCore, UFormConnect;
+
+resourcestring
+  SRemoveDatabaseConnection = 'Remove database connection';
+  SRemoveDatabaseConnectionQuery = 'Do you want to really remove database connection %s?';
+  SNewDatabase = 'New database';
 
 { TFormDatabases }
@@ -71 +74 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    if MessageDlg('Remove database connection', 'Do you want to really remove database connection ' +
-    TDbConnectProfile(ListView1.Selected.Data).Name, mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
+    if MessageDlg(SRemoveDatabaseConnection, Format(SRemoveDatabaseConnectionQuery, [
+    TDbConnectProfile(ListView1.Selected.Data).Name]), mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
       Core.DbManager.ConnectProfiles.Remove(ListView1.Selected.Data);
       ReloadList;
@@ -84 +87 @@
 begin
   NewConnectProfile := TDbConnectProfile.Create;
-  NewConnectProfile.Name := 'New database';
-  FormConnect.Load(NewConnectProfile);
-  if FormConnect.ShowModal = mrOk then begin
-    FormConnect.Save(NewConnectProfile);
-    Core.DbManager.ConnectProfiles.Add(NewConnectProfile);
-    ReloadList;
-  end else NewConnectProfile.Free;
+  NewConnectProfile.Name := SNewDatabase;
+  with TFormConnect.Create(nil) do
+  try
+    Load(NewConnectProfile);
+    if ShowModal = mrOk then begin
+      Save(NewConnectProfile);
+      Core.DbManager.ConnectProfiles.Add(NewConnectProfile);
+      ReloadList;
+    end else NewConnectProfile.Free;
+  finally
+    Free;
+  end;
 end;
 
@@ -96 +104 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    FormConnect.Load(TDbConnectProfile(ListView1.Selected.Data));
-    if FormConnect.ShowModal = mrOk then begin
-      FormConnect.Save(TDbConnectProfile(ListView1.Selected.Data));
-      ReloadList;
+    with TFormConnect.Create(nil) do
+    try
+      Load(TDbConnectProfile(ListView1.Selected.Data));
+      if ShowModal = mrOk then begin
+        Save(TDbConnectProfile(ListView1.Selected.Data));
+        ReloadList;
+      end;
+    finally
+      Free;
     end;
   end;