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
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Windows Interface Reference: Color structure</title>
</head>
<body>
<h1>Color</h1>
<p>The Color structure contains functions to manipulate colours and palettes.</p>
<pre>structure Color:
sig
type HPALETTE and HDC
datatype
PaletteEntryFlag = PC_EXPLICIT | PC_NOCOLLAPSE | PC_NULL | PC_RESERVED
type PALETTEENTRY = {red: int, green: int, blue: int, flags: PaletteEntryFlag}
type COLORREF
val toRGB :
COLORREF -> {red: Int.int, blue: Int.int, green: Int.int}
val RGB : {red: int, blue: int, green: int} -> COLORREF
val PALETTERGB : {red: int, blue: int, green: int} -> COLORREF
type SystemPaletteUse
val SYSPAL_ERROR : SystemPaletteUse
val SYSPAL_NOSTATIC : SystemPaletteUse
val SYSPAL_STATIC : SystemPaletteUse
val AnimatePalette : HPALETTE * int * PALETTEENTRY list -> bool
val CreateHalftonePalette : HDC -> HPALETTE
val CreatePalette : PALETTEENTRY list -> HPALETTE
val GetNearestColor : HDC * COLORREF -> COLORREF
val GetNearestPaletteIndex : HPALETTE * COLORREF -> int
val GetPaletteEntries : HPALETTE * int * int -> PALETTEENTRY list
val GetSystemPaletteEntries : HPALETTE * int * int -> PALETTEENTRY list
val GetSystemPaletteUse : HDC -> SystemPaletteUse
val RealizePalette : HDC -> int
val ResizePalette : HPALETTE * int -> unit
val SelectPalette : HDC * HPALETTE * bool -> HPALETTE
val SetPaletteEntries : HPALETTE * int * PALETTEENTRY list -> unit
val SetSystemPaletteUse : HDC * SystemPaletteUse -> SystemPaletteUse
val UnrealizeObject : HPALETTE -> unit
val UpdateColors : HDC -> unit
end</pre>
</body>
</html>
|
