Changeset 13 for trunk/UMainForm.pas

Timestamp:

Feb 11, 2012, 5:53:25 PM (12 years ago)

Author:

chronos

Message:

• Added: Options form.
• Modified: Interpretter now accept source code as string again.

File:

• trunk/UMainForm.pas (modified) (6 diffs)

trunk/UMainForm.pas

@@ -18 +18 @@
     ABreakpointSet: TAction;
     ABreakpointUnset: TAction;
+    AOptions: TAction;
     AInterpretterStepOut: TAction;
     AInterpretterRunToCursor: TAction;
@@ -51 +52 @@
     MenuItem2: TMenuItem;
     MenuItem20: TMenuItem;
+    MenuItem22: TMenuItem;
     MenuItem40: TMenuItem;
     MenuItem21: TMenuItem;
@@ -72 +74 @@
     ToolButton6: TToolButton;
     ToolButton7: TToolButton;
+    ToolButton8: TToolButton;
     procedure ACompileExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
+    procedure AOptionsExecute(Sender: TObject);
     procedure AProgramPauseExecute(Sender: TObject);
     procedure AProgramStopExecute(Sender: TObject);
@@ -115 +119 @@
 
 uses
-  UInterpreterForm, UApplicationInfo, UCompiledForm;
+  UInterpreterForm, UApplicationInfo, UCompiledForm, UOptionsForm;
 
 { TMainForm }
@@ -193 +197 @@
 
 procedure TMainForm.AProgramRunExecute(Sender: TObject);
-var
-  SourceText: string;
 begin
   InterpreterForm.Show;
   BrainFuckInterpreter.Input := InterpreterForm.MemoInput.Lines.Text;
-  SourceText := MemoSource.Lines.Text;
-  SetLength(BrainFuckInterpreter.Source, Length(SourceText));
-  Move(Pointer(SourceText)^, Pointer(BrainFuckInterpreter.Source)^, Length(SourceText));
+  BrainFuckInterpreter.Source := MemoSource.Text;
   BrainFuckInterpreter.Run;
 end;
@@ -222 +222 @@
 begin
   Close;
+end;
+
+procedure TMainForm.AOptionsExecute(Sender: TObject);
+begin
+  if OptionsForm.ShowModal = mrOK then begin
+
+  end;
 end;