Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.043 c
2-1137793506
newprogrammer
2006-01-21 00:45
2006.02.05
CASE OF


2-1137349244
Только начавший
2006-01-15 21:20
2006.02.05
Передача параметров принтеру


15-1137132775
Тульский
2006-01-13 09:12
2006.02.05
Задача по программированию


15-1137314002
Kerk
2006-01-15 11:33
2006.02.05
Домены за $2.99 в год


15-1136657120
Суслик
2006-01-07 21:05
2006.02.05
Breakpoints в runtime пакетах