source: trunk/Forms/FormInput.pas

unit FormInput;

interface

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

type

  { TFormInput }

  TFormInput = class(TFormEx)
    Label1: TLabel;
    MemoInput: TMemo;
    procedure MemoInputKeyPress(Sender: TObject; var Key: char);
  end;


implementation

{$R *.lfm}

uses
  Core, TargetInterpreter;

procedure TFormInput.MemoInputKeyPress(Sender: TObject; var Key: char);
begin
  if Core.Core.CurrentTarget is TTargetInterpreter then
  with TTargetInterpreter(Core.Core.CurrentTarget) do
    Input := Input + Key;
end;

end.