Текущий архив: 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.046 c
