Рисование

← →
1Raily (2004-03-11 19:56) [0]

Как сделать прогу, где 6надо нижимать мушкой в двух местах и между ними будет рисоваться прямая? Это наверно не сложно, просто я только начинаю изучать Delphi

← →
Petr V. Abramov © (2004-03-11 20:08) [1]

> где 6надо нижимать мушкой
Мушку надо спилить :) А почитать про OnMouseDown, OnMouseUp и про TCanvas.

← →
ssk (2004-03-11 20:23) [2]

мда... по-русски бы научиться сначала писать, а потом уж по-программерски :-)

Заводишь переменную TPoint, в событии OnMouseUp проверяешь какой по счету клик: если первый - то заполняешь ее координатами X и Y, переданными в процедуру системой. Если второй - то делаешь
Image.Canvas.MoveTo(переменная1.x, переменная1.y);
Image.Canvas.LineTo(X,Y), где X и Y координаты нового клика.

Рисование Найти похожие ветки