Необходимо, чтобы нарисованные объекты можно было передвигать.
Пытаюсь рисовать все эти объекты через TControl.
Может есть другой способ рисования объектов без потери их мобильности и масштабирования?
И потом последуют ещё проблемы: UNDO, REDO и как нарисованное сохранять в файле?   

Это сообщение отредактировал(а) Bodrox - 14.5.2006, 10:59

А зачем TControl? Можно самому написать класс. Например класс надпись TGraphLalel с полями текст, выравнивание, цвет...
Надписи хранить в списке, чё-нить типа этого:

  TListOfGraphLalels = class(TList)
  public
    procedure RepaintLabels(...);
  end;

Создать класс TDocument и списки для разных объектов хранить в нём.

на событие перерисовки формы прописать
  Document.ListOfGraphLalels.RepaintLabels(...);
  ...
  Document.ListOfGraphOthers.RepaintOthers(...);

Написать обработчик на перетаскивание...

для  UNDO, REDO хратить версию Documentв памяти или как нибудб на диске.

Нарисованное сохранять в файле можно в виде Emf / Bmp. Или придумать свой формат и скидывать туда всю инфу как в поток...

Простор для мечты и для жизни...
 

точнее OnMouseDown OnMouseUp OnMouseMove


Нужно создавать класс который хранил бы координаты всех вершин,
изменяя координаты вершин (с последующей перерисовкой) сдвинем объект


тут совсем не понятно, как связан Control и графика???



нужно вести журнал изменений и затем эти изменения обращать.
 

А мона с сорцами, если каму не сложно!

А не проще готовый CAD пакет на torry взять?
Там есть бесплатные