Закрасить картинку на С++Builder Опции

[Child of Bodom]

Люди поможите еще раз? в общем в билдере 6 работаю вот. Вот и надо допустим открыл рисунок в Image . Вот и надо чтоб он из центра закрашивался по пикселям.Причем надо сделать чтобы можно было выбирать цвет закраски. Я почти зделал эту прогу , и она работает как надо но только с черным цветом. А надо чтоб выбрал цвет , и этим цветом закрасилось.

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 используется чтоб увидеть как рисунок из центра закрашивается. В таймере получается изменяется координаты , так что закраска идет змейкой вокруг центрального пикселя и т.д.
Вот и вот не подскажите как сделать, чтоб любым цветом закрашивалось, а то получается если выбрать любой другой цвет , то получиться как будто цветной фильтр, иными словами если посмореть на голубое небо через красное стекло.

(Препод достал уже все ему переделывать надо)

Сообщение отредактировано: Child of Bodom - 24.12.2007 20:35

[volvo]

получается если выбрать любой другой цвет , то получиться как будто цветной фильтр, иными словами если посмореть на голубое небо через красное стекло.

Присоедини свой проект (вместе с рисунком). Я только что попробовал сделать так, как ты показываешь - никакого "эффекта прозрачности" нет близко, все закрашивается сплошным цветом...

[Child of Bodom]

Вот все равно получается фото фильтр

[volvo]

А чего ты сразу не грузишь изображение в Image1->Picture, и в нем напрямую не закрашиваешь пиксели? Зачем этот промежуточный Image?

[Child of Bodom]

А чего ты сразу не грузишь изображение в Image1->Picture, и в нем напрямую не закрашиваешь пиксели? Зачем этот промежуточный Image?

Да не Image на нем открытый файл , а на Image1 я рисую пиксели потом их совмещаю
а я так пробовал(все на одном делать) получалось что вместо открытого рисунка создавался как бы новый белый фон и на нем рисовались пиксели

[volvo]

Да не Image на нем открытый файл , а на Image1 я рисую пиксели потом их совмещаю

А вот я тебя и спрашиваю, ЗАЧЕМ??? Что, сначала создаешь себе препятствия, а потом их с успехом преодолеваешь? Так вот не очень-то преодолевается, как видно... Зачем морочить голову себе с ДВУМЯ картинками и постоянным копированием с одной на другую, если то же самое можно сделать простым заполнением пикселей на одной и той же картинке? Ведь все совершенно просто:

void __fastcall TForm1::open1Click(TObject *Sender)
{
	if(vibor->Execute()) {
		Image1->Picture->LoadFromFile(vibor->FileName);
		Image1->Enabled=true;
	}
}

//---------------------------------------------------------------------------
void __fastcall TForm1::fillClick(TObject *Sender)
{
	if(ColorD->Execute()) {
		d = 1;
		x = (Image1->Width)/2;
		y = (Image1->Height)/2;
		Image1->Canvas->Pixels[x][y]=ColorD->Color;
		Timer->Enabled = true;
	}

}

//---------------------------------------------------------------------------
void __fastcall TForm1::TimerTimer(TObject *Sender)
{
  for(i = 1; i <= d; i++) {
	 if(!x) Timer->Enabled = false;
	 Image1->Canvas->Pixels[x][++y]=ColorD->Color;
   }

   for(i = 1;i <= d; i++) {
	 Image1->Canvas->Pixels[++x][y]=ColorD->Color;
   }
   d++;
   for(i = 1;i <= d; i++) {
	 Image1->Canvas->Pixels[x][--y]=ColorD->Color;
   }
   for(i = 1;i <= d; i++) {
	 Image1->Canvas->Pixels[--x][y]=ColorD->Color;
   }
   d++;
}

Что работает не так?

[Child of Bodom]

или я дибил или просто устал от учебы . странно я с самого начала(когда первый раз писал ее ) пробовал так у меня появлялся белый фон и на нем рисовалось. Вот я тупой

Спасибо за помощь