Цитата:
|
Сообщение от 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;