Changeset 40 for trunk/Target

Timestamp:

Feb 19, 2012, 2:13:49 PM (13 years ago)

Author:

chronos

Message:

• Modified: Text message handling moved to UTarget unit as field of TTarget.
• Modified: Messages are displayed as TListVIew rather then TMemo.

Location:

trunk/Target

Files:

• UTarget.pas (modified) (5 diffs)
• UTargetInterpretter.pas (modified) (3 diffs)

trunk/Target/UTarget.pas

@@ -47 +47 @@
     procedure ClearSystem;
     function SearchByTargetPos(Pos: Integer): TBreakPoint;
+  end;
+
+  TMessage = class
+    Text: string;
+    Position: TPoint;
+  end;
+
+  { TMessageList }
+
+  TMessageList = class(TListObject)
+  private
+    FOnChange: TNotifyEvent;
+    procedure DoChange;
+  public
+    procedure AddMessage(Text: string);
+    procedure AppendMessage(Text: string);
+    property OnChange: TNotifyEvent read FOnChange write FOnChange;
   end;
 
@@ -77 +94 @@
     BreakPoints: TBreakPointList;
     DebugSteps: TDebugStepList;
+    Messages: TMessageList;
     constructor Create; virtual;
     destructor Destroy; override;
+    procedure Reset; virtual;
     procedure OptimizeSource;
     procedure Compile; virtual;
@@ -115 +134 @@
 implementation
 
+{ TMessageList }
+
+procedure TMessageList.DoChange;
+begin
+  if Assigned(FOnChange) then FOnChange(Self);
+end;
+
+procedure TMessageList.AddMessage(Text: string);
+var
+  NewItem: TMessage;
+begin
+  NewItem := TMessage.Create;
+  NewItem.Text := Text;
+  Add(NewItem);
+  DoChange;
+end;
+
+procedure TMessageList.AppendMessage(Text: string);
+begin
+  if Count > 0 then begin
+    TMessage(Last).Text := TMessage(Last).Text + Text;
+    DoChange;
+  end else AddMessage(Text);
+end;
+
 { TBreakPointList }
 
@@ -287 +331 @@
   BreakPoints := TBreakPointList.Create;
   DebugSteps := TDebugStepList.Create;
+  Messages := TMessageList.Create;
 end;
 
 destructor TTarget.Destroy;
 begin
+  Messages.Free;
   DebugSteps.Free;;
   BreakPoints.Free;
   inherited Destroy;
+end;
+
+procedure TTarget.Reset;
+begin
+  Messages.Clear;
 end;
 
@@ -359 +410 @@
 procedure TTarget.Stop;
 begin
-
 end;
 

trunk/Target/UTargetInterpretter.pas

@@ -49 +49 @@
     procedure CommandLoopStart;
     procedure CommandLoopEnd;
-    procedure Reset;
     procedure PrepareBreakPoints;
   protected
@@ -67 +66 @@
     Input: string;
     InputPosition: Integer;
+    procedure Reset; override;
     procedure Compile; override;
     procedure Run; override;
@@ -305 +305 @@
   I: Integer;
 begin
+  inherited;
   PrepareJumpTable;
   SourcePosition := 0;