blob: 97fe838cb92d267bba0d44ddd90ef65b0d0410b8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
{$MODE MACPAS}
{$APPTYPE GUI}
program HelloMac;
{Demo of a simple program which uses the classic Macintosh Toolbox.
It also shows how to include a mac style resource file.}
USES
MacOS;
{$R HelloMac.r}
var
window: WindowPtr;
begin
InitGraf(@qd.thePort);
InitFonts;
InitWindows;
InitMenus;
TEInit;
InitDialogs(nil);
InitCursor;
window:= GetNewWindow(128, nil, WindowPtr(-1));
if window <> nil then
begin
SetPort(window);
MoveTo(20,20);
DrawString('Hello Free Pascal on the Mac :-)');
repeat
until Button;
end;
end.
|
