Changeset 115 for trunk/UCore.pas

Timestamp:

Dec 10, 2016, 3:52:26 PM (7 years ago)

Author:

chronos

Message:

• Fixed: In Debug mode also check executed classes references.
• Modified: Better About dialog.
• Modified: About and Help dialogs are created in time when they are shown.

File:

• trunk/UCore.pas (modified) (2 diffs)

trunk/UCore.pas

@@ -233 +233 @@
 procedure TCore.AAboutExecute(Sender: TObject);
 begin
-  FormAbout.ShowModal;
+  FormAbout := TFormAbout.Create(Self);
+  try
+    FormAbout.ShowModal;
+  finally
+    FreeAndNil(FormAbout);
+  end;
 end;
 
@@ -321 +326 @@
 procedure TCore.AHelpExecute(Sender: TObject);
 begin
-  FormHelp.ShowModal;
+  FormHelp := TFormHelp.Create(Self);
+  try
+    FormHelp.ShowModal;
+  finally
+    FreeAndNil(FormHelp);
+  end;
 end;