mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-24 15:16:34 +02:00
38 lines
556 B
ObjectPascal
38 lines
556 B
ObjectPascal
{$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.
|