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
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Windows Interface Reference: Brush structure</title>
</head>
<body>
<h1>Brush</h1>
<p>The Brush structure contains functions and structures to create and operate on brushes.
Brushes are used to fill areas of the screen with single colours or patterns.</p>
<pre>structure Brush:
sig
type HBITMAP and HBRUSH and HDC
datatype
HatchStyle =
HS_BDIAGONAL
| HS_CROSS
| HS_DIAGCROSS
| HS_FDIAGONAL
| HS_HORIZONTAL
| HS_VERTICAL
datatype
BrushStyle =
BS_HATCHED of HatchStyle
| BS_HOLLOW
| BS_PATTERN of HBITMAP
| BS_SOLID
type COLORREF = Color.COLORREF
type LOGBRUSH = BrushStyle * COLORREF
type POINT = {x: int, y: int}
type RasterOpCode = Bitmap.RasterOpCode
datatype ColorType =
COLOR_SCROLLBAR
| COLOR_BACKGROUND
| COLOR_ACTIVECAPTION
| COLOR_INACTIVECAPTION
| COLOR_MENU
| COLOR_WINDOW
| COLOR_WINDOWFRAME
| COLOR_MENUTEXT
| COLOR_WINDOWTEXT
| COLOR_CAPTIONTEXT
| COLOR_ACTIVEBORDER
| COLOR_INACTIVEBORDER
| COLOR_APPWORKSPACE
| COLOR_HIGHLIGHT
| COLOR_HIGHLIGHTTEXT
| COLOR_BTNFACE
| COLOR_BTNSHADOW
| COLOR_GRAYTEXT
| COLOR_BTNTEXT
| COLOR_INACTIVECAPTIONTEXT
| COLOR_BTNHIGHLIGHT
| COLOR_3DDKSHADOW
| COLOR_3DLIGHT
| COLOR_INFOTEXT
| COLOR_INFOBK
val CreateBrushIndirect : LOGBRUSH -> HBRUSH
val CreateHatchBrush : HatchStyle * COLORREF -> HBRUSH
val CreatePatternBrush : HBITMAP -> HBRUSH
val CreateSolidBrush : COLORREF -> HBRUSH
val GetSysColorBrush : ColorType -> HBRUSH
val GetBrushOrgEx : HDC -> POINT
val PatBlt : HDC * int * int * int * int * RasterOpCode -> unit
val SetBrushOrgEx : HDC * POINT -> POINT
end</pre>
</body>
</html>
|
