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 - в параметрах

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