Changeset 169 for trunk/Forms/UFormAbout.pas

Timestamp:

Jan 22, 2018, 11:00:53 AM (7 years ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

• trunk/Forms/UFormAbout.pas (modified) (1 diff)

trunk/Forms/UFormAbout.pas

@@ -51 +51 @@
   if Assigned(ApplicationInfo) then begin
     LabelAppName.Caption := ApplicationInfo.AppName;
+    LabelDescription.Caption := ApplicationInfo.Description;
+    LabelDescription.AutoSize := True;
     LabelContent.Caption := SVersion + ': ' + ApplicationInfo.Version + LineEnding +
       SReleaseDate + ': ' + DateToStr(ApplicationInfo.ReleaseDate) + LineEnding +
       SLicense + ': ' + ApplicationInfo.License;
+    Image1.Picture.Bitmap.Assign(Application.Icon);
   end;
 end;