| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TImage

лом ©   (2006-01-21 20:06:00) 

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

---

Ega23 (from home)   (2006-01-21 20:19:00) [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 - в параметрах

---

Наверх