11 lines
148 B
ObjectPascal
11 lines
148 B
ObjectPascal
|
uses GraphABC;
|
||
|
|
|
||
|
|
procedure MouseMove(x,y,mb: integer);
|
||
|
|
begin
|
||
|
|
if mb=1 then
|
||
|
|
Circle(x,y,Random(5,25))
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
OnMouseMove := MouseMove;
|
||
|
|
end.
|