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

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

Плавающие связи


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);

При перерисовке поля в цикле по объектам и их связям...


Наверх

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