source: branches/Independent/Forms/FormMain.pas

unit FormMain;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Menus,
  ActnList, ExtCtrls, Os, FormConsole, FormScreen;

type

  { TFormName }

  TFormName = class(TForm)
    AConsole: TAction;
    AFullscreen: TAction;
    AExit: TAction;
    ActionList1: TActionList;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItemView: TMenuItem;
    procedure AConsoleExecute(Sender: TObject);
    procedure AExitExecute(Sender: TObject);
    procedure AFullscreenExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    FileSystemDir: string;
    System: TSystem;
    procedure ConsoleWrite(Text: string);
    function LoadFile(Name: string): string;
    function GetMousePosition: TPoint;
  public
    FormConsole: TFormConsole;
    FormScreen: TFormScreen;
  end;

var
  FormName: TFormName;


implementation

{$R *.lfm}

{ TFormName }

procedure TFormName.FormShow(Sender: TObject);
begin
  FormScreen.ManualDock(Self, nil, alClient);
  FormScreen.Align := alClient;
  FormScreen.Show;

  System := TSystem.Create;
  System.Console.OnWrite := ConsoleWrite;
  System.FileSystem.OnLoadFile := LoadFile;
  System.Mouse.OnGetPosition := GetMousePosition;
  System.OnDraw := FormScreen.Redraw;
  FormScreen.System := System;

  System.Start;
end;

procedure TFormName.FormCreate(Sender: TObject);
begin
  FileSystemDir := 'FileSystem';
  FormConsole := TFormConsole.Create(nil);
  FormScreen := TFormScreen.Create(nil);
end;

procedure TFormName.FormDestroy(Sender: TObject);
begin
  FreeAndNil(System);
  FreeAndNil(FormConsole);
  FreeAndNil(FormScreen);
end;

procedure TFormName.AExitExecute(Sender: TObject);
begin
  Close;
  Application.Terminate;
end;

procedure TFormName.AConsoleExecute(Sender: TObject);
begin
  FormConsole.Show;
end;

procedure TFormName.AFullscreenExecute(Sender: TObject);
begin

end;

procedure TFormName.ConsoleWrite(Text: string);
begin
  FormConsole.Memo1.Lines.Add(Text);
end;

function TFormName.LoadFile(Name: string): string;
var
  F: TFileStream;
begin
  F := TFileStream.Create(FileSystemDir + DirectorySeparator + Name, fmOpenRead);
  try
    if F.Size > 0 then begin
      Result := default(string);
      SetLength(Result, F.Size);
      F.Read(Result[1], F.Size);
    end else Result := '';
  finally
    F.Free;
  end;
end;

function TFormName.GetMousePosition: TPoint;
begin
  Result := Mouse.CursorPos;
end;

end.