Залить канву цветом

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Image1->Canvas->Brush->Color=clRed;
Image1->Canvas->MoveTo(60,140);
Image1->Canvas->LineTo(140,140);
Timer2->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
Image1->Canvas->Brush->Color=clRed;
Image1->Canvas->MoveTo(140,140);
Image1->Canvas->LineTo(180,90);
Timer3->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer3Timer(TObject *Sender)
{
Image1->Canvas->Brush->Color=clRed;
Image1->Canvas->MoveTo(180,90);
Image1->Canvas->LineTo(210,140);
Timer4->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer4Timer(TObject *Sender)
{
Image1->Canvas->Brush->Color=clRed;
Image1->Canvas->MoveTo(210,140);
Image1->Canvas->LineTo(290,140);
Timer5->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer5Timer(TObject *Sender)
{
Image1->Canvas->Brush->Color=clRed;
Image1->Canvas->MoveTo(290,140);
Image1->Canvas->LineTo(210,180);
Timer6->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer6Timer(TObject *Sender)
{
Image1->Canvas->Brush->Color=clRed;
Image1->Canvas->MoveTo(210,180);
Image1->Canvas->LineTo(260,240);
Timer7->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer7Timer(TObject *Sender)
{
Image1->Canvas->Brush->Color=clRed;
Image1->Canvas->MoveTo(260,240);
Image1->Canvas->LineTo(180,210);
Timer8->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer8Timer(TObject *Sender)
{
Image1->Canvas->Brush->Color=clRed;
Image1->Canvas->MoveTo(180,210);
Image1->Canvas->LineTo(100,240);
Timer9->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer9Timer(TObject *Sender)
{
Image1->Canvas->Brush->Color=clRed;
Image1->Canvas->MoveTo(100,240);
Image1->Canvas->LineTo(150,180);
Timer10->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer10Timer(TObject *Sender)
{
Image1->Canvas->Brush->Color=clRed;
Image1->Canvas->MoveTo(150,180);
Image1->Canvas->LineTo(60,140);
Image1->Picture->SaveToFile("C:\\Users\\FAZLIDDIN\\Desktop\\star\\star.bmp");
Form1->Canvas->FloodFill(70,140,clRed,fsSurface);
Image1->Hide();
Delay->Enabled=true;
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::DelayTimer(TObject *Sender)
{
Graphics::TBitmap* star = new Graphics::TBitmap;
star->LoadFromFile("C:\\Users\\FAZLIDDIN\\Desktop\\star\\star.bmp");
Form1->Canvas->Draw(x,y,star);
 
x=x+7;y=y+7;
}

Image1->Canvas->Brush->Color=clRed;
Form1->Canvas->FloodFill(70,140,clWhite,fsSurface);

Image1->Canvas->Brush->Color=clRed;
Image1->Canvas->FloodFill(70,140,clWhite,fsSurface);