source: trunk/UFormMain.pas

unit UFormMain;

{$mode delphi}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Types, ExtCtrls, UGame, UGraphics;

type

  { TGameCanvas }

  TGameCanvas = class(TCanvas)
  private
    FSize: TSize;
  protected
    function GetSize: TSize; override;
    procedure SetSize(AValue: TSize); override;
  public
    Canvas: Graphics.TCanvas;
    procedure TextOut(const Pos: TPoint; Text: string); override;
    procedure Rectangle(const Rect: TRect); override;
    procedure Line(const P1, P2: TPoint); override;
    procedure Ellipse(const Bounds: TRect); override;
  end;

  { TFormMain }

  TFormMain = class(TForm)
    TimerEngineTick: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormPaint(Sender: TObject);
    procedure TimerEngineTickTimer(Sender: TObject);
  private
    GameCanvas: TGameCanvas;
  public
    Game: TGame;
  end;

var
  FormMain: TFormMain;


implementation

{$R *.lfm}

uses
  UClovece, UTetris;

{ TGameCanvas }

function TGameCanvas.GetSize: TSize;
begin
  Result := FSize;
end;

procedure TGameCanvas.SetSize(AValue: TSize);
begin
  FSize := AValue;
end;

procedure TGameCanvas.TextOut(const Pos: TPoint; Text: string);
begin
  if Brush.Style = bsClear then Canvas.Brush.Style := Graphics.bsClear
    else Canvas.Brush.Style := Graphics.bsSolid;
  Canvas.Brush.Color := Brush.Color;
  Canvas.Font.Color := Pen.Color;
  Canvas.TextOut(Pos.X, Pos.Y, Text);
end;

procedure TGameCanvas.Rectangle(const Rect: TRect);
begin
  if Brush.Style = bsClear then Canvas.Brush.Style := Graphics.bsClear
    else Canvas.Brush.Style := Graphics.bsSolid;
  Canvas.Brush.Color := Brush.Color;
  if Brush.Style = bsClear then Canvas.Pen.Style := Graphics.psClear
    else Canvas.Pen.Style := Graphics.psSolid;
  Canvas.Pen.Color := Pen.Color;
  Canvas.FillRect(Rect);
end;

procedure TGameCanvas.Line(const P1, P2: TPoint);
begin
  if Brush.Style = bsClear then Canvas.Brush.Style := Graphics.bsClear
    else Canvas.Brush.Style := Graphics.bsSolid;
  Canvas.Brush.Color := Brush.Color;
  if Brush.Style = bsClear then Canvas.Pen.Style := Graphics.psClear
    else Canvas.Pen.Style := Graphics.psSolid;
  Canvas.Pen.Color := Pen.Color;
  Canvas.Pen.Width := Pen.Width;
  Canvas.Line(P1, P2);
end;

procedure TGameCanvas.Ellipse(const Bounds: TRect);
begin
  if Brush.Style = bsClear then Canvas.Brush.Style := Graphics.bsClear
    else Canvas.Brush.Style := Graphics.bsSolid;
  Canvas.Brush.Color := Brush.Color;
  if Brush.Style = bsClear then Canvas.Pen.Style := Graphics.psClear
    else Canvas.Pen.Style := Graphics.psSolid;
  Canvas.Pen.Color := Pen.Color;
  Canvas.Pen.Width := Pen.Width;
  Canvas.Ellipse(Bounds);
end;

{ TFormMain }

procedure TFormMain.FormCreate(Sender: TObject);
begin
  Randomize;
  Game := TClovece.Create;
  GameCanvas := TGameCanvas.Create;
  GameCanvas.Canvas := Canvas;
  Game.Reset;
end;

procedure TFormMain.FormDestroy(Sender: TObject);
begin
  GameCanvas.Free;
  Game.Free;
end;

procedure TFormMain.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
  Game.KeyUp(Key);
end;

procedure TFormMain.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Game.MouseUp(Button, Point(X, Y));
end;

procedure TFormMain.FormPaint(Sender: TObject);
begin
  GameCanvas.Size := TSize.Create(Width, Height);
  Game.Paint(GameCanvas);
end;

procedure TFormMain.TimerEngineTickTimer(Sender: TObject);
begin
  //Engine.Tick;
  if Game.RedrawPending then
    Repaint;
end;

end.