mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-06-14 21:29:34 +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. |