Changeset 59 for trunk/Forms/UFormMain.pas

Timestamp:

Dec 3, 2014, 9:09:42 PM (10 years ago)

Author:

chronos

Message:

• Added: Support for high DPI screens. If not detected automatically correctly then user can specify desired values.
• Updated: Common package to newer version.

File:

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

trunk/Forms/UFormMain.pas

@@ -197 +197 @@
 procedure TMainForm.FormShow(Sender: TObject);
 begin
+  with Core.ScaleDPI do begin
+    ApplyToAll(DesignDPI);
+    ScaleImageList(ImageListMain, DesignDPI);
+  end;
   Core.CoolTranslator1.Translate;
   LoadFromRegistry(HKEY(Core.ApplicationInfo.RegistryRoot), Core.ApplicationInfo.RegistryKey);
@@ -446 +450 @@
 procedure TMainForm.AOptionsExecute(Sender: TObject);
 begin
+  OptionsForm.Load;
   //OptionsForm.LoadFromInterpretter(CurrentTarget);
   if OptionsForm.ShowModal = mrOK then begin
     //OptionsForm.SaveToInterpretter(CurrentTarget);
+    OptionsForm.Save;
   end;
 end;