Гибкие линии

← →
Victor (2004-09-06 10:21) [0]

Доброго всем дня. Подскажите как сделать линии, чтоб их можно было перемещать, растягивать(!) (как в Word или Delphi на закладке Diagram).

← →
GuAV © (2004-09-07 00:37) [1]

Я это представляю так:

1. Скопировать объявление TShape.
2. убрать FBrush: TBrush; FShape: TShapeType; и всё связанное с этими.
3. Добавить свои свойства, отвечающие за направление линии. Типы свойств и их количество определяются поставленной задачей.
4. Написать часть реализации.
5. При необходимости написать компонент отвечающий за узел. Опять же при необходимости можно показывать на палитре только его, но не компонент-линию.

Гибкие линии Найти похожие ветки