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

trunk/UCore.pas

@@ -87 +87 @@
 procedure TCore.ADatabaseConnectExecute(Sender: TObject);
 begin
-  if FormDatabases.ShowModal = mrOk then begin
-    DbClient := nil;
-    DbClient := FormDatabases.SelectedProfile.GetClient;
+  with TFormDatabases.Create(nil) do
+  try
+    if ShowModal = mrOk then begin
+      DbClient := nil;
+      DbClient := SelectedProfile.GetClient;
+    end;
+  finally
+    Free;
   end;
 end;
@@ -106 +111 @@
 procedure TCore.APreferencesExecute(Sender: TObject);
 begin
-  FormPreferences.Load(Preferences);
-  if FormPreferences.ShowModal = mrOk then begin
-    FormPreferences.Save(Preferences);
+  with TFormPreferences.Create(nil) do
+  try
+    Load(Preferences);
+    if ShowModal = mrOk then Save(Preferences);
+  finally
+    Free;
   end;
 end;
@@ -125 +133 @@
   if FDbClient = AValue then Exit;
   if Assigned(FDbClient) then begin
+    FormMain.FormTables.DbClient := nil;
     DbClient.Save;
-    FDbClient.Free;
+    FreeAndNil(FDbClient);
   end;
   FDbClient := AValue;
@@ -132 +141 @@
     DbClient.Load;
     Preferences.LastDatabaseName := FDbClient.ConnectProfile.Name;
-    FormTables.DbClient := DbClient;
+    FormMain.FormTables.DbClient := DbClient;
   end;
   UpdateInterface;
@@ -176 +185 @@
       Translator1.POFilesFolder := '/usr/share/MyData/languages';
     {$ENDIF}
-    FormConnect.Init;
     Initialized := True;
     LoadConfig;
-    FormDatabases.ReloadList;
     UpdateInterface;
     if Preferences.RememberDatabase then begin