source: branches/textos/UFormMain.pas

unit UFormMain;

{$mode delphi}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
  UKernel;

type

  { TFormMain }

  TFormMain = class(TForm)
    Memo1: TMemo;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Memo1KeyPress(Sender: TObject; var Key: char);
    procedure Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Timer1Timer(Sender: TObject);
  private
    procedure KernelOutput(Text: string);
  public
    Kernel: TKernel;
  end;

var
  FormMain: TFormMain;

implementation

{$R *.lfm}

uses
  UShell, UCalculator, UBootLoader;

{ TFormMain }

procedure TFormMain.FormShow(Sender: TObject);
begin
end;

procedure TFormMain.Memo1KeyPress(Sender: TObject; var Key: char);
begin
  Kernel.Input(Key);
end;

procedure TFormMain.Memo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Kernel.InputKey(Key);
end;

procedure TFormMain.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  Kernel.Start;
end;

procedure TFormMain.KernelOutput(Text: string);
begin
  Memo1.Text := Memo1.Text + Text;
  Memo1.SelStart := Length(Memo1.Lines.Text);
end;

procedure TFormMain.FormCreate(Sender: TObject);
begin
  Kernel := TKernel.Create;
  Kernel.OnOutputText := KernelOutput;
  //Kernel.AddApp('BootLoader', TAppBootLoader);
  Kernel.AddApp('Shell', TAppShell);
  Kernel.AddApp('Calculator', TAppCalculator);
end;

procedure TFormMain.FormDestroy(Sender: TObject);
begin
  FreeAndNil(Kernel);
end;

end.