Цитата:
|
Сообщение от Mp3
что- то не представляю как это должно выглядеть...а таймер и дергает же paint начинается отрисовка по времени
|
Как минимум в самом начале обработчика события таймера добавь "Repaint;"
Ещё убери затирание стрелочки (вектора) вместе с бесполезным массивом.
А также перенеси всё рисование из обработчика таймера в обработчик "TForm1.onPaint". А когда это сделаешь - можешь убрать в начале обработчика таймера "Repaint;" и поставить вместо этого в конце "Invalidate;"
По поводу процедуры "vector": Если она у тебя предназначена для рисования только на "TForm1", то сделай её методом этого класса. Если же нужно чтобы она рисовала на любой канве, то оставь её обычной процедурой, но добавь в параметры "Canvas: TCanvas" и рисуй на этой канве. А то сейчас процедура "vector" у тебя ни то ни сё
И поубирай бесполезные упоминания переменной "Form1".