mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-12-28 01:29:49 +00:00
25 lines
397 B
ObjectPascal
25 lines
397 B
ObjectPascal
|
program ExampleStrings;
|
||
|
|
|
||
|
|
var
|
||
|
|
width, height: Integer;
|
||
|
|
ws, hs, combined: str255;
|
||
|
|
drawingRect: Rect;
|
||
|
|
|
||
|
|
begin
|
||
|
|
|
||
|
|
width := 220;
|
||
|
|
height := 140;
|
||
|
|
|
||
|
|
NumToString(width, ws);
|
||
|
|
NumToString(height, hs);
|
||
|
|
|
||
|
|
SetRect(drawingRect, 60, 60, 60 + width, 60 + height);
|
||
|
|
|
||
|
|
ShowDrawing;
|
||
|
|
SetDrawingRect(drawingRect);
|
||
|
|
MoveTo(20, 20);
|
||
|
|
WriteDraw('Window Size');
|
||
|
|
MoveTo(20, 40);
|
||
|
|
WriteDraw(concat(ws, 'x', hs));
|
||
|
|
|
||
|
|
end.
|