Changeset 14 for trunk/UOptionsForm.pas

Timestamp:

Feb 11, 2012, 6:27:10 PM (13 years ago)

Author:

chronos

Message:

• Added: Support for memory cell up to Integer size. Default 256.
• Fixed: Application now can be closed if running program is waiting to new key press.

File:

• trunk/UOptionsForm.pas (modified) (3 diffs)

trunk/UOptionsForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Spin;
+  Spin, UBrainFuck;
 
 type
@@ -17 +17 @@
     ButtonCancel: TButton;
     Label1: TLabel;
+    Label2: TLabel;
+    SpinEditCellSize: TSpinEdit;
     SpinEditMemorySize: TSpinEdit;
   private
     { private declarations }
   public
-    { public declarations }
+    procedure LoadFromInterpretter(Interpretter: TBrainFuckInterpretter);
+    procedure SaveToInterpretter(Interpretter: TBrainFuckInterpretter);
   end;
 
@@ -31 +34 @@
 {$R *.lfm}
 
+{ TOptionsForm }
+
+procedure TOptionsForm.LoadFromInterpretter(Interpretter: TBrainFuckInterpretter
+  );
+begin
+  SpinEditCellSize.Value := Interpretter.CellSize;
+  SpinEditMemorySize.Value := Interpretter.MemorySize;
+end;
+
+procedure TOptionsForm.SaveToInterpretter(Interpretter: TBrainFuckInterpretter);
+begin
+  Interpretter.CellSize := SpinEditCellSize.Value;
+  Interpretter.MemorySize := SpinEditMemorySize.Value;
+end;
+
 end.