Changeset 68 for trunk/Forms

Timestamp:

Sep 28, 2014, 2:36:03 PM (10 years ago)

Author:

chronos

Message:

• Added: Option to change animation speed.
• Fixed: Shifted view during computer turn.

Location:

trunk/Forms

Files:

• UFormSettings.lfm (modified) (3 diffs)
• UFormSettings.lrt (modified) (1 diff)
• UFormSettings.pas (modified) (4 diffs)

trunk/Forms/UFormSettings.lfm

@@ -29 +29 @@
   object Label1: TLabel
     Left = 20
-    Height = 25
+    Height = 22
     Top = 26
-    Width = 95
+    Width = 80
     Caption = 'Language:'
     ParentColor = False
@@ -37 +37 @@
   object ComboBoxLanguage: TComboBox
     Left = 178
-    Height = 37
+    Height = 34
     Top = 24
     Width = 196
@@ -46 +46 @@
   object CheckBoxDevelMode: TCheckBox
     Left = 16
-    Height = 27
+    Height = 24
     Top = 80
-    Width = 176
+    Width = 157
     Caption = 'Developer mode'
     TabOrder = 3
   end
+  object SpinEditAnimSpeed: TSpinEdit
+    Left = 184
+    Height = 32
+    Top = 120
+    Width = 122
+    TabOrder = 4
+  end
+  object Label2: TLabel
+    Left = 19
+    Height = 22
+    Top = 126
+    Width = 140
+    Caption = 'Animation speed:'
+    ParentColor = False
+  end
+  object Label3: TLabel
+    Left = 311
+    Height = 22
+    Top = 128
+    Width = 15
+    Caption = '%'
+    ParentColor = False
+  end
 end

trunk/Forms/UFormSettings.lrt

@@ -4 +4 @@
 TFORMSETTINGS.LABEL1.CAPTION=Language:
 TFORMSETTINGS.CHECKBOXDEVELMODE.CAPTION=Developer mode
+TFORMSETTINGS.LABEL2.CAPTION=Animation speed:
+TFORMSETTINGS.LABEL3.CAPTION=%

trunk/Forms/UFormSettings.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  Spin;
 
 type
@@ -18 +19 @@
     ComboBoxLanguage: TComboBox;
     Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    SpinEditAnimSpeed: TSpinEdit;
   private
     { private declarations }
@@ -40 +44 @@
 begin
   Core.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
-   ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.Language);
-   if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
-   CheckBoxDevelMode.Checked := Core.DevelMode;
+  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.Language);
+  if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
+  CheckBoxDevelMode.Checked := Core.DevelMode;
+  SpinEditAnimSpeed.Value := Core.AnimationSpeed;
 end;
 
@@ -50 +55 @@
     Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
   Core.DevelMode := CheckBoxDevelMode.Checked;
+  Core.AnimationSpeed := SpinEditAnimSpeed.Value;
 end;