Changeset 88 for trunk/Forms/UFormMain.pas

Timestamp:

Aug 29, 2017, 10:33:39 PM (7 years ago)

Author:

chronos

Message:

• Modified: Enabled DPI scaling.
• Modified: Moved ImageListMain to Core unit and introduced Core Init method.

File:

• trunk/Forms/UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.pas

@@ -39 +39 @@
     AProjectOpen: TAction;
     ActionList1: TActionList;
-    ImageListMain: TImageList;
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
@@ -189 +188 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
-  // TODO: Transparent image scaling not working properly under linux Gtk2
-  // Also screen DPI is not correctly detected under linux Gtk2
-  {$IFDEF WINDOWS}
-  with Core.ScaleDPI do begin
-    ApplyToAll(DesignDPI);
-    ScaleImageList(ImageListMain, DesignDPI);
-  end;
-  {$ENDIF}
-
-  Core.CoolTranslator1.Translate;
+  Core.Init;
   LoadFromRegistry(HKEY(Core.ApplicationInfo.RegistryRoot), Core.ApplicationInfo.RegistryKey);
   PageControlMain.TabIndex := 0;
@@ -520 +510 @@
     FormAbout.ApplicationInfo := Core.ApplicationInfo;
     FormAbout.CoolTranslator := Core.CoolTranslator1;
+    Core.ScaleDPI1.ScaleControl(FormAbout, Core.ScaleDPI1.DesignDPI);
     FormAbout.ShowModal;
   finally