Changeset 12 for trunk/UMainForm.pas

Timestamp:

Feb 11, 2012, 4:32:27 PM (12 years ago)

Author:

chronos

Message:

• Added: Display source code caret position in statusbar.
• Modified: Optimized jump speed using precreated direct jump table.

Location:

trunk

Files:

• . (modified) (1 prop)
• UMainForm.pas (modified) (6 diffs)

trunk

@@ -3 +3 @@
 LazFuckIDE.lps
 backup
+LazFuckIDE

@@ -3 +3 @@
 LazFuckIDE.lps
 backup
+LazFuckIDE

trunk/UMainForm.pas

@@ -16 +16 @@
     ACompile: TAction;
     AAbout: TAction;
+    ABreakpointSet: TAction;
+    ABreakpointUnset: TAction;
+    AInterpretterStepOut: TAction;
+    AInterpretterRunToCursor: TAction;
+    AInterpretterStopOver: TAction;
+    AInterpretterStepInto: TAction;
     AViewCompiled: TAction;
     AViewInterpretter: TAction;
@@ -83 +89 @@
     procedure FormShow(Sender: TObject);
     procedure MemoSourceChange(Sender: TObject);
+    procedure MemoSourceKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure MemoSourceKeyPress(Sender: TObject; var Key: char);
+    procedure MemoSourceKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
+      );
+    procedure MemoSourceMouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
   private
     procedure BrainFuckInterpreterChangeState(Sender: TObject);
@@ -91 +104 @@
     BrainFuckInterpreter: TBrainFuckInterpretter;
     procedure UpdateInterface;
+    procedure UpdateStatusBar;
   end;
 
@@ -114 +128 @@
   Modified := True;
   UpdateInterface;
+end;
+
+procedure TMainForm.MemoSourceKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+end;
+
+procedure TMainForm.MemoSourceKeyPress(Sender: TObject; var Key: char);
+begin
+end;
+
+procedure TMainForm.MemoSourceKeyUp(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  UpdateStatusBar;
+end;
+
+procedure TMainForm.MemoSourceMouseDown(Sender: TObject; Button: TMouseButton;
+  Shift: TShiftState; X, Y: Integer);
+begin
+  UpdateStatusBar;
 end;
 
@@ -136 +171 @@
   AProgramStop.Enabled := (ProjectFileName <> '') and (BrainFuckInterpreter.State <> rsStopped);
   ACompile.Enabled := ProjectFileName <> '';
+  UpdateStatusBar;
+end;
+
+procedure TMainForm.UpdateStatusBar;
+begin
+  StatusBar1.Panels[0].Text := IntToStr(MemoSource.CaretPos.X) + ', ' + IntToStr(MemoSource.CaretPos.Y);
 end;
 
@@ -152 +193 @@
 
 procedure TMainForm.AProgramRunExecute(Sender: TObject);
+var
+  SourceText: string;
 begin
   InterpreterForm.Show;
   BrainFuckInterpreter.Input := InterpreterForm.MemoInput.Lines.Text;
-  BrainFuckInterpreter.Source := MemoSource.Lines.Text;
+  SourceText := MemoSource.Lines.Text;
+  SetLength(BrainFuckInterpreter.Source, Length(SourceText));
+  Move(Pointer(SourceText)^, Pointer(BrainFuckInterpreter.Source)^, Length(SourceText));
   BrainFuckInterpreter.Run;
 end;

@@ -3 +3 @@
 LazFuckIDE.lps
 backup
+LazFuckIDE