Текущий архив: 2006.02.05;
Скачать: CL | DM;

Вниз

TImage   Найти похожие ветки 

← →
лом   (2006-01-21 20:06) [0]

Как по движению мыши рисовать линию, на канвасеTImage
никогда, не сталкивался  ранее с подобной задачей.
Помгите примером

---

← →
Ega23 (from home)   (2006-01-21 20:19) [1]

OnMouseDown
OnMouseMove
OnMouseUp
+ переменная IsMouseDowned:Boolean и LastMouseMovePoint:TPoint

На MouseDown
IsMouseDowned := True;
LastMouseMovePoint.X:=X
LastMouseMovePoint.Y:=Y

На MouseUp
IsMouseDowned := False;

На MouseMove
if not IsMouseDowned then Exit;
MoveTo(LastMouseMovePoint)
Lineto(CurrentMousePoint)
LastMouseMovePoint:=CurrentMousePoint

CurrentMousePoint - в параметрах

---

Страницы: 1 вся ветка

Текущий архив: 2006.02.05;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.026 c