//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "WurmWelt_u.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

#include "Wurm.h"

Wurm *derWurm;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
   derWurm = new Wurm(0, 0, 6);
   dieWelt->Canvas->Brush->Color = clRed;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormActivate(TObject *Sender)
{
   dieWelt->Canvas->Brush->Color = clYellow;;
   dieWelt->Canvas->Rectangle(0, 0, dieWelt->Width, dieWelt->Height);
   dieWelt->Canvas->Brush->Color = clRed;
   derWurm->zeichneWurm(dieWelt);
}
//---------------------------------------------------------------------------


void __fastcall TForm1::btnEClick(TObject *Sender)
{
   derWurm->setzeRichtung('e');
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btnDClick(TObject *Sender)
{
   derWurm->setzeRichtung('d');
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btnSClick(TObject *Sender)
{
   derWurm->setzeRichtung('s');    
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btnFClick(TObject *Sender)
{
   derWurm->setzeRichtung('f');
}
//---------------------------------------------------------------------------


void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
   if  (Key == 'e' || Key == 's' || Key == 'd' || Key == 'f')
      derWurm->setzeRichtung(Key);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
derWurm->krieche();
derWurm->zeichneWurm(dieWelt);
}
//---------------------------------------------------------------------------