source: trunk/Forms/FormHistory.pas

unit FormHistory;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, ComCtrls,
  StdCtrls, Game, FormEx;

type

  { TFormHistory }

  TFormHistory = class(TFormEx)
    ButtonClose: TButton;
    PaintBox1: TPaintBox;
    Panel1: TPanel;
    Timer1: TTimer;
    TrackBar1: TTrackBar;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
  private
    RedrawPending: Boolean;
  public
    Game: TGame;
    procedure Redraw;
  end;


implementation

{$R *.lfm}

uses
  Core;

{ TFormHistory }

procedure TFormHistory.FormShow(Sender: TObject);
begin
  TrackBar1.Max := Core.Core.Game.History.Moves.Count;
  Game.Board.Size := Core.Core.Game.Board.Size;
  Redraw;
end;

procedure TFormHistory.PaintBox1Paint(Sender: TObject);
begin
  Game.Render(PaintBox1.Canvas, Point(PaintBox1.Width, PaintBox1.Height));
end;

procedure TFormHistory.Timer1Timer(Sender: TObject);
begin
  if RedrawPending then begin
    Game.Assign(Core.Core.Game);
    Game.Board.Size := Core.Core.Game.Board.Size;
    Game.Skin := Core.Core.Game.Skin;
    Game.ColorPalette := Core.Core.Game.ColorPalette;
    Game.Replay(Core.Core.Game.History, TrackBar1.Position);
    PaintBox1.Refresh;
    RedrawPending := False;
  end;
end;

procedure TFormHistory.TrackBar1Change(Sender: TObject);
begin
  Redraw;
end;

procedure TFormHistory.Redraw;
begin
  RedrawPending := True;
end;

procedure TFormHistory.FormCreate(Sender: TObject);
begin
  Game := TGame.Create;
end;

procedure TFormHistory.FormDestroy(Sender: TObject);
begin
  FreeAndNil(Game);
end;

end.