2017-12-17 14:40:06 +03:00
|
|
|
|
uses GraphWPF;
|
2017-08-26 00:30:33 +03:00
|
|
|
|
|
|
|
|
|
|
begin
|
2017-12-17 14:40:06 +03:00
|
|
|
|
Window.Title := 'Рисование мышью';
|
2017-08-26 00:30:33 +03:00
|
|
|
|
Pen.Color := Colors.Blue;
|
|
|
|
|
|
Pen.Width := 3;
|
|
|
|
|
|
OnMouseDown := (x,y,mb) -> MoveTo(x,y);
|
|
|
|
|
|
OnMouseMove := (x,y,mb) -> if mb=1 then LineTo(x,y);
|
|
|
|
|
|
OnKeyDown := k -> if k = Key.Space then Window.Save('a.png');
|
|
|
|
|
|
end.
|
