Changeset 11 for trunk/Forms/UFormSettings.pas

Timestamp:

Oct 4, 2019, 11:57:05 PM (5 years ago)

Author:

chronos

Message:

• Added: Configurable speed of animations.

File:

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

trunk/Forms/UFormSettings.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs;
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls;
 
 type
+
+  { TFormSettings }
+
   TFormSettings = class(TForm)
+    ButtonOk: TButton;
+    ButtonCancel: TButton;
+    Label1: TLabel;
+    TrackBar1: TTrackBar;
+    procedure ButtonCancelClick(Sender: TObject);
+    procedure ButtonOkClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
 
@@ -23 +33 @@
 {$R *.lfm}
 
+uses
+  UCore;
+
+{ TFormSettings }
+
+procedure TFormSettings.ButtonCancelClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TFormSettings.ButtonOkClick(Sender: TObject);
+begin
+  Core.Game.AnimationDuration := TrackBar1.Position;
+  Close;
+end;
+
+procedure TFormSettings.FormShow(Sender: TObject);
+begin
+  TrackBar1.Position := Core.Game.AnimationDuration;
+end;
+
 end.