7 lines
160 B
ObjectPascal
7 lines
160 B
ObjectPascal
|
uses GraphABC;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
Window.Title := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>';
|
|||
|
|
OnMouseDown := (x,y,mb) -> MoveTo(x,y);
|
|||
|
|
OnMouseMove := (x,y,mb) -> if mb=1 then LineTo(x,y);
|
|||
|
|
end.
|