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

ty=pont[raz]->y;

raz=raz-1;

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

Zakras();

j=1;

Stack();

j=-2;

Stack();

}

Form1->Edit1->Text="Все закончилось";

}

void __fastcall TForm1::drawing(TObject *Sender, TMouseButton Button,

TShiftState Shift, int X, int Y)

{

if(start==5) {x0=X;y0=Y;Canvas->Pixels[X][Y]=kraska;

Zaliv();

}

if((Button==mbLeft)&&(start!=5))

{

Canvas->Pen->Color = bcolor; // выбрать цвет контура

// Brush->Color = clYellow; // выбрать цвет заливки

if(metka==1) Canvas->LineTo(X,Y);

metka=1;

// нарисовать эллипс

xtmp=X;

ytmp=Y;

Canvas->MoveTo(X,Y);

if(start==0) {x0=X,y0=Y;start=1;}

// randomize();