void __fastcall TForm1::open1Click(TObject *Sender)
{
vibor->Execute(); // выбираем файл
Image->Picture->LoadFromFile(vibor->FileName);
Image->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::fillClick(TObject *Sender)
{
ColorDialog->Execute();
d=1;
x=(Image->Width)/2;
y=(Image->Height)/2;
Image1->Canvas->Pixels[x][y]=ColorDialog->Color;
Timer->Enabled=true;
Image1->Canvas->CopyMode=cmSrcAnd; // включаем режим наложения
Image1->Canvas->CopyRect(Rect(0,0,Image1->Width,Image1->Height),Image->Canvas,Rect(0,0,Image->Width,Image->Height));
}
//---------------------------------------------------------------------------
// в Image - рисунок, кот.надо закрасить image1- на нем рисуем по пиксельно
void __fastcall TForm1::TimerTimer(TObject *Sender)
{
for (i=1;i<=d;i++)
{
y++;
if (x==0) Timer->Enabled=false;
Image1->Canvas->Pixels[x][y]=ColorDialog->Color;
}
Image1->Canvas->CopyMode=cmSrcAnd;
Image1->Canvas->CopyRect(Rect(0,0,Image1->Width,Image1->Height),Image->Canvas,Rect(0,0,Image->Width,Image->Height));
for (i=1;i<=d;i++)
{
x++;
Image1->Canvas->Pixels[x][y]=ColorDialog->Color;
}
d++;
for (i=1;i<=d;i++)
{
y--;
Image1->Canvas->Pixels[x][y]=ColorDialog->Color;
}
for (i=1;i<=d;i++)
{
x--;
Image1->Canvas->Pixels[x][y]=ColorDialog->Color;
}
d++;
}
Вот Timer используется чтоб увидеть как рисунок из центра закрашивается. В таймере получается изменяется координаты , так что закраска идет змейкой вокруг центрального пикселя и т.д.
Вот и вот не подскажите как сделать, чтоб любым цветом закрашивалось, а то получается если выбрать любой другой цвет , то получиться как будто цветной фильтр, иными словами если посмореть на голубое небо через красное стекло.
(Препод достал уже все ему переделывать надо)