source: trunk/Forms/UFormMain.pas

unit UFormMain;

{$mode delphi}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  LCLType, types;

type

  { TFormMain }

  TFormMain = class(TForm)
    PaintBox1: TPaintBox;
    procedure FormActivate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: char);
    procedure PaintBox1Click(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
  private
    Initialized: Boolean;
  public
    procedure EraseBackground(DC: HDC); override;
  end;

var
  FormMain: TFormMain;

implementation

{$R *.lfm}

uses
  UCore;

{ TFormMain }

procedure TFormMain.PaintBox1Click(Sender: TObject);
begin

end;

procedure TFormMain.PaintBox1Paint(Sender: TObject);
begin
  Core.Game.Paint(PaintBox1.Canvas);
end;

procedure TFormMain.FormActivate(Sender: TObject);
begin
  if not Initialized then begin
    Initialized := True;
    Core.Init;
  end;
end;

procedure TFormMain.FormKeyPress(Sender: TObject; var Key: char);
begin
  Caption := IntToStr(Ord(Key));
  if Key = #63 then begin
    Inc(Core.Game.IW);
    core.Game.LoadData;
    PaintBox1.Repaint;
  end;
  if Key = #41 then begin
    Dec(Core.Game.IW);
    core.Game.LoadData;
    PaintBox1.Repaint;
  end;
end;

procedure TFormMain.EraseBackground(DC: HDC);
begin
  // Do not redraw background
end;

end.