mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2025-01-28 05:31:05 +00:00
25 lines
278 B
ObjectPascal
25 lines
278 B
ObjectPascal
|
program ExamplePen;
|
||
|
|
|
||
|
|
var
|
||
|
|
x, y: Integer;
|
||
|
|
Pt: Point;
|
||
|
|
|
||
|
|
begin
|
||
|
|
|
||
|
|
ShowDrawing;
|
||
|
|
PenSize(10, 1);
|
||
|
|
|
||
|
|
while true do
|
||
|
|
begin
|
||
|
|
repeat
|
||
|
|
until Button;
|
||
|
|
GetMouse(Pt);
|
||
|
|
MoveTo(Pt.h, Pt.v);
|
||
|
|
while Button do
|
||
|
|
begin
|
||
|
|
GetMouse(Pt);
|
||
|
|
LineTo(Pt.h, Pt.v);
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
end.
|