здравствуйте.необходимо создать графическое приложение,фигуры в котором строятся по координатам,который вводит пользователь.
Внизу приведен код построения прямоугольника,в нем задается 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
заранее благодарю за помощь)