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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Windows Interface Reference: Dialog structure</title>
</head>
<body>
<h1>Dialog</h1>
<p>The Dialog structure contains functions and structures to create and operate on
dialogue boxes.</p>
<pre>structure Dialog:
sig
type HWND and HINSTANCE
datatype
DLGCLASSES =
DLG_CLASS of string * Window.Style.flags
| DLG_BUTTON of Button.Style.flags
| DLG_COMBOBOX of Combobox.Style.flags
| DLG_EDIT of Edit.Style.flags
| DLG_LISTBOX of Listbox.Style.flags
| DLG_SCROLLBAR of Scrollbar.Style.flags
| DLG_STATIC of Static.Style.flags
datatype DLGTITLE = DLG_TITLERESOURCE of int | DLG_TITLESTRING of string
structure Style:
sig
include BIT_FLAGS
val WS_OVERLAPPED: flags and WS_POPUP: flags and WS_CHILD: flags and WS_MINIMIZE: flags
and WS_VISIBLE: flags and WS_DISABLED:flags and WS_CLIPSIBLINGS:flags
and WS_CLIPCHILDREN:flags and WS_MAXIMIZE:flags and WS_CAPTION:flags
and WS_BORDER:flags and WS_DLGFRAME:flags and WS_VSCROLL:flags and WS_HSCROLL:flags
and WS_SYSMENU:flags and WS_THICKFRAME:flags and WS_GROUP:flags and WS_TABSTOP:flags
and WS_MINIMIZEBOX:flags and WS_MAXIMIZEBOX:flags and WS_TILED:flags and WS_ICONIC:flags
and WS_SIZEBOX:flags and WS_OVERLAPPEDWINDOW:flags and WS_TILEDWINDOW:flags
and WS_POPUPWINDOW:flags and WS_CHILDWINDOW:flags
and DS_3DLOOK: flags and DS_ABSALIGN: flags and DS_CENTER: flags and DS_CENTERMOUSE: flags
and DS_CONTEXTHELP: flags and DS_CONTROL: flags and DS_FIXEDSYS: flags
and DS_LOCALEDIT: flags and DS_MODALFRAME: flags and DS_NOFAILCREATE: flags
and DS_NOIDLEMSG: flags and DS_SETFONT: flags and DS_SETFOREGROUND: flags
and DS_SYSMODAL: flags
end
type DLGITEMTEMPLATE =
{ extendedStyle: int,
x: int,
y: int,
cx : int,
cy: int,
id: int,
class: DLGCLASSES,
title: DLGTITLE,
creationData: Word8Vector.vector option
}
type DLGTEMPLATE =
{ style: Style.flags,
extendedStyle: int,
x : int,
y: int,
cx: int,
cy: int,
menu: Resource.RESID option,
class: Resource.RESID option,
title: string,
font: (int * string) option,
items: DLGITEMTEMPLATE list
}
val <a
href="#DialogBox">DialogBox</a> :
HINSTANCE * Resource.RESID * HWND *
(HWND * Message.Message * 'a -> Message.LRESULT * 'a) * 'a -> int
val <a
href="#DialogBoxIndirect">DialogBoxIndirect</a>: HINSTANCE * DLGTEMPLATE * HWND *
(HWND * Message.Message * 'a -> Message.LRESULT * 'a) * 'a -> int
val <a
href="#CreateDialog">CreateDialog</a> : HINSTANCE * Resource.RESID * HWND *
(HWND * Message.Message * 'a -> Message.LRESULT * 'a) * 'a -> HWND
val <a
href="#CreateDialogIndirect">CreateDialogIndirect</a>: HINSTANCE * DLGTEMPLATE * HWND *
(HWND * Message.Message * 'a -> Message.LRESULT * 'a) * 'a -> HWND
val GetDialogBaseUnits : unit -> {horizontal: int, vertical: int}
val GetDlgCtrlID: HWND -> int
and <a
name="GetDlgItem">GetDlgItem</a>: HWND * int -> HWND
and GetDlgItemText: HWND * int -> string
and IsDialogMessage: HWND * Message.MSG -> bool
and EndDialog: HWND * int -> unit
val <a
href="#compileTemplate">compileTemplate</a> : DLGTEMPLATE -> Word8Vector.vector
val <a
href="#decompileTemplate">decompileTemplate</a> : Word8Vector.vector -> DLGTEMPLATE</pre>
<p><tt><a name="DialogBox">DialogBox</a>(hInst, resId, parent, dlgProc, dlgInit)<br>
<a name="DialogBoxIndirect">DialogBoxIndirect</a>(hInst, template, parent, dlgProc,
dlgInit)<br>
<a name="CreateDialog">CreateDialog</a>(hInst, resId, parent, dlgProc, dlgInit)<br>
<a name="CreateDialogIndirect">CreateDialogIndirect</a>(hInst, template, parent, dlgProc,
dlgInit)</tt><br>
These four functions all create dialogues. They all take a dialogue procedure and an
initial state for the dialogue. A dialogue procedure has the form<br>
dlgProc(dlg, msg, state) and returns a pair consisting of the result of processing the
message (LRESINT 0 if the message is not processed) and a new state. Each time the
dialogue procedure is called it is passed the state returned by the previous call.<br>
DialogBox and DialogBoxIndirect create modal dialogues and do not return until the
dialogue procedure calls EndDialog, typically as a result of the user pressing an OK or
Cancel button. CreateDialog and CreateDialogIndirect create modeless dialogues.
The ML implementation automatically ensures that IsDialogMessage is called for
modeless dialogues if <a href="Message.html#RunApplication">RunApplication</a> is used.</p>
<p><tt><a name="compileTemplate">compileTemplate</a>(template)</tt><br>
<strong>ML Extension:</strong> Compiles an ML dialogue template into the format used
by C. This can be stored to resource file for later use.</p>
<p><tt><a name="decompileTemplate">decompileTemplate</a>(vector)</tt><br>
<strong>ML Extension:</strong> Takes a C format dialogue template structure in memory and
returns an ML template. It can be used where a dialogue template has been loaded
from a resource file using <a href="Resource.html#LoadResource">LoadResource</a>.</p>
<p> </p>
</body>
</html>
|
