TVector - протсто мой тип, введенный для удобства. Это 2 точки, описывающие начало и конец вектора. pnToolBar - это просто панель, ну назвал я ее так. btGetVectors - кнопка для задания векторов (фактически, там машина состояний). pnBottom - тоже панель, куда выводятся координаты. pbdraw - Paintbox, на котором и происходит отрисовка. btMult - кнопка, запускающая процесс "умножения" (в моем примере - сдвиг вектора).
Предесть использования TPaintBox в том, что там ненадо ничего делать для стирания "следов" предыдущей отрисовки, т.к. там надо заного отрисовывать всю картинку.
Можно попробовать и твою поправить.
Выложи архивом весь проект, будет время - гляну (или еще кто глянет).
|