//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "kodgry.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::bStartClick(TObject *Sender)
{
trafien = 0;
wyswietlen = 0;
1Trafien->Caption = IntToStr(trafien);
1Wyswietlen->Capton = IntToStr(wyswietlen);
Timer1->Interval = szybkosc;
Timer1->Enabled = true;
Image1->Visible = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::bStopClick(TObject *Sender)
{
Timer1-Enabled = false;
Image1->Visible =false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::bWyjdzClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
szybkosc = 1000;
Timer1->Enabled = false;
Image1->Visible = false;
1Trafien->Caption = "";
1Wyswietlen->Caption ="";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1Click(TObject *Sender)
{
trafien++;
1Trafien->Caption =IntToStr(trafien);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Image1->Top = random(Pane12->Height - Image1->Height);
Image1->Lef = random(Pane12->Width - Image2->Width);
wyswietlen++;
1Wyswietlen->Caption = IntToStr(wyswietlen);
}
//---------------------------------------------------------------------------
I mam problem robilem tak jak mam w gazecie, ale jak chce uruchomic projekt mam bład w kodzie, to czerwone mam ze jest błedne, co tu jest zle??
