20 lines
302 B
ObjectPascal
20 lines
302 B
ObjectPascal
// Èëëþñòðàöèÿ îáðàáîòêè ñîáûòèé ìûøè
|
|
uses GraphABC;
|
|
|
|
procedure MouseDown(x,y,mb: integer);
|
|
begin
|
|
MoveTo(x,y);
|
|
end;
|
|
|
|
procedure MouseMove(x,y,mb: integer);
|
|
begin
|
|
if mb=1 then LineTo(x,y);
|
|
end;
|
|
|
|
begin
|
|
// Ïðèâÿçêà îáðàáîò÷èêîâ ê ñîáûòèÿì
|
|
OnMouseDown := MouseDown;
|
|
OnMouseMove := MouseMove
|
|
end.
|
|
|