Changeset 68 for trunk/Forms/UFormSettings.pas

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.

File:

• trunk/Forms/UFormSettings.pas (modified) (4 diffs)

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;