Changeset 148 for trunk/Forms

Timestamp:

Jun 5, 2024, 8:50:50 AM (7 months ago)

Author:

chronos

Message:

• Modified: Updated Common package.

Location:

trunk/Forms

Files:

• FormMain.pas (modified) (2 diffs)
• FormTargetCode.lrj (added)

trunk/Forms/FormMain.pas

@@ -177 +177 @@
 
 uses
-  Core, TargetInterpretter, BFTarget, Common;
+  Core, TargetInterpretter, BFTarget, Common, FormAbout;
 
 resourcestring
@@ -581 +581 @@
 
 procedure TFormMain.AAboutExecute(Sender: TObject);
-begin
-  Core.Core.AboutDialog.Show;
+var
+  FormAbout: TFormAbout;
+begin
+  FormAbout := TFormAbout.Create(nil);
+  FormAbout.ApplicationInfo := Core.Core.ApplicationInfo;
+  try
+    FormAbout.ShowModal;
+  finally
+     FormAbout.Free;
+  end;
 end;