Changeset 96 for trunk/Forms/UFormAbout.pas

Timestamp:

Aug 2, 2018, 10:41:11 AM (6 years ago)

Author:

chronos

Message:

• Added: Theming support.
• Modified: Items in Options dialog divided to two pages.

File:

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

trunk/Forms/UFormAbout.pas

@@ -56 +56 @@
   if Assigned(ApplicationInfo) then begin
     LabelAppName.Caption := ApplicationInfo.AppName;
+    LabelAppName.AutoSize := True;
+    LabelAppName.Font.Size := 30;
+    LabelDescription.Caption := ApplicationInfo.Description;
     LabelContent.Caption := SVersion + ': ' + ApplicationInfo.Version + LineEnding +
       SReleaseDate + ': ' + DateToStr(ApplicationInfo.ReleaseDate) + LineEnding +
       SLicense + ': ' + ApplicationInfo.License;
+    Image1.Picture.Bitmap.Assign(Application.Icon);
   end;
 end;
@@ -70 +74 @@
 procedure TFormAbout.FormCreate(Sender: TObject);
 begin
+  Core.ThemeManager.UseTheme(Self);
   ApplicationInfo := nil;
   CoolTranslator := nil;