![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Плавающие связи
micky_ © (2006-02-15 16:42:00)Здравствуйте. Подскажите пожалуйста какми образом можно реализовать плавающую связь между объектами, как это сделано, например в закладке Diagram редактора Delphi. Т.е. создать объекты, которые можно было бы перемещать вместе со связями. Может быть есть путный пример?
XProger (2006-02-15 19:50:00) [1]
Canvas.MoveTo(Obj.X, Obj.Y);
Canvas.LineTo(Obj.Link[i].X, Obj.Link[i].Y);
Canvas.Brush.Color := Obj.Color;
Canvas.FillRect(Obj.X - Obj.Width div 2, Obj.Y - Obj.Height div 2);
При перерисовке поля в цикле по объектам и их связям...