unit tlanne;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Tilanne;

type
  TFormPelipohja = class(TForm)
    LabelPelaaja: TLabel;
    EditPelaaja: TEdit;
    PanelNaytto: TPanel;
    LabelElamat: TLabel;
    EditElamat: TEdit;
    LabelLeveli: TLabel;
    EditLeveli: TEdit;
    LabelPisteet: TLabel;
    EditPisteet: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    Label8: TLabel;
    Edit8: TEdit;
    PanelAlusta: TPanel;
    Buttonexit: TButton;
    procedure ButtonexitClick(Sender: TObject);

  private
  tilannepeli:ttilanne;
    { Private declarations }
  public
    procedure AloitaPeli(tapa:integer);
    { Public declarations }
  end;

var
  FormPelipohja: TFormPelipohja;

implementation

{$R *.DFM}

procedure TFormPelipohja.AloitaPeli(tapa: integer);
begin
  if (tapa = 0) then begin
  tilannepeli:=ttilanne.create(formpelipohja);
  tilannepeli.parent:=formpelipohja;
  end;
  if tapa=1 then begin
  tilannepeli:=ttilanne.create(panelalusta,'jaa');
  tilannepeli.parent:=panelalusta;
  end;

  //TilannePeli.lataatiedot;
  Edit5.Text      :=TilannePeli.AnnaPelaaja;
  EditElamat.Text       :=IntToStr(Tilannepeli.AnnaElamat);
  EditLeveli.Text       :=IntToStr(TilannePeli.AnnaLeveli);
  EditPisteet.Text      :=IntToStr(TilannePeli.AnnaPisteet);
  LabelPelaaja.Caption  :='Pelaaja';
  LabelElamat.Caption   :='Elamat';
  LabelLeveli.Caption   :='Leveli';
  LabelPisteet.Caption  :='Pisteet';

end;

procedure TFormPelipohja.ButtonexitClick(Sender: TObject);
begin
  close;
end;

end.