Changeset 253 for trunk/Forms

Timestamp:

Sep 22, 2018, 11:11:38 PM (6 years ago)

Author:

chronos

Message:

• Modified: Version 1.3.0 related changes.
• Fixed: Fullscreen mode under Windows.

File:

• trunk/Forms/UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.pas

@@ -83 +83 @@
   private
     FormActivated: Boolean;
+    FormShown: Boolean;
     procedure ApplicationStart(Ptr: IntPtr);
     procedure UpdateClientForms;
@@ -245 +246 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
-  Core.LoadConfig;
-  Core.ScaleDPI;
-  Core.PersistentForm.Load(Self, True);
-  Core.ThemeManager1.UseTheme(Self);
-  Core.Init;
-  LoadConfig(Core.XMLConfig1, 'FormMain');
-  ReloadView;
-  FormClient.Show;
-  UpdateClientForms;
-  Application.QueueAsyncCall(ApplicationStart, 0);
+  if not FormShown then begin
+    Core.LoadConfig;
+    Core.ScaleDPI;
+    Core.PersistentForm.Load(Self, True);
+    Core.ThemeManager1.UseTheme(Self);
+    Core.Init;
+    LoadConfig(Core.XMLConfig1, 'FormMain');
+    ReloadView;
+    FormClient.Show;
+    UpdateClientForms;
+    Application.QueueAsyncCall(ApplicationStart, 0);
+    FormShown := True;
+  end;
 end;