Changeset 105

Timestamp:

Oct 11, 2016, 3:56:47 PM (8 years ago)

Author:

chronos

Message:

• Added: Hidden settings of DPI.

Location:

trunk

Files:

• Forms/UFormMain.lfm (modified) (1 diff)
• Forms/UFormSettings.lfm (modified) (1 diff)
• Forms/UFormSettings.lrt (modified) (1 diff)
• Forms/UFormSettings.pas (modified) (7 diffs)
• Languages/AcronymDecoder.cs.po (modified) (3 diffs)
• Languages/AcronymDecoder.po (modified) (2 diffs)

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 449
+  Left = 520
   Height = 447
-  Top = 396
+  Top = 378
   Width = 782
   Caption = 'Acronym Decoder'

trunk/Forms/UFormSettings.lfm

@@ -74 +74 @@
     TabOrder = 5
   end
+  object CheckBoxAutomaticDPI: TCheckBox
+    Left = 18
+    Height = 24
+    Top = 191
+    Width = 120
+    Caption = 'Automatic DPI'
+    OnChange = CheckBoxAutomaticDPIChange
+    TabOrder = 6
+    Visible = False
+  end
+  object SpinEditDPI: TSpinEdit
+    Left = 96
+    Height = 28
+    Top = 221
+    Width = 97
+    MaxValue = 300
+    MinValue = 96
+    TabOrder = 7
+    Value = 96
+    Visible = False
+  end
+  object Label2: TLabel
+    Left = 48
+    Height = 20
+    Top = 221
+    Width = 26
+    Caption = 'DPI:'
+    ParentColor = False
+    Visible = False
+  end
 end

trunk/Forms/UFormSettings.lrt

@@ -6 +6 @@
 TFORMSETTINGS.CHECKBOXSTARTONLOGON.CAPTION=Start on user logon
 TFORMSETTINGS.CHECKBOXSTARTMINIMIZEDTOTRAY.CAPTION=Start minimized to tray
+TFORMSETTINGS.CHECKBOXAUTOMATICDPI.CAPTION=Automatic DPI
+TFORMSETTINGS.LABEL2.CAPTION=DPI:

trunk/Forms/UFormSettings.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Menus, ULanguages;
+  Menus, Spin, ULanguages;
 
 type
@@ -16 +16 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    CheckBoxAutomaticDPI: TCheckBox;
     CheckBoxStartMinimizedToTray: TCheckBox;
     CheckBoxStartOnLogon: TCheckBox;
@@ -21 +22 @@
     ComboBoxLanguage: TComboBox;
     Label1: TLabel;
+    Label2: TLabel;
+    SpinEditDPI: TSpinEdit;
     procedure ButtonOkClick(Sender: TObject);
+    procedure CheckBoxAutomaticDPIChange(Sender: TObject);
     procedure CheckBoxStartOnLogonChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -58 +62 @@
 end;
 
+procedure TFormSettings.CheckBoxAutomaticDPIChange(Sender: TObject);
+begin
+  UpdateInterface;
+end;
+
 procedure TFormSettings.CheckBoxStartOnLogonChange(Sender: TObject);
 begin
@@ -73 +82 @@
   CheckBoxStartOnLogon.Checked := Core.StartOnLogon;
   CheckBoxStartMinimizedToTray.Checked := Core.StartMinimizedToTray;
+  CheckBoxAutomaticDPI.Checked := Core.ScaleDPI1.AutoDetect;
+  SpinEditDPI.Value := Core.ScaleDPI1.DPI.X;
   UpdateInterface;
 end;
@@ -81 +92 @@
   Core.StartOnLogon := CheckBoxStartOnLogon.Checked;
   Core.StartMinimizedToTray := CheckBoxStartMinimizedToTray.Checked;
+  Core.ScaleDPI1.AutoDetect := CheckBoxAutomaticDPI.Checked;
+  Core.ScaleDPI1.DPI := Point(SpinEditDPI.Value, SpinEditDPI.Value);
 end;
 
@@ -86 +99 @@
 begin
   CheckBoxStartMinimizedToTray.Enabled := CheckBoxStartOnLogon.Checked;
+  SpinEditDPI.Enabled := not CheckBoxAutomaticDPI.Checked;
+  Label2.Enabled := not CheckBoxAutomaticDPI.Checked;
 end;
 

trunk/Languages/AcronymDecoder.cs.po

@@ -664 +664 @@
 msgstr "Okno vždy navrchu"
 
+#: tformsettings.checkboxautomaticdpi.caption
+msgid "Automatic DPI"
+msgstr "Automatické DPI"
+
 #: tformsettings.checkboxstartminimizedtotray.caption
 msgid "Start minimized to tray"
@@ -675 +679 @@
 msgid "Language:"
 msgstr "Jazyk:"
+
+#: tformsettings.label2.caption
+msgid "DPI:"
+msgstr "DPI:"
 
 #: uacronym.sacronym
@@ -890 +898 @@
 msgid "Process import sources"
 msgstr "Zpracovat zdroje importu"
-

trunk/Languages/AcronymDecoder.po

@@ -654 +654 @@
 msgstr ""
 
+#: tformsettings.checkboxautomaticdpi.caption
+msgid "Automatic DPI"
+msgstr ""
+
 #: tformsettings.checkboxstartminimizedtotray.caption
 msgid "Start minimized to tray"
@@ -664 +668 @@
 #: tformsettings.label1.caption
 msgid "Language:"
+msgstr ""
+
+#: tformsettings.label2.caption
+msgid "DPI:"
 msgstr ""