Помогите исправить...
Код честно скопирован с одного сайта, но не пашет(что неудивительно). Очень нужна программа, с построчным заполнением многоугольника с затравкой.
Вы - последняя надежда:(
//---------------------------------------------------------------------
------
#include
#pragma hdrstop
#include "windows.h"
#include "Unit1.h"
//---------------------------------------------------------------------
------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int x0=0,y0=0,start=0,xtmp,ytmp,xmet=-4,ymet=-2,metka=0; // переменные
для построения графика
int tx,ty,xm,xr,xl,j,c,meta; //Переменные самого алгоритма
TColor kraska=clRed,bcolor=clBlue,nomy,my;
struct pointt {
unsigned int x;
unsigned int y;
};
static pointt pont[500][500]; //Матрица реализаций
int raz;
cel()
{
Form1->PaintBox1->Canvas->Pen->Color = bcolor;
Form1->PaintBox1->Canvas->Brush->Color=RGB(255,255,255);
Form1->PaintBox1->Canvas->Rectangle(10,10,210,110);
}
//---------------------------------------------------------------------
------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
kraska=RGB(255,0,0);bcolor=RGB(0,0,255);
cel();
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;
}
Stack()
{
tx=xl;
ty=ty+j;
while(tx<=xr)
{
c=0;
while((Form1->PaintBox1->Canvas-
>Pixels[tx][ty]!=bcolor)&&
(Form1->PaintBox1->Canvas-
>Pixels[tx][ty]!=kraska)&&(txPaintBox1->Canvas-
>Pixels[tx][ty]==bcolor)||
(Form1->PaintBox1->Canvas-
>Pixels[tx][ty]==kraska)) tx--;
pont[raz]->x=tx;
pont[raz]->y=ty;
}
tx=tx+1;
while(((Form1->PaintBox1->Canvas-
>Pixels[tx][ty]==bcolor)||
(Form1->PaintBox1->Canvas-
>Pixels[tx][ty]==kraska))&&(txxl))
{tx=tx+1;}
}
}
Zaliv()
{
raz=1;
pont[raz]->x=x0;
pont[raz]->y=y0;
while(raz>0)
{
tx=pont[raz]->x;
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();
//Canvas->Brush->Color = (Graphics::TColor) $(00FF0000);
}
if (Button==mbRight)
{
Canvas->Pen->Color = bcolor;
Canvas->LineTo(x0,y0);
metka=0;
start=0;
}
}
//---------------------------------------------------------------------
------
//---------------------------------------------------------------------
------
void __fastcall TForm1::movexy(TObject *Sender, TShiftState Shift, int
X,
int Y)
{
Label2->Caption=X;
Label4->Caption=Y;
// xtmp=X;ytmp=Y;
//Label6->Caption=Canvas->Pixels[x0][y0];
//Zaliv();
}
//---------------------------------------------------------------------
------
void __fastcall TForm1::vpered(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
Edit1->Text=" Выберите точку закраски";
start=5;
}
//---------------------------------------------------------------------
------
void __fastcall TForm1::reset_key(TObject *Sender, TMouseButton
Button,
TShiftState Shift, int X, int Y)
{
start=0;
PaintBox1->Visible=false;
PaintBox1->Visible=true;
start=0;
Edit1->Text="<-- Нарисуйте гранично-заданную область -->";
}
//---------------------------------------------------------------------
------
