source: trunk/UGame.pas

unit UGame;

{$mode delphi}

interface

uses
  Classes, SysUtils, Controls, UGraphics;

type

  { TGame }

  TGame = class
    Name: string;
    RedrawPending: Boolean;
    procedure Repaint;
    procedure Reset; virtual;
    constructor Create; virtual;
    procedure Paint(Canvas: TCanvas); virtual;
    procedure MouseUp(Button: TMouseButton; Position: TPoint); virtual;
    procedure KeyUp(Key: Word); virtual;
  end;

  TGameMenu = class(TGame)

  end;

implementation

{ TGame }

procedure TGame.Repaint;
begin
  RedrawPending := True;
end;

procedure TGame.Reset;
begin
end;

constructor TGame.Create;
begin
end;

procedure TGame.Paint(Canvas: TCanvas);
begin
end;

procedure TGame.MouseUp(Button: TMouseButton; Position: TPoint);
begin
end;

procedure TGame.KeyUp(Key: Word);
begin
end;

end.