Помогите создать программу раскраску(заливка замкнутых контуров)

[sinobithug]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    ColorDialog1: TColorDialog;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('C:\Apex\A.bmp');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Image1.Canvas.Brush.Color:=ColorDialog1.Color;
Image1.Canvas.Brush.Style:=bsSolid;
end;

end.

Вопрос:Как закрашивать контуры на изображении?

[VadEr]

Попробуй это:
Для закраски замкнутых областей у канвы есть метод FloodFill(X, Y: Integer; Color: TColor; FillStyle: TFillStyle) закрашивает кистью Brush замкнутую область канвы, определенную цветом и начальной точкой закрашивания (x,y). Точка с координатами x,y является произвольной внутренней точкой заполняемой области, которая может иметь произвольную форму. Граница этой области определяется сочетанием параметров Color и FillStyle. Параметр Color указывает цвет, который используется при определении границы закрашиваемой области, а параметр FillStyle определяет, как именно по этому цвету определяется граница. Если FillStyle=fsSurface, то заполняется область, окрашенная цветом Color, а на других цветах метод останавливается. Если FillStyle=fsBorder, то наоборот, заполняется область окрашенная любыми цветами, не равными Color, а на цвете Color метод останавливается.

[Stilet]

Вообще то есть метод Canvas.Polygon, который хорошо описан в хелпе. Его и используют для рисования закрашенных областей )

[sinobithug]

VadEr
FloodFill не подходит. Мне нужно закрашивать место куда я кликну мышью а не по кооординатам. Мне надо сделать заливку как в пэинте.

[VadEr]

Координаты мыши (x,y) можно получить спомощью события OnMouseDown (Генерируется, когда нажата кнопка мыши). Далее вставляете x и y в FloodFill.

[sinobithug]

Сообщение от VadEr

Координаты мыши (x,y) можно получить с помощью события OnMouseDown .

Подскажите пожалуйста как это делается

[sinobithug]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
Button2: TButton;
ColorDialog1: TColorDialog;
procedure Button1Click(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('C:\Ape x\A.bmp');

end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
cur:TPoint;

begin
If colordialog1.Execute then
Image1.Canvas.Brush.Color:=colorDia log1.Color;
Image1.Canvas.Brush.Style:=bsSolid;
Image1.Canvas.FloodFill(cur.X,cur.Y ,clBlack,fsBorder);
end;

end.


Почему то ничего не закрашивает.

[VadEr]

Image1.Canvas.FloodFill(cur.X,cur.Y,clBlack,fsBorder);

Image1.Canvas.FloodFill(X,Y ,clBlack,fsBorder);

[sinobithug]

Не известные идеитефикаторы x y
Их надо задать в var
какой тип данных им присвоить?







procedure TForm1.Button1Click(Sender: TObject);
var
X:TPoint;
Y:TPoint;

begin
Image1.Picture.LoadFromFile('C:\Ape x\A.bmp');
If colordialog1.Execute then
Image1.Canvas.Brush.Color:=colorDia log1.Color;
Image1.Canvas.Brush.Style:=bsSolid;
Image1.Canvas.FloodFill( X,Y,clBlack,fsBorder);
end;
Ошибка.
Incopatible types Integer and TPoint

[VadEr]

Их не нада задавать, они уже объявлены (уберите var):

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
If colordialog1.Execute then
Image1.Canvas.Brush.Color:=colorDia log1.Color;
Image1.Canvas.Brush.Style:=bsSolid;
Image1.Canvas.FloodFill(X,Y ,clBlack,fsBorder);
end;

end.