source: trunk/Forms/UFormHistory.pas

unit UFormHistory;

{$mode delphi}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, ComCtrls, UGame;

type

  { TFormHistory }

  TFormHistory = class(TForm)
    PaintBox1: TPaintBox;
    Panel1: TPanel;
    Timer1: TTimer;
    TrackBar1: TTrackBar;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    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;

var
  FormHistory: TFormHistory;

implementation

{$R *.lfm}

uses
  UCore;

{ TFormHistory }

procedure TFormHistory.FormShow(Sender: TObject);
begin
  Core.PersistentForm1.Load(Self);
  TrackBar1.Max := Core.Game.History.Moves.Count;
  Game.Board.Size := 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
    Core.Game.History.GetStep(Game, 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
  Core.Translator1.TranslateComponentRecursive(Self);
  Core.ThemeManager1.UseTheme(Self);
  Game := TGame.Create;
end;

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

procedure TFormHistory.FormClose(Sender: TObject; var CloseAction: TCloseAction
  );
begin
  Core.PersistentForm1.Save(Self);
end;

end.