Changes in Include/Classes/System/Drawing/Color.ab [25:11]

File:

• Include/Classes/System/Drawing/Color.ab (modified) (5 diffs)

Include/Classes/System/Drawing/Color.ab

@@ -18 +18 @@
 Public
     Sub Color()
-        argb = MakeARGB(255, 0, 0, 0) ' Black
-    End Sub
-
-    Sub Color(ByRef c As Color)
-        argb = c.argb
+        Argb = 0 ' Black
     End Sub
 
@@ -30 +26 @@
 
     Sub Color(a As Byte, r As Byte, g As Byte, b As Byte)
-        argb = MakeARGB(a, r, g, b)
-    End Sub
-
-    Sub Color(newArgb As ARGB)
-        argb = newArgb
+        Argb = MakeARGB(a, r, g, b)
+    End Sub
+
+    Sub Color(argb As ARGB)
+        Argb = argb
     End Sub
 
     Sub Operator =(c As Color)
-        argb = c.argb
+        SetValue(c)
     End Sub
 
@@ -65 +61 @@
     End Function
 
-    Function Value() As ARGB
-        Return argb
-    End Function
-
-    Sub Value(value As ARGB)
+    Function GetValue() As ARGB
+        GetValue = argb
+    End Function
+
+    Sub SetValue(value As ARGB)
         argb = value
     End Sub
 
     Sub SetFromCOLORREF(rgb As COLORREF)
-        If (rgb And &hff000000) = &h01000000 Then
-            Exit Sub ' インデックス指定は無効
-        Else
-            argb = Color_MakeARGB(255, GetRValue(rgb), GetGValue(rgb), GetBValue(rgb))
-        End If
+        argb = Color_MakeARGB(255, GetRValue(rgb), GetGValue(rgb), GetBValue(rgb))
     End Sub
 
@@ -99 +91 @@
     End Function
 
-    Static Function FromArgb(r As Byte, g As Byte, b As Byte) As Color
+    Static Function FromArgb(r As Byte, g As Byte, b As Byte)
         Dim c As Color(r, g, b)
         Return c
     End Function
 
-    Static Function FromArgb(a As Byte, r As Byte, g As Byte, b As Byte) As Color
+    Static Function FromArgb(a As Byte, r As Byte, g As Byte, b As Byte)
         Dim c As Color(a, r, g, b)
         Return c
@@ -305 +297 @@
     End Enum
 */
-    Static Function MakeARGB(a As Byte, r As Byte, g As Byte, b As Byte) As ARGB
+    ' Assemble A, R, G, B values into a 32-bit integer
+Private
+    Static Function MakeARGB(/*IN*/ a As Byte,
+                             /*IN*/ r As Byte,
+                             /*IN*/ g As Byte,
+                             /*IN*/ b As Byte) As ARGB
         MakeARGB = (((b As ARGB) <<  Color_BlueShift) Or _
                     ((g As ARGB) << Color_GreenShift) Or _