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
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Windows Interface Reference: Class structure</title>
</head>
<body>
<h1>Class</h1>
<p>The Class structure contains functions to register custom classes as well as the
definitions for the standard Windows classes.</p>
<p> </p>
<pre>structure Class:
sig
type HWND and Message and HINSTANCE and HBRUSH and HICON and HCURSOR and HGDIOBJ
datatype LRESULT = LRESINT of int | LRESHANDLE of HGDIOBJ
datatype 'a ATOM =
Registered of {proc: HWND * Message * 'a -> LRESULT option * 'a, className: string}
| SystemClass of string
val Button : unit ATOM
val ComboBox : unit ATOM
val ComboLBox : unit ATOM
val DDEMLEvent : unit ATOM
val <a
name="Edit">Edit</a> : unit ATOM
val ListBox : unit ATOM
val MDIClient : unit ATOM
val ScrollBar : unit ATOM
val Static : unit ATOM
structure Style :
sig
include BIT_FLAGS
val CS_BYTEALIGNCLIENT : flags
val CS_BYTEALIGNWINDOW : flags
val CS_CLASSDC : flags
val CS_DBLCLKS : flags
val CS_GLOBALCLASS : flags
val CS_HREDRAW : flags
val CS_KEYCVTWINDOW : flags
val CS_NOCLOSE : flags
val CS_NOKEYCVT : flags
val CS_OWNDC : flags
val CS_PARENTDC : flags
val CS_SAVEBITS : flags
val CS_VREDRAW : flags
end
type 'a WNDCLASSEX =
{style: Style.flags,
wndProc: HWND * Message * 'a -> LRESULT option * 'a,
hInstance: HINSTANCE,
hIcon: HICON option,
hCursor: HCURSOR option,
hbrBackGround: HBRUSH option,
menuName: Resource.RESID option,
className: string,
hIconSm: HICON option}
val <a
name="RegisterClassEx">RegisterClassEx</a> : 'a WNDCLASSEX -> 'a ATOM
val <a
name="UnregisterClass">UnregisterClass</a> : string * HINSTANCE -> unit
val GetClassName : HWND -> string
val GetClassInfoEx: HINSTANCE * string -> 'a WNDCLASSEX
end</pre>
</body>
</html>
|
