Changeset 18 for trunk/Forms

Timestamp:

Oct 5, 2019, 12:31:23 PM (5 years ago)

Author:

chronos

Message:

• Added: Application icon.

Location:

trunk/Forms

Files:

• UFormAbout.lfm (modified) (1 diff)
• UFormAbout.pas (modified) (1 diff)

trunk/Forms/UFormAbout.lfm

@@ -73 +73 @@
       Top = 19
       Width = 83
+      Proportional = True
+      Stretch = True
     end
     object LabelAppName: TLabel

trunk/Forms/UFormAbout.pas

@@ -56 +56 @@
       SReleaseDate + ': ' + DateToStr(ApplicationInfo.ReleaseDate) + LineEnding +
       SLicense + ': ' + ApplicationInfo.License;
+    Image1.Picture.Bitmap.SetSize(Application.Icon.Width, Application.Icon.Height);
     Image1.Picture.Bitmap.Assign(Application.Icon);
   end;