Changeset 59 for trunk/Forms/UFormOptions.lfm

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/UFormOptions.lfm (modified) (7 diffs)

trunk/Forms/UFormOptions.lfm

@@ -8 +8 @@
   ClientWidth = 468
   OnShow = FormShow
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.3'
   object ButtonOk: TButton
     Left = 389
@@ -31 +31 @@
   end
   object SpinEditCellSize: TSpinEdit
-    Left = 136
-    Height = 21
+    Left = 165
+    Height = 35
     Top = 40
     Width = 130
@@ -39 +39 @@
   end
   object SpinEditMemorySize: TSpinEdit
-    Left = 136
-    Height = 21
+    Left = 165
+    Height = 35
     Top = 6
     Width = 130
@@ -48 +48 @@
   object Label1: TLabel
     Left = 8
-    Height = 14
+    Height = 25
     Top = 8
-    Width = 64
+    Width = 123
     Caption = 'Memory size:'
     ParentColor = False
@@ -56 +56 @@
   object Label2: TLabel
     Left = 8
-    Height = 14
+    Height = 25
     Top = 40
-    Width = 43
+    Width = 79
     Caption = 'Cell size:'
     ParentColor = False
@@ -64 +64 @@
   object Label3: TLabel
     Left = 8
-    Height = 14
+    Height = 25
     Top = 95
-    Width = 97
+    Width = 179
     Caption = 'Interface language:'
     ParentColor = False
@@ -72 +72 @@
   object CheckBox1: TCheckBox
     Left = 8
-    Height = 17
-    Top = 120
-    Width = 159
+    Height = 27
+    Top = 128
+    Width = 456
+    Anchors = [akTop, akLeft, akRight]
+    AutoSize = False
     Caption = 'Reopend last opened project'
     TabOrder = 4
   end
   object ComboBoxLanguage: TComboBox
-    Left = 162
-    Height = 21
-    Top = 86
+    Left = 248
+    Height = 37
+    Top = 83
     Width = 188
-    ItemHeight = 13
+    ItemHeight = 0
     Style = csDropDownList
     TabOrder = 5
   end
+  object SpinEditDPIX: TSpinEdit
+    Left = 104
+    Height = 35
+    Top = 193
+    Width = 80
+    MaxValue = 1000
+    MinValue = 1
+    TabOrder = 6
+    Value = 1
+  end
+  object LabelDPI: TLabel
+    Left = 24
+    Height = 25
+    Top = 201
+    Width = 39
+    Caption = 'DPI:'
+    ParentColor = False
+  end
+  object SpinEditDPIY: TSpinEdit
+    Left = 208
+    Height = 35
+    Top = 193
+    Width = 80
+    MaxValue = 1000
+    MinValue = 1
+    TabOrder = 7
+    Value = 1
+  end
+  object LabelX: TLabel
+    Left = 192
+    Height = 25
+    Top = 201
+    Width = 10
+    Caption = 'x'
+    ParentColor = False
+  end
+  object CheckBoxDPIAuto: TCheckBox
+    Left = 8
+    Height = 27
+    Top = 168
+    Width = 448
+    Anchors = [akTop, akLeft, akRight]
+    AutoSize = False
+    Caption = 'Automatic DPI'
+    OnChange = CheckBoxDPIAutoChange
+    TabOrder = 8
+  end
 end