source: trunk/Forms/FormHelp.pas

unit FormHelp;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, FormEx;

type

  { TFormHelp }

  TFormHelp = class(TFormEx)
    Memo1: TMemo;
    procedure FormShow(Sender: TObject);
  end;


implementation

{$R *.lfm}

uses
  Core;

resourcestring
  SParagraph1 = '2048 is a single-player block sliding puzzle game.';
  SParagraph2 = 'The game''s objective is to slide numbered tiles on a grid to combine them to create a tile with the number 2048.';
  SControls = 'Use arrow keys to slide blocks to one of board side.';
  SEveryTurn = 'Every turn, a new tile will randomly appear in an empty spot on the board with a value of either 2 or 4.';
  SUndo = 'You can undo one move back, if undo action is enabled.';

{ TFormHelp }

procedure TFormHelp.FormShow(Sender: TObject);
begin
  Memo1.Text := SParagraph1 + LineEnding +
    SParagraph2 + LineEnding +
    SControls + LineEnding +
    SEveryTurn + LineEnding +
    SUndo + LineEnding +
    '';
end;

end.