source: Include/Classes/System/Drawing/Color.ab@ 11

Last change on this file since 11 was 11, checked in by イグトランス (egtra), 17 years ago

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