[cybervampire]

Доброго времени суток всем. Не знал куда написать на эту тем, решил написать в тему для новичков.
Есть программа, которая делает следующее.
На форме есть Image. При MouseDown начинает рисовать прямоугольник, MouseMove ведет по курсору и маштабирует это самый прямоугольник. MouseUp рисует уже готовый прямоугольник.
Вопрос в следующем. Мне нужно сделать там Круг, линию, прямоугольник вдоль которого идет линия.
Может кто помочь с реализацией? Во вложении находиться исходник.
Прошу объяснить что и как, дабы в будущем разобраться что к чему. Мало ли что может случится)

[YVitaliy]

Если нужно строить схемы, делать надо по-другому. Пока реализовал по твоем принципу. У меня Delphi7, так что нечто из uses поудалял, если хочешь верни.

[cybervampire]

спасибо, погляжу сейчас, если что, напишу)

[cybervampire]

А если я захочу добавить новую фигуру, мне в Type прописать надо еще 1 тип?

[YVitaliy]

Сообщение от cybervampire

А если я захочу добавить новую фигуру, мне в Type прописать надо еще 1 тип?

Не понял
В моем случае нужно прописать процедуру рисования для соответствующей фигуры. Типов нет, но для рисования именно схем лучше работать с типами, как обьект Прямоугольник, обьект Линия, обьект Эллипс и тд..

А, сор, понял
Да, в PrimitiveType можно дописать тип. Но не забыть дописать процедуру его рисования, поместить ее в условие DrawFigure, и, конечно, при клике на чекбоксе задавать соответствующую фигуру.