Changeset 109 for trunk/UCore.pas

Timestamp:

Oct 13, 2016, 9:43:50 AM (8 years ago)

Author:

chronos

Message:

• Modified: Moved ImageList, TrayIcon to UCore unit.

File:

• trunk/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, UAcronym, UCoolTranslator, UPersistentForm,
-  UJobProgressView, UScaleDPI, Forms, Controls, LazFileUtils, URegistry,
-  Registry;
+  UJobProgressView, UScaleDPI, Forms, Controls, ExtCtrls, Menus, LazFileUtils,
+  URegistry, Registry;
 
 type
@@ -16 +16 @@
   TCore = class(TDataModule)
     CoolTranslator1: TCoolTranslator;
+    ImageList1: TImageList;
     JobProgressView1: TJobProgressView;
+    MenuItem1: TMenuItem;
+    MenuItem19: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem26: TMenuItem;
+    MenuItem27: TMenuItem;
+    MenuItem28: TMenuItem;
+    MenuItem3: TMenuItem;
     PersistentForm1: TPersistentForm;
+    PopupMenuTrayIcon: TPopupMenu;
     ScaleDPI1: TScaleDPI;
+    TrayIcon1: TTrayIcon;
     procedure CoolTranslator1Translate(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
@@ -166 +176 @@
 procedure TCore.ScaleDPI;
 begin
-  Core.ScaleDPI1.ScaleImageList(FormMain.ImageList1, Core.ScaleDPI1.DesignDPI);
+  Core.ScaleDPI1.ScaleImageList(ImageList1, Core.ScaleDPI1.DesignDPI);
   Core.ScaleDPI1.ScaleControl(FormMain.ToolBar1, Core.ScaleDPI1.DesignDPI);
 end;