Заливка при нажатии мышкой

#include <vcl.h>
#include <math.h>
#pragma hdrstop
 
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
 
TForm1 *Form1;
 
int x0 = 10, y0 = 10;
const int N = 256;
int m[N-1][N-1];
 
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
 
void point(int x, int y)
{
    int num = StrToFloat(Form1->Edit1->Text);
    int shag = StrToFloat(Form1->Edit4->Text);
 
    int ra = shag/2;
    int px = x0+(x*shag)-shag;
    int py = y0+shag*(num-y);
 
    Form1->Canvas->Ellipse(px+1,py+1,px+2*ra,py+2*ra);
 
    m[x][y] = 1;
}
 
void grid()
{
    int num = StrToFloat(Form1->Edit1->Text);
    int shag = StrToFloat(Form1->Edit4->Text);
 
    Form1->Canvas->Pen->Color=(TColor)RGB(0,0,0);
    Form1->Canvas->Pen->Width=1;
 
    for(int i=0;i<=num;i++)
    {
        int f = i*shag;
        Form1->Canvas->MoveTo(x0+f,y0);
        Form1->Canvas->PenPos=TPoint(x0+f,y0);
        Form1->Canvas->LineTo(x0+f,y0+(num*shag));
 
        Form1->Canvas->MoveTo(x0+f,y0);
        Form1->Canvas->PenPos=TPoint(x0,y0+f);
        Form1->Canvas->LineTo(x0+(num*shag),y0+f);
    }
}
 
void line(int x, int y,int x1, int y1)
{
    StrToFloat(Form1->Edit1->Text);
    StrToFloat(Form1->Edit4->Text);
    int dx,dy,ch=0,ae,ax,ay;
 
    x1=x1-x; dx=abs(x1);
    y1=y1-y; dy=abs(y1);
 
    if(dy > dx)
    {
        dx=dx+dy; dy=dx-dy; dx=dx-dy;
        ch = 1;
    }
 
    if(!x1 && !y1) return;
    if(x1 < 0) x1 = -1; else x1 = 1;
    if(y1 < 0) y1 = -1; else y1 = 1;
 
    ax = dx<<1;
    ay = dy<<1;
    ae = ay-dx;
 
    for(int i=0;i<=dx+dy;++i)
    {
        point(x,y);
        if(ae>0)
        {
            if(ch) x+=x1; else y+=y1;
            ae-=ax;
        } else
        {
            if(ch) y+=y1; else x+=x1;
            ae+=ay;
        }
    }
}
 
void line_thin(double x, double y, double x1, double y1) 
{
    double Dx, Dy, l;
    int i=0;
    if (fabs(x1-x) >= fabs(y1-y)) 
    {
        l = fabs(x1-x);
    } 
    else 
    {
        l = fabs(y1-y);
    }
 
    Dx=(x1-x)/l;
    Dy=(y1-y)/l;
 
    while (i <= l) 
    {
        point(x,y);
        x+=Dx;
        y+=Dy;
        i+=1;
    }
    
    point(x1,y1);
}
 
void circle(int xc, int yc, int r)
{
    int x,y,d,x1,y1;
    x = 0;
    y = r;
    d = 3-(r<<1);
 
    while (x <= y)
    {
        point(x+xc,y+yc);
        point(x+xc,-y+yc);
        point(-x+xc,-y+yc);
        point(-x+xc,y+yc);
        point(y+xc,x+yc);
        point(y+xc,-x+yc);
        point(-y+xc,-x+yc);
        point(-y+xc,x+yc);
        if (d < 0)
        {
            d+=(x<<2)+6;
        } else {
            d+=((x-y)<<2)+10;
            --y;
        }
        x++;
    }
    if(x == y) point(x,y);
}
 
int circle_paint(int x, int y, int dir, int PrevXl, int PrevXr)
{
    int xl = x, xr = x;
 
    while (m[--xl][y] != 1);
    while (m[++xr][y] != 1);
 
    xl++; xr--;
    line(xl, y, xr, y);
 
    for (x = xl; x <= xr; x++)
        if (m[x][y+dir] != 1) x = circle_paint(x, y+dir, dir, xl, xr);
 
    for (x = xl; x < PrevXl; x++)
        if (m[x][y-dir] != 1) x = circle_paint(x, y-dir, -dir, xl, xr);
 
    for (x = PrevXr; x < xr; x++)
        if (m[x][y-dir] != 1) x = circle_paint(x, y-dir, -dir, xl, xr);
 
    return xr;
}
 
void triangle (int ax,int ay,int bx,int by,int cx,int cy)
{
  /*int x1,x2,T;
  int Ax, Ay, Bx, By, Cx, Cy;
   if ((ay >= by) && (ay >= cy))
   {
     Ay = ay;
     Ax = ax;
     if (by > cy)
       {
         By = by;   Cy = cy;
         Bx = bx;   Cx = cx;
       }
     else
       {
         By = cy;   Cy = by;
         Bx = cx;   Cx = bx;
       }
   }
   else if ((by >= ay) && (by >= cy))
   {
     Ay = by;
     Ax = bx;
     if (ay > cy)
       {
         By = ay;   Cy = cy;
         Bx = ax;   Cx = cx;
       }
     else
       {
         By = cy;   Cy = ay;
         Bx = cx;   Cx = ax;
       }
   }
   else if ((cy >= ay) && (cy >= by))
   {
     Ay = cy;
     Ax = cx;
     if (ay > by)
       {
         By = ay;   Cy = by;
         Bx = ax;   Cx = bx;
       }
     else
       {
         By = by;   Cy = ay;
         Bx = bx;   Cx = ax;
       }
   }
 for (int sy = Cy; sy <= Ay; sy++)
 {
    x1 = Ax + (sy - Ay) * (Cx - Ax) / (Cy - Ay);
   if (By < sy)
   {
      x2 = Ax + (sy - Ay) * (Bx - Ax) / (By - Ay);
   }
   else
   {
    if (Cy == By) x2 = Bx;
    else x2 = Bx + (sy - By) * (Cx - Bx) / (Cy - By);
   }
   if (x1 > x2)
   {
     T = x1; x1 = x2; x2 = T;
   }
  line(x1,sy,x2,sy);
 }*/
  line(ax,ay,bx,by);
  line(bx,by,cx,cy);
  line(cx,cy,ax,ay);
}
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    Form1->Repaint();   // Очистить все
    grid();             // Сетка
    int ax = StrToFloat(Form1->Edit8->Text);
    int ay = StrToFloat(Form1->Edit9->Text);
    int rr = StrToFloat(Form1->Edit7->Text);
    memset(m,0,N*N);
    Form1->Canvas->Brush->Color = clGreen;
    circle(ax,ay,rr);  // Большой круг
 
    ax = StrToFloat(Form1->Edit3->Text);
    ay = StrToFloat(Form1->Edit5->Text);
    rr = StrToFloat(Form1->Edit2->Text);
    circle(ax,ay,rr);   // Малый круг
 
    ax = StrToFloat(Form1->Edit10->Text);
    ay = StrToFloat(Form1->Edit11->Text);
    int bx = StrToFloat(Form1->Edit12->Text);
    int by = StrToFloat(Form1->Edit13->Text);
    int cx = StrToFloat(Form1->Edit14->Text);
    int cy = StrToFloat(Form1->Edit15->Text);
    triangle(ax,ay,bx,by,cx,cy);  //Треугольник
 
    Form1->Canvas->Brush->Color = clBlue;
    ax = StrToFloat(Form1->Edit16->Text);
    ay = StrToFloat(Form1->Edit17->Text);
    circle_paint(ax, ay, 1, ax, ax);  //Окрашивание
}
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    Form1->Repaint();
    grid();
    int ax = StrToFloat(Form1->Edit10->Text);
    int ay = StrToFloat(Form1->Edit11->Text);
    int bx = StrToFloat(Form1->Edit12->Text);
    int by = StrToFloat(Form1->Edit13->Text);
    int cx = StrToFloat(Form1->Edit14->Text);
    int cy = StrToFloat(Form1->Edit15->Text);
    triangle(ax,ay,bx,by,cx,cy);
}