#include "resource.pas"
APPICON ICON "APPICON.ICO"
APPMENU MENU
BEGIN
POPUP "&File"
BEGIN
MENUITEM "E&xit", IDM_EXIT
END
POPUP "&Help "
BEGIN
MENUITEM "&About TextOut ...", IDM_ABOUT
END
END
ABOUTBOX DIALOG 42, 20, 170, 90
STYLE DS_MODALFRAME | WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU
CAPTION "About TextOut"
FONT 8, "MS Sans Serif"
BEGIN
ICON "APPICON", -1, 10, 10, 32, 32
LTEXT "Win32 API Example - Functions", -1, 35, 10, 170, 10
LTEXT "TextOut", -1, 35, 20, 170, 10
CTEXT "Copyright \251 1997 You can copy it",-1, 1, 40, 170, 10
CTEXT "All rights reserved.", -1, 1, 48, 170, 10
DEFPUSHBUTTON "OK", IDOK, 60, 67, 50, 14
END