Реферат: Закраска гранично-заданной области с затравкой, Машинная графика, C Builder 4.0

Edit1->Text="<-- Нарисуйте гранично-заданную область -->";

}

//---------------------------------------------------------------------------

Zakras()

{

xm=tx;

while(Form1->PaintBox1->Canvas->Pixels[tx][ty]!=bcolor)

{

Form1->PaintBox1->Canvas->Pixels[tx][ty]=kraska;

tx=tx+1;

if (tx<=0) break;

if (ty<=0) break;

if (tx>420) break;

if (ty>420) break;

}

if(Form1->PaintBox1->Canvas->Pixels[tx][ty]==bcolor) xr=tx-1;

tx=xm;

while(Form1->PaintBox1->Canvas->Pixels[tx][ty]!=bcolor)

{

Form1->PaintBox1->Canvas->Pixels[tx][ty]=kraska;

tx=tx-1;

if (tx<=0) break;

if (ty<=0) break;

if (tx>420) break;

if (ty>420) break;

}

tx=tx+1;

if(Form1->PaintBox1->Canvas->Pixels[tx-1][ty]==bcolor) xl=tx;

}