347 lines
15 KiB
Plaintext
347 lines
15 KiB
Plaintext
/************************************************************/
|
||
/* Windows Write, Copyright 1985-1992 Microsoft Corporation */
|
||
/************************************************************/
|
||
|
||
|
||
/* Dialog Boxes */
|
||
|
||
|
||
#define WS_TABONLY (WS_TABSTOP | WS_GROUP) /* only tab can get to the item */
|
||
|
||
#define WDialog DIALOG MOVEABLE
|
||
#define WStyle STYLE DS_MODALFRAME|WS_SYSMENU|
|
||
|
||
|
||
/* note this may be a child of dlgOpen, so its start is based on its parent */
|
||
dlgWordCvt WDialog 22, 22, 220, 60
|
||
WStyle WS_DLGFRAME | WS_POPUP
|
||
FONT 8 "Helv"
|
||
CAPTION "Write"
|
||
begin
|
||
icon DI_EXCLAMATION, idiNil, 15, 8, 0, 0
|
||
ctext "", idiConvertPrompt, 35, 14, 180, 20
|
||
defpushbutton "&Convert", idiOk, 25, 39, 48, 14, WS_TABONLY
|
||
pushbutton "&No Conversion", idiNo, 81, 39, 65, 14, WS_TABONLY
|
||
pushbutton "Cancel", idiCancel, 155, 39, 40, 14, WS_TABONLY
|
||
end
|
||
|
||
#ifdef ONLINEHELP
|
||
dlgHelp DIALOG 30, 20, 280, 120
|
||
STYLE WS_POPUP | WS_DLGFRAME | WS_VISIBLE
|
||
begin
|
||
ltext "Windows Write V0.53", idiNil, 180, 10, 90, 12
|
||
ltext "June 19, 1985", idiNil, 180, 20, 90, 12
|
||
ltext "", idiMemFree, 180, 30, 16, 12
|
||
ltext "% free memory", idiNil, 200, 30, 70, 12
|
||
listbox idiHelp, 5, 5, 160, 112, LBS_NOTIFY | WS_VSCROLL | WS_VISIBLE | WS_TABSTOP | WS_BORDER
|
||
defpushbutton "&Help", idiOk, 180, 90, 40, 14, WS_TABONLY
|
||
pushbutton "Cancel", idiCancel, 230, 90, 40, 14, WS_TABONLY
|
||
end
|
||
|
||
/* The real size of this dialog box and its children is calculated in help. c */
|
||
|
||
dlgHelpInner DIALOG 30, 40, 110, 80
|
||
STYLE WS_POPUP | WS_BORDER | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
|
||
caption "About Windows Write"
|
||
begin
|
||
ltext "", idiHelpName, 5, 5, 1, 1
|
||
control "", idiHelpScroll, "ScrollBar",
|
||
WS_TABONLY | SBS_VERT, 1,1,1,1
|
||
defpushbutton "Topics", idiHelpTopics, 1, 1, 1, 1, WS_TABONLY
|
||
pushbutton "Next", idiHelpNext, 2, 2, 1, 1, WS_TABONLY
|
||
pushbutton "Previous", idiHelpPrev, 3, 3, 1, 1, WS_TABONLY
|
||
pushbutton "Cancel", idiCancel, 4, 4, 1, 1, WS_TABONLY
|
||
end
|
||
|
||
#else
|
||
dlgHelp WDialog 30, 20, 160, 100
|
||
WStyle WS_POPUP | WS_DLGFRAME
|
||
FONT 8 "Helv"
|
||
CAPTION "About Write"
|
||
begin
|
||
#ifdef OS2
|
||
ctext "Microsoft OS/2", idiNil, 41, 10, 78, 8
|
||
ctext "Version 2.0", idiNil, 60, 44, 40, 8
|
||
#else
|
||
ctext "Microsoft Windows", idiNil, 41, 10, 78, 8
|
||
ctext "Version 3.0", idiNil, 60, 44, 40, 8
|
||
#endif
|
||
ctext "Write", idiNil, 70, 20, 20, 8
|
||
ctext "Copyright \0251 1985-1990 Microsoft Corp." idiNil, 12, 56, 136, 8
|
||
icon "mw_icon", idiNil, 12, 24, 0, 0
|
||
defpushbutton "OK", idiOk, 60, 75, 40, 14, WS_TABONLY
|
||
end
|
||
#endif
|
||
|
||
dlgCancelPrint WDialog 20,20,90, 64
|
||
WStyle WS_BORDER | WS_POPUP | WS_CAPTION | WS_SYSMENU | WS_VISIBLE
|
||
FONT 8 "Helv"
|
||
CAPTION "Write"
|
||
begin
|
||
ctext "Now Printing", -1, 0, 8, 90, 8
|
||
ctext "", idiPrCancelName, 0, 18, 90, 8, SS_NOPREFIX
|
||
defpushbutton "Cancel", idiCancel, 29, 44, 32, 14, WS_TABONLY
|
||
end
|
||
|
||
dlgRepaginate WDialog 90, 100, 155, 45
|
||
WStyle WS_DLGFRAME | WS_POPUP
|
||
FONT 8 "Helv"
|
||
CAPTION "Repaginate Document"
|
||
begin
|
||
checkbox "Confirm Page &Breaks", idiRepageConfirm, 5, 15, 100, 12, WS_TABONLY
|
||
defpushbutton "OK", idiOk, 110, 5, 40, 14, WS_TABONLY
|
||
pushbutton "Cancel", idiCancel, 110, 25, 40, 14, WS_TABONLY
|
||
end
|
||
|
||
dlgCancelRepage WDialog 15, 50, 94, 50
|
||
WStyle WS_POPUP | WS_BORDER | WS_CAPTION | WS_SYSMENU | WS_VISIBLE
|
||
FONT 8 "Helv"
|
||
CAPTION "Write"
|
||
begin
|
||
ctext "Repaginating", idiNil, 5, 5, 84, 8
|
||
ctext "document", idiNil, 5, 14, 84, 8
|
||
defpushbutton "Cancel", idiCancel, 27, 28, 40, 14, WS_TABONLY
|
||
end
|
||
|
||
dlgSetPage WDialog 90, 120, 192, 50
|
||
WStyle WS_POPUP | WS_BORDER | WS_CAPTION | WS_SYSMENU
|
||
FONT 8 "Helv"
|
||
CAPTION "Repaginating Document"
|
||
begin
|
||
ltext "Use up and down buttons", idiNil, 5, 5, 92, 8
|
||
ltext "to move page break", idiNil, 5, 14, 72, 8
|
||
ltext "if necessary,", idiNil, 5, 23, 52, 8
|
||
ltext "then confirm.", idiNil, 5, 32, 52, 8
|
||
pushbutton "&Up", idiRepUp, 102, 8, 40, 14, WS_TABONLY
|
||
pushbutton "&Down", idiRepDown, 102, 28, 40, 14, WS_TABONLY
|
||
defpushbutton "&Confirm", idiOk, 147, 8, 40, 14, WS_TABONLY
|
||
pushbutton "Cancel", idiCancel, 147, 28, 40, 14, WS_TABONLY
|
||
end
|
||
|
||
dlgPageMark WDialog 90, 100, 135, 58
|
||
WStyle WS_POPUP | WS_BORDER | WS_CAPTION | WS_SYSMENU
|
||
FONT 8 "Helv"
|
||
CAPTION "Repaginating Document"
|
||
begin
|
||
icon DI_EXCLAMATION, idiNil, 5, 5, 0, 0
|
||
ltext "Would you like to keep", idiNil, 30, 7, 92, 12
|
||
ltext "this existing page break?", idiNil, 30, 19, 100, 12
|
||
pushbutton "Cancel", idiCancel, 7, 35, 35, 14, WS_TABONLY
|
||
defpushbutton "&Keep", idiKeepPgMark, 49, 35, 35, 14, WS_TABONLY
|
||
pushbutton "&Remove", idiRemovePgMark, 91, 35, 35, 14, WS_TABONLY
|
||
end
|
||
|
||
dlgFind DIALOG LOADONCALL MOVEABLE DISCARDABLE
|
||
30, 73, 236, 62
|
||
CAPTION "Find"
|
||
STYLE WS_BORDER | WS_CAPTION | DS_MODALFRAME | WS_POPUP | WS_SYSMENU | WS_VISIBLE
|
||
FONT 8, "Helv"
|
||
BEGIN
|
||
CONTROL "Fi&nd What:", idiNil, "static", SS_LEFT | WS_CHILD,
|
||
4, 8, 42, 8
|
||
CONTROL "", idiFind, "edit", ES_LEFT | ES_AUTOHSCROLL | WS_BORDER | WS_GROUP |
|
||
WS_TABSTOP | WS_CHILD | WS_BORDER,
|
||
47, 7, 128, 12
|
||
|
||
CONTROL "Match &Whole Word Only", idiWholeWord, "button", WS_TABSTOP | WS_CHILD | WS_GROUP | BS_CHECKBOX,
|
||
4, 26, 100, 12
|
||
CONTROL "Match &Case", idiMatchCase, "button", WS_TABSTOP | WS_CHILD | BS_CHECKBOX,
|
||
4, 42, 64, 12
|
||
|
||
CONTROL "&Find Next", idiFindNext, "button", BS_DEFPUSHBUTTON | WS_CHILD |
|
||
WS_TABSTOP | WS_GROUP,
|
||
182, 5, 50, 14
|
||
CONTROL "Cancel", idiCancel, "button", BS_PUSHBUTTON | WS_CHILD |
|
||
WS_TABSTOP | WS_GROUP,
|
||
182, 23, 50, 14
|
||
END
|
||
|
||
|
||
dlgChange DIALOG LOADONCALL MOVEABLE DISCARDABLE
|
||
36, 44, 257, 80
|
||
CAPTION "Replace"
|
||
STYLE WS_BORDER | WS_CAPTION | WS_SYSMENU | DS_MODALFRAME | WS_POPUP | WS_VISIBLE
|
||
FONT 8, "Helv"
|
||
BEGIN
|
||
CONTROL "Fi&nd What:", idiNil, "static", SS_LEFT | WS_CHILD,
|
||
4, 9, 48, 8
|
||
CONTROL "", idiFind, "edit", ES_LEFT | ES_AUTOHSCROLL | WS_BORDER |
|
||
WS_TABSTOP | WS_CHILD | WS_GROUP,
|
||
54, 7, 114, 12
|
||
CONTROL "Re&place With:", idiNil, "static", SS_LEFT | WS_CHILD,
|
||
4, 26, 48, 8
|
||
CONTROL "", idiChangeTo, "edit", ES_LEFT | ES_AUTOHSCROLL | WS_BORDER |
|
||
WS_TABSTOP | WS_CHILD | WS_GROUP,
|
||
54, 24, 114, 12
|
||
|
||
CONTROL "Match &Whole Word Only", idiWholeWord, "button", WS_TABSTOP | WS_CHILD | WS_GROUP | BS_CHECKBOX,
|
||
5, 46, 104, 12
|
||
CONTROL "Match &Case", idiMatchCase, "button", WS_TABSTOP | BS_CHECKBOX | WS_CHILD,
|
||
5, 62, 59, 12
|
||
|
||
CONTROL "&Find Next", idiFindNext, "button", BS_DEFPUSHBUTTON | WS_CHILD |
|
||
WS_TABSTOP | WS_GROUP,
|
||
174, 4, 77, 14
|
||
CONTROL "&Replace", idiChangeThenFind, "button", BS_PUSHBUTTON | WS_CHILD |
|
||
WS_TABSTOP | WS_GROUP,
|
||
174, 21, 77, 14
|
||
CONTROL "Replace &All", idiChangeAll, "button", BS_PUSHBUTTON | WS_CHILD |
|
||
WS_TABSTOP | WS_GROUP,
|
||
174, 38, 77, 14
|
||
CONTROL "C&lose", idiCancel, "button", BS_PUSHBUTTON | WS_CHILD |
|
||
WS_TABSTOP | WS_GROUP,
|
||
174, 55, 77, 14
|
||
END
|
||
|
||
dlgGoTo WDialog 87, 63, 95, 40
|
||
WStyle WS_POPUP | WS_DLGFRAME
|
||
FONT 8 "Helv"
|
||
CAPTION "Go To"
|
||
begin
|
||
ltext "&Page Number:", idiNil, 5, 7, 55, 12
|
||
edittext idiGtoPage, 69, 5, 21, 12, WS_TABSTOP | ES_AUTOHSCROLL
|
||
defpushbutton "OK", idiOk, 5, 22, 40, 14, WS_TABONLY
|
||
pushbutton "Cancel", idiCancel, 50, 22, 40, 14, WS_TABONLY
|
||
end
|
||
|
||
dlgCharFormats WDialog 80, 36, 180, 100
|
||
WStyle WS_POPUP | WS_BORDER | WS_CAPTION | WS_SYSMENU
|
||
FONT 8 "Helv"
|
||
CAPTION "Fonts"
|
||
begin
|
||
ltext "Font &Name:", idiNil, 5, 5, 45, 12
|
||
edittext idiChrFontName, 5, 16, 125, 12, WS_TABSTOP | ES_AUTOHSCROLL
|
||
ltext "&Fonts:", idiNil, 5, 33, 24, 12
|
||
listbox idiChrLBFontName, 5, 47, 105, 48, LBS_STANDARD | WS_VISIBLE | WS_TABSTOP
|
||
ltext "&Sizes:", idiNil, 115, 41, 24, 12
|
||
listbox idiChrLBFontSize, 115, 55, 24, 40, LBS_STANDARD | WS_VISIBLE | WS_TABSTOP
|
||
ltext "&Point", idiNil, 144, 61, 20, 12
|
||
edittext idiChrFontSize, 144, 83, 30, 12, WS_TABSTOP | ES_AUTOHSCROLL
|
||
ltext "Size:", idiNil, 144, 70, 20, 12
|
||
defpushbutton "OK", idiOk, 135, 5, 40, 14, WS_TABONLY
|
||
pushbutton "Cancel", idiCancel, 135, 25, 40, 14, WS_TABONLY
|
||
end
|
||
|
||
dlgParaFormats WDialog 28, 36, 150, 52
|
||
WStyle WS_POPUP | WS_BORDER | WS_CAPTION | WS_SYSMENU
|
||
FONT 8 "Helv"
|
||
CAPTION "Indents"
|
||
begin
|
||
ltext "&Left Indent:", idiNil, 3, 7, 48, 12
|
||
edittext idiParLfIndent, 56, 5, 40, 12, WS_TABSTOP | ES_AUTOHSCROLL
|
||
ltext "&First Line:", idiNil, 3, 22, 44, 12
|
||
edittext idiParFirst, 56, 20, 40, 12, WS_TABSTOP | ES_AUTOHSCROLL
|
||
ltext "&Right Indent:", idiNil, 3, 37, 52, 12
|
||
edittext idiParRtIndent, 56, 35, 40, 12, WS_TABSTOP | ES_AUTOHSCROLL
|
||
defpushbutton "OK", idiOk, 105, 8, 40, 14, WS_TABONLY
|
||
pushbutton "Cancel", idiCancel, 105, 27, 40, 14, WS_TABONLY
|
||
end
|
||
|
||
dlgRunningHead WDialog 80, 110, 228, 42
|
||
WStyle WS_POPUP | WS_CAPTION | WS_BORDER | WS_SYSMENU | WS_VISIBLE
|
||
FONT 8 "Helv"
|
||
CAPTION "Page Header"
|
||
begin
|
||
ltext "&Distance from Top:", idiNil, 5, 7, 70, 12
|
||
edittext idiRHDx, 85, 5, 33, 12, WS_TABSTOP | ES_AUTOHSCROLL
|
||
checkbox "&Print on First Page", idiRHFirst, 133, 5, 90, 12, WS_TABONLY
|
||
pushbutton "&Insert Page #", idiRHInsertPage, 12, 22, 64, 14, WS_TABONLY
|
||
pushbutton "&Clear", idiRHClear, 88, 22, 30, 14, WS_TABONLY
|
||
defpushbutton "&Return to Document", idiOk, 130, 22, 85, 14, WS_TABONLY
|
||
end
|
||
|
||
dlgFooter WDialog 80, 110, 228, 42
|
||
WStyle WS_POPUP | WS_CAPTION | WS_BORDER | WS_SYSMENU | WS_VISIBLE
|
||
FONT 8 "Helv"
|
||
CAPTION "Page Footer"
|
||
begin
|
||
ltext "&Distance from Bottom:", idiNil, 5, 7, 80, 12
|
||
edittext idiRHDx, 95, 5, 33, 12, WS_TABSTOP | ES_AUTOHSCROLL
|
||
checkbox "&Print on First Page", idiRHFirst, 133, 5, 90, 12, WS_TABONLY
|
||
pushbutton "&Insert Page #", idiRHInsertPage, 12, 22, 64, 14, WS_TABONLY
|
||
pushbutton "&Clear", idiRHClear, 88, 22, 30, 14, WS_TABONLY
|
||
defpushbutton "&Return to Document", idiOk, 130, 22, 85, 14, WS_TABONLY
|
||
end
|
||
|
||
dlgTabs WDialog 26, 41, 278, 97
|
||
WStyle WS_POPUP | WS_BORDER | WS_CAPTION | WS_SYSMENU
|
||
FONT 8 "Helv"
|
||
CAPTION "Tabs"
|
||
begin
|
||
ltext "&Positions:", idiNil, 3, 7, 40, 12
|
||
edittext idiTabPos0, 45, 5, 38, 12, WS_TABONLY | ES_AUTOHSCROLL
|
||
ltext "&Decimal:", idiNil, 3, 22, 40, 12
|
||
checkbox ".", idiTabDec0, 51, 20, 18, 12, WS_TABONLY
|
||
edittext idiTabPos1, 83, 5, 38, 12, WS_TABONLY | ES_AUTOHSCROLL
|
||
checkbox ".", idiTabDec1, 89, 20, 18, 12, WS_TABONLY
|
||
edittext idiTabPos2, 121, 5, 38, 12, WS_TABONLY | ES_AUTOHSCROLL
|
||
checkbox ".", idiTabDec2, 127, 20, 18, 12, WS_TABONLY
|
||
edittext idiTabPos3, 159, 5, 38, 12, WS_TABONLY | ES_AUTOHSCROLL
|
||
checkbox ".", idiTabDec3, 165, 20, 18, 12, WS_TABONLY
|
||
edittext idiTabPos4, 197, 5, 38, 12, WS_TABONLY | ES_AUTOHSCROLL
|
||
checkbox ".", idiTabDec4, 203, 20, 18, 12, WS_TABONLY
|
||
edittext idiTabPos5, 235, 5, 38, 12, WS_TABONLY | ES_AUTOHSCROLL
|
||
checkbox ".", idiTabDec5, 241, 20, 18, 12, WS_TABONLY
|
||
|
||
ltext "&Positions:", idiNil, 3, 42, 40, 12
|
||
edittext idiTabPos6, 45, 40, 38, 12, WS_TABONLY | ES_AUTOHSCROLL
|
||
ltext "&Decimal:", idiNil, 3, 57, 40, 12
|
||
checkbox ".", idiTabDec6, 51, 55, 18, 12, WS_TABONLY
|
||
edittext idiTabPos7, 83, 40, 38, 12, WS_TABONLY | ES_AUTOHSCROLL
|
||
checkbox ".", idiTabDec7, 89, 55, 18, 12, WS_TABONLY
|
||
edittext idiTabPos8, 121, 40, 38, 12, WS_TABONLY | ES_AUTOHSCROLL
|
||
checkbox ".", idiTabDec8, 127, 55, 18, 12, WS_TABONLY
|
||
edittext idiTabPos9, 159, 40, 38, 12, WS_TABONLY | ES_AUTOHSCROLL
|
||
checkbox ".", idiTabDec9, 165, 55, 18, 12, WS_TABONLY
|
||
edittext idiTabPos10, 197, 40, 38, 12, WS_TABONLY | ES_AUTOHSCROLL
|
||
checkbox ".", idiTabDec10, 203, 55, 18, 12, WS_TABONLY
|
||
edittext idiTabPos11, 235, 40, 38, 12, WS_TABONLY | ES_AUTOHSCROLL
|
||
checkbox ".", idiTabDec11, 241, 55, 18, 12, WS_TABONLY
|
||
defpushbutton "OK", idiOk, 20, 75, 50, 14, WS_TABONLY
|
||
pushbutton "Cancel", idiCancel, 90, 75, 50, 14, WS_TABONLY
|
||
pushbutton "Clear &All", idiTabClearAll, 160, 75, 50, 14, WS_TABONLY
|
||
end
|
||
|
||
|
||
dlgDivision WDialog 26, 30, 180, 110
|
||
WStyle WS_POPUP | WS_DLGFRAME
|
||
FONT 8 "Helv"
|
||
CAPTION "Page Layout"
|
||
begin
|
||
ltext "&Start Page Numbers At:", idiNil, 5, 7, 88, 12
|
||
edittext idiDivPNStart, 95, 5, 30, 12, WS_TABSTOP | ES_AUTOHSCROLL
|
||
ltext "Margins:", idiNil, 5, 33, 40, 12
|
||
ltext "&Left:", idiNil, 12, 48, 20, 12
|
||
edittext idiDivLMarg, 35, 46, 40, 12, WS_TABSTOP | ES_AUTOHSCROLL
|
||
ltext "&Right:", idiNil, 85, 48, 30, 12
|
||
edittext idiDivRMarg, 117, 46, 40, 12, WS_TABSTOP | ES_AUTOHSCROLL
|
||
ltext "&Top:", idiNil, 12, 65, 20, 12
|
||
edittext idiDivTMarg, 35, 63, 40, 12, WS_TABSTOP | ES_AUTOHSCROLL
|
||
ltext "&Bottom:", idiNil, 85, 65, 30, 12
|
||
edittext idiDivBMarg, 117, 63, 40, 12, WS_TABSTOP | ES_AUTOHSCROLL
|
||
ltext "Measurements:", idiNil, 5, 84, 63, 12
|
||
radiobutton "&inch", idiDivInch, 12, 94, 27, 12, WS_TABSTOP | WS_GROUP
|
||
radiobutton "&cm", idiDivCm, 44, 94, 26, 12
|
||
defpushbutton "OK", idiOk, 135, 5, 40, 14, WS_TABONLY
|
||
pushbutton "Cancel", idiCancel, 135, 23, 40, 14, WS_TABONLY
|
||
end
|
||
|
||
dlgBadMargins WDialog 50, 20, 235, 65
|
||
WStyle WS_POPUP | WS_BORDER | WS_CAPTION
|
||
FONT 8 "Helv"
|
||
CAPTION "Write"
|
||
begin
|
||
icon DI_EXCLAMATION, idiNil, 5, 5, 0, 0
|
||
ltext "Current printer cannot print outside these margins", idiNil, 30, 5, 200, 12
|
||
ltext "Left:", idiNil, 30, 17, 20, 12
|
||
ltext "", idiBMrgLeft, 60, 17, 40, 12
|
||
ltext "Right:", idiNil, 130, 17, 24, 12
|
||
ltext "", idiBMrgRight, 168, 17, 40, 12
|
||
ltext "Top:", idiNil, 30, 29, 16, 12
|
||
ltext "", idiBMrgTop, 60, 29, 40, 12
|
||
ltext "Bottom:", idiNil, 130, 29, 28, 12
|
||
ltext "", idiBMrgBottom, 168, 29, 40, 12
|
||
defpushbutton "OK", idiOk, 97, 44, 40, 14, WS_TABSTOP
|
||
end
|
||
|
||
|