закраска фигуры

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type trg=record
         a,b,c:TPoint;
         end;
var
  Form1: TForm1;
  x1,y1,x2,y2,x3,y3,x4,y4:integer;
implementation
 
{$R *.dfm}
//принадлежность точки треугольнику
function Prin(x,y,x1,y1,x2,y2,x3,y3:integer):boolean;
var s,s1,s2,s3:real;
begin
//определим удвоенные площади 4х треугольников
s:=abs((x1-x3)*(y2-y3)-(x2-x3)*(y1-y3));//основного
s1:=abs((x-x3)*(y2-y3)-(x2-x3)*(y-y3)); //и 3х внутренних
s2:=abs((x1-x3)*(y-y3)-(x-x3)*(y1-y3));
s3:=abs((x1-x)*(y2-y)-(x2-x)*(y1-y));
Prin:=abs(s-s1-s2-s3)<0.1;//если площади равны с заданной точностью, точка в треугольнике
end;
//рисуем фигуру=трапеция разбита на 7 треугольников
procedure TForm1.Button1Click(Sender: TObject);
var xc,yc,w,h,x,i:integer;
begin
xc:=Image1.Width div 2;
yc:=Image1.Height div 2;
w:=50;
h:=40;
x1:=xc-4*w;y1:=yc+h;
x2:=xc-3*w;y2:=yc-h;
x3:=xc+3*w;y3:=yc-h;
x4:=xc+4*w;y4:=yc+h;
with Image1.Canvas do
 begin
  pen.Color:=clRed;
  pen.Width:=3;
  moveto(x1,y1);
  lineto(x4,y4);
  moveto(x2,y2);
  lineto(x3,y3);
  x:=x1;
  for i:=1 to 8 do
  if odd(i) then
   begin
    moveto(x+(i-1)*w,y1);
    lineto(x+(i-1)*w+w,y2)
   end
  else
   begin
    moveto(x+(i-1)*w,y2);
    lineto(x+(i-1)*w+w,y4);
   end;
  end;
end;
 
//закрашиваем треугольники по одному
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
with Image1.Canvas do
 begin
  Brush.Style:=bsSolid;
  Brush.Color:=clRed;
  //если курсор в пределах трапеции
  if Prin(x,y,x1,y1,x2,y2,x3,y3)or Prin(x,y,x3,y3,x4,y4,x1,y1)
  then floodfill(x,y,clRed,fsBorder);//закрасим треугольник
 end;
end;
 
end.