1 | ' Classes/System/Drawing/Color.ab
|
---|
2 |
|
---|
3 | #ifndef __SYSTEM_DRAWING_COLOR_AB__
|
---|
4 | #define __SYSTEM_DRAWING_COLOR_AB__
|
---|
5 |
|
---|
6 | #include <Classes/System/Math.ab>
|
---|
7 | #include <Classes/System/Drawing/Imaging/misc.ab>
|
---|
8 |
|
---|
9 | Const Enum ColorChannelFlags
|
---|
10 | ColorChannelFlagsC = 0
|
---|
11 | ColorChannelFlagsM
|
---|
12 | ColorChannelFlagsY
|
---|
13 | ColorChannelFlagsK
|
---|
14 | ColorChannelFlagsLast
|
---|
15 | End Enum
|
---|
16 |
|
---|
17 | Class Color
|
---|
18 | Public
|
---|
19 | Sub Color()
|
---|
20 | argb = MakeARGB(255, 0, 0, 0) ' Black
|
---|
21 | End Sub
|
---|
22 |
|
---|
23 | Sub Color(ByRef c As Color)
|
---|
24 | argb = c.argb
|
---|
25 | End Sub
|
---|
26 |
|
---|
27 | Sub Color(r As Byte, g As Byte, b As Byte)
|
---|
28 | argb = MakeARGB(255, r, g, b)
|
---|
29 | End Sub
|
---|
30 |
|
---|
31 | Sub Color(a As Byte, r As Byte, g As Byte, b As Byte)
|
---|
32 | argb = MakeARGB(a, r, g, b)
|
---|
33 | End Sub
|
---|
34 |
|
---|
35 | Sub Color(newArgb As ARGB)
|
---|
36 | argb = newArgb
|
---|
37 | End Sub
|
---|
38 |
|
---|
39 | Sub Operator =(c As Color)
|
---|
40 | argb = c.argb
|
---|
41 | End Sub
|
---|
42 |
|
---|
43 | Function Operator ==(c As Color) As Boolean
|
---|
44 | Return Equals(c)
|
---|
45 | End Function
|
---|
46 |
|
---|
47 | Function Operator <>(c As Color) As Boolean
|
---|
48 | Return Not Equals(c)
|
---|
49 | End Function
|
---|
50 |
|
---|
51 | Function A() As Byte
|
---|
52 | Return (argb >> ALPHA_SHIFT) As Byte
|
---|
53 | End Function
|
---|
54 |
|
---|
55 | Function R() As Byte
|
---|
56 | Return (argb >> RED_SHIFT) As Byte
|
---|
57 | End Function
|
---|
58 |
|
---|
59 | Function G() As Byte
|
---|
60 | Return (argb >> GREEN_SHIFT) As Byte
|
---|
61 | End Function
|
---|
62 |
|
---|
63 | Function B() As Byte
|
---|
64 | Return (argb >> BLUE_SHIFT) As Byte
|
---|
65 | End Function
|
---|
66 |
|
---|
67 | Function Value() As ARGB
|
---|
68 | Return argb
|
---|
69 | End Function
|
---|
70 |
|
---|
71 | Sub Value(value As ARGB)
|
---|
72 | argb = value
|
---|
73 | End Sub
|
---|
74 |
|
---|
75 | Sub SetFromCOLORREF(rgb As COLORREF)
|
---|
76 | If (rgb And &hff000000) = &h01000000 Then
|
---|
77 | Exit Sub ' インデックス指定は無効
|
---|
78 | Else
|
---|
79 | argb = Color_MakeARGB(255, GetRValue(rgb), GetGValue(rgb), GetBValue(rgb))
|
---|
80 | End If
|
---|
81 | End Sub
|
---|
82 |
|
---|
83 | Function ToCOLORREF() As COLORREF
|
---|
84 | ToCOLORREF = RGB(R, G, B)
|
---|
85 | End Function
|
---|
86 |
|
---|
87 | Function ToArgb() As ARGB
|
---|
88 | Return argb
|
---|
89 | End Function
|
---|
90 |
|
---|
91 | Static Function FromArgb(argb As ARGB) As Color
|
---|
92 | Dim c As Color(argb)
|
---|
93 | Rteurn c
|
---|
94 | End Function
|
---|
95 |
|
---|
96 | Static Function FromArgb(a As Byte, base As Color) As Color
|
---|
97 | Dim c As Color(a, base.R, base.G, base.B)
|
---|
98 | Return c
|
---|
99 | End Function
|
---|
100 |
|
---|
101 | Static Function FromArgb(r As Byte, g As Byte, b As Byte) As Color
|
---|
102 | Dim c As Color(r, g, b)
|
---|
103 | Return c
|
---|
104 | End Function
|
---|
105 |
|
---|
106 | Static Function FromArgb(a As Byte, r As Byte, g As Byte, b As Byte) As Color
|
---|
107 | Dim c As Color(a, r, g, b)
|
---|
108 | Return c
|
---|
109 | End Function
|
---|
110 |
|
---|
111 | Function Equals(c As Color) As Boolean
|
---|
112 | Return argb = c.argb
|
---|
113 | End Function
|
---|
114 |
|
---|
115 | ' HSBを求める式はhttp://ofo.jp/osakana/cgtips/hsb.phtmlを参考にしました。
|
---|
116 | Function GetHue() As Single
|
---|
117 | Dim max As Long, min As Long, d As Long
|
---|
118 | max = Math.Max(Math.Max(r, g), b)
|
---|
119 | min = Math.Min(Math.Min(r, g), b)
|
---|
120 | d = max - min
|
---|
121 | If g = max Then
|
---|
122 | Return (b - r) As Double / d * 60 + 120
|
---|
123 | ElseIf b = max Then
|
---|
124 | Return (r - g) As Double / d * 60 + 240
|
---|
125 | ElseIf g < b Then
|
---|
126 | Return (g - b) As Double / d * 60 + 360
|
---|
127 | Else
|
---|
128 | Return (g - b) As Double / d * 60
|
---|
129 | EndIf
|
---|
130 | End Function
|
---|
131 |
|
---|
132 | Function GetSaturation() As Single
|
---|
133 | Dim max As Long, min As Long
|
---|
134 | max = Math.Max(Math.Max(r, g), b)
|
---|
135 | min = Math.Min(Math.Min(r, g), b)
|
---|
136 | Return (max - min) / max
|
---|
137 | End Function
|
---|
138 |
|
---|
139 | Function GetBrightness() As Single
|
---|
140 | Dim max As Long
|
---|
141 | max = Math.Max(Math.Max(r, g), b)
|
---|
142 | Return max * (1 / 255)
|
---|
143 | End Function
|
---|
144 |
|
---|
145 | /*
|
---|
146 | ' Common color constants
|
---|
147 | Const Enum
|
---|
148 | AliceBlue = &hFFF0F8FF
|
---|
149 | AntiqueWhite = &hFFFAEBD7
|
---|
150 | Aqua = &hFF00FFFF
|
---|
151 | Aquamarine = &hFF7FFFD4
|
---|
152 | Azure = &hFFF0FFFF
|
---|
153 | Beige = &hFFF5F5DC
|
---|
154 | Bisque = &hFFFFE4C4
|
---|
155 | Black = &hFF000000
|
---|
156 | BlanchedAlmond = &hFFFFEBCD
|
---|
157 | Blue = &hFF0000FF
|
---|
158 | BlueViolet = &hFF8A2BE2
|
---|
159 | Brown = &hFFA52A2A
|
---|
160 | BurlyWood = &hFFDEB887
|
---|
161 | CadetBlue = &hFF5F9EA0
|
---|
162 | Chartreuse = &hFF7FFF00
|
---|
163 | Chocolate = &hFFD2691E
|
---|
164 | Coral = &hFFFF7F50
|
---|
165 | CornflowerBlue = &hFF6495ED
|
---|
166 | Cornsilk = &hFFFFF8DC
|
---|
167 | Crimson = &hFFDC143C
|
---|
168 | Cyan = &hFF00FFFF
|
---|
169 | DarkBlue = &hFF00008B
|
---|
170 | DarkCyan = &hFF008B8B
|
---|
171 | DarkGoldenrod = &hFFB8860B
|
---|
172 | DarkGray = &hFFA9A9A9
|
---|
173 | DarkGreen = &hFF006400
|
---|
174 | DarkKhaki = &hFFBDB76B
|
---|
175 | DarkMagenta = &hFF8B008B
|
---|
176 | DarkOliveGreen = &hFF556B2F
|
---|
177 | DarkOrange = &hFFFF8C00
|
---|
178 | DarkOrchid = &hFF9932CC
|
---|
179 | DarkRed = &hFF8B0000
|
---|
180 | DarkSalmon = &hFFE9967A
|
---|
181 | DarkSeaGreen = &hFF8FBC8B
|
---|
182 | DarkSlateBlue = &hFF483D8B
|
---|
183 | DarkSlateGray = &hFF2F4F4F
|
---|
184 | DarkTurquoise = &hFF00CED1
|
---|
185 | DarkViolet = &hFF9400D3
|
---|
186 | DeepPink = &hFFFF1493
|
---|
187 | DeepSkyBlue = &hFF00BFFF
|
---|
188 | DimGray = &hFF696969
|
---|
189 | DodgerBlue = &hFF1E90FF
|
---|
190 | Firebrick = &hFFB22222
|
---|
191 | FloralWhite = &hFFFFFAF0
|
---|
192 | ForestGreen = &hFF228B22
|
---|
193 | Fuchsia = &hFFFF00FF
|
---|
194 | Gainsboro = &hFFDCDCDC
|
---|
195 | GhostWhite = &hFFF8F8FF
|
---|
196 | Gold = &hFFFFD700
|
---|
197 | Goldenrod = &hFFDAA520
|
---|
198 | Gray = &hFF808080
|
---|
199 | Green = &hFF008000
|
---|
200 | GreenYellow = &hFFADFF2F
|
---|
201 | Honeydew = &hFFF0FFF0
|
---|
202 | HotPink = &hFFFF69B4
|
---|
203 | IndianRed = &hFFCD5C5C
|
---|
204 | Indigo = &hFF4B0082
|
---|
205 | Ivory = &hFFFFFFF0
|
---|
206 | Khaki = &hFFF0E68C
|
---|
207 | Lavender = &hFFE6E6FA
|
---|
208 | LavenderBlush = &hFFFFF0F5
|
---|
209 | LawnGreen = &hFF7CFC00
|
---|
210 | LemonChiffon = &hFFFFFACD
|
---|
211 | LightBlue = &hFFADD8E6
|
---|
212 | LightCoral = &hFFF08080
|
---|
213 | LightCyan = &hFFE0FFFF
|
---|
214 | LightGoldenrodYellow = &hFFFAFAD2
|
---|
215 | LightGray = &hFFD3D3D3
|
---|
216 | LightGreen = &hFF90EE90
|
---|
217 | LightPink = &hFFFFB6C1
|
---|
218 | LightSalmon = &hFFFFA07A
|
---|
219 | LightSeaGreen = &hFF20B2AA
|
---|
220 | LightSkyBlue = &hFF87CEFA
|
---|
221 | LightSlateGray = &hFF778899
|
---|
222 | LightSteelBlue = &hFFB0C4DE
|
---|
223 | LightYellow = &hFFFFFFE0
|
---|
224 | Lime = &hFF00FF00
|
---|
225 | LimeGreen = &hFF32CD32
|
---|
226 | Linen = &hFFFAF0E6
|
---|
227 | Magenta = &hFFFF00FF
|
---|
228 | Maroon = &hFF800000
|
---|
229 | MediumAquamarine = &hFF66CDAA
|
---|
230 | MediumBlue = &hFF0000CD
|
---|
231 | MediumOrchid = &hFFBA55D3
|
---|
232 | MediumPurple = &hFF9370DB
|
---|
233 | MediumSeaGreen = &hFF3CB371
|
---|
234 | MediumSlateBlue = &hFF7B68EE
|
---|
235 | MediumSpringGreen = &hFF00FA9A
|
---|
236 | MediumTurquoise = &hFF48D1CC
|
---|
237 | MediumVioletRed = &hFFC71585
|
---|
238 | MidnightBlue = &hFF191970
|
---|
239 | MintCream = &hFFF5FFFA
|
---|
240 | MistyRose = &hFFFFE4E1
|
---|
241 | Moccasin = &hFFFFE4B5
|
---|
242 | NavajoWhite = &hFFFFDEAD
|
---|
243 | Navy = &hFF000080
|
---|
244 | OldLace = &hFFFDF5E6
|
---|
245 | Olive = &hFF808000
|
---|
246 | OliveDrab = &hFF6B8E23
|
---|
247 | Orange = &hFFFFA500
|
---|
248 | OrangeRed = &hFFFF4500
|
---|
249 | Orchid = &hFFDA70D6
|
---|
250 | PaleGoldenrod = &hFFEEE8AA
|
---|
251 | PaleGreen = &hFF98FB98
|
---|
252 | PaleTurquoise = &hFFAFEEEE
|
---|
253 | PaleVioletRed = &hFFDB7093
|
---|
254 | PapayaWhip = &hFFFFEFD5
|
---|
255 | PeachPuff = &hFFFFDAB9
|
---|
256 | Peru = &hFFCD853F
|
---|
257 | Pink = &hFFFFC0CB
|
---|
258 | Plum = &hFFDDA0DD
|
---|
259 | PowderBlue = &hFFB0E0E6
|
---|
260 | Purple = &hFF800080
|
---|
261 | Red = &hFFFF0000
|
---|
262 | RosyBrown = &hFFBC8F8F
|
---|
263 | RoyalBlue = &hFF4169E1
|
---|
264 | SaddleBrown = &hFF8B4513
|
---|
265 | Salmon = &hFFFA8072
|
---|
266 | SandyBrown = &hFFF4A460
|
---|
267 | SeaGreen = &hFF2E8B57
|
---|
268 | SeaShell = &hFFFFF5EE
|
---|
269 | Sienna = &hFFA0522D
|
---|
270 | Silver = &hFFC0C0C0
|
---|
271 | SkyBlue = &hFF87CEEB
|
---|
272 | SlateBlue = &hFF6A5ACD
|
---|
273 | SlateGray = &hFF708090
|
---|
274 | Snow = &hFFFFFAFA
|
---|
275 | SpringGreen = &hFF00FF7F
|
---|
276 | SteelBlue = &hFF4682B4
|
---|
277 | Tan = &hFFD2B48C
|
---|
278 | Teal = &hFF008080
|
---|
279 | Thistle = &hFFD8BFD8
|
---|
280 | Tomato = &hFFFF6347
|
---|
281 | Transparent = &h00FFFFFF
|
---|
282 | Turquoise = &hFF40E0D0
|
---|
283 | Violet = &hFFEE82EE
|
---|
284 | Wheat = &hFFF5DEB3
|
---|
285 | White = &hFFFFFFFF
|
---|
286 | WhiteSmoke = &hFFF5F5F5
|
---|
287 | Yellow = &hFFFFFF00
|
---|
288 | YellowGreen = &hFF9ACD32
|
---|
289 | End Enum
|
---|
290 |
|
---|
291 | ' Shift count and bit mask for A, R, G, B components
|
---|
292 |
|
---|
293 | Const Enum
|
---|
294 | AlphaShift = 24
|
---|
295 | RedShift = 16
|
---|
296 | GreenShift = 8
|
---|
297 | BlueShift = 0
|
---|
298 | End Enum
|
---|
299 |
|
---|
300 | Const Enum
|
---|
301 | AlphaMask = &hff000000
|
---|
302 | RedMask = &h00ff0000
|
---|
303 | GreenMask = &h0000ff00
|
---|
304 | BlueMask = &h000000ff
|
---|
305 | End Enum
|
---|
306 | */
|
---|
307 | Static Function MakeARGB(a As Byte, r As Byte, g As Byte, b As Byte) As ARGB
|
---|
308 | MakeARGB = (((b As ARGB) << BLUE_SHIFT) Or _
|
---|
309 | ((g As ARGB) << GREEN_SHIFT) Or _
|
---|
310 | ((r As ARGB) << RED_SHIFT) Or _
|
---|
311 | ((a As ARGB) << ALPHA_SHIFT))
|
---|
312 | End Function
|
---|
313 |
|
---|
314 | Protected
|
---|
315 | argb As ARGB
|
---|
316 | End Class
|
---|
317 |
|
---|
318 | #endif '__SYSTEM_DRAWING_COLOR_AB__
|
---|