Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

проблемы с заливкой


std25 ©   (2012-12-05 08:08:00) 

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


std25   (2012-12-05 10:56:00) [1]

во всем разобрались))спасибо большое за помощь))))


Плохиш   (2012-12-05 10:21:00) [2]


> про Colordialog я хотела бы совета, как его привязать к
> fooldfill и вообще возможно ли это???т.е. вместо вот этой
> строки

if Colordialog.execute then brush.color:=Colordialog.color;
вот как то так

PS. Но лучше нанять программиста. Т.к. о предаче/сохранении значений в переменных начинается повествование в любой брошуре по программированию для начинающих.


std25   (2012-12-05 09:25:00) [3]

про Colordialog я хотела бы совета, как его привязать к fooldfill и вообще возможно ли это???т.е. вместо вот этой строки
brush.color:=clRed;
можно было бы вызвать колордиолог и выбрать цвет.вот как то так))


MBo   (2012-12-05 08:26:00) [4]

Во-первых, если не делать
Brush.Style := bsClear;
то прямоугольник будет нарисован закрашенным без дополнительных ухищрений

Во-вторых, если всё же FloodFill нужен, то (x1+x) div 2 даст середину прямоугольника по x-координате
А какие трудности с Colordialog?


Наверх

Титульная страница Поиск, карта сайта Написать письмо