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
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Windows Interface Reference: Painting structure</title>
</head>
<body>
<h1>Painting and Drawing</h1>
<p>The Painting structure contains functions to control painting and drawing to a window
or device context.</p>
<pre>structure Painting :
sig
type HWND and HDC and COLORREF and HRGN
type RECT = { top: int, left: int, bottom: int, right: int }
type BinaryRasterOperation
val R2_BLACK : BinaryRasterOperation
val R2_COPYPEN : BinaryRasterOperation
val R2_MASKNOTPEN : BinaryRasterOperation
val R2_MASKPEN : BinaryRasterOperation
val R2_MASKPENNOT : BinaryRasterOperation
val R2_MERGENOTPEN : BinaryRasterOperation
val R2_MERGEPEN : BinaryRasterOperation
val R2_MERGEPENNOT : BinaryRasterOperation
val R2_NOP : BinaryRasterOperation
val R2_NOT : BinaryRasterOperation
val R2_NOTCOPYPEN : BinaryRasterOperation
val R2_NOTMASKPEN : BinaryRasterOperation
val R2_NOTMERGEPEN : BinaryRasterOperation
val R2_NOTXORPEN : BinaryRasterOperation
val R2_WHITE : BinaryRasterOperation
val R2_XORPEN : BinaryRasterOperation
type PAINTSTRUCT =
{ hdc: HDC, erase: bool, paint: RECT, private: Word8Vector.vector }
val <a
name="BeginPaint">BeginPaint</a> : HWND -> HDC * PAINTSTRUCT
val <a name="EndPaint">EndPaint</a> : HWND * PAINTSTRUCT -> unit
val GdiFlush : unit -> unit
val GdiGetBatchLimit : unit -> int
val GdiSetBatchLimit : int -> int
val GetBkColor : HDC -> COLORREF
val GetROP2 : HDC -> BinaryRasterOperation
val GetUpdateRect : HWND * bool -> RECT option
val GetUpdateRgn : HWND * HRGN * bool -> Region.ResultRegion
val GetWindowDC : HWND -> HDC
val InvalidateRgn : HWND * HRGN * bool -> unit
val SetBkColor : HDC * COLORREF -> COLORREF
val SetROP2 : HDC * BinaryRasterOperation -> BinaryRasterOperation
val WindowFromDC : HDC -> HWND
end</pre>
</body>
</html>
|
