Changeset 96 for trunk/Forms/UFormTargets.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/UFormTargets.pas (modified) (2 diffs)

trunk/Forms/UFormTargets.pas

@@ -14 +14 @@
   TFormTargets = class(TForm)
     ListView1: TListView;
+    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
@@ -39 +40 @@
 begin
   ReloadList;
+end;
+
+procedure TFormTargets.FormCreate(Sender: TObject);
+begin
+  Core.CoolTranslator1.TranslateComponentRecursive(Self);
+  Core.ThemeManager.UseTheme(Self);
 end;