source: trunk/Forms/FormOutput.pas

unit FormOutput;

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  FormEx;

type

  { TFormOutput }

  TFormOutput = class(TFormEx)
    Label2: TLabel;
    MemoOutput: TMemo;
  public
    procedure Reload;
  end;


implementation

{$R *.lfm}

uses
  Core, TargetInterpreter;

{ TFormOutput }

procedure TFormOutput.Reload;
begin
  if Core.Core.CurrentTarget is TTargetInterpreter then
  with TTargetInterpreter(Core.Core.CurrentTarget) do begin
    if OutputChanged then begin
      OutputChanged := False;
      {$IFDEF UNIX}
      MemoOutput.Lines.Text := StringReplace(Output, #10#13, LineEnding, [rfReplaceAll])
      {$ELSE}
      MemoOutput.Lines.Text := Output;
      {$ENDIF}
    end;
  end;
end;

end.