Changeset 635 for trunk/ab5.0/ablib/src/Classes/System/Drawing
- Timestamp:
- Sep 27, 2008, 6:31:26 AM (16 years ago)
- Location:
- trunk/ab5.0/ablib/src/Classes/System/Drawing
- Files:
-
- 11 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/Classes/System/Drawing/CharacterRange.ab
r497 r635 1 1 ' Classes/System/Drawing/CharacterRange.ab 2 3 Namespace System 4 Namespace Drawing 2 5 3 6 Class CharacterRange … … 49 52 length As Long 50 53 End Class 54 55 End Namespace 56 End Namespace -
trunk/ab5.0/ablib/src/Classes/System/Drawing/Color.ab
r497 r635 1 1 ' Classes/System/Drawing/Color.ab 2 2 3 #require <Classes/System/Drawing/Imaging/misc.ab> 3 Namespace System 4 Namespace Drawing 4 5 5 6 Class Color … … 21 22 End Sub 22 23 23 Sub Color(newArgb As ARGB)24 Sub Color(newArgb As System.Drawing.Imaging.ARGB) 24 25 argb = newArgb 25 26 End Sub … … 34 35 35 36 Function A() As Byte 36 A = (argb >> ALPHA_SHIFT) As Byte37 A = (argb >> System.Drawing.Imaging.ALPHA_SHIFT) As Byte 37 38 End Function 38 39 39 40 Function R() As Byte 40 R = (argb >> RED_SHIFT) As Byte41 R = (argb >> System.Drawing.Imaging.RED_SHIFT) As Byte 41 42 End Function 42 43 43 44 Function G() As Byte 44 G = (argb >> GREEN_SHIFT) As Byte45 G = (argb >> System.Drawing.Imaging.GREEN_SHIFT) As Byte 45 46 End Function 46 47 47 48 Function B() As Byte 48 B = (argb >> BLUE_SHIFT) As Byte49 End Function 50 51 Function Value() As ARGB49 B = (argb >> System.Drawing.Imaging.BLUE_SHIFT) As Byte 50 End Function 51 52 Function Value() As System.Drawing.Imaging.ARGB 52 53 Value = argb 53 54 End Function 54 55 55 Sub Value(value As ARGB)56 Sub Value(value As System.Drawing.Imaging.ARGB) 56 57 argb = value 57 58 End Sub … … 73 74 End Function 74 75 */ 75 Static Function FromArgb(argb As ARGB) As Color76 Static Function FromArgb(argb As System.Drawing.Imaging.ARGB) As Color 76 77 Return New Color(argb) 77 78 End Function … … 296 297 End Enum 297 298 */ 298 Static Function MakeARGB(a As Byte, r As Byte, g As Byte, b As Byte) As ARGB299 MakeARGB = (((b As ARGB) <<BLUE_SHIFT) Or _300 ((g As ARGB) <<GREEN_SHIFT) Or _301 ((r As ARGB) <<RED_SHIFT) Or _302 ((a As ARGB) <<ALPHA_SHIFT))299 Static Function MakeARGB(a As Byte, r As Byte, g As Byte, b As Byte) As System.Drawing.Imaging.ARGB 300 MakeARGB = (((b As System.Drawing.Imaging.ARGB) << System.Drawing.Imaging.BLUE_SHIFT) Or _ 301 ((g As System.Drawing.Imaging.ARGB) << System.Drawing.Imaging.GREEN_SHIFT) Or _ 302 ((r As System.Drawing.Imaging.ARGB) << System.Drawing.Imaging.RED_SHIFT) Or _ 303 ((a As System.Drawing.Imaging.ARGB) << System.Drawing.Imaging.ALPHA_SHIFT)) 303 304 End Function 304 305 305 306 Protected 306 argb As ARGB307 argb As System.Drawing.Imaging.ARGB 307 308 End Class 309 310 End Namespace 311 End Namespace -
trunk/ab5.0/ablib/src/Classes/System/Drawing/Drawing2D/Matrix.ab
r497 r635 1 1 ' Classes/System/Drawing/Drawing2D/Matrix.ab 2 Namespace System 3 Namespace Drawing 4 Namespace Drawing2D 2 5 3 6 Class Matrix 4 7 End Class 8 9 End Namespace 10 End Namespace 11 End Namespace -
trunk/ab5.0/ablib/src/Classes/System/Drawing/Drawing2D/misc.ab
r497 r635 1 1 ' Classes/System/Drawing/Drawing2D/misc.ab 2 Namespace System 3 Namespace Drawing 4 Namespace Drawing2D 2 5 3 6 Enum CombineMode … … 81 84 Device 82 85 End Enum 86 87 End Namespace 88 End Namespace 89 End Namespace -
trunk/ab5.0/ablib/src/Classes/System/Drawing/Font.ab
r497 r635 1 Namespace System 2 Namespace Drawing 3 4 1 5 /** 2 6 @file Classes/System/Drawing/Font.ab 3 7 @brief Fontクラスなどの実装。 4 8 */ 5 6 #require <Classes/System/Drawing/Graphics.ab>7 9 8 10 Class FontFamily : End Class … … 329 331 /*mutable*/ lastResult As Status 330 332 End Class 333 334 End Namespace 335 End Namespace -
trunk/ab5.0/ablib/src/Classes/System/Drawing/Graphics.ab
r497 r635 1 1 ' Classes/System/Drawing/Graphics.ab 2 3 Namespace System 4 Namespace Drawing 2 5 3 6 Class Brush : End Class … … 2008 2011 End Class 2009 2012 2013 End Namespace 2014 End Namespace -
trunk/ab5.0/ablib/src/Classes/System/Drawing/Image.ab
r104 r635 1 1 ' Classes/System/Drawing/Image.ab 2 3 Namespace System 4 Namespace Drawing 2 5 3 6 Class Image … … 9 12 nativeImage As *GpImage 10 13 End Class 14 15 End Namespace 16 End Namespace -
trunk/ab5.0/ablib/src/Classes/System/Drawing/Imaging/MetafileHeader.ab
r497 r635 1 1 ' Classes/System/Drawing/Imaging/MetafileHeader.ab 2 Namespace System 3 Namespace Drawing 4 Namespace Imaging 2 5 3 6 Type Align(8) ENHMETAHEADER3 … … 151 154 End Function 152 155 End Class 156 157 End Namespace 158 End Namespace 159 End Namespace -
trunk/ab5.0/ablib/src/Classes/System/Drawing/Imaging/misc.ab
r497 r635 1 1 ' Classes/System/Drawing/Imaging/misc.ab 2 2 3 #require <Classes/System/Drawing/Color.ab> 3 Namespace System 4 Namespace Drawing 5 Namespace Imaging 4 6 5 7 TypeDef ARGB = DWord … … 433 435 ColorChannelLast 434 436 End Enum 437 438 End Namespace 439 End Namespace 440 End Namespace -
trunk/ab5.0/ablib/src/Classes/System/Drawing/Text/misc.ab
r497 r635 1 1 ' Classes/System/Drawing/Text/misc.ab 2 Namespace System 3 Namespace Drawing 4 Namespace Text 2 5 3 6 Enum TextRenderingHint … … 9 12 ClearTypeGridFit 10 13 End Enum 14 15 End Namespace 16 End Namespace 17 End Namespace -
trunk/ab5.0/ablib/src/Classes/System/Drawing/misc.ab
r473 r635 1 1 ' Classes/System/Drawing/misc.ab 2 2 3 #ifndef __SYSTEM_DRAWING_MISC_AB__ 4 #define __SYSTEM_DRAWING_MISC_AB__ 3 Namespace System 4 Namespace Drawing 5 5 6 6 Enum RotateFlipType … … 47 47 48 48 49 #endif '__SYSTEM_DRAWING_MISC_AB__ 49 End Namespace 50 End Namespace
Note:
See TracChangeset
for help on using the changeset viewer.