Changeset 301 for trunk/Forms/UFormAbout.pas

Timestamp:

Jul 10, 2019, 11:35:10 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Corrected dimensions in About dialog.
• Removed: Old Player and Players forms replaced by general item list.

File:

• trunk/Forms/UFormAbout.pas (modified) (3 diffs)

trunk/Forms/UFormAbout.pas

@@ -24 +24 @@
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
-  private
-    { private declarations }
   public
-    { public declarations }
+    ApplicationInfo: TApplicationInfo;
   end;
 
@@ -50 +48 @@
 begin
   Core.ThemeManager1.UseTheme(Self);
-  with Core do begin
+  if Assigned(ApplicationInfo) then begin
     LabelAppName.Caption := ApplicationInfo.AppName;
     LabelContent.Caption := SVersion + ': ' + ApplicationInfo.Version + LineEnding +
       SReleaseDate + ': ' + DateToStr(ApplicationInfo.ReleaseDate) + LineEnding +
       SLicense + ': ' + ApplicationInfo.License;
+    LabelDescription.Caption := ApplicationInfo.Description;
   end;
 end;
@@ -60 +59 @@
 procedure TFormAbout.ButtonHomePageClick(Sender: TObject);
 begin
-  OpenWebPage(Core.ApplicationInfo.HomePage);
+  if Assigned(ApplicationInfo) then
+    OpenWebPage(ApplicationInfo.HomePage);
 end;