Kód: Vybrať všetko
Graphics::TBitmap *bmp;
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
bmp=new Graphics::TBitmap;
bmp->LoadFromFile("MG.bmp");
Image1->Canvas->Draw(0, 0, bmp);
Image1->Refresh();
Timer1->Interval = 150;
Image1->Canvas->Draw(-135, 0, bmp);
Image1->Left = Image1->Left + 5;
Image1->Refresh();
Timer1->Interval = 150;
Image1->Canvas->Draw(-200, 0, bmp);
Image1->Left = Image1->Left + 5;
Image1->Refresh();
Timer1->Interval = 150;
Image1->Canvas->Draw(-270, 0, bmp);
Image1->Left = Image1->Left + 5;
Image1->Refresh();
Timer1->Interval = 150;
Image1->Canvas->Draw(-340, 0, bmp);
Image1->Left = Image1->Left + 5;
Image1->Refresh();
Timer1->Interval = 150;
Image1->Canvas->Draw(0, 0, bmp);
Image1->Refresh();
}