Ignore:
Timestamp:
Jul 2, 2007, 1:33:52 AM (17 years ago)
Author:
イグトランス (egtra)
Message:

#121対応、Classes/System/Windows/Forms以下を名前空間に入れた。

File:
1 edited

Legend:

Unmodified
Added
Removed

  • Include/Classes/System/Drawing/Color.ab

    r212 r282  
    112112    Function GetHue() As Single
    113113        Dim max As Long, min As Long, d As Long
    114         max = Math.Max(Math.Max(r, g), b)
    115         min = Math.Min(Math.Min(r, g), b)
     114        Dim r = R
     115        Dim g = G
     116        Dim b = B
     117        max = System.Math.Max(System.Math.Max(r, g), b)
     118        min = System.Math.Min(System.Math.Min(r, g), b)
    116119        d = max - min
    117120        If g = max Then
    … …  
    128131    Function GetSaturation() As Single
    129132        Dim max As Long, min As Long
    130         max = Math.Max(Math.Max(r, g), b)
    131         min = Math.Min(Math.Min(r, g), b)
     133        Dim r = R
     134        Dim g = G
     135        Dim b = B
     136        max = System.Math.Max(System.Math.Max(r, g), b)
     137        min = System.Math.Min(System.Math.Min(r, g), b)
    132138        Return (max - min) / max
    133139    End Function
    … …  
    135141    Function GetBrightness() As Single
    136142        Dim max As Long
    137         max = Math.Max(Math.Max(r, g), b)
     143        Dim r = R
     144        Dim g = G
     145        Dim b = B
     146        max = System.Math.Max(System.Math.Max(r, g), b)
    138147        Return max * (1 / 255)
    139148    End Function
Note: See TracChangeset for help on using the changeset viewer.