[std25]

здравствуйте.необходимо создать графическое приложение,фигуры в котором строятся по координатам,который вводит пользователь.
Внизу приведен код построения прямоугольника,в нем задается 4 координаты.

Код:

x1:=strtoint(Edit1.Text);
  y1:=strtoint(Edit2.Text);
  x:=strtoint(Edit3.Text);
  y:=strtoint(Edit4.Text);
  with Form2.Image1.Canvas do begin
Pen.Width := 2;
Brush.Style := bsClear;
Pen.Color := clBlue;
Rectangle(x1,y1,x,y);
close;
end;

а теперь вопрос,как осуществить заливку данного прямоугольника по кнопке(типо как в Paint)/ Выбрать фигуру,выбрать цвет и затем ее залить.
я не могу понять как в заливку типа

Код:

begin
with Image1.Canvas do begin
 brush.color:=clRed;
 floodfill(10,10,pixels[10,10],fsSurFace);
end;

Админ: Пользуемся тегами для оформления кода!

можно передать мои 4 координаты x,y,x1,y1 и как подключить к ней ColorDiolog

заранее благодарю за помощь)

[poli-smen]

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

Brush.Style := bsClear;
Pen.Color := clBlue;
Rectangle(x1,y1,x,y);
close;
end;

а теперь вопрос,как осуществить заливку данного прямоугольника по кнопке(типо как в Paint)/

Ну Rectangle и так умеет заливать прямоугольник цветом кисти если заменить bsClear на bsSolid.
Если же нужно заливать не фигуру, а как Paint в указанной точке, то используй координаты этой точки в FloodFill.
Ещё можешь например для прямоугольника (Rectangle) посчитать координаты его центра и туда "ткнуть" FloodFill, но если под прямоугольником уже было что-то нарисовано, то FloodFill может не залить полностью весь прямоугольник.

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

Выбрать фигуру,выбрать цвет и затем ее залить.
я не могу понять как в заливку типа

begin
with Image1.Canvas do begin
brush.color:=clRed;
floodfill(10,10,pixels[10,10],fsSurFace);
end;

можно передать мои 4 координаты x,y,x1,y1 и как подключить к ней ColorDiolog

ColorDialog1 используется так:

Код:

  if ColorDialog1.Execute then
  begin
    ShowMessage('Выбрали цвет '+IntToHex(ColorDialog1.Color));
  end;

[std25]

спасибо большое)))очень помогли))))