Changeset 241 for branch/egtra-gdiplus
- Timestamp:
- May 9, 2007, 10:26:36 PM (18 years ago)
- Location:
- branch/egtra-gdiplus
- Files:
-
- 6 added
- 20 edited
- 4 copied
Legend:
- Unmodified
- Added
- Removed
-
branch/egtra-gdiplus/Classes/System/Drawing/CharacterRange.ab
r166 r241 3 3 #ifndef __SYSTEM_DRAWING_CHARACTERRANGE_AB__ 4 4 #define __SYSTEM_DRAWING_CHARACTERRANGE_AB__ 5 6 Namespace System 7 Namespace Drawing 5 8 6 9 Class CharacterRange … … 9 12 first = f 10 13 length = l 11 End Sub12 13 Sub CharacterRange(ByRef c As CharacterRange)14 first = c.first15 length = c.length16 14 End Sub 17 15 … … 37 35 End Sub 38 36 39 Sub Operator = (ByRef c As CharacterRange)40 first = c.first41 length = c.length42 End Sub43 44 37 Function Operator ==(c As CharacterRange) 45 38 Return Equals(c) … … 63 56 End Class 64 57 58 End Namespace 'Drawing 59 End Namespace 'System 60 61 65 62 #endif '__SYSTEM_DRAWING_CHARACTERRANGE_AB__ -
branch/egtra-gdiplus/Classes/System/Drawing/Color.ab
r212 r241 4 4 #define __SYSTEM_DRAWING_COLOR_AB__ 5 5 6 #include <GdiplusTypes.ab> 6 7 #include <Classes/System/Math.ab> 7 8 #include <Classes/System/Drawing/Imaging/misc.ab> 9 10 Namespace System 11 Namespace Drawing 8 12 9 13 Class Color 10 14 Public 11 15 Sub Color() 12 argb = MakeARGB(255, 0, 0, 0) ' Black 13 End Sub 14 15 Sub Color(ByRef c As Color) 16 argb = c.argb 16 argb = MakeARGB(255, 0, 0, 0) 'Black 17 17 End Sub 18 18 … … 25 25 End Sub 26 26 27 Sub Color(newArgb As ARGB)27 Sub Color(newArgb As Gdiplus.ARGB) 28 28 argb = newArgb 29 29 End Sub 30 /* 31 Sub Operator =(c As Color) 32 argb = c.argb 33 End Sub 34 */ 30 35 31 Function Operator ==(c As Color) As Boolean 36 32 Return Equals(c) … … 57 53 End Function 58 54 59 Function Value() As ARGB55 Function Value() As Gdiplus.ARGB 60 56 Return argb 61 57 End Function 62 58 63 Sub Value(value As ARGB)59 Sub Value(value As Gdiplus.ARGB) 64 60 argb = value 65 61 End Sub … … 77 73 End Function 78 74 79 Function ToArgb() As ARGB75 Function ToArgb() As Gdiplus.ARGB 80 76 Return argb 81 77 End Function 82 78 83 Static Function FromArgb(argb As ARGB) As Color79 Static Function FromArgb(argb As Gdiplus.ARGB) As Color 84 80 Dim c As Color(argb) 85 81 Rteurn c … … 301 297 End Enum 302 298 */ 303 Static Function MakeARGB(a As Byte, r As Byte, g As Byte, b As Byte) As ARGB304 MakeARGB = (((b As ARGB) <<BLUE_SHIFT) Or _305 ((g As ARGB) <<GREEN_SHIFT) Or _306 ((r As ARGB) <<RED_SHIFT) Or _307 ((a As ARGB) <<ALPHA_SHIFT))299 Static Function MakeARGB(a As Byte, r As Byte, g As Byte, b As Byte) As Gdiplus.ARGB 300 MakeARGB = (((b As Gdiplus.ARGB) << Gdiplus.BLUE_SHIFT) Or _ 301 ((g As Gdiplus.ARGB) << Gdiplus.GREEN_SHIFT) Or _ 302 ((r As Gdiplus.ARGB) << Gdiplus.RED_SHIFT) Or _ 303 ((a As Gdiplus.ARGB) << Gdiplus.ALPHA_SHIFT)) 308 304 End Function 309 305 310 306 Protected 311 argb As ARGB307 argb As Gdiplus.ARGB 312 308 End Class 313 309 310 End Namespace 'Drawing 311 End Namespace 'System 312 314 313 #endif '__SYSTEM_DRAWING_COLOR_AB__ -
branch/egtra-gdiplus/Classes/System/Drawing/Drawing2D/Matrix.ab
r77 r241 4 4 #define __SYSTEM_DRAWING_DRAWING2D_MATRIX_AB__ 5 5 6 #include <GdiPlusGpStubs.ab> 7 6 8 Class Matrix 9 Public 10 Function NativeMatrix() As *Gdiplus.GpMatrix 11 Return 0 '仮 12 End Function 7 13 End Class 8 14 -
branch/egtra-gdiplus/Classes/System/Drawing/Drawing2D/misc.ab
r77 r241 3 3 #ifndef __SYSTEM_DRAWING_DRAWING2D_MISC_AB__ 4 4 #define __SYSTEM_DRAWING_DRAWING2D_MISC_AB__ 5 6 #require <gdiplusenums.ab> 7 8 Namespace System 9 Namespace Drawing 10 Namespace Drawing2D 5 11 6 12 Enum CombineMode … … 85 91 End Enum 86 92 93 Enum WarpMode 94 Perspective ' 0 95 Bilinear ' 1 96 End Enum 97 98 Enum DashCap 99 Flat = 0 100 Round = 2 101 Triangle = 3 102 End Enum 103 104 Enum LineCap 105 Flat = 0 106 Square = 1 107 Round = 2 108 Triangle = 3 109 110 NoAnchor = &h10 111 SquareAnchor = &h11 112 RoundAnchor = &h12 113 DiamondAnchor = &h13 114 ArrowAnchor = &h14 115 116 Custom = &hff 117 118 AnchorMask = &hf0 119 End Enum 120 121 Enum PenAlignment 122 Center = 0 123 Inset = 1 124 End Enum 125 126 Enum LineJoin 127 Miter = 0 128 Bevel = 1 129 Round = 2 130 MiterClipped = 3 131 End Enum 132 133 Enum PenType 134 SolidColor = Gdiplus.BrushTypeSolidColor 135 HatchFill = Gdiplus.BrushTypeHatchFill 136 TextureFill = Gdiplus.BrushTypeTextureFill 137 PathGradient = Gdiplus.BrushTypePathGradient 138 LinearGradient = Gdiplus.BrushTypeLinearGradient 139 Unknown = -1 140 End Enum 141 142 End Namespace 'Drawing2D 143 End Namespace 'Drawing 144 End Namespace 'System 145 87 146 #endif '__SYSTEM_DRAWING_DRAWING2D_MISC_AB__ -
branch/egtra-gdiplus/Classes/System/Drawing/Font.ab
r212 r241 2 2 #define _GDIPLUSFONT_H 3 3 4 #require <GdiPlus.ab> 4 #require <GdiPlusTypes.ab> 5 #require <GdiPlusGpStubs.ab> 6 #require <GdiPlusFlat.ab> 5 7 #require <Classes/System/Drawing/misc.ab> 6 8 #require <Classes/System/Drawing/Graphics.ab> 7 9 10 Namespace System 11 Namespace Drawing 12 8 13 Class FontFamily : End Class 14 15 Namespace Text 9 16 Class FontCollection : End Class 17 End Namespace 18 19 'Todo: コンストラクタ内での別コンストラクタ呼出を修正せよ 10 20 11 21 Class Font … … 14 24 15 25 Sub Font(/*IN*/ hdc As HDC) 16 Dim font = 0 As *G pFont17 lastResult = Gdip CreateFontFromDC(hdc, font)26 Dim font = 0 As *Gdiplus.GpFont 27 lastResult = Gdiplus.DllExports.GdipCreateFontFromDC(hdc, font) 18 28 SetNativeFont(font) 19 29 End Sub 20 30 21 31 Sub Font(/*IN*/ hdc As HDC, /*IN const*/ ByRef logfont As LOGFONTA) 22 Dim font = 0 As *G pFont23 lastResult = GdipCreateFontFromLogfontA(hdc, logfont, font)32 Dim font = 0 As *Gdiplus.GpFont 33 lastResult = Gdiplus.DllExports.GdipCreateFontFromLogfontA(hdc, logfont, font) 24 34 SetNativeFont(font) 25 35 End Sub 26 36 27 37 Sub Font(/*IN*/ hdc As HDC, /*IN const*/ ByRef logfont As LOGFONTW) 28 Dim font = 0 As *G pFont29 lastResult = GdipCreateFontFromLogfontW(hdc, logfont, font)38 Dim font = 0 As *Gdiplus.GpFont 39 lastResult = Gdiplus.DllExports.GdipCreateFontFromLogfontW(hdc, logfont, font) 30 40 SetNativeFont(font) 31 41 End Sub 32 42 33 43 Sub Font(/*IN*/ hdc As HDC, /*IN const*/ hfont As HFONT) 34 Dim font = 0 As *G pFont44 Dim font = 0 As *Gdiplus.GpFont 35 45 If hfont <> 0 Then 36 46 Dim lf As LOGFONTA 37 If GetObjectA(hfont, sizeof (LOGFONTA), lf) <> 0 Then38 lastResult = Gdip CreateFontFromLogfontA(hdc, lf, font)47 If GetObjectA(hfont, SizeOf (LOGFONTA), lf) <> 0 Then 48 lastResult = Gdiplus.DllExports.GdipCreateFontFromLogfontA(hdc, lf, font) 39 49 Else 40 lastResult = Gdip CreateFontFromDC(hdc, font)50 lastResult = Gdiplus.DllExports.GdipCreateFontFromDC(hdc, font) 41 51 End If 42 52 Else 43 lastResult = Gdip CreateFontFromDC(hdc, font)53 lastResult = Gdiplus.DllExports.GdipCreateFontFromDC(hdc, font) 44 54 End If 45 55 SetNativeFont(font) … … 59 69 /*IN*/ style As Long, /*IN*/ unit As GraphicsUnit) 60 70 61 Dim font = 0 As *GpFont 62 lastResult = GdipCreateFont( 63 family.NativeFamily, emSize, style, unit, font) 71 Dim font = 0 As *Gdiplus.GpFont 72 lastResult = Gdiplus.DllExports.GdipCreateFont(family.NativeFamily, emSize, style, unit, font) 64 73 SetNativeFont(font) 65 74 End Sub … … 95 104 Sub Font(/*IN const*/ familyName As PCWSTR, /*IN*/ emSize As Single, 96 105 /*IN*/ style As Long, /*IN*/ unit As GraphicsUnit, 97 /*IN const*/ ByRef fontCollection As FontCollection)106 /*IN const*/ ByRef fontCollection As Text.FontCollection) 98 107 99 108 nativeFont = 0 … … 104 113 lastResult = family.GetLastStatus() 105 114 106 If lastResult <> Ok Then107 nativeFamily = FontFamily.GenericSansSerif() ->NativeFamily108 lastResult = FontFamily.GenericSansSerif() ->lastResult109 If lastResult <> Ok Then115 If lastResult <> Gdiplus.Status.Ok Then 116 nativeFamily = FontFamily.GenericSansSerif().NativeFamily 117 lastResult = FontFamily.GenericSansSerif().lastResult 118 If lastResult <> Gdiplus.Status.Ok Then 110 119 Exit Sub 111 120 End If 112 121 End If 113 122 114 lastResult = Gdip CreateFont(123 lastResult = Gdiplus.DllExports.GdipCreateFont( 115 124 nativeFamily, emSize, style, unit, nativeFont) 116 125 117 If lastResult <> Ok Then118 nativeFamily = FontFamily.GenericSansSerif() ->NativeFamily119 lastResult = FontFamily.GenericSansSerif() ->lastResult120 If lastResult <> Ok Then126 If lastResult <> Gdiplus.Status.Ok Then 127 nativeFamily = FontFamily.GenericSansSerif().NativeFamily 128 lastResult = FontFamily.GenericSansSerif().lastResult 129 If lastResult <> Gdiplus.Status.Ok Then 121 130 Exit Sub 122 131 End If 123 132 124 lastResult = GdipCreateFont( 125 nativeFamily, emSize, style, unit, nativeFont) 133 lastResult = Gdiplus.DllExports.GdipCreateFont(nativeFamily, emSize, style, unit, nativeFont) 126 134 End If 127 135 End Sub … … 129 137 Sub Font(/*IN const*/ familyName As String, /*IN*/ emSize As Single, 130 138 /*IN*/ style As Long, /*IN*/ unit As GraphicsUnit, 131 /*IN const*/ fontCollection As FontCollection) 132 #ifdef __STRING_IS_NOT_UNICODE 133 Dim oldAlloc = _System_AllocForConvertedString 134 _System_AllocForConvertedString = AddressOf (_System_malloc) 135 Dim name = ToWCStr(familyName) 136 Font(name, emSize, style, unit, fontCollection) 137 _System_free(name) 138 _System_AllocForConvertedString = oldAlloc 139 #else 140 Font(familyName.Chars, emSize, style, unit, fontCollection) 141 #endif 142 End Sub 143 144 Const Function GetLogFontA(/*IN const*/ g As Graphics, /*OUT*/ ByRef lf As LOGFONTA) As Status 139 /*IN const*/ fontCollection As Text.FontCollection) 140 Font(ToWCStr(familyName), emSize, style, unit, fontCollection) 141 End Sub 142 143 Const Function GetLogFontA(/*IN const*/ g As Graphics, /*OUT*/ ByRef lf As LOGFONTA) As Gdiplus.Status 145 144 Dim nativeGraphics As *GpGraphics 146 145 If VarPtr(g) <> 0 Then 147 146 nativeGraphics = g.nativeGraphics 148 147 End If 149 Return SetStatus(Gdip GetLogFontA(nativeFont, nativeGraphics, lf))150 End Function 151 152 Const Function GetLogFontW(/*IN const*/ g As Graphics, /*OUT*/ ByRef lf As LOGFONTW) As Status148 Return SetStatus(Gdiplus.DllExports.GdipGetLogFontA(nativeFont, nativeGraphics, lf)) 149 End Function 150 151 Const Function GetLogFontW(/*IN const*/ g As Graphics, /*OUT*/ ByRef lf As LOGFONTW) As Gdiplus.Status 153 152 Dim nativeGraphics As *GpGraphics 154 153 If VarPtr(g) <> 0 Then 155 154 nativeGraphics = g.nativeGraphics 156 155 End If 157 Return SetStatus(Gdip GetLogFontW(nativeFont, nativeGraphics, lf))158 End Function 159 160 Const Function GetLogFont(/*IN const*/ g As Graphics, /*OUT*/ ByRef lf As LOGFONT) As Status156 Return SetStatus(Gdiplus.DllExports.GdipGetLogFontW(nativeFont, nativeGraphics, lf)) 157 End Function 158 159 Const Function GetLogFont(/*IN const*/ g As Graphics, /*OUT*/ ByRef lf As LOGFONT) As Gdiplus.Status 161 160 Dim nativeGraphics As *GpGraphics 162 161 If VarPtr(g) <> 0 Then … … 164 163 End If 165 164 #ifdef UNICODE 166 Return SetStatus(Gdip GetLogFontW(nativeFont, nativeGraphics, lf))165 Return SetStatus(Gdiplus.DllExports.GdipGetLogFontW(nativeFont, nativeGraphics, lf)) 167 166 #else 168 Return SetStatus(Gdip GetLogFontA(nativeFont, nativeGraphics, lf))167 Return SetStatus(Gdiplus.DllExports.GdipGetLogFontA(nativeFont, nativeGraphics, lf)) 169 168 #endif 170 169 End Function 171 170 172 171 Const Function Clone() As Font 173 Dim cloneFont = 0 As *G pFont174 SetStatus(Gdip CloneFont(nativeFont, cloneFont))172 Dim cloneFont = 0 As *Gdiplus.GpFont 173 SetStatus(Gdiplus.DllExports.GdipCloneFont(nativeFont, cloneFont)) 175 174 Return New Font(cloneFont, lastResult) 176 175 End Function 177 176 177 Sub Dispose() 178 Gdiplus.DllExports.GdipDeleteFont(nativeFont) 179 nativeFont = 0 180 End Sub 181 178 182 Sub ~Font() 179 GdipDeleteFont(nativeFont) 183 If nativeFont <> 0 Then 184 Dispose() 185 End If 180 186 End Sub 181 187 … … 185 191 186 192 Const Function Style() As Long 187 SetStatus(Gdip GetFontStyle(nativeFont, Style))193 SetStatus(Gdiplus.DllExports.GdipGetFontStyle(nativeFont, Style)) 188 194 End Function 189 195 190 196 Const Function Size() As Single 191 SetStatus(Gdip GetFontSize(nativeFont, Size))192 End Function 193 194 Const Function SizeInPoints() As Single197 SetStatus(Gdiplus.DllExports.GdipGetFontSize(nativeFont, Size)) 198 End Function 199 200 ' Const Function SizeInPoints() As Single 195 201 196 202 Const Function Unit() As GraphicsUnit 197 SetStatus(Gdip GetFontUnit(nativeFont, Unit))198 End Function 199 200 Const Function LastStatus() As Status203 SetStatus(Gdiplus.DllExports.GdipGetFontUnit(nativeFont, Unit)) 204 End Function 205 206 Const Function LastStatus() As Gdiplus.Status 201 207 Return lastResult 202 208 End Function … … 207 213 208 214 Const Function GetHeight() As Single 209 SetStatus(Gdip GetFontHeight(nativeFont, 0, GetHeight))215 SetStatus(Gdiplus.DllExports.GdipGetFontHeight(nativeFont, 0, GetHeight)) 210 216 End Function 211 217 212 218 Const Function GetHeight(/*IN const*/ g As Graphics) As Single 213 Dim nativeGraphics As *G pGraphics219 Dim nativeGraphics As *Gdiplus.GpGraphics 214 220 If VarPtr(g) <> 0 Then 215 221 nativeGraphics = g.NativeGraphics 216 222 End If 217 SetStatus(Gdip GetFontHeight(nativeFont, nativeGraphics, GetHeight))223 SetStatus(Gdiplus.DllExports.GdipGetFontHeight(nativeFont, nativeGraphics, GetHeight)) 218 224 End Function 219 225 220 226 Const Function GetHeight(/*IN*/ dpi As Single) As Single 221 SetStatus(Gdip GetFontHeightGivenDPI(nativeFont, dpi, GetHeight))227 SetStatus(Gdiplus.DllExports.GdipGetFontHeightGivenDPI(nativeFont, dpi, GetHeight)) 222 228 End Function 223 229 224 230 ' Const Function FontFamily(/*OUT*/ ByRef family As FontFamily) 225 ' If VarPtr(family) = 0 Then 226 ' Return SetStatus(Status.InvalidParameter) 227 ' End If 228 ' Dim status = GdipGetFamily(nativeFont, family->nativeFamily) 229 ' family->SetStatus(status) 231 ' family = New FontFamily 232 ' Dim status = GdipGetFamily(nativeFont, family.nativeFamily) 233 ' family.SetStatus(status) 230 234 ' Return SetStatus(status) 231 235 ' End Function … … 245 249 'Const Function GdiVerticalFont() As Boolean 246 250 247 Const Function NativeFont() As *G pFont251 Const Function NativeFont() As *Gdiplus.GpFont 248 252 Return nativeFont 249 253 End Function … … 270 274 'Const Function SizeInPoint() As Boolean 271 275 272 Const Function NativeFont() As *G pFont276 Const Function NativeFont() As *Gdiplus.GpFont 273 277 Return nativeFont 274 278 End Function … … 315 319 End Sub 316 320 317 Private 318 ' Sub Font(ByRef f As Font) 319 320 Protected 321 Sub Font(f As *GpFont, status As Status) 321 'Protected 322 Sub Font(f As *Gdiplus.GpFont, status As Gdiplus.Status) 322 323 lastResult = status 323 324 SetNativeFont(f) 324 325 End Sub 325 326 Sub SetNativeFont(f As *G pFont)326 Protected 327 Sub SetNativeFont(f As *Gdiplus.GpFont) 327 328 nativeFont = f 328 329 End Sub 329 330 330 Const Function SetStatus(s As Status) AsStatus331 If s <> Status.Ok Then331 Const Function SetStatus(s As Gdiplus.Status) As Gdiplus.Status 332 If s <> Gdiplus.Status.Ok Then 332 333 lastResult = s 333 334 Return s … … 338 339 339 340 Protected 340 nativeFont As *G pFont341 /*mutable*/ lastResult As Status341 nativeFont As *Gdiplus.GpFont 342 /*mutable*/ lastResult As Gdiplus.Status 342 343 End Class 343 344 345 End Namespace 'Drawing 346 End Namespace 'System 347 344 348 #endif -
branch/egtra-gdiplus/Classes/System/Drawing/Graphics.ab
r212 r241 4 4 #define __SYSTEM_DRAWING_GRAPHICS_AB__ 5 5 6 Class Brush : End Class 6 #require <GdiplusGpStubs.ab> 7 #require <GdiPlusFlat.ab> 8 #require <Classes/System/Drawing/misc.ab> 9 #require <Classes/System/Drawing/Rectangle.ab> 10 #require <Classes/System/Drawing/RectangleF.ab> 11 #require <Classes/System/Drawing/Point.ab> 12 #require <Classes/System/Drawing/PointF.ab> 13 #require <Classes/System/Drawing/SizeF.ab> 14 #require <Classes/System/Drawing/Font.ab> 15 #require <Classes/System/Drawing/Brush.ab> 16 '#require <Classes/System/Drawing/Pen.ab> 17 '#require <Classes/System/Drawing/Region.ab> 18 '#require <Classes/System/Drawing/StringFormat.ab> 19 '#require <Classes/System/Drawing/Image.ab> 20 #require <Classes/System/Drawing/Drawing2D/misc.ab> 21 #require <Classes/System/Drawing/Drawing2D/Matrix.ab> 22 #require <Classes/System/Drawing/Imaging/ImageAttributes.ab> 23 24 Namespace System 25 Namespace Drawing 26 7 27 Class Pen : End Class 8 28 Class StringFormat : End Class 9 29 Class Image : End Class 10 Class ImageAttributes : End Class11 30 Class Metafile : End Class 12 31 Class Region : End Class 13 32 Class GraphicsPath : End Class 14 33 Class CachedBitmap : End Class 15 16 #include <GdiplusGpStubs.ab>17 #include <GdiPlusFlat.ab>18 #include <Classes/System/Drawing/misc.ab>19 #include <Classes/System/Drawing/Rectangle.ab>20 #include <Classes/System/Drawing/RectangleF.ab>21 #include <Classes/System/Drawing/Point.ab>22 #include <Classes/System/Drawing/PointF.ab>23 #include <Classes/System/Drawing/SizeF.ab>24 #include <Classes/System/Drawing/Font.ab>25 '#include <Classes/System/Drawing/Brush.ab>26 '#include <Classes/System/Drawing/Pen.ab>27 '#include <Classes/System/Drawing/Region.ab>28 '#include <Classes/System/Drawing/StringFormat.ab>29 '#include <Classes/System/Drawing/Image.ab>30 #include <Classes/System/Drawing/Drawing2D/misc.ab>31 #include <Classes/System/Drawing/Drawing2D/Matrix.ab>32 34 33 35 Class Graphics … … 104 106 End Function 105 107 106 Function PageScale(scale As Single) As Status108 Function PageScale(scale As Single) As Gdiplus.Status 107 109 Return SetStatus(GdipSetPageScale(nativeGraphics, scale)) 108 110 End Function … … 120 122 End Function 121 123 122 Function PageUnit(unit As GraphicsUnit) As Status124 Function PageUnit(unit As GraphicsUnit) As Gdiplus.Status 123 125 Return SetStatus(GdipSetPageUnit(nativeGraphics, unit)) 124 126 End Function … … 206 208 207 209 Sub Graphics(hdc As HDC) 208 Dim graphics = 0 As G pGraphics210 Dim graphics = 0 As Gdiplus.GpGraphics 209 211 lastResult = GdipCreateFromHDC(hdc, graphics) 210 212 SetNativeGraphics(graphics) … … 212 214 213 215 Sub Graphics(hdc As HDC, hdevice As HANDLE) 214 Dim graphics = 0 As *G pGraphics216 Dim graphics = 0 As *Gdiplus.GpGraphics 215 217 lastResult = GdipCreateFromHDC2(hdc, hdevice, graphics) 216 218 SetNativeGraphics(graphics) … … 218 220 219 221 Sub Graphics(hwnd As HWND) 220 Dim graphics = 0 As *G pGraphics222 Dim graphics = 0 As *Gdiplus.GpGraphics 221 223 lastResult = GdipCreateFromHWND(hwnd, graphics) 222 224 SetNativeGraphics(graphics) … … 224 226 225 227 Sub Graphics(hwnd As HWND, icm As BOOL) 226 Dim graphics = 0 As *G pGraphics228 Dim graphics = 0 As *Gdiplus.GpGraphics 227 229 If icm <> FALSE Then 228 230 lastResult = GdipCreateFromHWNDICM(hwnd, graphics) … … 234 236 235 237 Sub Graphics(image As Image) 236 Dim graphics = 0 As *G pGraphics238 Dim graphics = 0 As *Gdiplus.GpGraphics 237 239 If (image != 0) 238 240 lastResult = GdipGetImageGraphicsContext(image->NativeImage, graphics) … … 273 275 '------------------------------------------------------------------------ 274 276 275 Function SetRenderingOrigin(x As Long, y As Long) As Status277 Function SetRenderingOrigin(x As Long, y As Long) As Gdiplus.Status 276 278 Return SetStatus(GdipSetRenderingOrigin(nativeGraphics, x, y)) 277 279 End Function 278 280 279 Const Function GetRenderingOrigin(x As Long, y As Long) As Status281 Const Function GetRenderingOrigin(x As Long, y As Long) As Gdiplus.Status 280 282 Return SetStatus(GdipGetRenderingOrigin(nativeGraphics, x, y)) 281 283 End Function 282 284 283 Function SetCompositingMode(compositingMode As CompositingMode) As Status285 Function SetCompositingMode(compositingMode As CompositingMode) As Gdiplus.Status 284 286 Return SetStatus(GdipSetCompositingMode(nativeGraphics, compositingMode)) 285 287 End Function … … 301 303 End Function 302 304 303 Function SetTextRenderingHint(newMode As TextRenderingHint) As Status305 Function SetTextRenderingHint(newMode As TextRenderingHint) As Gdiplus.Status 304 306 Return SetStatus(GdipSetTextRenderingHint(nativeGraphics, newMode)) 305 307 End Function … … 311 313 End Function 312 314 313 Function SetTextContrast(contrast As DWord) As Status315 Function SetTextContrast(contrast As DWord) As Gdiplus.Status 314 316 Return SetStatus(GdipSetTextContrast(nativeGraphics, contrast)) 315 317 End Function … … 327 329 End Function 328 330 329 Function SetInterpolationMode(interpolationMode As InterpolationMode) As Status331 Function SetInterpolationMode(interpolationMode As InterpolationMode) As Gdiplus.Status 330 332 Return SetStatus(GdipSetInterpolationMode(nativeGraphics, interpolationMode)) 331 333 End Function … … 337 339 End Function 338 340 339 Function SetSmoothingMode(smoothingMode As SmoothingMode) As Status341 Function SetSmoothingMode(smoothingMode As SmoothingMode) As Gdiplus.Status 340 342 Return SetStatus(GdipSetSmoothingMode(nativeGraphics, smoothingMode)) 341 343 End Function … … 347 349 End Function 348 350 349 Function SetPixelOffsetMode(pixelOffsetMode As PixelOffsetMode) As Status351 Function SetPixelOffsetMode(pixelOffsetMode As PixelOffsetMode) As Gdiplus.Status 350 352 Return SetStatus(GdipSetPixelOffsetMode(nativeGraphics, pixelOffsetMode)) 351 353 End Function … … 355 357 '------------------------------------------------------------------------ 356 358 357 Function SetTransform(matrix As /*Const*/ *Matrix) As Status359 Function SetTransform(matrix As /*Const*/ *Matrix) As Gdiplus.Status 358 360 Return SetStatus(GdipSetWorldTransform(nativeGraphics, matrix->nativeMatrix)) 359 361 End Function 360 362 361 Function ResetTransform() As Status363 Function ResetTransform() As Gdiplus.Status 362 364 Return SetStatus(GdipResetWorldTransform(nativeGraphics)) 363 365 End Function 364 366 365 Function MultiplyTransform(matrix As /*Const*/ Matrix) As Status367 Function MultiplyTransform(matrix As /*Const*/ Matrix) As Gdiplus.Status 366 368 Return SetStatus(GdipMultiplyWorldTransform(nativeGraphics, matrix->nativeMatrix, MatrixOrder.Prepend)) 367 369 End Function 368 370 369 Function MultiplyTransform(matrix As /*Const*/ Matrix, order As MatrixOrder) As Status371 Function MultiplyTransform(matrix As /*Const*/ Matrix, order As MatrixOrder) As Gdiplus.Status 370 372 Return SetStatus(GdipMultiplyWorldTransform(nativeGraphics, matrix->nativeMatrix, order)) 371 373 End Function 372 374 373 Function TranslateTransform(dx As Single, dy As Single) As Status375 Function TranslateTransform(dx As Single, dy As Single) As Gdiplus.Status 374 376 Return SetStatus(GdipTranslateWorldTransform(nativeGraphics, dx, dy, MatrixOrder.Prepend)) 375 377 End Function 376 378 377 Function TranslateTransform(dx As Single, dy As Single, order As MatrixOrder) As Status379 Function TranslateTransform(dx As Single, dy As Single, order As MatrixOrder) As Gdiplus.Status 378 380 Return SetStatus(GdipTranslateWorldTransform(nativeGraphics, dx, dy, order)) 379 381 End Function 380 382 381 Function ScaleTransform(sx As Single, sy As Single) As Status383 Function ScaleTransform(sx As Single, sy As Single) As Gdiplus.Status 382 384 Return SetStatus(GdipScaleWorldTransform(nativeGraphics, sx, sy, MatrixOrder.Prepend)) 383 385 End Function 384 386 385 Function ScaleTransform(sx As Single, sy As Single, order As MatrixOrder) As Status387 Function ScaleTransform(sx As Single, sy As Single, order As MatrixOrder) As Gdiplus.Status 386 388 Return SetStatus(GdipScaleWorldTransform(nativeGraphics, sx, sy, order)) 387 389 End Function 388 390 389 Function RotateTransform(angle As Single) As Status391 Function RotateTransform(angle As Single) As Gdiplus.Status 390 392 Return SetStatus(GdipRotateWorldTransform(nativeGraphics, angle, MatrixOrder.Prepend)) 391 393 End Function 392 394 393 Function RotateTransform(angle As Single, order As MatrixOrder) As Status395 Function RotateTransform(angle As Single, order As MatrixOrder) As Gdiplus.Status 394 396 Return SetStatus(GdipRotateWorldTransform(nativeGraphics, angle, order)) 395 397 End Function 396 398 397 Const Function GetTransform(matrix As Matrix) As Status399 Const Function GetTransform(matrix As Matrix) As Gdiplus.Status 398 400 Return SetStatus(GdipGetWorldTransform(nativeGraphics, matrix->nativeMatrix)) 399 401 End Function 400 402 401 Const Function TransformPoints(destSpace As CoordinateSpace, srcSpace As CoordinateSpace, pts As PointF, count As Long) As Status403 Const Function TransformPoints(destSpace As CoordinateSpace, srcSpace As CoordinateSpace, pts As PointF, count As Long) As Gdiplus.Status 402 404 Return SetStatus(GdipTransformPoints(nativeGraphics, destSpace, srcSpace, pts, count)) 403 405 End Function 404 406 405 Const Function TransformPoints(destSpace As CoordinateSpace, srcSpace As CoordinateSpace, pts As Point, count As Long) As Status407 Const Function TransformPoints(destSpace As CoordinateSpace, srcSpace As CoordinateSpace, pts As Point, count As Long) As Gdiplus.Status 406 408 Return SetStatus(GdipTransformPointsI(nativeGraphics, destSpace, srcSpace, pts, count)) 407 409 End Function … … 411 413 '------------------------------------------------------------------------ 412 414 413 Const Function GetNearestColor(color As Color) As Status415 Const Function GetNearestColor(color As Color) As Gdiplus.Status 414 416 Dim argb = color->Value 415 417 Dim status = SetStatus(GdipGetNearestColor(nativeGraphics, argb)) … … 418 420 End Function 419 421 420 Function DrawLine(pen As /*Const*/ Pen, x1 As Single, y1 As Single, x2 As Single, y2 As Single) As Status422 Function DrawLine(pen As /*Const*/ Pen, x1 As Single, y1 As Single, x2 As Single, y2 As Single) As Gdiplus.Status 421 423 Return SetStatus(GdipDrawLine(nativeGraphics, pen->nativePen, x1, y1, x2, y2)) 422 424 End Function 423 425 424 Function DrawLine(pen As /*Const*/ Pen, pt1 As /*Const*/ PointF, pt2 As /*Const*/ PointF) As Status426 Function DrawLine(pen As /*Const*/ Pen, pt1 As /*Const*/ PointF, pt2 As /*Const*/ PointF) As Gdiplus.Status 425 427 Return DrawLine(pen, pt1.X, pt1.Y, pt2.X, pt2.Y) 426 428 End Function 427 429 428 Function DrawLines(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status430 Function DrawLines(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status 429 431 Return SetStatus(GdipDrawLines(nativeGraphics, pen->nativePen, points, count)) 430 432 End Function 431 433 432 Function DrawLine(pen As /*Const*/ Pen, x1 As Long, y1 As Long, x2 As Long, y2 As Long) As Status434 Function DrawLine(pen As /*Const*/ Pen, x1 As Long, y1 As Long, x2 As Long, y2 As Long) As Gdiplus.Status 433 435 Return SetStatus(GdipDrawLineI(nativeGraphics, pen->nativePen, x1, y1, x2, y2)) 434 436 End Function 435 437 436 Function DrawLine(pen As /*Const*/ Pen, pt1 As /*Const*/ Point, pt2 As /*Const*/ Point) As Status438 Function DrawLine(pen As /*Const*/ Pen, pt1 As /*Const*/ Point, pt2 As /*Const*/ Point) As Gdiplus.Status 437 439 Return DrawLine(pen, pt1.X, pt1.Y, pt2.X, pt2.Y) 438 440 End Function 439 441 440 Function DrawLines(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status442 Function DrawLines(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Gdiplus.Status 441 443 Return SetStatus(GdipDrawLinesI(nativeGraphics, pen->nativePen, points, count)) 442 444 End Function 443 445 444 Function DrawArc(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single, startAngle As Single, sweepAngle As Single) As Status446 Function DrawArc(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 445 447 Return SetStatus(GdipDrawArc(nativeGraphics, pen->nativePen, x, y, width, height, startAngle, sweepAngle)) 446 448 End Function 447 449 448 Function DrawArc(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Status450 Function DrawArc(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 449 451 Return DrawArc(pen, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle) 450 452 End Function 451 453 452 Function DrawArc(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long, startAngle As Single, sweepAngle As Single) As Status454 Function DrawArc(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 453 455 Return SetStatus(GdipDrawArcI(nativeGraphics, pen->nativePen, x, y, width, height, startAngle, sweepAngle)) 454 456 End Function 455 457 456 Function DrawArc(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Status458 Function DrawArc(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 457 459 Return DrawArc(pen, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle) 458 460 End Function 459 461 460 Function DrawBezier(pen As /*Const*/ Pen, x1 As Single, y1 As Single, x2 As Single, y2 As Single, x3 As Single, y3 As Single, x4 As Single, y4 As Single) As Status462 Function DrawBezier(pen As /*Const*/ Pen, x1 As Single, y1 As Single, x2 As Single, y2 As Single, x3 As Single, y3 As Single, x4 As Single, y4 As Single) As Gdiplus.Status 461 463 Return SetStatus(GdipDrawBezier(nativeGraphics, pen->nativePen, x1, y1,x2, y2, x3, y3, x4, y4)) 462 464 End Function 463 465 464 Function DrawBezier(pen As /*Const*/ Pen, pt1 As /*Const*/ PointF, pt2 As /*Const*/ PointF, pt3 As /*Const*/ PointF, pt4 As /*Const*/ PointF) As Status466 Function DrawBezier(pen As /*Const*/ Pen, pt1 As /*Const*/ PointF, pt2 As /*Const*/ PointF, pt3 As /*Const*/ PointF, pt4 As /*Const*/ PointF) As Gdiplus.Status 465 467 Return DrawBezier(pen, pt1.X, pt1.Y, pt2.X, pt2.Y, pt3.X, pt3.Y, pt4.X, pt4.Y) 466 468 End Function 467 469 468 Function DrawBeziers(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status470 Function DrawBeziers(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status 469 471 Return SetStatus(GdipDrawBeziers(nativeGraphics, pen->nativePen, points, count)) 470 472 End Function 471 473 472 Function DrawBezier(pen As /*Const*/ Pen, x1 As Long, y1 As Long, x2 As Long, y2 As Long, x3 As Long, y3 As Long, x4 As Long, y4 As Long) As Status474 Function DrawBezier(pen As /*Const*/ Pen, x1 As Long, y1 As Long, x2 As Long, y2 As Long, x3 As Long, y3 As Long, x4 As Long, y4 As Long) As Gdiplus.Status 473 475 Return SetStatus(GdipDrawBezierI(nativeGraphics, pen->nativePen, x1, y1, x2, y2, x3, y3, x4, y4)) 474 476 End Function 475 477 476 Function DrawBezier(pen As /*Const*/ Pen, pt1 As /*Const*/ Point, pt2 As /*Const*/ Point, pt3 As /*Const*/ Point, pt4 As /*Const*/ Point) As Status478 Function DrawBezier(pen As /*Const*/ Pen, pt1 As /*Const*/ Point, pt2 As /*Const*/ Point, pt3 As /*Const*/ Point, pt4 As /*Const*/ Point) As Gdiplus.Status 477 479 Return DrawBezier(pen pt1.X, pt1.Y, pt2.X, pt2.Y, pt3.X, pt3.Y, pt4.X, pt4.Y) 478 480 End Function 479 481 480 Function DrawBeziers(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status482 Function DrawBeziers(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Gdiplus.Status 481 483 Return SetStatus(GdipDrawBeziersI(nativeGraphics, pen->nativePen, points, count)) 482 484 End Function 483 485 484 Function DrawRectangle(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF) As Status486 Function DrawRectangle(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF) As Gdiplus.Status 485 487 Return DrawRectangle(pen, rect.X, rect.Y, rect.Width, rect.Height) 486 488 End Function 487 489 488 Function DrawRectangle(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single) As Status490 Function DrawRectangle(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single) As Gdiplus.Status 489 491 Return SetStatus(GdipDrawRectangle(nativeGraphics, pen->nativePen, x, y, width, height)) 490 492 End Function 491 493 492 Function DrawRectangles(pen As /*Const*/ Pen, rects As /*Const*/ *RectangleF, count As Long) As Status494 Function DrawRectangles(pen As /*Const*/ Pen, rects As /*Const*/ *RectangleF, count As Long) As Gdiplus.Status 493 495 Return SetStatus(GdipDrawRectangles(nativeGraphics, pen->nativePen, rects, count)) 494 496 End Function 495 497 496 Function DrawRectangle(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle) As Status498 Function DrawRectangle(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle) As Gdiplus.Status 497 499 Return DrawRectangle(pen, rect.X, rect.Y, rect.Width, rect.Height) 498 500 End Function 499 501 500 Function DrawRectangle(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long) As Status502 Function DrawRectangle(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long) As Gdiplus.Status 501 503 Return SetStatus(GdipDrawRectangleI(nativeGraphics, pen->nativePen, x, y, width, height)) 502 504 End Function 503 505 504 Function DrawRectangles(pen As /*Const*/ Pen, rects As /*Const*/ *Rectangle, count As Long) As Status506 Function DrawRectangles(pen As /*Const*/ Pen, rects As /*Const*/ *Rectangle, count As Long) As Gdiplus.Status 505 507 Return SetStatus(GdipDrawRectanglesI(nativeGraphics, pen->nativePen, rects, count)) 506 508 End Function 507 509 508 Function DrawEllipse(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF) As Status510 Function DrawEllipse(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF) As Gdiplus.Status 509 511 Return DrawEllipse(pen, rect.X, rect.Y, rect.Width, rect.Height) 510 512 End Function 511 513 512 Function DrawEllipse(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single) As Status514 Function DrawEllipse(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single) As Gdiplus.Status 513 515 Return SetStatus(GdipDrawEllipse(nativeGraphics, pen->nativePen, x, y, width, height)) 514 516 End Function 515 517 516 Function DrawEllipse(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle) As Status518 Function DrawEllipse(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle) As Gdiplus.Status 517 519 Return DrawEllipse(pen, rect.X, rect.Y, rect.Width, rect.Height) 518 520 End Function 519 521 520 Function DrawEllipse(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long) As Status522 Function DrawEllipse(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long) As Gdiplus.Status 521 523 Return SetStatus(GdipDrawEllipseI(nativeGraphics, pen->nativePen, x, y, width, height)) 522 524 End Function 523 525 524 Function DrawPie(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Status526 Function DrawPie(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 525 527 Return DrawPie(pen, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle) 526 528 End Function 527 529 528 Function DrawPie(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single, startAngle As Single, sweepAngle As Single) As Status530 Function DrawPie(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 529 531 Return SetStatus(GdipDrawPie(nativeGraphics, pen->nativePen, x, y, width, height, startAngle, sweepAngle)) 530 532 End Function 531 533 532 Function DrawPie(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Status534 Function DrawPie(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 533 535 Return DrawPie(pen, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle) 534 536 End Function 535 537 536 Function DrawPie(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long, startAngle As Single, sweepAngle As Single) As Status538 Function DrawPie(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 537 539 Return SetStatus(GdipDrawPieI(nativeGraphics, pen->nativePen, x, y, width, height, startAngle, sweepAngle)) 538 540 End Function 539 541 540 Function DrawPolygon(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status542 Function DrawPolygon(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status 541 543 Return SetStatus(GdipDrawPolygon(nativeGraphics, pen->nativePen, points, count)) 542 544 End Function 543 545 544 Function DrawPolygon(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status546 Function DrawPolygon(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Gdiplus.Status 545 547 Return SetStatus(GdipDrawPolygonI(nativeGraphics, pen->nativePen, points, count)) 546 548 End Function 547 549 548 Function DrawPath(pen As /*Const*/ Pen, path As /*Const*/ GraphicsPath) As Status550 Function DrawPath(pen As /*Const*/ Pen, path As /*Const*/ GraphicsPath) As Gdiplus.Status 549 551 Return SetStatus(GdipDrawPath(nativeGraphics, pen->nativePen, path->nativePath)) 550 552 ' Return SetStatus(GdipDrawPath(nativeGraphics, pen ? pen->nativePen : NULL, path ? path->nativePath : NULL)) 551 553 End Function 552 554 553 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status555 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status 554 556 Return SetStatus(GdipDrawCurve(nativeGraphics, pen->nativePen, points, count)) 555 557 End Function 556 558 557 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, tension As Single) As Status559 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, tension As Single) As Gdiplus.Status 558 560 Return SetStatus(GdipDrawCurve2(nativeGraphics, pen->nativePen, points,count, tension)) 559 561 End Function 560 562 561 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, offset As Long, numberOfSegments As Long) As Status563 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, offset As Long, numberOfSegments As Long) As Gdiplus.Status 562 564 Return SetStatus(GdipDrawCurve3(nativeGraphics, pen->nativePen, points, count, offset,numberOfSegments, 0.5)) 563 565 End Function 564 566 565 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, offset As Long, numberOfSegments As Long, tension As Single) As Status567 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, offset As Long, numberOfSegments As Long, tension As Single) As Gdiplus.Status 566 568 Return SetStatus(GdipDrawCurve3(nativeGraphics, pen->nativePen, points, count, offset,numberOfSegments, tension)) 567 569 End Function 568 570 569 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status571 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Gdiplus.Status 570 572 Return SetStatus(GdipDrawCurveI(nativeGraphics, pen->nativePen, points, count)) 571 573 End Function 572 574 573 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, tension As Single) As Status575 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, tension As Single) As Gdiplus.Status 574 576 Return SetStatus(GdipDrawCurve2I(nativeGraphics, pen->nativePen, points, count, tension)) 575 577 End Function 576 578 577 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, offset As Long, numberOfSegments As Long) As Status579 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, offset As Long, numberOfSegments As Long) As Gdiplus.Status 578 580 Return SetStatus(GdipDrawCurve3I(nativeGraphics, pen->nativePen, points, count, offset, numberOfSegments, 0.5)) 579 581 End Function 580 582 581 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, offset As Long, numberOfSegments As Long, tension As Single) As Status583 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, offset As Long, numberOfSegments As Long, tension As Single) As Gdiplus.Status 582 584 Return SetStatus(GdipDrawCurve3I(nativeGraphics, pen->nativePen, points, count, offset, numberOfSegments, tension)) 583 585 End Function 584 586 585 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status587 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status 586 588 Return SetStatus(GdipDrawClosedCurve(nativeGraphics, pen->nativePen, points, count)) 587 589 End Function 588 590 589 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, tension As Single) As Status591 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, tension As Single) As Gdiplus.Status 590 592 Return SetStatus(GdipDrawClosedCurve2(nativeGraphics, pen->nativePen, points, count, tension)) 591 593 End Function 592 594 593 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status595 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Gdiplus.Status 594 596 Return SetStatus(GdipDrawClosedCurveI(nativeGraphics, pen->nativePen, points, count)) 595 597 End Function 596 598 597 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, tension As Single) As Status599 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, tension As Single) As Gdiplus.Status 598 600 Return SetStatus(GdipDrawClosedCurve2I(nativeGraphics, pen->nativePen, points, count, tension)) 599 601 End Function 600 602 601 Function Clear(color As /*Const*/ Color) As Status603 Function Clear(color As /*Const*/ Color) As Gdiplus.Status 602 604 Return SetStatus(GdipGraphicsClear(nativeGraphics, color.Value)) 603 605 End Function 604 606 605 Function FillRectangle(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF) As Status607 Function FillRectangle(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF) As Gdiplus.Status 606 608 Return FillRectangle(brush, rect.X, rect.Y, rect.Width, rect.Height) 607 609 End Function 608 610 609 Function FillRectangle(brush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single) As Status611 Function FillRectangle(brush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single) As Gdiplus.Status 610 612 Return SetStatus(GdipFillRectangle(nativeGraphics, brush->nativeBrush, x, y, width, height)) 611 613 End Function 612 614 613 Function FillRectangles(brush As /*Const*/ Brush, rects As /*Const*/ *RectangleF, count As Long) As Status615 Function FillRectangles(brush As /*Const*/ Brush, rects As /*Const*/ *RectangleF, count As Long) As Gdiplus.Status 614 616 Return SetStatus(GdipFillRectangles(nativeGraphics,brush->nativeBrush,rects, count)) 615 617 End Function 616 618 617 Function FillRectangle(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle) As Status619 Function FillRectangle(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle) As Gdiplus.Status 618 620 Return FillRectangle(brush, rect.X, rect.Y, rect.Width, rect.Height) 619 621 End Function 620 622 621 Function FillRectangle(brush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long) As Status623 Function FillRectangle(brush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long) As Gdiplus.Status 622 624 Return SetStatus(GdipFillRectangleI(nativeGraphics, brush->nativeBrush, x, y, width, height)) 623 625 End Function 624 626 625 Function FillRectangles(brush As /*Const*/ Brush, rects As /*Const*/ *Rectangle, count As Long) As Status627 Function FillRectangles(brush As /*Const*/ Brush, rects As /*Const*/ *Rectangle, count As Long) As Gdiplus.Status 626 628 Return SetStatus(GdipFillRectanglesI(nativeGraphics, brush->nativeBrush, rects, count)) 627 629 End Function 628 630 629 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long) As Status631 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status 630 632 Return FillPolygon(brush, points, count, FillModeAlternate) 631 633 End Function 632 634 633 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode) As Status635 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode) As Gdiplus.Status 634 636 Return SetStatus(GdipFillPolygon(nativeGraphics, brush->nativeBrush, points, count, fillMode)) 635 637 End Function 636 638 637 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long) As Status639 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long) As Gdiplus.Status 638 640 Return FillPolygon(brush, points, count, FillModeAlternate) 639 641 End Function 640 642 641 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode) As Status643 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode) As Gdiplus.Status 642 644 Return SetStatus(GdipFillPolygonI(nativeGraphics, brush->nativeBrush, points, count, fillMode)) 643 645 End Function 644 646 645 Function FillEllipse(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF) As Status647 Function FillEllipse(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF) As Gdiplus.Status 646 648 Return FillEllipse(brush, rect.X, rect.Y, rect.Width, rect.Height) 647 649 End Function 648 650 649 Function FillEllipse(brush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single) As Status651 Function FillEllipse(brush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single) As Gdiplus.Status 650 652 Return SetStatus(GdipFillEllipse(nativeGraphics, brush->nativeBrush, x, y, width, height)) 651 653 End Function 652 654 653 Function FillEllipse(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle) As Status655 Function FillEllipse(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle) As Gdiplus.Status 654 656 Return FillEllipse(brush, rect.X, rect.Y, rect.Width, rect.Height) 655 657 End Function 656 658 657 Function FillEllipse(brush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long) As Status659 Function FillEllipse(brush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long) As Gdiplus.Status 658 660 Return SetStatus(GdipFillEllipseI(nativeGraphics, brush->nativeBrush, x, y, width, height)) 659 661 End Function 660 662 661 Function FillPie(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Status663 Function FillPie(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 662 664 Return FillPie(brush, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle) 663 665 End Function 664 666 665 Function FillPie(brush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single, startAngle As Single, sweepAngle As Single) As Status667 Function FillPie(brush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 666 668 Return SetStatus(GdipFillPie(nativeGraphics, brush->nativeBrush, x, y, width, height, startAngle, sweepAngle)) 667 669 End Function 668 670 669 Function FillPie(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Status671 Function FillPie(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 670 672 Return FillPie(brush, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle) 671 673 End Function 672 674 673 Function FillPie(brush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long, startAngle As Single, sweepAngle As Single) As Status675 Function FillPie(brush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 674 676 Return SetStatus(GdipFillPieI(nativeGraphics, brush->nativeBrush, x, y, width, height, startAngle, sweepAngle)) 675 677 End Function 676 678 677 Function FillPath(brush As /*Const*/ Brush, path As /*Const*/ GraphicsPath) As Status679 Function FillPath(brush As /*Const*/ Brush, path As /*Const*/ GraphicsPath) As Gdiplus.Status 678 680 Return SetStatus(GdipFillPath(nativeGraphics, brush->nativeBrush, path->nativePath)) 679 681 End Function 680 682 681 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long) As Status683 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status 682 684 Return SetStatus(GdipFillClosedCurve(nativeGraphics, brush->nativeBrush, points, count)) 683 685 End Function 684 686 685 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode) As Status687 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode) As Gdiplus.Status 686 688 Return SetStatus(GdipFillClosedCurve2(nativeGraphics, brush->nativeBrush, points, count, 0.5, fillMode)) 687 689 End Function 688 690 689 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode, tension As Single) As Status691 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode, tension As Single) As Gdiplus.Status 690 692 Return SetStatus(GdipFillClosedCurve2(nativeGraphics, brush->nativeBrush, points, count, tension, fillMode)) 691 693 End Function 692 694 693 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long) As Status695 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long) As Gdiplus.Status 694 696 Return SetStatus(GdipFillClosedCurveI(nativeGraphics, brush->nativeBrush, points, count)) 695 697 End Function 696 698 697 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode) As Status699 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode) As Gdiplus.Status 698 700 Return SetStatus(GdipFillClosedCurve2I(nativeGraphics, brush->nativeBrush, points, count, 0.5, fillMode)) 699 701 End Function 700 702 701 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode, tension As Single) As Status703 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode, tension As Single) As Gdiplus.Status 702 704 Return SetStatus(GdipFillClosedCurve2I(nativeGraphics, brush->nativeBrush, points, count, tension, fillMode)) 703 705 End Function 704 706 705 Function FillRegion(brush As /*Const*/ Brush, region As /*Const*/ Region) As Status707 Function FillRegion(brush As /*Const*/ Brush, region As /*Const*/ Region) As Gdiplus.Status 706 708 Return SetStatus(GdipFillRegion(nativeGraphics, brush->nativeBrush, region->nativeRegion)) 707 709 End Function 708 710 709 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF) As Status711 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF) As Gdiplus.Status 710 712 Dim nativeFont As *GpFont 711 713 If VarPtr(font) <> 0 Then … … 718 720 719 721 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ Rectangle, 720 stringFormat As /*Const*/ StringFormat, brush As /*Const*/ Brush) As Status722 stringFormat As /*Const*/ StringFormat, brush As /*Const*/ Brush) As Gdiplus.Status 721 723 722 724 Dim nativeFont As *GpFont … … 736 738 737 739 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF, 738 stringFormat As /*Const*/ StringFormat, brush As /*Const*/ Brush) As Status740 stringFormat As /*Const*/ StringFormat, brush As /*Const*/ Brush) As Gdiplus.Status 739 741 740 742 Dim nativeFont As *GpFont … … 759 761 End Function 760 762 761 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ Point) As Status763 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ Point) As Gdiplus.Status 762 764 Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0) 763 765 Dim nativeFont As *GpFont … … 771 773 772 774 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ PointF, 773 brush As /*Const*/ Brush) As Status775 brush As /*Const*/ Brush) As Gdiplus.Status 774 776 775 777 Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0) … … 789 791 End Function 790 792 791 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ PointF) As Status793 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ PointF) As Gdiplus.Status 792 794 Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0) 793 795 Dim nativeFont As *GpFont … … 801 803 802 804 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ PointF, 803 stringFormat As /*Const*/ StringFormat) As Status805 stringFormat As /*Const*/ StringFormat) As Gdiplus.Status 804 806 805 807 Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0) … … 820 822 821 823 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ PointF, 822 stringFormat As /*Const*/ StringFormat, brush As /*Const*/ Brush) As Status824 stringFormat As /*Const*/ StringFormat, brush As /*Const*/ Brush) As Gdiplus.Status 823 825 824 826 Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0) … … 844 846 845 847 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF, 846 stringFormat As /*Const*/ StringFormat, boundingBox As RectangleF) As Status848 stringFormat As /*Const*/ StringFormat, boundingBox As RectangleF) As Gdiplus.Status 847 849 848 850 Return MeasureString(str, length, font, layoutRect, stringFormat, boundingBox, ByVal 0, ByVal 0) … … 851 853 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF, 852 854 stringFormat As /*Const*/ StringFormat, boundingBox As RectangleF, 853 codepointsFitted As Long) As Status855 codepointsFitted As Long) As Gdiplus.Status 854 856 855 857 Return MeasureString(str, length, font, layoutRect, stringFormat, boundingBox, codepointsFitted, ByVal 0) … … 858 860 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF, 859 861 stringFormat As /*Const*/ StringFormat, boundingBox As RectangleF, 860 codepointsFitted As Long, linesFilled As Long) As Status862 codepointsFitted As Long, linesFilled As Long) As Gdiplus.Status 861 863 862 864 Dim nativeFont As *GpFont … … 878 880 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, 879 881 layoutRectSize As /*Const*/ SizeF, stringFormat As /*Const*/ StringFormat, 880 size As SizeF) As Status882 size As SizeF) As Gdiplus.Status 881 883 882 884 Return MeasureString(str, length, font, layoutRectSize, stringFormat, size, ByVal 0, ByVal 0) … … 885 887 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, 886 888 layoutRectSize As /*Const*/ SizeF, stringFormat As /*Const*/ StringFormat, 887 size As SizeF, codepointsFitted As Long) As Status889 size As SizeF, codepointsFitted As Long) As Gdiplus.Status 888 890 889 891 Return MeasureString(str, length, font, layoutRectSize, stringFormat, size, codepointsFitted, ByVal 0) … … 892 894 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, 893 895 layoutRectSize As /*Const*/ SizeF, stringFormat As /*Const*/ StringFormat, 894 size As SizeF, codepointsFitted As Long, linesFilled As Long) As Status896 size As SizeF, codepointsFitted As Long, linesFilled As Long) As Gdiplus.Status 895 897 896 898 Dim layoutRect As RectangleF(0, 0, layoutRectSize.Width, layoutRectSize.Height) … … 917 919 nativeFont, layoutRect, nativeFormat, pBoundingBox, codepointsFitted, linesFilled)) 918 920 919 If VarPtr(size) <> 0 And status = Status.Ok Then921 If VarPtr(size) <> 0 And status = Gdiplus.Status.Ok Then 920 922 size.Width = boundingBox.Width 921 923 size.Height = boundingBox.Height … … 927 929 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, 928 930 origin As /*Const*/ PointF, stringFormat As /*Const*/ StringFormat, 929 boundingBox As RectangleF) As Status931 boundingBox As RectangleF) As Gdiplus.Status 930 932 931 933 Dim rect As RectangleF(origin.X, origin.Y, 0.0f, 0.0f) … … 947 949 948 950 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, 949 layoutRect As /*Const*/ RectangleF, boundingBox As RectangleF) As Status951 layoutRect As /*Const*/ RectangleF, boundingBox As RectangleF) As Gdiplus.Status 950 952 951 953 Dim nativeFont As *GpFont … … 960 962 961 963 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, 962 origin As /*Const*/ PointF, boundingBox As RectangleF) As Status964 origin As /*Const*/ PointF, boundingBox As RectangleF) As Gdiplus.Status 963 965 Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0) 964 966 … … 974 976 Const Function MeasureCharacterRanges(str As PCWSTR, length As Long, font As /*Const*/ Font, 975 977 layoutRect As /*Const*/ RectangleF, stringFormat As /*Const*/ StringFormat, 976 regionCount As Long, regions As *Region) As Status978 regionCount As Long, regions As *Region) As Gdiplus.Status 977 979 If regions = 0 Or regionCount <= 0 Then 978 980 Return InvalidParameter … … 1010 1012 1011 1013 Function DrawDriverString(text As /*Const*/ Word, length As Long, font As /*Const*/ Font, 1012 brush As /*Const*/ Brush, positions As /*Const*/ *PointF, flags As Long) As Status1014 brush As /*Const*/ Brush, positions As /*Const*/ *PointF, flags As Long) As Gdiplus.Status 1013 1015 1014 1016 Return DrawDriverString(text, length, font, brush, positions, flags, ByVal 0) … … 1016 1018 1017 1019 Function DrawDriverString(text As /*Const*/ Word, length As Long, font As /*Const*/ Font, 1018 brush As /*Const*/ Brush, positions As /*Const*/ *PointF, flags As Long, matrix As /*Const*/ Matrix) As Status1020 brush As /*Const*/ Brush, positions As /*Const*/ *PointF, flags As Long, matrix As /*Const*/ Matrix) As Gdiplus.Status 1019 1021 1020 1022 Dim nativeFont As *GpFont … … 1040 1042 1041 1043 Const Function MeasureDriverString(text As /*Const*/ Word, length As Long, font As /*Const*/ Font, 1042 positions As /*Const*/ *PointF, flags As Long, matrix As /*Const*/ Matrix, boundingBox As RectangleF) As Status1044 positions As /*Const*/ *PointF, flags As Long, matrix As /*Const*/ Matrix, boundingBox As RectangleF) As Gdiplus.Status 1043 1045 1044 1046 Dim nativeFont As *GpFont … … 1061 1063 ' native format differs from this Graphics. 1062 1064 1063 Function DrawCachedBitmap(cb As CachedBitmap, x As Long, y As Long) As Status1065 Function DrawCachedBitmap(cb As CachedBitmap, x As Long, y As Long) As Gdiplus.Status 1064 1066 Return SetStatus(GdipDrawCachedBitmap(nativeGraphics, cb->nativeCachedBitmap, x, y)) 1065 1067 End Function 1066 1068 1067 Function DrawImage(image As Image, point As /*Const*/ PointF) As Status1069 Function DrawImage(image As Image, point As /*Const*/ PointF) As Gdiplus.Status 1068 1070 Return DrawImage(image, point.X, point.Y) 1069 1071 End Function 1070 1072 1071 Function DrawImage(image As Image, x As Single, y As Single) As Status1073 Function DrawImage(image As Image, x As Single, y As Single) As Gdiplus.Status 1072 1074 Dim nativeImage As *GpImage 1073 1075 If VarPtr(image) <> 0 Then … … 1079 1081 End Function 1080 1082 1081 Function DrawImage(image As Image, rect As /*Const*/ RectangleF) As Status1083 Function DrawImage(image As Image, rect As /*Const*/ RectangleF) As Gdiplus.Status 1082 1084 Return DrawImage(image, rect.X, rect.Y, rect.Width, rect.Height) 1083 1085 End Function 1084 1086 1085 Function DrawImage(image As Image, x As Single, y As Single, width As Single, height As Single) As Status1087 Function DrawImage(image As Image, x As Single, y As Single, width As Single, height As Single) As Gdiplus.Status 1086 1088 Dim nativeImage As *GpImage 1087 1089 If VarPtr(image) <> 0 Then … … 1093 1095 End Function 1094 1096 1095 Function DrawImage(image As Image, point As /*Const*/ Point) As Status1096 Return DrawImage(image, point.X, point.Y) As Status1097 End Function 1098 1099 Function DrawImage(image As Image, x As Long, y As Long) As Status1097 Function DrawImage(image As Image, point As /*Const*/ Point) As Gdiplus.Status 1098 Return DrawImage(image, point.X, point.Y) As Gdiplus.Status 1099 End Function 1100 1101 Function DrawImage(image As Image, x As Long, y As Long) As Gdiplus.Status 1100 1102 Dim nativeImage As *GpImage 1101 1103 If VarPtr(image) <> 0 Then … … 1107 1109 End Function 1108 1110 1109 Function DrawImage(image As Image, rect As /*Const*/ Rectangle) As Status1111 Function DrawImage(image As Image, rect As /*Const*/ Rectangle) As Gdiplus.Status 1110 1112 Return DrawImage(image, rect.X, rect.Y, rect.Width, rect.Height) 1111 1113 End Function 1112 1114 1113 Function DrawImage(image As Image, x As Long, y As Long, width As Long, height As Long) As Status1115 Function DrawImage(image As Image, x As Long, y As Long, width As Long, height As Long) As Gdiplus.Status 1114 1116 Dim nativeImage As *GpImage 1115 1117 If VarPtr(image) <> 0 Then … … 1129 1131 ' destPoints[3] <=> bottom-right corner 1130 1132 1131 Function DrawImage(image As Image, destPoints As /*Const*/ PointF, count As Long) As Status1133 Function DrawImage(image As Image, destPoints As /*Const*/ PointF, count As Long) As Gdiplus.Status 1132 1134 If count <> 3 And count <> 4 Then 1133 1135 Return SetStatus(InvalidParameter) … … 1143 1145 End Function 1144 1146 1145 Function DrawImage(image As Image, destPoints As /*Const*/ Point, count As Long) As Status1147 Function DrawImage(image As Image, destPoints As /*Const*/ Point, count As Long) As Gdiplus.Status 1146 1148 If count <> 3 And count <> 4 Then 1147 1149 Return SetStatus(InvalidParameter) … … 1158 1160 1159 1161 Function DrawImage(image As Image, x As Single, y As Single, 1160 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Status1162 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Gdiplus.Status 1161 1163 1162 1164 Dim nativeImage As *GpImage … … 1170 1172 1171 1173 Function DrawImage(image As Image, destRect As /*Const*/ RectangleF, 1172 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Status1174 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Gdiplus.Status 1173 1175 1174 1176 Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, 0, 0, 0) … … 1177 1179 Function DrawImage(image As Image, destRect As /*Const*/ RectangleF, 1178 1180 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1179 imageAttributes As /*Const*/ ImageAttributes) As Status1181 imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1180 1182 1181 1183 Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, 0, 0) … … 1185 1187 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1186 1188 imageAttributes As /*Const*/ ImageAttributes, 1187 callback As DrawImageAbort) As Status1189 callback As DrawImageAbort) As Gdiplus.Status 1188 1190 1189 1191 Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, callback, 0) … … 1192 1194 Function DrawImage(image As Image, destRect As /*Const*/ RectangleF, 1193 1195 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1194 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status1196 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Gdiplus.Status 1195 1197 1196 1198 Dim nativeImage As *GpImage … … 1200 1202 nativeImage = 0 1201 1203 End If 1202 Dim nativeImageAttr As *GpImageAttributes1203 If VarPtr(imageAttributes) <> 0 Then1204 nativeImageAttr = image.NativeImageAttr1205 Else1206 nativeImageAttr = 01207 End If1208 1204 1209 1205 Return SetStatus(GdipDrawImageRectRect(nativeGraphics, nativeImageAttr, 1210 1206 destRect.X, destRect.Y, destRect.Width, destRect.Height, srcx, srcy, srcwidth, srcheight, 1211 srcUnit, nativeImageAttr, callback, callbackData))1207 srcUnit, ImageAttributes.Native(imageAttributes), callback, callbackData)) 1212 1208 End Function 1213 1209 1214 1210 Function DrawImage(image As Image, destPoints As /*Const*/ PointF, count As Long, 1215 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Status1211 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Gdiplus.Status 1216 1212 1217 1213 Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, 0, 0, 0) … … 1220 1216 Function DrawImage(image As Image, destPoints As /*Const*/ PointF, count As Long, 1221 1217 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1222 imageAttributes As /*Const*/ ImageAttributes) As Status1218 imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1223 1219 1224 1220 Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, 0, 0) … … 1228 1224 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1229 1225 imageAttributes As /*Const*/ ImageAttributes, 1230 callback As DrawImageAbort) As Status1226 callback As DrawImageAbort) As Gdiplus.Status 1231 1227 1232 1228 Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, callback, 0) … … 1235 1231 Function DrawImage(image As Image, destPoints As /*Const*/ PointF, count As Long, 1236 1232 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1237 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status1233 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Gdiplus.Status 1238 1234 1239 1235 Dim nativeImage As *GpImage … … 1243 1239 nativeImage = 0 1244 1240 End If 1245 Dim nativeImageAttr As *GpImageAttributes1246 If VarPtr(imageAttributes) <> 0 Then1247 nativeImageAttr = image.NativeImageAttr1248 Else1249 nativeImageAttr = 01250 End If1251 1241 1252 1242 Return SetStatus(GdipDrawImagePointsRect(nativeGraphics, nativeImage, destPoints, count, 1253 srcx, srcy, srcwidth, srcheight, srcUnit, nativeImageAttr, callback, callbackData))1243 srcx, srcy, srcwidth, srcheight, srcUnit, ImageAttributes.Native(imageAttributes), callback, callbackData)) 1254 1244 End Function 1255 1245 1256 1246 Function DrawImage(image As Image, x As Long, y As Long, 1257 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit) As Status1247 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit) As Gdiplus.Status 1258 1248 1259 1249 Dim nativeImage As *GpImage … … 1267 1257 1268 1258 Function DrawImage(image As Image, destRect As /*Const*/ Rectangle, 1269 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Status1259 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Gdiplus.Status 1270 1260 1271 1261 Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, 0, 0, 0) … … 1274 1264 Function DrawImage(image As Image, destRect As /*Const*/ Rectangle, 1275 1265 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1276 imageAttributes As /*Const*/ ImageAttributes) As Status1266 imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1277 1267 1278 1268 Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, 0, 0) … … 1281 1271 Function DrawImage(image As Image, destRect As /*Const*/ Rectangle, 1282 1272 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1283 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Status1273 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Gdiplus.Status 1284 1274 1285 1275 Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, callback, 0) … … 1288 1278 Function DrawImage(image As Image, destRect As /*Const*/ Rectangle, 1289 1279 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit, 1290 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status1280 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Gdiplus.Status 1291 1281 1292 1282 Dim nativeImage As *GpImage … … 1296 1286 nativeImage = 0 1297 1287 End If 1298 Dim nativeImageAttr As *GpImageAttributes1299 If VarPtr(imageAttributes) <> 0 Then1300 nativeImageAttr = image.NativeImageAttr1301 Else1302 nativeImageAttr = 01303 End If1304 1288 1305 1289 Return SetStatus(GdipDrawImageRectRectI(nativeGraphics, nativeImage, 1306 1290 destRect.X, destRect.Y, destRect.Width, destRect.Height, 1307 srcx, srcy, srcwidth, srcheight, srcUnit, nativeImageAttr, callback, callbackData))1291 srcx, srcy, srcwidth, srcheight, srcUnit, ImageAttributes.Native(imageAttributes), callback, callbackData)) 1308 1292 End Function 1309 1293 1310 1294 Function DrawImage(image As Image, destPoints As /*Const*/ Point, count As Long, 1311 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit) As Status1295 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit) As Gdiplus.Status 1312 1296 1313 1297 Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, 0, 0, 0) … … 1316 1300 Function DrawImage(image As Image, destPoints As /*Const*/ Point, count As Long, 1317 1301 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit, 1318 imageAttributes As /*Const*/ ImageAttributes) As Status1302 imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1319 1303 1320 1304 Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, 0, 0) … … 1324 1308 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit, _ 1325 1309 imageAttributes As /*Const*/ ImageAttributes, 1326 callback As DrawImageAbort) As Status1310 callback As DrawImageAbort) As Gdiplus.Status 1327 1311 1328 1312 Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, callback, 0) … … 1331 1315 Function DrawImage(image As Image, destPoints As /*Const*/ Point, count As Long, 1332 1316 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit, 1333 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status1317 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Gdiplus.Status 1334 1318 1335 1319 Dim nativeImage As *GpImage … … 1339 1323 nativeImage = 0 1340 1324 End If 1341 Dim nativeImageAttr As *GpImageAttributes1342 If VarPtr(imageAttributes) <> 0 Then1343 nativeImageAttr = image.NativeImageAttr1344 Else1345 nativeImageAttr = 01346 End If1347 1325 1348 1326 Return SetStatus(GdipDrawImagePointsRectI(nativeGraphics, nativeImage, destPoints, count, 1349 srcx, srcy, srcwidth, srcheight, srcUnit, nativeImageAttr, callback, callbackData))1350 End Function 1351 1352 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit) As Status1327 srcx, srcy, srcwidth, srcheight, srcUnit, ImageAttributes.Native(imageAttributes), callback, callbackData)) 1328 End Function 1329 1330 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit) As Gdiplus.Status 1353 1331 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit) 1354 1332 End Function 1355 1333 1356 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit) As Status1334 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit) As Gdiplus.Status 1357 1335 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit) 1358 1336 End Function 1359 1337 1360 Function DrawImage(image As Image, x As Long, y As Long, srcRect As Rectangle, srcUnit As GraphicsUnit) As Status1338 Function DrawImage(image As Image, x As Long, y As Long, srcRect As Rectangle, srcUnit As GraphicsUnit) As Gdiplus.Status 1361 1339 Return DrawImage(image, x, y, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit) 1362 1340 End Function 1363 1341 1364 Function DrawImage(image As Image, x As Single, y As Single, srcRect As RectangleF, srcUnit As GraphicsUnit) As Status1342 Function DrawImage(image As Image, x As Single, y As Single, srcRect As RectangleF, srcUnit As GraphicsUnit) As Gdiplus.Status 1365 1343 Return DrawImage(image, x, y, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit) 1366 1344 End Function 1367 1345 1368 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes) As Status1346 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1369 1347 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes) 1370 1348 End Function 1371 1349 1372 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes) As Status1350 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1373 1351 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes) 1374 1352 End Function 1375 1353 1376 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Status1354 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Gdiplus.Status 1377 1355 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes, callback) 1378 1356 End Function 1379 1357 1380 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Status1358 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Gdiplus.Status 1381 1359 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes, callback) 1382 1360 End Function 1383 1361 1384 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status1362 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Gdiplus.Status 1385 1363 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes, callback, callbackData) 1386 1364 End Function 1387 1365 1388 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status1366 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Gdiplus.Status 1389 1367 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes, callback, callbackData) 1390 1368 End Function … … 1397 1375 1398 1376 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ PointF, 1399 callback As EnumerateMetafileProc) As Status1377 callback As EnumerateMetafileProc) As Gdiplus.Status 1400 1378 1401 1379 Return EnumerateMetafile(metafile, destPoint, callback, 0, 0) … … 1403 1381 1404 1382 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ PointF, 1405 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1383 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1406 1384 1407 1385 Return EnumerateMetafile(metafile, destPoint, callback, callbackData, 0) … … 1409 1387 1410 1388 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ PointF, 1411 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1389 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1412 1390 1413 1391 Dim nativeImage As /*Const*/ *GpMetafile … … 1417 1395 nativeImage = 0 1418 1396 End If 1419 Dim nativeImageAttr As *GpImageAttributes1420 If VarPtr(imageAttributes) <> 0 Then1421 nativeImageAttr = image.NativeImageAttr1422 Else1423 nativeImageAttr = 01424 End If1425 1397 1426 1398 Return SetStatus(GdipEnumerateMetafileDestPoint(nativeGraphics, 1427 nativeImage, destPoint, callback, callbackData, nativeImageAttr))1399 nativeImage, destPoint, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1428 1400 End Function 1429 1401 1430 1402 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ Point, 1431 callback As EnumerateMetafileProc) As Status1403 callback As EnumerateMetafileProc) As Gdiplus.Status 1432 1404 1433 1405 Return EnumerateMetafile(metafile, destPoint, callback, 0, 0) … … 1435 1407 1436 1408 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ Point, 1437 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1409 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1438 1410 1439 1411 Return EnumerateMetafile(metafile, destPoint, callback, callbackData, 0) … … 1441 1413 1442 1414 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ Point, 1443 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1415 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1444 1416 1445 1417 Dim nativeImage As /*Const*/ *GpMetafile … … 1449 1421 nativeImage = 0 1450 1422 End If 1451 Dim nativeImageAttr As *GpImageAttributes1452 If VarPtr(imageAttributes) <> 0 Then1453 nativeImageAttr = image.NativeImageAttr1454 Else1455 nativeImageAttr = 01456 End If1457 1423 1458 1424 Return SetStatus(GdipEnumerateMetafileDestPointI(nativeGraphics, 1459 nativeImage, destPoint, callback, callbackData, nativeImageAttr))1425 nativeImage, destPoint, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1460 1426 End Function 1461 1427 1462 1428 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ RectangleF, 1463 callback As EnumerateMetafileProc) As Status1429 callback As EnumerateMetafileProc) As Gdiplus.Status 1464 1430 1465 1431 Return EnumerateMetafile(metafile, destRect, callback, 0, 0) … … 1467 1433 1468 1434 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ RectangleF, 1469 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1435 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1470 1436 1471 1437 Return EnumerateMetafile(metafile, destRect, callback, callbackData, 0) … … 1473 1439 1474 1440 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ RectangleF, 1475 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1441 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1476 1442 1477 1443 Dim nativeImage As /*Const*/ *GpMetafile … … 1481 1447 nativeImage = 0 1482 1448 End If 1483 Dim nativeImageAttr As *GpImageAttributes1484 If VarPtr(imageAttributes) <> 0 Then1485 nativeImageAttr = image.NativeImageAttr1486 Else1487 nativeImageAttr = 01488 End If1489 1449 1490 1450 Return SetStatus(GdipEnumerateMetafileDestRect(nativeGraphics, 1491 nativeImage, destRect, callback, callbackData, nativeImageAttr))1451 nativeImage, destRect, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1492 1452 End Function 1493 1453 1494 1454 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ Rectangle, 1495 callback As EnumerateMetafileProc) As Status1455 callback As EnumerateMetafileProc) As Gdiplus.Status 1496 1456 1497 1457 Return EnumerateMetafile(metafile, destRect, callback, 0, 0) … … 1499 1459 1500 1460 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ Rectangle, 1501 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1461 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1502 1462 1503 1463 Return EnumerateMetafile(metafile, destRect, callback, callbackData, 0) … … 1505 1465 1506 1466 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ Rectangle, 1507 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1467 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1508 1468 1509 1469 Dim nativeImage As /*Const*/ *GpMetafile … … 1513 1473 nativeImage = 0 1514 1474 End If 1515 Dim nativeImageAttr As *GpImageAttributes1516 If VarPtr(imageAttributes) <> 0 Then1517 nativeImageAttr = image.NativeImageAttr1518 Else1519 nativeImageAttr = 01520 End If1521 1475 1522 1476 Return SetStatus(GdipEnumerateMetafileDestRectI(nativeGraphics, 1523 nativeImage, destRect, callback, callbackData, nativeImageAttr))1477 nativeImage, destRect, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1524 1478 End Function 1525 1479 1526 1480 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *PointF, count As Long, 1527 callback As EnumerateMetafileProc) As Status1481 callback As EnumerateMetafileProc) As Gdiplus.Status 1528 1482 1529 1483 Return EnumerateMetafile(metafile, destPoints, count, callback, 0, 0) … … 1531 1485 1532 1486 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *PointF, count As Long, 1533 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1487 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1534 1488 1535 1489 Return EnumerateMetafile(metafile, destPoints, count, callback, callbackData, 0) … … 1537 1491 1538 1492 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *PointF, count As Long, 1539 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1493 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1540 1494 1541 1495 Dim nativeImage As /*Const*/ *GpMetafile … … 1545 1499 nativeImage = 0 1546 1500 End If 1547 Dim nativeImageAttr As *GpImageAttributes1548 If VarPtr(imageAttributes) <> 0 Then1549 nativeImageAttr = image.NativeImageAttr1550 Else1551 nativeImageAttr = 01552 End If1553 1501 1554 1502 Return SetStatus(GdipEnumerateMetafileDestPoints(nativeGraphics, 1555 nativeImage,destPoints, count, callback, callbackData, nativeImageAttr))1503 nativeImage,destPoints, count, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1556 1504 End Function 1557 1505 1558 1506 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *Point, count As Long, 1559 callback As EnumerateMetafileProc) As Status1507 callback As EnumerateMetafileProc) As Gdiplus.Status 1560 1508 1561 1509 Return EnumerateMetafile(metafile, destPoints, count, callback, 0, 0) … … 1563 1511 1564 1512 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *Point, count As Long, 1565 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1513 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1566 1514 1567 1515 Return EnumerateMetafile(metafile, destPoints, count, callback, callbackData, 0) … … 1569 1517 1570 1518 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *Point, count As Long, 1571 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1519 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1572 1520 1573 1521 Dim nativeImage As /*Const*/ *GpMetafile … … 1577 1525 nativeImage = 0 1578 1526 End If 1579 Dim nativeImageAttr As *GpImageAttributes1580 If VarPtr(imageAttributes) <> 0 Then1581 nativeImageAttr = image.NativeImageAttr1582 Else1583 nativeImageAttr = 01584 End If1585 1527 1586 1528 Return SetStatus(GdipEnumerateMetafileDestPointsI(nativeGraphics, 1587 nativeImage,destPoints, count, callback, callbackData, nativeImageAttr))1529 nativeImage,destPoints, count, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1588 1530 End Function 1589 1531 1590 1532 Function EnumerateMetafile(metafile As /*Const*/ Metafile, 1591 1533 destPoint As /*Const*/ PointF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, 1592 callback As EnumerateMetafileProc) As Status1534 callback As EnumerateMetafileProc) As Gdiplus.Status 1593 1535 1594 1536 Return EnumerateMetafile(metafile, destPoint, count, srcUnit, callback, 0, 0) … … 1597 1539 Function EnumerateMetafile(metafile As /*Const*/ Metafile, 1598 1540 destPoint As /*Const*/ PointF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, 1599 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1541 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1600 1542 1601 1543 Return EnumerateMetafile(metafile, destPoint, srcRect, srcUnit, callback, callbackData, 0) … … 1604 1546 Function EnumerateMetafile(metafile As /*Const*/ Metafile, 1605 1547 destPoint As /*Const*/ PointF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, 1606 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1548 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1607 1549 1608 1550 Dim nativeImage As /*Const*/ *GpMetafile … … 1612 1554 nativeImage = 0 1613 1555 End If 1614 Dim nativeImageAttr As *GpImageAttributes1615 If VarPtr(imageAttributes) <> 0 Then1616 nativeImageAttr = image.NativeImageAttr1617 Else1618 nativeImageAttr = 01619 End If1620 1556 1621 1557 Return SetStatus(GdipEnumerateMetafileSrcRectDestPoint(nativeGraphics, _ 1622 nativeImage, destPoint, srcRect, srcUnit, callback, callbackData, nativeImageAttr))1558 nativeImage, destPoint, srcRect, srcUnit, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1623 1559 End Function 1624 1560 1625 1561 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1626 1562 destPoint As /*Const*/ Point, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1627 callback As EnumerateMetafileProc) As Status1563 callback As EnumerateMetafileProc) As Gdiplus.Status 1628 1564 1629 1565 Return EnumerateMetafile(metafile, destPoint, count, srcUnit, callback, 0, 0) … … 1632 1568 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1633 1569 destPoint As /*Const*/ Point, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1634 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1570 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1635 1571 1636 1572 Return EnumerateMetafile(metafile, destPoint, srcRect, srcUnit, callback, callbackData, 0) … … 1639 1575 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1640 1576 destPoint As /*Const*/ Point, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1641 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1577 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1642 1578 1643 1579 Dim nativeImage As /*Const*/ *GpMetafile … … 1647 1583 nativeImage = 0 1648 1584 End If 1649 Dim nativeImageAttr As *GpImageAttributes1650 If VarPtr(imageAttributes) <> 0 Then1651 nativeImageAttr = image.NativeImageAttr1652 Else1653 nativeImageAttr = 01654 End If1655 1585 1656 1586 Return SetStatus(GdipEnumerateMetafileSrcRectDestPointI(nativeGraphics, _ 1657 nativeImage, destPoint, srcRect, srcUnit, callback, callbackData, nativeImageAttr))1587 nativeImage, destPoint, srcRect, srcUnit, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1658 1588 End Function 1659 1589 1660 1590 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1661 1591 destRect As /*Const*/ RectangleF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _ 1662 callback As EnumerateMetafileProc) As Status1592 callback As EnumerateMetafileProc) As Gdiplus.Status 1663 1593 1664 1594 Return EnumerateMetafile(metafile, destRect, count, srcUnit, callback, 0, 0) … … 1667 1597 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1668 1598 destRect As /*Const*/ RectangleF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _ 1669 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1599 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1670 1600 1671 1601 Return EnumerateMetafile(metafile, destRect, srcRect, srcUnit, callback, callbackData, 0) … … 1674 1604 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1675 1605 destRect As /*Const*/ RectangleF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _ 1676 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1606 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1677 1607 1678 1608 Dim nativeImage As /*Const*/ *GpMetafile … … 1682 1612 nativeImage = 0 1683 1613 End If 1684 Dim nativeImageAttr As *GpImageAttributes1685 If VarPtr(imageAttributes) <> 0 Then1686 nativeImageAttr = image.NativeImageAttr1687 Else1688 nativeImageAttr = 01689 End If1690 1614 1691 1615 Return SetStatus(GdipEnumerateMetafileSrcRectDestRect(nativeGraphics, _ 1692 nativeImage, destRect, srcRect, srcUnit, callback, callbackData, nativeImageAttr))1616 nativeImage, destRect, srcRect, srcUnit, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1693 1617 End Function 1694 1618 1695 1619 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1696 1620 destRect As /*Const*/ Rectangle, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1697 callback As EnumerateMetafileProc) As Status1621 callback As EnumerateMetafileProc) As Gdiplus.Status 1698 1622 1699 1623 Return EnumerateMetafile(metafile, destRect, srcRect, srcUnit, callback, 0, 0) … … 1702 1626 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1703 1627 destRect As /*Const*/ Rectangle, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1704 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1628 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1705 1629 1706 1630 Return EnumerateMetafile(metafile, destRect, srcRect, srcUnit, callback, callbackData, 0) … … 1709 1633 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1710 1634 destRect As /*Const*/ Rectangle, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1711 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1635 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1712 1636 1713 1637 Dim nativeImage As /*Const*/ *GpMetafile … … 1717 1641 nativeImage = 0 1718 1642 End If 1719 Dim nativeImageAttr As *GpImageAttributes1720 If VarPtr(imageAttributes) <> 0 Then1721 nativeImageAttr = image.NativeImageAttr1722 Else1723 nativeImageAttr = 01724 End If1725 1643 1726 1644 Return SetStatus(GdipEnumerateMetafileSrcRectDestRectI(nativeGraphics, _ 1727 nativeImage, destRect, srcRect, srcUnit, callback, callbackData, nativeImageAttr))1645 nativeImage, destRect, srcRect, srcUnit, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1728 1646 End Function 1729 1647 1730 1648 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1731 1649 destPoints As /*Const*/ *PointF, count As Long, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _ 1732 callback As EnumerateMetafileProc) As Status1650 callback As EnumerateMetafileProc) As Gdiplus.Status 1733 1651 1734 1652 Return EnumerateMetafile(metafile, destPoints, count, srcRect, srcUnit, callback, 0, 0) … … 1737 1655 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1738 1656 destPoints As /*Const*/ *PointF, count As Long, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _ 1739 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1657 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1740 1658 1741 1659 Return EnumerateMetafile(metafile, destPoints, count, srcRect, srcUnit, callback, callbackData, 0) … … 1744 1662 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1745 1663 destPoints As /*Const*/ *PointF, count As Long, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _ 1746 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1664 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1747 1665 1748 1666 Dim nativeImage As /*Const*/ *GpMetafile … … 1752 1670 nativeImage = 0 1753 1671 End If 1754 Dim nativeImageAttr As *GpImageAttributes1755 If VarPtr(imageAttributes) <> 0 Then1756 nativeImageAttr = image.NativeImageAttr1757 Else1758 nativeImageAttr = 01759 End If1760 1672 1761 1673 Return SetStatus(GdipEnumerateMetafileSrcRectDestPoints(nativeGraphics, _ 1762 nativeImage, destPoints, count, srcRect, srcUnit, callback, callbackData, nativeImageAttr))1674 nativeImage, destPoints, count, srcRect, srcUnit, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1763 1675 End Function 1764 1676 1765 1677 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1766 1678 destPoints As /*Const*/ *Point, count As Long, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1767 callback As EnumerateMetafileProc) As Status1679 callback As EnumerateMetafileProc) As Gdiplus.Status 1768 1680 1769 1681 Return EnumerateMetafile(metafile, destPoints, count, srcRect, srcUnit, callback, 0, 0) … … 1772 1684 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1773 1685 destPoints As /*Const*/ *Point, count As Long, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1774 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1686 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1775 1687 1776 1688 Return EnumerateMetafile(metafile, destPoints, count, srcRect, srcUnit, callback, callbackData, 0) … … 1779 1691 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1780 1692 destPoints As /*Const*/ *Point, count As Long, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1781 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1693 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1782 1694 1783 1695 Dim nativeImage As /*Const*/ *GpMetafile … … 1787 1699 nativeImage = 0 1788 1700 End If 1789 Dim nativeImageAttr As *GpImageAttributes1790 If VarPtr(imageAttributes) <> 0 Then1791 nativeImageAttr = image.NativeImageAttr1792 Else1793 nativeImageAttr = 01794 End If1795 1701 1796 1702 Return SetStatus(GdipEnumerateMetafileSrcRectDestPointsI(nativeGraphics, nativeImage, _ 1797 destPoints, count, srcRect, srcUnit, callback, callbackData, nativeImageAttr))1798 End Function 1799 1800 Function SetClip(g As /*Const*/ Graphics) As Status1703 destPoints, count, srcRect, srcUnit, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1704 End Function 1705 1706 Function SetClip(g As /*Const*/ Graphics) As Gdiplus.Status 1801 1707 Return SetClip(g, CombineMode.Replace) 1802 1708 End Function 1803 1709 1804 Function SetClip(rc As /*Const*/ RectangleF) As Status1710 Function SetClip(rc As /*Const*/ RectangleF) As Gdiplus.Status 1805 1711 Return SetStatus(GdipSetClipRect(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Replace)) 1806 1712 End Function 1807 1713 1808 Function SetClip(rc As /*Const*/ Rectangle) As Status1714 Function SetClip(rc As /*Const*/ Rectangle) As Gdiplus.Status 1809 1715 Return SetStatus(GdipSetClipRectI(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Replace)) 1810 1716 End Function 1811 1717 1812 Function SetClip(path As /*Const*/ GraphicsPath) As Status1718 Function SetClip(path As /*Const*/ GraphicsPath) As Gdiplus.Status 1813 1719 Return SetStatus(GdipSetClipPath(nativeGraphics, path->nativePath, CombineMode.Replace)) 1814 1720 End Function 1815 1721 1816 Function SetClip(region As /*Const*/ Region) As Status1722 Function SetClip(region As /*Const*/ Region) As Gdiplus.Status 1817 1723 Return SetStatus(GdipSetClipRegion(nativeGraphics, region->nativeRegion, CombineMode.Replace)) 1818 1724 End Function 1819 1725 1820 Function SetClip(g As /*Const*/ Graphics, combineMode As CombineMode) As Status1726 Function SetClip(g As /*Const*/ Graphics, combineMode As CombineMode) As Gdiplus.Status 1821 1727 Return SetStatus(GdipSetClipGraphics(nativeGraphics, g->nativeGraphics, combineMode)) 1822 1728 End Function 1823 1729 1824 Function SetClip(rc As /*Const*/ RectangleF, combineMode As CombineMode) As Status1730 Function SetClip(rc As /*Const*/ RectangleF, combineMode As CombineMode) As Gdiplus.Status 1825 1731 Return SetStatus(GdipSetClipRect(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, combineMode)) 1826 1732 End Function 1827 1733 1828 Function SetClip(rc As /*Const*/ Rectangle, combineMode As CombineMode) As Status1734 Function SetClip(rc As /*Const*/ Rectangle, combineMode As CombineMode) As Gdiplus.Status 1829 1735 Return SetStatus(GdipSetClipRectI(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, combineMode)) 1830 1736 End Function 1831 1737 1832 Function SetClip(path As /*Const*/ GraphicsPath, combineMode As CombineMode) As Status1738 Function SetClip(path As /*Const*/ GraphicsPath, combineMode As CombineMode) As Gdiplus.Status 1833 1739 Return SetStatus(GdipSetClipPath(nativeGraphics, path->nativePath, combineMode)) 1834 1740 End Function 1835 1741 1836 Function SetClip(region As /*Const*/ Region, combineMode As CombineMode) As Status1742 Function SetClip(region As /*Const*/ Region, combineMode As CombineMode) As Gdiplus.Status 1837 1743 Return SetStatus(GdipSetClipRegion(nativeGraphics, region->nativeRegion, combineMode)) 1838 1744 End Function … … 1842 1748 ' the coordinates in the HRGN. 1843 1749 1844 Function SetClip(hrgn As HRGN, combineMode As CombineMode /* = CombineModeReplace*/) As Status1750 Function SetClip(hrgn As HRGN, combineMode As CombineMode /* = CombineModeReplace*/) As Gdiplus.Status 1845 1751 Return SetStatus(GdipSetClipHrgn(nativeGraphics, hrgn, combineMode)) 1846 1752 End Function 1847 1753 1848 Function IntersectClip(rc As /*Const*/ RectangleF) As Status1754 Function IntersectClip(rc As /*Const*/ RectangleF) As Gdiplus.Status 1849 1755 Return SetStatus(GdipSetClipRect(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Intersect)) 1850 1756 End Function 1851 1757 1852 Function IntersectClip(rc As /*Const*/ Rectangle) As Status1758 Function IntersectClip(rc As /*Const*/ Rectangle) As Gdiplus.Status 1853 1759 Return SetStatus(GdipSetClipRectI(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Intersect)) 1854 1760 End Function 1855 1761 1856 Function IntersectClip(region As /*Const*/ Region) As Status1762 Function IntersectClip(region As /*Const*/ Region) As Gdiplus.Status 1857 1763 Return SetStatus(GdipSetClipRegion(nativeGraphics, region->nativeRegion, CombineMode.Intersect)) 1858 1764 End Function 1859 1765 1860 Function ExcludeClip(rc As /*Const*/ RectangleF) As Status1766 Function ExcludeClip(rc As /*Const*/ RectangleF) As Gdiplus.Status 1861 1767 Return SetStatus(GdipSetClipRect(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Exclude)) 1862 1768 End Function 1863 1769 1864 Function ExcludeClip(rc As /*Const*/ Rectangle) As Status1770 Function ExcludeClip(rc As /*Const*/ Rectangle) As Gdiplus.Status 1865 1771 Return SetStatus(GdipSetClipRectI(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Exclude)) 1866 1772 End Function 1867 1773 1868 Function ExcludeClip(region As /*Const*/ Region) As Status1774 Function ExcludeClip(region As /*Const*/ Region) As Gdiplus.Status 1869 1775 Return SetStatus(GdipSetClipRegion(nativeGraphics, region->nativeRegion, CombineMode.Exclude)) 1870 1776 End Function 1871 1777 1872 Function ResetClip() As Status1778 Function ResetClip() As Gdiplus.Status 1873 1779 Return SetStatus(GdipResetClip(nativeGraphics)) 1874 1780 End Function 1875 1781 1876 Function TranslateClip(dx As Single, dy As Single) As Status1782 Function TranslateClip(dx As Single, dy As Single) As Gdiplus.Status 1877 1783 Return SetStatus(GdipTranslateClip(nativeGraphics, dx, dy)) 1878 1784 End Function 1879 1785 1880 Function TranslateClip(dx As Long, dy As Long) As Status1786 Function TranslateClip(dx As Long, dy As Long) As Gdiplus.Status 1881 1787 Return SetStatus(GdipTranslateClipI(nativeGraphics, dx, dy)) 1882 1788 End Function 1883 1789 1884 Const Function GetClip(region As Region) As Status1790 Const Function GetClip(region As Region) As Gdiplus.Status 1885 1791 Return SetStatus(GdipGetClip(nativeGraphics, region->nativeRegion)) 1886 1792 End Function 1887 1793 1888 Const Function GetClipBounds(rc As RectangleF) As Status1794 Const Function GetClipBounds(rc As RectangleF) As Gdiplus.Status 1889 1795 Return SetStatus(GdipGetClipBounds(nativeGraphics, rc)) 1890 1796 End Function 1891 1797 1892 Const Function GetClipBounds(rc As Rectangle) As Status1798 Const Function GetClipBounds(rc As Rectangle) As Gdiplus.Status 1893 1799 Return SetStatus(GdipGetClipBoundsI(nativeGraphics, rc)) 1894 1800 End Function 1895 1801 1896 Const Function GetVisibleClipBounds(rc As RectangleF) As Status1802 Const Function GetVisibleClipBounds(rc As RectangleF) As Gdiplus.Status 1897 1803 Return SetStatus(GdipGetVisibleClipBounds(nativeGraphics, rc)) 1898 1804 End Function 1899 1805 1900 Const Function GetVisibleClipBounds(rc As Rectangle) As Status1806 Const Function GetVisibleClipBounds(rc As Rectangle) As Gdiplus.Status 1901 1807 Return SetStatus(GdipGetVisibleClipBoundsI(nativeGraphics, rc)) 1902 1808 End Function … … 1970 1876 End Function 1971 1877 1972 Function EndContainer(state As GraphicsContainer) As Status1878 Function EndContainer(state As GraphicsContainer) As Gdiplus.Status 1973 1879 Return SetStatus(GdipEndContainer(nativeGraphics, state)) 1974 1880 End Function … … 1984 1890 End Function 1985 1891 1986 Const Function GetLastStatus() As Status1892 Const Function GetLastStatus() As Gdiplus.Status 1987 1893 Dim lastStatus = lastResult 1988 lastResult = Status.Ok1894 lastResult = Gdiplus.Status.Ok 1989 1895 Return lastStatus 1990 1896 End Function … … 1994 1900 ' Debug 1995 1901 ' End Sub 1996 Sub Operator =(gr As Graphics)1997 Debug1998 End Sub1999 1902 2000 1903 Protected 2001 Sub Graphics(graphics As *G pGraphics)2002 lastResult = Status.Ok1904 Sub Graphics(graphics As *Gdiplus.GpGraphics) 1905 lastResult = Gdiplus.Status.Ok 2003 1906 SetNativeGraphics(graphics) 2004 1907 End Sub 2005 1908 2006 Sub SetNativeGraphics(graphics As *G pGraphics)1909 Sub SetNativeGraphics(graphics As *Gdiplus.GpGraphics) 2007 1910 This.nativeGraphics = graphics 2008 1911 End Sub 2009 1912 2010 Const Function SetStatus(status As Status) AsStatus2011 If status <> Status.Ok Then1913 Const Function SetStatus(status As Gdiplus.Status) As Gdiplus.Status 1914 If status <> Gdiplus.Status.Ok Then 2012 1915 lastResult = status 2013 1916 End If … … 2015 1918 End Function 2016 1919 2017 Const Function GetNativeGraphics() As *G pGraphics1920 Const Function GetNativeGraphics() As *Gdiplus.GpGraphics 2018 1921 Return This.nativeGraphics 2019 1922 End Function … … 2024 1927 2025 1928 Protected 2026 nativeGraphics As *G pGraphics2027 lastResult As /*Mutable*/ Status1929 nativeGraphics As *Gdiplus.GpGraphics 1930 lastResult As /*Mutable*/ Gdiplus.Status 2028 1931 End Class 2029 1932 1933 End Namespace 'Drawing 1934 End Namespace 'System 1935 2030 1936 #endif -
branch/egtra-gdiplus/Classes/System/Drawing/Imaging/misc.ab
r212 r241 1 ' 1 'Classes/System/Drawing/Imaging/misc.ab 2 2 3 3 #ifndef __SYSTEM_DRAWING_IMAGING_MISC_AB__ … … 6 6 #include <Classes/System/Drawing/Color.ab> 7 7 8 TypeDef ARGB = DWord 9 TypeDef ARGB64 = QWord 8 Namespace System 9 Namespace Drawing 10 Namespace Imaging 10 11 11 12 Enum ColorMode … … 13 14 ARGB64 = 1 14 15 End Enum 15 16 Const ALPHA_SHIFT = 24 As DWord17 Const RED_SHIFT = 16 As DWord18 Const GREEN_SHIFT = 8 As DWord19 Const BLUE_SHIFT = 0 As DWord20 Const ALPHA_MASK = ((&hff As ARGB) << ALPHA_SHIFT)21 16 22 17 ' In-memory pixel data formats: … … 54 49 End Enum 55 50 56 Const GetPixelFormatSize(pixfmt) = ((((pixfmt As PixelFormat) >> 8) And &hff) As DWord)57 58 Const IsIndexedPixelFormat(pixfmt) = ((((pixfmt As PixelFormat) And PixelFormat.Indexed) <> 0) As BOOL)59 60 Const IsAlphaPixelFormat(pixfmt) = ((((pixfmt As PixelFormat) And PixelFormat.Alpha) <> 0) As BOOL)61 62 Const IsExtendedPixelFormat(pixfmt) = ((((pixfmt As PixelFormat) And PixelFormat.Extended) <> 0) As BOOL)63 64 Const IsCanonicalPixelFormat(pixfmt) = ((((pixfmt As PixelFormat) And PixelFormat.Canonical) <> 0) As BOOL)65 66 51 Enum PaletteFlags 67 52 PaletteFlagsHasAlpha = &h0001 … … 69 54 PaletteFlagsHalftone = &h0004 70 55 End Enum 71 72 Type Align(8) ColorPalette73 Flags As DWord74 Count As DWord75 Entries[1] As ARGB76 End Type77 56 78 57 Enum ColorAdjustType … … 86 65 End Enum 87 66 88 Type ColorMatrix89 m[5][5] As Single90 End Type91 92 67 Type ColorMap 93 68 OldColor As Color … … 129 104 End Type 130 105 131 Type Align(8) EncoderParameter132 Guid As GUID133 NumberOfValues As DWord134 EncoderType As DWord '元はTypeという名前135 Value As VoidPtr136 End Type137 138 Type Align(8) EncoderParameters139 Count As DWord140 Parameter[1] As EncoderParameter141 End Type142 143 106 Type Align(8) PropertyItem 144 107 id As PROPID … … 148 111 End Type 149 112 150 Const PropertyTagTypeByte = 1151 Const PropertyTagTypeASCII = 2152 Const PropertyTagTypeShort = 3153 Const PropertyTagTypeLong = 4154 Const PropertyTagTypeRational = 5155 Const PropertyTagTypeUndefined = 7156 Const PropertyTagTypeSLONG = 9157 Const PropertyTagTypeSRational = 10158 159 Const PropertyTagExifIFD = &h8769160 Const PropertyTagGpsIFD = &h8825161 162 Const PropertyTagNewSubfileType = &h00FE163 Const PropertyTagSubfileType = &h00FF164 Const PropertyTagImageWidth = &h0100165 Const PropertyTagImageHeight = &h0101166 Const PropertyTagBitsPerSample = &h0102167 Const PropertyTagCompression = &h0103168 Const PropertyTagPhotometricInterp = &h0106169 Const PropertyTagThreshHolding = &h0107170 Const PropertyTagCellWidth = &h0108171 Const PropertyTagCellHeight = &h0109172 Const PropertyTagFillOrder = &h010A173 Const PropertyTagDocumentName = &h010D174 Const PropertyTagImageDescription = &h010E175 Const PropertyTagEquipMake = &h010F176 Const PropertyTagEquipModel = &h0110177 Const PropertyTagStripOffsets = &h0111178 Const PropertyTagOrientation = &h0112179 Const PropertyTagSamplesPerPixel = &h0115180 Const PropertyTagRowsPerStrip = &h0116181 Const PropertyTagStripBytesCount = &h0117182 Const PropertyTagMinSampleValue = &h0118183 Const PropertyTagMaxSampleValue = &h0119184 Const PropertyTagXResolution = &h011A ' Image resolution in width direction185 Const PropertyTagYResolution = &h011B ' Image resolution in height direction186 Const PropertyTagPlanarConfig = &h011C ' Image data arrangement187 Const PropertyTagPageName = &h011D188 Const PropertyTagXPosition = &h011E189 Const PropertyTagYPosition = &h011F190 Const PropertyTagFreeOffset = &h0120191 Const PropertyTagFreeByteCounts = &h0121192 Const PropertyTagGrayResponseUnit = &h0122193 Const PropertyTagGrayResponseCurve = &h0123194 Const PropertyTagT4Option = &h0124195 Const PropertyTagT6Option = &h0125196 Const PropertyTagResolutionUnit = &h0128 ' Unit of X and Y resolution197 Const PropertyTagPageNumber = &h0129198 Const PropertyTagTransferFuncition = &h012D199 Const PropertyTagSoftwareUsed = &h0131200 Const PropertyTagDateTime = &h0132201 Const PropertyTagArtist = &h013B202 Const PropertyTagHostComputer = &h013C203 Const PropertyTagPredictor = &h013D204 Const PropertyTagWhitePoint = &h013E205 Const PropertyTagPrimaryChromaticities = &h013F206 Const PropertyTagColorMap = &h0140207 Const PropertyTagHalftoneHints = &h0141208 Const PropertyTagTileWidth = &h0142209 Const PropertyTagTileLength = &h0143210 Const PropertyTagTileOffset = &h0144211 Const PropertyTagTileByteCounts = &h0145212 Const PropertyTagInkSet = &h014C213 Const PropertyTagInkNames = &h014D214 Const PropertyTagNumberOfInks = &h014E215 Const PropertyTagDotRange = &h0150216 Const PropertyTagTargetPrinter = &h0151217 Const PropertyTagExtraSamples = &h0152218 Const PropertyTagSampleFormat = &h0153219 Const PropertyTagSMinSampleValue = &h0154220 Const PropertyTagSMaxSampleValue = &h0155221 Const PropertyTagTransferRange = &h0156222 223 Const PropertyTagJPEGProc = &h0200224 Const PropertyTagJPEGInterFormat = &h0201225 Const PropertyTagJPEGInterLength = &h0202226 Const PropertyTagJPEGRestartInterval = &h0203227 Const PropertyTagJPEGLosslessPredictors = &h0205228 Const PropertyTagJPEGPointTransforms = &h0206229 Const PropertyTagJPEGQTables = &h0207230 Const PropertyTagJPEGDCTables = &h0208231 Const PropertyTagJPEGACTables = &h0209232 233 Const PropertyTagYCbCrCoefficients = &h0211234 Const PropertyTagYCbCrSubsampling = &h0212235 Const PropertyTagYCbCrPositioning = &h0213236 Const PropertyTagREFBlackWhite = &h0214237 238 Const PropertyTagICCProfile = &h8773 ' This TAG is defined by ICC239 ' for embedded ICC in TIFF240 Const PropertyTagGamma = &h0301241 Const PropertyTagICCProfileDescriptor = &h0302242 Const PropertyTagSRGBRenderingIntent = &h0303243 244 Const PropertyTagImageTitle = &h0320245 Const PropertyTagCopyright = &h8298246 247 ' Extra TAGs (Like Adobe Image Information tags etc.)248 249 Const PropertyTagResolutionXUnit = &h5001250 Const PropertyTagResolutionYUnit = &h5002251 Const PropertyTagResolutionXLengthUnit = &h5003252 Const PropertyTagResolutionYLengthUnit = &h5004253 Const PropertyTagPrintFlags = &h5005254 Const PropertyTagPrintFlagsVersion = &h5006255 Const PropertyTagPrintFlagsCrop = &h5007256 Const PropertyTagPrintFlagsBleedWidth = &h5008257 Const PropertyTagPrintFlagsBleedWidthScale = &h5009258 Const PropertyTagHalftoneLPI = &h500A259 Const PropertyTagHalftoneLPIUnit = &h500B260 Const PropertyTagHalftoneDegree = &h500C261 Const PropertyTagHalftoneShape = &h500D262 Const PropertyTagHalftoneMisc = &h500E263 Const PropertyTagHalftoneScreen = &h500F264 Const PropertyTagJPEGQuality = &h5010265 Const PropertyTagGridSize = &h5011266 Const PropertyTagThumbnailFormat = &h5012 ' 1 = JPEG, 0 = RAW RGB267 Const PropertyTagThumbnailWidth = &h5013268 Const PropertyTagThumbnailHeight = &h5014269 Const PropertyTagThumbnailColorDepth = &h5015270 Const PropertyTagThumbnailPlanes = &h5016271 Const PropertyTagThumbnailRawBytes = &h5017272 Const PropertyTagThumbnailSize = &h5018273 Const PropertyTagThumbnailCompressedSize = &h5019274 Const PropertyTagColorTransferFunction = &h501A275 Const PropertyTagThumbnailData = &h501B' RAW thumbnail bits in276 ' JPEG format or RGB format277 ' depends on278 ' PropertyTagThumbnailFormat279 280 ' Thumbnail related TAGs281 282 Const PropertyTagThumbnailImageWidth = &h5020 ' Thumbnail width283 Const PropertyTagThumbnailImageHeight = &h5021 ' Thumbnail height284 Const PropertyTagThumbnailBitsPerSample = &h5022 ' Number of bits per285 ' component286 Const PropertyTagThumbnailCompression = &h5023 ' Compression Scheme287 Const PropertyTagThumbnailPhotometricInterp = &h5024 ' Pixel composition288 Const PropertyTagThumbnailImageDescription = &h5025 ' Image Tile289 Const PropertyTagThumbnailEquipMake = &h5026 ' Manufacturer of Image290 ' Input equipment291 Const PropertyTagThumbnailEquipModel = &h5027 ' Model of Image input292 ' equipment293 Const PropertyTagThumbnailStripOffsets = &h5028 ' Image data location294 Const PropertyTagThumbnailOrientation = &h5029 ' Orientation of image295 Const PropertyTagThumbnailSamplesPerPixel = &h502A ' Number of components296 Const PropertyTagThumbnailRowsPerStrip = &h502B ' Number of rows per strip297 Const PropertyTagThumbnailStripBytesCount = &h502C ' Bytes per compressed298 ' strip299 Const PropertyTagThumbnailResolutionX = &h502D ' Resolution in width300 ' direction301 Const PropertyTagThumbnailResolutionY = &h502E ' Resolution in height302 ' direction303 Const PropertyTagThumbnailPlanarConfig = &h502F ' Image data arrangement304 Const PropertyTagThumbnailResolutionUnit = &h5030 ' Unit of X and Y305 ' Resolution306 Const PropertyTagThumbnailTransferFunction = &h5031 ' Transfer function307 Const PropertyTagThumbnailSoftwareUsed = &h5032 ' Software used308 Const PropertyTagThumbnailDateTime = &h5033 ' File change date and309 ' time310 Const PropertyTagThumbnailArtist = &h5034 ' Person who created the311 ' image312 Const PropertyTagThumbnailWhitePoint = &h5035 ' White point chromaticity313 Const PropertyTagThumbnailPrimaryChromaticities = &h5036314 ' Chromaticities of315 ' primaries316 Const PropertyTagThumbnailYCbCrCoefficients = &h5037 ' Color space transforma-317 ' tion coefficients318 Const PropertyTagThumbnailYCbCrSubsampling = &h5038 ' Subsampling ratio of Y319 ' to C320 Const PropertyTagThumbnailYCbCrPositioning = &h5039 ' Y and C position321 Const PropertyTagThumbnailRefBlackWhite = &h503A ' Pair of black and white322 ' reference values323 Const PropertyTagThumbnailCopyRight = &h503B ' CopyRight holder324 325 Const PropertyTagLuminanceTable = &h5090326 Const PropertyTagChrominanceTable = &h5091327 328 Const PropertyTagFrameDelay = &h5100329 Const PropertyTagLoopCount = &h5101330 331 Const PropertyTagPixelUnit = &h5110 ' Unit specifier for pixel/unit332 Const PropertyTagPixelPerUnitX = &h5111 ' Pixels per unit in X333 Const PropertyTagPixelPerUnitY = &h5112 ' Pixels per unit in Y334 Const PropertyTagPaletteHistogram = &h5113 ' Palette histogram335 336 ' EXIF specific tag337 338 Const PropertyTagExifExposureTime = &h829A339 Const PropertyTagExifFNumber = &h829D340 341 Const PropertyTagExifExposureProg = &h8822342 Const PropertyTagExifSpectralSense = &h8824343 Const PropertyTagExifISOSpeed = &h8827344 Const PropertyTagExifOECF = &h8828345 346 Const PropertyTagExifVer = &h9000347 Const PropertyTagExifDTOrig = &h9003 ' Date & time of original348 Const PropertyTagExifDTDigitized = &h9004 ' Date & time of digital data generation349 350 Const PropertyTagExifCompConfig = &h9101351 Const PropertyTagExifCompBPP = &h9102352 353 Const PropertyTagExifShutterSpeed = &h9201354 Const PropertyTagExifAperture = &h9202355 Const PropertyTagExifBrightness = &h9203356 Const PropertyTagExifExposureBias = &h9204357 Const PropertyTagExifMaxAperture = &h9205358 Const PropertyTagExifSubjectDist = &h9206359 Const PropertyTagExifMeteringMode = &h9207360 Const PropertyTagExifLightSource = &h9208361 Const PropertyTagExifFlash = &h9209362 Const PropertyTagExifFocalLength = &h920A363 Const PropertyTagExifMakerNote = &h927C364 Const PropertyTagExifUserComment = &h9286365 Const PropertyTagExifDTSubsec = &h9290 ' Date & Time subseconds366 Const PropertyTagExifDTOrigSS = &h9291 ' Date & Time original subseconds367 Const PropertyTagExifDTDigSS = &h9292 ' Date & TIme digitized subseconds368 369 Const PropertyTagExifFPXVer = &hA000370 Const PropertyTagExifColorSpace = &hA001371 Const PropertyTagExifPixXDim = &hA002372 Const PropertyTagExifPixYDim = &hA003373 Const PropertyTagExifRelatedWav = &hA004 ' related sound file374 Const PropertyTagExifInterop = &hA005375 Const PropertyTagExifFlashEnergy = &hA20B376 Const PropertyTagExifSpatialFR = &hA20C ' Spatial Frequency Response377 Const PropertyTagExifFocalXRes = &hA20E ' Focal Plane X Resolution378 Const PropertyTagExifFocalYRes = &hA20F ' Focal Plane Y Resolution379 Const PropertyTagExifFocalResUnit = &hA210 ' Focal Plane Resolution Unit380 Const PropertyTagExifSubjectLoc = &hA214381 Const PropertyTagExifExposureIndex = &hA215382 Const PropertyTagExifSensingMethod = &hA217383 Const PropertyTagExifFileSource = &hA300384 Const PropertyTagExifSceneType = &hA301385 Const PropertyTagExifCfaPattern = &hA302386 387 Const PropertyTagGpsVer = &h0000388 Const PropertyTagGpsLatitudeRef = &h0001389 Const PropertyTagGpsLatitude = &h0002390 Const PropertyTagGpsLongitudeRef = &h0003391 Const PropertyTagGpsLongitude = &h0004392 Const PropertyTagGpsAltitudeRef = &h0005393 Const PropertyTagGpsAltitude = &h0006394 Const PropertyTagGpsGpsTime = &h0007395 Const PropertyTagGpsGpsSatellites = &h0008396 Const PropertyTagGpsGpsStatus = &h0009397 Const PropertyTagGpsGpsMeasureMode = &h00A398 Const PropertyTagGpsGpsDop = &h000B ' Measurement precision399 Const PropertyTagGpsSpeedRef = &h000C400 Const PropertyTagGpsSpeed = &h000D401 Const PropertyTagGpsTrackRef = &h000E402 Const PropertyTagGpsTrack = &h000F403 Const PropertyTagGpsImgDirRef = &h0010404 Const PropertyTagGpsImgDir = &h0011405 Const PropertyTagGpsMapDatum = &h0012406 Const PropertyTagGpsDestLatRef = &h0013407 Const PropertyTagGpsDestLat = &h0014408 Const PropertyTagGpsDestLongRef = &h0015409 Const PropertyTagGpsDestLong = &h0016410 Const PropertyTagGpsDestBearRef = &h0017411 Const PropertyTagGpsDestBear = &h0018412 Const PropertyTagGpsDestDistRef = &h0019413 Const PropertyTagGpsDestDist = &h001A414 415 Type ImageCodecInfo416 Clsid As CLSID417 FormatID As GUID418 CodecName As PCWSTR419 DllName As PCWSTR420 FormatDescription As PCWSTR421 FilenameExtension As PCWSTR422 MimeType As PCWSTR423 Flags As DWord424 Version As DWord425 SigCount As DWord426 SigSize As DWord427 SigPattern As *Byte428 SigMask As DWord429 End Type430 431 113 Enum ColorChannelFlag 432 114 ColorChannelC = 0 … … 437 119 End Enum 438 120 121 Const GDIP_EMFPLUS_RECORD_BASE = &h00004000 122 Const GDIP_WMF_RECORD_BASE = &h00010000 123 Const GDIP_WMF_RECORD_TO_EMFPLUS(n) = ((n) Or GDIP_WMF_RECORD_BASE) ' As EmfPlusRecordType 124 Const GDIP_EMFPLUS_RECORD_TO_WMF(n) = ((n) And (Not GDIP_WMF_RECORD_BASE)) 125 'Const GDIP_IS_WMF_RECORDTYPE(n) (((n) And GDIP_WMF_RECORD_BASE) <> 0) 126 Function GDIP_IS_WMF_RECORDTYPE(n As DWord) As BOOL 127 If (n And GDIP_WMF_RECORD_BASE) <> 0 Then 128 GDIP_IS_WMF_RECORDTYPE = TRUE 129 Else 130 GDIP_IS_WMF_RECORDTYPE = FALSE 131 End If 132 End Function 133 134 Enum EmfPlusRecordType 135 /* 136 WmfRecordTypeSetBkColor = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETBKCOLOR) 137 WmfRecordTypeSetBkMode = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETBKMODE) 138 WmfRecordTypeSetMapMode = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETMAPMODE) 139 WmfRecordTypeSetROP2 = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETROP2) 140 WmfRecordTypeSetRelAbs = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETRELABS) 141 WmfRecordTypeSetPolyFillMode = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETPOLYFILLMODE) 142 WmfRecordTypeSetStretchBltMode = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETSTRETCHBLTMODE) 143 WmfRecordTypeSetTextCharExtra = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETTEXTCHAREXTRA) 144 WmfRecordTypeSetTextColor = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETTEXTCOLOR) 145 WmfRecordTypeSetTextJustification = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETTEXTJUSTIFICATION) 146 WmfRecordTypeSetWindowOrg = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETWINDOWORG) 147 WmfRecordTypeSetWindowExt = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETWINDOWEXT) 148 WmfRecordTypeSetViewportOrg = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETVIEWPORTORG) 149 WmfRecordTypeSetViewportExt = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETVIEWPORTEXT) 150 WmfRecordTypeOffsetWindowOrg = GDIP_WMF_RECORD_TO_EMFPLUS(META_OFFSETWINDOWORG) 151 WmfRecordTypeScaleWindowExt = GDIP_WMF_RECORD_TO_EMFPLUS(META_SCALEWINDOWEXT) 152 WmfRecordTypeOffsetViewportOrg = GDIP_WMF_RECORD_TO_EMFPLUS(META_OFFSETVIEWPORTORG) 153 WmfRecordTypeScaleViewportExt = GDIP_WMF_RECORD_TO_EMFPLUS(META_SCALEVIEWPORTEXT) 154 WmfRecordTypeLineTo = GDIP_WMF_RECORD_TO_EMFPLUS(META_LINETO) 155 WmfRecordTypeMoveTo = GDIP_WMF_RECORD_TO_EMFPLUS(META_MOVETO) 156 WmfRecordTypeExcludeClipRect = GDIP_WMF_RECORD_TO_EMFPLUS(META_EXCLUDECLIPRECT) 157 WmfRecordTypeIntersectClipRect = GDIP_WMF_RECORD_TO_EMFPLUS(META_INTERSECTCLIPRECT) 158 WmfRecordTypeArc = GDIP_WMF_RECORD_TO_EMFPLUS(META_ARC) 159 WmfRecordTypeEllipse = GDIP_WMF_RECORD_TO_EMFPLUS(META_ELLIPSE) 160 WmfRecordTypeFloodFill = GDIP_WMF_RECORD_TO_EMFPLUS(META_FLOODFILL) 161 WmfRecordTypePie = GDIP_WMF_RECORD_TO_EMFPLUS(META_PIE) 162 WmfRecordTypeRectangle = GDIP_WMF_RECORD_TO_EMFPLUS(META_RECTANGLE) 163 WmfRecordTypeRoundRect = GDIP_WMF_RECORD_TO_EMFPLUS(META_ROUNDRECT) 164 WmfRecordTypePatBlt = GDIP_WMF_RECORD_TO_EMFPLUS(META_PATBLT) 165 WmfRecordTypeSaveDC = GDIP_WMF_RECORD_TO_EMFPLUS(META_SAVEDC) 166 WmfRecordTypeSetPixel = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETPIXEL) 167 WmfRecordTypeOffsetClipRgn = GDIP_WMF_RECORD_TO_EMFPLUS(META_OFFSETCLIPRGN) 168 WmfRecordTypeTextOut = GDIP_WMF_RECORD_TO_EMFPLUS(META_TEXTOUT) 169 WmfRecordTypeBitBlt = GDIP_WMF_RECORD_TO_EMFPLUS(META_BITBLT) 170 WmfRecordTypeStretchBlt = GDIP_WMF_RECORD_TO_EMFPLUS(META_STRETCHBLT) 171 WmfRecordTypePolygon = GDIP_WMF_RECORD_TO_EMFPLUS(META_POLYGON) 172 WmfRecordTypePolyline = GDIP_WMF_RECORD_TO_EMFPLUS(META_POLYLINE) 173 WmfRecordTypeEscape = GDIP_WMF_RECORD_TO_EMFPLUS(META_ESCAPE) 174 WmfRecordTypeRestoreDC = GDIP_WMF_RECORD_TO_EMFPLUS(META_RESTOREDC) 175 WmfRecordTypeFillRegion = GDIP_WMF_RECORD_TO_EMFPLUS(META_FILLREGION) 176 WmfRecordTypeFrameRegion = GDIP_WMF_RECORD_TO_EMFPLUS(META_FRAMEREGION) 177 WmfRecordTypeInvertRegion = GDIP_WMF_RECORD_TO_EMFPLUS(META_INVERTREGION) 178 WmfRecordTypePaintRegion = GDIP_WMF_RECORD_TO_EMFPLUS(META_PAINTREGION) 179 WmfRecordTypeSelectClipRegion = GDIP_WMF_RECORD_TO_EMFPLUS(META_SELECTCLIPREGION) 180 WmfRecordTypeSelectObject = GDIP_WMF_RECORD_TO_EMFPLUS(META_SELECTOBJECT) 181 WmfRecordTypeSetTextAlign = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETTEXTALIGN) 182 WmfRecordTypeDrawText = GDIP_WMF_RECORD_TO_EMFPLUS(&h062F) ' META_DRAWTEXT 183 WmfRecordTypeChord = GDIP_WMF_RECORD_TO_EMFPLUS(META_CHORD) 184 WmfRecordTypeSetMapperFlags = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETMAPPERFLAGS) 185 WmfRecordTypeExtTextOut = GDIP_WMF_RECORD_TO_EMFPLUS(META_EXTTEXTOUT) 186 WmfRecordTypeSetDIBToDev = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETDIBTODEV) 187 WmfRecordTypeSelectPalette = GDIP_WMF_RECORD_TO_EMFPLUS(META_SELECTPALETTE) 188 WmfRecordTypeRealizePalette = GDIP_WMF_RECORD_TO_EMFPLUS(META_REALIZEPALETTE) 189 WmfRecordTypeAnimatePalette = GDIP_WMF_RECORD_TO_EMFPLUS(META_ANIMATEPALETTE) 190 WmfRecordTypeSetPalEntries = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETPALENTRIES) 191 WmfRecordTypePolyPolygon = GDIP_WMF_RECORD_TO_EMFPLUS(META_POLYPOLYGON) 192 WmfRecordTypeResizePalette = GDIP_WMF_RECORD_TO_EMFPLUS(META_RESIZEPALETTE) 193 WmfRecordTypeDIBBitBlt = GDIP_WMF_RECORD_TO_EMFPLUS(META_DIBBITBLT) 194 WmfRecordTypeDIBStretchBlt = GDIP_WMF_RECORD_TO_EMFPLUS(META_DIBSTRETCHBLT) 195 WmfRecordTypeDIBCreatePatternBrush = GDIP_WMF_RECORD_TO_EMFPLUS(META_DIBCREATEPATTERNBRUSH) 196 WmfRecordTypeStretchDIB = GDIP_WMF_RECORD_TO_EMFPLUS(META_STRETCHDIB) 197 WmfRecordTypeExtFloodFill = GDIP_WMF_RECORD_TO_EMFPLUS(META_EXTFLOODFILL) 198 WmfRecordTypeSetLayout = GDIP_WMF_RECORD_TO_EMFPLUS(&h0149) ' META_SETLAYOUT 199 WmfRecordTypeResetDC = GDIP_WMF_RECORD_TO_EMFPLUS(&h014C) ' META_RESETDC 200 WmfRecordTypeStartDoc = GDIP_WMF_RECORD_TO_EMFPLUS(&h014D) ' META_STARTDOC 201 WmfRecordTypeStartPage = GDIP_WMF_RECORD_TO_EMFPLUS(&h004F) ' META_STARTPAGE 202 WmfRecordTypeEndPage = GDIP_WMF_RECORD_TO_EMFPLUS(&h0050) ' META_ENDPAGE 203 WmfRecordTypeAbortDoc = GDIP_WMF_RECORD_TO_EMFPLUS(&h0052) ' META_ABORTDOC 204 WmfRecordTypeEndDoc = GDIP_WMF_RECORD_TO_EMFPLUS(&h005E) ' META_ENDDOC 205 WmfRecordTypeDeleteObject = GDIP_WMF_RECORD_TO_EMFPLUS(META_DELETEOBJECT) 206 WmfRecordTypeCreatePalette = GDIP_WMF_RECORD_TO_EMFPLUS(META_CREATEPALETTE) 207 WmfRecordTypeCreateBrush = GDIP_WMF_RECORD_TO_EMFPLUS(&h00F8) ' META_CREATEBRUSH 208 WmfRecordTypeCreatePatternBrush = GDIP_WMF_RECORD_TO_EMFPLUS(META_CREATEPATTERNBRUSH) 209 WmfRecordTypeCreatePenIndirect = GDIP_WMF_RECORD_TO_EMFPLUS(META_CREATEPENINDIRECT) 210 WmfRecordTypeCreateFontIndirect = GDIP_WMF_RECORD_TO_EMFPLUS(META_CREATEFONTINDIRECT) 211 WmfRecordTypeCreateBrushIndirect = GDIP_WMF_RECORD_TO_EMFPLUS(META_CREATEBRUSHINDIRECT) 212 WmfRecordTypeCreateBitmapIndirect = GDIP_WMF_RECORD_TO_EMFPLUS(&h02FD) ' META_CREATEBITMAPINDIRECT 213 WmfRecordTypeCreateBitmap = GDIP_WMF_RECORD_TO_EMFPLUS(&h06FE) ' META_CREATEBITMAP 214 WmfRecordTypeCreateRegion = GDIP_WMF_RECORD_TO_EMFPLUS(META_CREATEREGION) 215 216 EmfRecordTypeHeader = EMR_HEADER 217 EmfRecordTypePolyBezier = EMR_POLYBEZIER 218 EmfRecordTypePolygon = EMR_POLYGON 219 EmfRecordTypePolyline = EMR_POLYLINE 220 EmfRecordTypePolyBezierTo = EMR_POLYBEZIERTO 221 EmfRecordTypePolyLineTo = EMR_POLYLINETO 222 EmfRecordTypePolyPolyline = EMR_POLYPOLYLINE 223 EmfRecordTypePolyPolygon = EMR_POLYPOLYGON 224 EmfRecordTypeSetWindowExtEx = EMR_SETWINDOWEXTEX 225 EmfRecordTypeSetWindowOrgEx = EMR_SETWINDOWORGEX 226 EmfRecordTypeSetViewportExtEx = EMR_SETVIEWPORTEXTEX 227 EmfRecordTypeSetViewportOrgEx = EMR_SETVIEWPORTORGEX 228 EmfRecordTypeSetBrushOrgEx = EMR_SETBRUSHORGEX 229 EmfRecordTypeEOF = EMR_EOF 230 EmfRecordTypeSetPixelV = EMR_SETPIXELV 231 EmfRecordTypeSetMapperFlags = EMR_SETMAPPERFLAGS 232 EmfRecordTypeSetMapMode = EMR_SETMAPMODE 233 EmfRecordTypeSetBkMode = EMR_SETBKMODE 234 EmfRecordTypeSetPolyFillMode = EMR_SETPOLYFILLMODE 235 EmfRecordTypeSetROP2 = EMR_SETROP2 236 EmfRecordTypeSetStretchBltMode = EMR_SETSTRETCHBLTMODE 237 EmfRecordTypeSetTextAlign = EMR_SETTEXTALIGN 238 EmfRecordTypeSetColorAdjustment = EMR_SETCOLORADJUSTMENT 239 EmfRecordTypeSetTextColor = EMR_SETTEXTCOLOR 240 EmfRecordTypeSetBkColor = EMR_SETBKCOLOR 241 EmfRecordTypeOffsetClipRgn = EMR_OFFSETCLIPRGN 242 EmfRecordTypeMoveToEx = EMR_MOVETOEX 243 EmfRecordTypeSetMetaRgn = EMR_SETMETARGN 244 EmfRecordTypeExcludeClipRect = EMR_EXCLUDECLIPRECT 245 EmfRecordTypeIntersectClipRect = EMR_INTERSECTCLIPRECT 246 EmfRecordTypeScaleViewportExtEx = EMR_SCALEVIEWPORTEXTEX 247 EmfRecordTypeScaleWindowExtEx = EMR_SCALEWINDOWEXTEX 248 EmfRecordTypeSaveDC = EMR_SAVEDC 249 EmfRecordTypeRestoreDC = EMR_RESTOREDC 250 EmfRecordTypeSetWorldTransform = EMR_SETWORLDTRANSFORM 251 EmfRecordTypeModifyWorldTransform = EMR_MODIFYWORLDTRANSFORM 252 EmfRecordTypeSelectObject = EMR_SELECTOBJECT 253 EmfRecordTypeCreatePen = EMR_CREATEPEN 254 EmfRecordTypeCreateBrushIndirect = EMR_CREATEBRUSHINDIRECT 255 EmfRecordTypeDeleteObject = EMR_DELETEOBJECT 256 EmfRecordTypeAngleArc = EMR_ANGLEARC 257 EmfRecordTypeEllipse = EMR_ELLIPSE 258 EmfRecordTypeRectangle = EMR_RECTANGLE 259 EmfRecordTypeRoundRect = EMR_ROUNDRECT 260 EmfRecordTypeArc = EMR_ARC 261 EmfRecordTypeChord = EMR_CHORD 262 EmfRecordTypePie = EMR_PIE 263 EmfRecordTypeSelectPalette = EMR_SELECTPALETTE 264 EmfRecordTypeCreatePalette = EMR_CREATEPALETTE 265 EmfRecordTypeSetPaletteEntries = EMR_SETPALETTEENTRIES 266 EmfRecordTypeResizePalette = EMR_RESIZEPALETTE 267 EmfRecordTypeRealizePalette = EMR_REALIZEPALETTE 268 EmfRecordTypeExtFloodFill = EMR_EXTFLOODFILL 269 EmfRecordTypeLineTo = EMR_LINETO 270 EmfRecordTypeArcTo = EMR_ARCTO 271 EmfRecordTypePolyDraw = EMR_POLYDRAW 272 EmfRecordTypeSetArcDirection = EMR_SETARCDIRECTION 273 EmfRecordTypeSetMiterLimit = EMR_SETMITERLIMIT 274 EmfRecordTypeBeginPath = EMR_BEGINPATH 275 EmfRecordTypeEndPath = EMR_ENDPATH 276 EmfRecordTypeCloseFigure = EMR_CLOSEFIGURE 277 EmfRecordTypeFillPath = EMR_FILLPATH 278 EmfRecordTypeStrokeAndFillPath = EMR_STROKEANDFILLPATH 279 EmfRecordTypeStrokePath = EMR_STROKEPATH 280 EmfRecordTypeFlattenPath = EMR_FLATTENPATH 281 EmfRecordTypeWidenPath = EMR_WIDENPATH 282 EmfRecordTypeSelectClipPath = EMR_SELECTCLIPPATH 283 EmfRecordTypeAbortPath = EMR_ABORTPATH 284 EmfRecordTypeReserved_069 = 69 ' Not Used 285 EmfRecordTypeGdiComment = EMR_GDICOMMENT 286 EmfRecordTypeFillRgn = EMR_FILLRGN 287 EmfRecordTypeFrameRgn = EMR_FRAMERGN 288 EmfRecordTypeInvertRgn = EMR_INVERTRGN 289 EmfRecordTypePaintRgn = EMR_PAINTRGN 290 EmfRecordTypeExtSelectClipRgn = EMR_EXTSELECTCLIPRGN 291 EmfRecordTypeBitBlt = EMR_BITBLT 292 EmfRecordTypeStretchBlt = EMR_STRETCHBLT 293 EmfRecordTypeMaskBlt = EMR_MASKBLT 294 EmfRecordTypePlgBlt = EMR_PLGBLT 295 EmfRecordTypeSetDIBitsToDevice = EMR_SETDIBITSTODEVICE 296 EmfRecordTypeStretchDIBits = EMR_STRETCHDIBITS 297 EmfRecordTypeExtCreateFontIndirect = EMR_EXTCREATEFONTINDIRECTW 298 EmfRecordTypeExtTextOutA = EMR_EXTTEXTOUTA 299 EmfRecordTypeExtTextOutW = EMR_EXTTEXTOUTW 300 EmfRecordTypePolyBezier16 = EMR_POLYBEZIER16 301 EmfRecordTypePolygon16 = EMR_POLYGON16 302 EmfRecordTypePolyline16 = EMR_POLYLINE16 303 EmfRecordTypePolyBezierTo16 = EMR_POLYBEZIERTO16 304 EmfRecordTypePolylineTo16 = EMR_POLYLINETO16 305 EmfRecordTypePolyPolyline16 = EMR_POLYPOLYLINE16 306 EmfRecordTypePolyPolygon16 = EMR_POLYPOLYGON16 307 EmfRecordTypePolyDraw16 = EMR_POLYDRAW16 308 EmfRecordTypeCreateMonoBrush = EMR_CREATEMONOBRUSH 309 EmfRecordTypeCreateDIBPatternBrushPt = EMR_CREATEDIBPATTERNBRUSHPT 310 EmfRecordTypeExtCreatePen = EMR_EXTCREATEPEN 311 EmfRecordTypePolyTextOutA = EMR_POLYTEXTOUTA 312 EmfRecordTypePolyTextOutW = EMR_POLYTEXTOUTW 313 EmfRecordTypeSetICMMode = 98 ' EMR_SETICMMODE 314 EmfRecordTypeCreateColorSpace = 99 ' EMR_CREATECOLORSPACE 315 EmfRecordTypeSetColorSpace = 100 ' EMR_SETCOLORSPACE 316 EmfRecordTypeDeleteColorSpace = 101 ' EMR_DELETECOLORSPACE 317 EmfRecordTypeGLSRecord = 102 ' EMR_GLSRECORD 318 EmfRecordTypeGLSBoundedRecord = 103 ' EMR_GLSBOUNDEDRECORD 319 EmfRecordTypePixelFormat = 104 ' EMR_PIXELFORMAT 320 EmfRecordTypeDrawEscape = 105 ' EMR_RESERVED_105 321 EmfRecordTypeExtEscape = 106 ' EMR_RESERVED_106 322 EmfRecordTypeStartDoc = 107 ' EMR_RESERVED_107 323 EmfRecordTypeSmallTextOut = 108 ' EMR_RESERVED_108 324 EmfRecordTypeForceUFIMapping = 109 ' EMR_RESERVED_109 325 EmfRecordTypeNamedEscape = 110 ' EMR_RESERVED_110 326 EmfRecordTypeColorCorrectPalette = 111 ' EMR_COLORCORRECTPALETTE 327 EmfRecordTypeSetICMProfileA = 112 ' EMR_SETICMPROFILEA 328 EmfRecordTypeSetICMProfileW = 113 ' EMR_SETICMPROFILEW 329 EmfRecordTypeAlphaBlend = 114 ' EMR_ALPHABLEND 330 EmfRecordTypeSetLayout = 115 ' EMR_SETLAYOUT 331 EmfRecordTypeTransparentBlt = 116 ' EMR_TRANSPARENTBLT 332 EmfRecordTypeReserved_117 = 117 ' Not Used 333 EmfRecordTypeGradientFill = 118 ' EMR_GRADIENTFILL 334 EmfRecordTypeSetLinkedUFIs = 119 ' EMR_RESERVED_119 335 EmfRecordTypeSetTextJustification = 120 ' EMR_RESERVED_120 336 EmfRecordTypeColorMatchToTargetW = 121 ' EMR_COLORMATCHTOTARGETW 337 EmfRecordTypeCreateColorSpaceW = 122 ' EMR_CREATECOLORSPACEW 338 EmfRecordTypeMax = 122 339 EmfRecordTypeMin = 1 340 341 EmfPlusRecordTypeInvalid = GDIP_EMFPLUS_RECORD_BASE 342 EmfPlusRecordTypeHeader 343 EmfPlusRecordTypeEndOfFile 344 345 EmfPlusRecordTypeComment 346 347 EmfPlusRecordTypeGetDC 348 349 EmfPlusRecordTypeMultiFormatStart 350 EmfPlusRecordTypeMultiFormatSection 351 EmfPlusRecordTypeMultiFormatEnd 352 353 EmfPlusRecordTypeObject 354 355 EmfPlusRecordTypeClear 356 EmfPlusRecordTypeFillRects 357 EmfPlusRecordTypeDrawRects 358 EmfPlusRecordTypeFillPolygon 359 EmfPlusRecordTypeDrawLines 360 EmfPlusRecordTypeFillEllipse 361 EmfPlusRecordTypeDrawEllipse 362 EmfPlusRecordTypeFillPie 363 EmfPlusRecordTypeDrawPie 364 EmfPlusRecordTypeDrawArc 365 EmfPlusRecordTypeFillRegion 366 EmfPlusRecordTypeFillPath 367 EmfPlusRecordTypeDrawPath 368 EmfPlusRecordTypeFillClosedCurve 369 EmfPlusRecordTypeDrawClosedCurve 370 EmfPlusRecordTypeDrawCurve 371 EmfPlusRecordTypeDrawBeziers 372 EmfPlusRecordTypeDrawImage 373 EmfPlusRecordTypeDrawImagePoints 374 EmfPlusRecordTypeDrawString 375 376 EmfPlusRecordTypeSetRenderingOrigin 377 EmfPlusRecordTypeSetAntiAliasMode 378 EmfPlusRecordTypeSetTextRenderingHint 379 EmfPlusRecordTypeSetTextContrast 380 EmfPlusRecordTypeSetInterpolationMode 381 EmfPlusRecordTypeSetPixelOffsetMode 382 EmfPlusRecordTypeSetCompositingMode 383 EmfPlusRecordTypeSetCompositingQuality 384 EmfPlusRecordTypeSave 385 EmfPlusRecordTypeRestore 386 EmfPlusRecordTypeBeginContainer 387 EmfPlusRecordTypeBeginContainerNoParams 388 EmfPlusRecordTypeEndContainer 389 EmfPlusRecordTypeSetWorldTransform 390 EmfPlusRecordTypeResetWorldTransform 391 EmfPlusRecordTypeMultiplyWorldTransform 392 EmfPlusRecordTypeTranslateWorldTransform 393 EmfPlusRecordTypeScaleWorldTransform 394 EmfPlusRecordTypeRotateWorldTransform 395 EmfPlusRecordTypeSetPageTransform 396 EmfPlusRecordTypeResetClip 397 EmfPlusRecordTypeSetClipRect 398 EmfPlusRecordTypeSetClipPath 399 EmfPlusRecordTypeSetClipRegion 400 EmfPlusRecordTypeOffsetClip 401 402 EmfPlusRecordTypeDrawDriverString 403 404 EmfPlusRecordTotal 405 406 EmfPlusRecordTypeMax = EmfPlusRecordTotal-1 407 EmfPlusRecordTypeMin = EmfPlusRecordTypeHeader */ 408 End Enum 409 410 End Namespace 'System 411 End Namespace 'Drawing 412 End Namespace 'Imaging 413 414 439 415 #endif '__SYSTEM_DRAWING_IMAGING_MISC_AB__ -
branch/egtra-gdiplus/Classes/System/Drawing/Point.ab
r223 r241 7 7 #require <Classes/System/Drawing/Size.ab> 8 8 #require <Classes/System/Drawing/SizeF.ab> 9 10 Namespace System 11 Namespace Drawing 9 12 10 13 Class Point … … 136 139 End Class 137 140 141 End Namespace 'Drawing 142 End Namespace 'System 143 138 144 #endif '__SYSTEM_DRAWING_POINT_AB__ -
branch/egtra-gdiplus/Classes/System/Drawing/PointF.ab
r212 r241 4 4 #define __SYSTEM_DRAWING_POINTF_AB__ 5 5 6 #include <Classes/System/Drawing/Size.ab> 7 #include <Classes/System/Drawing/SizeF.ab> 6 #require <Classes/System/Drawing/Size.ab> 7 #require <Classes/System/Drawing/SizeF.ab> 8 9 Namespace System 10 Namespace Drawing 8 11 9 12 Class PointF … … 48 51 Return x = 0 And y = 0 49 52 End Function 50 /* 51 Sub Operator = (ByRef pt As PointF) 52 x = pt.x 53 y = pt.y 54 End Sub 55 */ 53 56 54 Function Operator + (pt As PointF) As PointF 57 55 Return Add(This, pt) … … 129 127 End Class 130 128 129 End Namespace 'Drawing 130 End Namespace 'System 131 131 132 #endif '__SYSTEM_DRAWING_POINTF_AB__ -
branch/egtra-gdiplus/Classes/System/Drawing/Rectangle.ab
r223 r241 8 8 #require <Classes/System/Drawing/Point.ab> 9 9 #require <Classes/System/Drawing/Size.ab> 10 11 Namespace System 12 Namespace Drawing 10 13 11 14 Class Rectangle … … 243 246 End Class 244 247 248 End Namespace 'Drawing 249 End Namespace 'System 250 245 251 #endif '__SYSTEM_DRAWING_RECTFANGLE_AB__ -
branch/egtra-gdiplus/Classes/System/Drawing/RectangleF.ab
r212 r241 4 4 #define __SYSTEM_DRAWING_RECTANGLEF_AB__ 5 5 6 #include <Classes/System/Math.ab> 7 #include <Classes/System/Drawing/PointF.ab> 8 #include <Classes/System/Drawing/SizeF.ab> 6 #require <Classes/System/Math.ab> 7 #require <Classes/System/Drawing/PointF.ab> 8 #require <Classes/System/Drawing/SizeF.ab> 9 10 Namespace System 11 Namespace Drawing 9 12 10 13 Class RectangleF … … 112 115 End If 113 116 End Function 114 /* 115 Function Operator =(ByRef rc As RectangleF) 116 With rc 117 x = .x 118 y = .y 119 width = .width 120 height = .height 121 End With 122 End Function 123 */ 117 124 118 Function Operator ==(rc As RectangleF) 125 119 Return Equals(rc) … … 185 179 This = RectangleF.Intersect(This, rect) 186 180 End Sub 187 181 188 182 Static Function Intersect(a As RectangleF, b As RectangleF) As RectangleF 189 183 Dim right As Single, bottom As Single, left As Single, top As Single … … 231 225 End Class 232 226 227 End Namespace 'Drawing 228 End Namespace 'System 229 233 230 #endif '__SYSTEM_DRAWING_RECTFANGLE_AB__ -
branch/egtra-gdiplus/Classes/System/Drawing/Size.ab
r223 r241 4 4 #define __SYSTEM_DRAWING_SIZE_AB__ 5 5 6 #include <Classes/System/Math.ab> 7 #include <Classes/System/Drawing/SizeF.ab> 6 #require <Classes/System/Math.ab> 7 #require <Classes/System/Drawing/SizeF.ab> 8 9 Namespace System 10 Namespace Drawing 8 11 9 12 Class Size … … 62 65 Return Not Equals(sz) 63 66 End Function 64 /* 65 Sub Operator =(ByRef sz As Size) 66 width = sz.width 67 height = sz.height 68 End Sub 69 */ 67 70 68 Function Equals(sz As Size) As Boolean 71 69 If width = sz.width And height = sz.height Then … … 112 110 End Class 113 111 112 End Namespace 'Drawing 113 End Namespace 'System 114 114 115 #endif '__SYSTEM_DRAWING_SIZE_AB__ -
branch/egtra-gdiplus/Classes/System/Drawing/SizeF.ab
r223 r241 4 4 #define __SYSTEM_DRAWING_SIZEF_AB__ 5 5 6 #include <Classes/System/Drawing/Size.ab> 7 #include <Classes/System/Drawing/PointF.ab> 6 #require <Classes/System/Drawing/Size.ab> 7 #require <Classes/System/Drawing/PointF.ab> 8 9 Namespace System 10 Namespace Drawing 8 11 9 12 Class SizeF … … 57 60 Return Not Equals(sz) 58 61 End Function 59 /* 60 Sub Operator =(ByRef sz As SizeF) 61 width = sz.width 62 height = sz.height 63 End Sub 64 */ 62 65 63 Function Equals(sz As SizeF) As Boolean 66 64 Return width = sz.width And height = sz.height … … 91 89 Return pt 92 90 End Function 91 93 92 Private 94 93 width As Single … … 96 95 End Class 97 96 97 End Namespace 'Drawing 98 End Namespace 'System 99 98 100 #endif '__SYSTEM_DRAWING_SIZEF_AB__ -
branch/egtra-gdiplus/Classes/System/Drawing/misc.ab
r137 r241 3 3 #ifndef __SYSTEM_DRAWING_MISC_AB__ 4 4 #define __SYSTEM_DRAWING_MISC_AB__ 5 6 Namespace System 7 Namespace Drawing 5 8 6 9 Enum RotateFlipType … … 44 47 End Enum 45 48 49 End Namespace 'Drawing 50 End Namespace 'System 46 51 47 52 #endif '__SYSTEM_DRAWING_MISC_AB__ -
branch/egtra-gdiplus/GdiPlus.ab
r119 r241 4 4 #define GDIPLUS_AB 5 5 6 Namespace Gdiplu 6 7 Declare Function GdipAlloc Lib "Gdiplus.dll" (size As SIZE_T) As VoidPtr 7 8 Declare Sub GdipFree Lib "Gdiplus.dll" (ptr As VoidPtr) … … 10 11 'これにはC++の配置new (placement new)が使われているので、実装を保留する。 11 12 End Class 13 14 End Namespace 12 15 13 16 #include <GdiplusEnums.ab> -
branch/egtra-gdiplus/GdiPlusEnums.ab
r33 r241 26 26 End Enum 27 27 28 Const Enum HatchStyle29 HatchStyleHorizontal ' 030 HatchStyleVertical ' 131 HatchStyleForwardDiagonal ' 232 HatchStyleBackwardDiagonal ' 333 HatchStyleCross ' 434 HatchStyleDiagonalCross ' 535 HatchStyle05Percent ' 636 HatchStyle10Percent ' 737 HatchStyle20Percent ' 838 HatchStyle25Percent ' 939 HatchStyle30Percent ' 1040 HatchStyle40Percent ' 1141 HatchStyle50Percent ' 1242 HatchStyle60Percent ' 1343 HatchStyle70Percent ' 1444 HatchStyle75Percent ' 1545 HatchStyle80Percent ' 1646 HatchStyle90Percent ' 1747 HatchStyleLightDownwardDiagonal ' 1848 HatchStyleLightUpwardDiagonal ' 1949 HatchStyleDarkDownwardDiagonal ' 2050 HatchStyleDarkUpwardDiagonal ' 2151 HatchStyleWideDownwardDiagonal ' 2252 HatchStyleWideUpwardDiagonal ' 2353 HatchStyleLightVertical ' 2454 HatchStyleLightHorizontal ' 2555 HatchStyleNarrowVertical ' 2656 HatchStyleNarrowHorizontal ' 2757 HatchStyleDarkVertical ' 2858 HatchStyleDarkHorizontal ' 2959 HatchStyleDashedDownwardDiagonal ' 3060 HatchStyleDashedUpwardDiagonal ' 3161 HatchStyleDashedHorizontal ' 3262 HatchStyleDashedVertical ' 3363 HatchStyleSmallConfetti ' 3464 HatchStyleLargeConfetti ' 3565 HatchStyleZigZag ' 3666 HatchStyleWave ' 3767 HatchStyleDiagonalBrick ' 3868 HatchStyleHorizontalBrick ' 3969 HatchStyleWeave ' 4070 HatchStylePlaid ' 4171 HatchStyleDivot ' 4272 HatchStyleDottedGrid ' 4373 HatchStyleDottedDiamond ' 4474 HatchStyleShingle ' 4575 HatchStyleTrellis ' 4676 HatchStyleSphere ' 4777 HatchStyleSmallGrid ' 4878 HatchStyleSmallCheckerBoard ' 4979 HatchStyleLargeCheckerBoard ' 5080 HatchStyleOutlinedDiamond ' 5181 HatchStyleSolidDiamond ' 5282 83 HatchStyleTotal84 ' HatchStyleLargeGrid = HatchStyleCross ' 485 86 ' HatchStyleMin = HatchStyleHorizontal87 ' HatchStyleMax = HatchStyleTotal - 188 End Enum89 90 28 Const Enum DashStyle 91 29 DashStyleSolid ' 0 … … 97 35 End Enum 98 36 99 Const Enum DashCap100 DashCapFlat = 0101 DashCapRound = 2102 DashCapTriangle = 3103 End Enum104 105 Const Enum LineCap106 LineCapFlat = 0107 LineCapSquare = 1108 LineCapRound = 2109 LineCapTriangle = 3110 111 LineCapNoAnchor = &h10112 LineCapSquareAnchor = &h11113 LineCapRoundAnchor = &h12114 LineCapDiamondAnchor = &h13115 LineCapArrowAnchor = &h14116 117 LineCapCustom = &hff118 119 LineCapAnchorMask = &hf0120 End Enum121 122 37 Const Enum CustomLineCapType 123 38 CustomLineCapTypeDefault = 0 124 39 CustomLineCapTypeAdjustableArrow = 1 125 End Enum126 127 Const Enum LineJoin128 LineJoinMiter = 0129 LineJoinBevel = 1130 LineJoinRound = 2131 LineJoinMiterClipped = 3132 40 End Enum 133 41 … … 143 51 End Enum 144 52 145 Const Enum WarpMode146 WarpModePerspective ' 0147 WarpModeBilinear ' 1148 End Enum149 150 Const Enum LinearGradientMode151 LinearGradientModeHorizontal ' 0152 LinearGradientModeVertical ' 1153 LinearGradientModeForwardDiagonal ' 2154 LinearGradientModeBackwardDiagonal ' 3155 End Enum156 157 53 Const Enum ImageType 158 54 ImageTypeUnknown ' 0 159 55 ImageTypeBitmap ' 1 160 56 ImageTypeMetafile ' 2 161 End Enum162 163 Const Enum PenAlignment164 PenAlignmentCenter = 0165 PenAlignmentInset = 1166 57 End Enum 167 58 … … 172 63 BrushTypePathGradient = 3 173 64 BrushTypeLinearGradient = 4 174 End Enum175 176 Const Enum PenType177 PenTypeSolidColor = BrushTypeSolidColor178 PenTypeHatchFill = BrushTypeHatchFill179 PenTypeTextureFill = BrushTypeTextureFill180 PenTypePathGradient = BrushTypePathGradient181 PenTypeLinearGradient = BrushTypeLinearGradient182 PenTypeUnknown = -1183 65 End Enum 184 66 … … 230 112 231 113 Const ObjectTypeIsValid(type_) = (type_ >= ObjectTypeMin) And (type_ <= ObjectTypeMax) 232 233 Const GDIP_EMFPLUS_RECORD_BASE = &h00004000234 Const GDIP_WMF_RECORD_BASE = &h00010000235 Const GDIP_WMF_RECORD_TO_EMFPLUS(n) = ((n) Or GDIP_WMF_RECORD_BASE) ' As EmfPlusRecordType236 Const GDIP_EMFPLUS_RECORD_TO_WMF(n) = ((n) And (Not GDIP_WMF_RECORD_BASE))237 'Const GDIP_IS_WMF_RECORDTYPE(n) (((n) And GDIP_WMF_RECORD_BASE) <> 0)238 Function GDIP_IS_WMF_RECORDTYPE(n As DWord) As BOOL239 If (n And GDIP_WMF_RECORD_BASE) <> 0 Then240 GDIP_IS_WMF_RECORDTYPE = TRUE241 Else242 GDIP_IS_WMF_RECORDTYPE = FALSE243 End If244 End Function245 246 Const Enum EmfPlusRecordType247 /*248 WmfRecordTypeSetBkColor = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETBKCOLOR)249 WmfRecordTypeSetBkMode = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETBKMODE)250 WmfRecordTypeSetMapMode = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETMAPMODE)251 WmfRecordTypeSetROP2 = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETROP2)252 WmfRecordTypeSetRelAbs = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETRELABS)253 WmfRecordTypeSetPolyFillMode = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETPOLYFILLMODE)254 WmfRecordTypeSetStretchBltMode = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETSTRETCHBLTMODE)255 WmfRecordTypeSetTextCharExtra = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETTEXTCHAREXTRA)256 WmfRecordTypeSetTextColor = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETTEXTCOLOR)257 WmfRecordTypeSetTextJustification = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETTEXTJUSTIFICATION)258 WmfRecordTypeSetWindowOrg = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETWINDOWORG)259 WmfRecordTypeSetWindowExt = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETWINDOWEXT)260 WmfRecordTypeSetViewportOrg = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETVIEWPORTORG)261 WmfRecordTypeSetViewportExt = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETVIEWPORTEXT)262 WmfRecordTypeOffsetWindowOrg = GDIP_WMF_RECORD_TO_EMFPLUS(META_OFFSETWINDOWORG)263 WmfRecordTypeScaleWindowExt = GDIP_WMF_RECORD_TO_EMFPLUS(META_SCALEWINDOWEXT)264 WmfRecordTypeOffsetViewportOrg = GDIP_WMF_RECORD_TO_EMFPLUS(META_OFFSETVIEWPORTORG)265 WmfRecordTypeScaleViewportExt = GDIP_WMF_RECORD_TO_EMFPLUS(META_SCALEVIEWPORTEXT)266 WmfRecordTypeLineTo = GDIP_WMF_RECORD_TO_EMFPLUS(META_LINETO)267 WmfRecordTypeMoveTo = GDIP_WMF_RECORD_TO_EMFPLUS(META_MOVETO)268 WmfRecordTypeExcludeClipRect = GDIP_WMF_RECORD_TO_EMFPLUS(META_EXCLUDECLIPRECT)269 WmfRecordTypeIntersectClipRect = GDIP_WMF_RECORD_TO_EMFPLUS(META_INTERSECTCLIPRECT)270 WmfRecordTypeArc = GDIP_WMF_RECORD_TO_EMFPLUS(META_ARC)271 WmfRecordTypeEllipse = GDIP_WMF_RECORD_TO_EMFPLUS(META_ELLIPSE)272 WmfRecordTypeFloodFill = GDIP_WMF_RECORD_TO_EMFPLUS(META_FLOODFILL)273 WmfRecordTypePie = GDIP_WMF_RECORD_TO_EMFPLUS(META_PIE)274 WmfRecordTypeRectangle = GDIP_WMF_RECORD_TO_EMFPLUS(META_RECTANGLE)275 WmfRecordTypeRoundRect = GDIP_WMF_RECORD_TO_EMFPLUS(META_ROUNDRECT)276 WmfRecordTypePatBlt = GDIP_WMF_RECORD_TO_EMFPLUS(META_PATBLT)277 WmfRecordTypeSaveDC = GDIP_WMF_RECORD_TO_EMFPLUS(META_SAVEDC)278 WmfRecordTypeSetPixel = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETPIXEL)279 WmfRecordTypeOffsetClipRgn = GDIP_WMF_RECORD_TO_EMFPLUS(META_OFFSETCLIPRGN)280 WmfRecordTypeTextOut = GDIP_WMF_RECORD_TO_EMFPLUS(META_TEXTOUT)281 WmfRecordTypeBitBlt = GDIP_WMF_RECORD_TO_EMFPLUS(META_BITBLT)282 WmfRecordTypeStretchBlt = GDIP_WMF_RECORD_TO_EMFPLUS(META_STRETCHBLT)283 WmfRecordTypePolygon = GDIP_WMF_RECORD_TO_EMFPLUS(META_POLYGON)284 WmfRecordTypePolyline = GDIP_WMF_RECORD_TO_EMFPLUS(META_POLYLINE)285 WmfRecordTypeEscape = GDIP_WMF_RECORD_TO_EMFPLUS(META_ESCAPE)286 WmfRecordTypeRestoreDC = GDIP_WMF_RECORD_TO_EMFPLUS(META_RESTOREDC)287 WmfRecordTypeFillRegion = GDIP_WMF_RECORD_TO_EMFPLUS(META_FILLREGION)288 WmfRecordTypeFrameRegion = GDIP_WMF_RECORD_TO_EMFPLUS(META_FRAMEREGION)289 WmfRecordTypeInvertRegion = GDIP_WMF_RECORD_TO_EMFPLUS(META_INVERTREGION)290 WmfRecordTypePaintRegion = GDIP_WMF_RECORD_TO_EMFPLUS(META_PAINTREGION)291 WmfRecordTypeSelectClipRegion = GDIP_WMF_RECORD_TO_EMFPLUS(META_SELECTCLIPREGION)292 WmfRecordTypeSelectObject = GDIP_WMF_RECORD_TO_EMFPLUS(META_SELECTOBJECT)293 WmfRecordTypeSetTextAlign = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETTEXTALIGN)294 WmfRecordTypeDrawText = GDIP_WMF_RECORD_TO_EMFPLUS(&h062F) ' META_DRAWTEXT295 WmfRecordTypeChord = GDIP_WMF_RECORD_TO_EMFPLUS(META_CHORD)296 WmfRecordTypeSetMapperFlags = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETMAPPERFLAGS)297 WmfRecordTypeExtTextOut = GDIP_WMF_RECORD_TO_EMFPLUS(META_EXTTEXTOUT)298 WmfRecordTypeSetDIBToDev = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETDIBTODEV)299 WmfRecordTypeSelectPalette = GDIP_WMF_RECORD_TO_EMFPLUS(META_SELECTPALETTE)300 WmfRecordTypeRealizePalette = GDIP_WMF_RECORD_TO_EMFPLUS(META_REALIZEPALETTE)301 WmfRecordTypeAnimatePalette = GDIP_WMF_RECORD_TO_EMFPLUS(META_ANIMATEPALETTE)302 WmfRecordTypeSetPalEntries = GDIP_WMF_RECORD_TO_EMFPLUS(META_SETPALENTRIES)303 WmfRecordTypePolyPolygon = GDIP_WMF_RECORD_TO_EMFPLUS(META_POLYPOLYGON)304 WmfRecordTypeResizePalette = GDIP_WMF_RECORD_TO_EMFPLUS(META_RESIZEPALETTE)305 WmfRecordTypeDIBBitBlt = GDIP_WMF_RECORD_TO_EMFPLUS(META_DIBBITBLT)306 WmfRecordTypeDIBStretchBlt = GDIP_WMF_RECORD_TO_EMFPLUS(META_DIBSTRETCHBLT)307 WmfRecordTypeDIBCreatePatternBrush = GDIP_WMF_RECORD_TO_EMFPLUS(META_DIBCREATEPATTERNBRUSH)308 WmfRecordTypeStretchDIB = GDIP_WMF_RECORD_TO_EMFPLUS(META_STRETCHDIB)309 WmfRecordTypeExtFloodFill = GDIP_WMF_RECORD_TO_EMFPLUS(META_EXTFLOODFILL)310 WmfRecordTypeSetLayout = GDIP_WMF_RECORD_TO_EMFPLUS(&h0149) ' META_SETLAYOUT311 WmfRecordTypeResetDC = GDIP_WMF_RECORD_TO_EMFPLUS(&h014C) ' META_RESETDC312 WmfRecordTypeStartDoc = GDIP_WMF_RECORD_TO_EMFPLUS(&h014D) ' META_STARTDOC313 WmfRecordTypeStartPage = GDIP_WMF_RECORD_TO_EMFPLUS(&h004F) ' META_STARTPAGE314 WmfRecordTypeEndPage = GDIP_WMF_RECORD_TO_EMFPLUS(&h0050) ' META_ENDPAGE315 WmfRecordTypeAbortDoc = GDIP_WMF_RECORD_TO_EMFPLUS(&h0052) ' META_ABORTDOC316 WmfRecordTypeEndDoc = GDIP_WMF_RECORD_TO_EMFPLUS(&h005E) ' META_ENDDOC317 WmfRecordTypeDeleteObject = GDIP_WMF_RECORD_TO_EMFPLUS(META_DELETEOBJECT)318 WmfRecordTypeCreatePalette = GDIP_WMF_RECORD_TO_EMFPLUS(META_CREATEPALETTE)319 WmfRecordTypeCreateBrush = GDIP_WMF_RECORD_TO_EMFPLUS(&h00F8) ' META_CREATEBRUSH320 WmfRecordTypeCreatePatternBrush = GDIP_WMF_RECORD_TO_EMFPLUS(META_CREATEPATTERNBRUSH)321 WmfRecordTypeCreatePenIndirect = GDIP_WMF_RECORD_TO_EMFPLUS(META_CREATEPENINDIRECT)322 WmfRecordTypeCreateFontIndirect = GDIP_WMF_RECORD_TO_EMFPLUS(META_CREATEFONTINDIRECT)323 WmfRecordTypeCreateBrushIndirect = GDIP_WMF_RECORD_TO_EMFPLUS(META_CREATEBRUSHINDIRECT)324 WmfRecordTypeCreateBitmapIndirect = GDIP_WMF_RECORD_TO_EMFPLUS(&h02FD) ' META_CREATEBITMAPINDIRECT325 WmfRecordTypeCreateBitmap = GDIP_WMF_RECORD_TO_EMFPLUS(&h06FE) ' META_CREATEBITMAP326 WmfRecordTypeCreateRegion = GDIP_WMF_RECORD_TO_EMFPLUS(META_CREATEREGION)327 328 EmfRecordTypeHeader = EMR_HEADER329 EmfRecordTypePolyBezier = EMR_POLYBEZIER330 EmfRecordTypePolygon = EMR_POLYGON331 EmfRecordTypePolyline = EMR_POLYLINE332 EmfRecordTypePolyBezierTo = EMR_POLYBEZIERTO333 EmfRecordTypePolyLineTo = EMR_POLYLINETO334 EmfRecordTypePolyPolyline = EMR_POLYPOLYLINE335 EmfRecordTypePolyPolygon = EMR_POLYPOLYGON336 EmfRecordTypeSetWindowExtEx = EMR_SETWINDOWEXTEX337 EmfRecordTypeSetWindowOrgEx = EMR_SETWINDOWORGEX338 EmfRecordTypeSetViewportExtEx = EMR_SETVIEWPORTEXTEX339 EmfRecordTypeSetViewportOrgEx = EMR_SETVIEWPORTORGEX340 EmfRecordTypeSetBrushOrgEx = EMR_SETBRUSHORGEX341 EmfRecordTypeEOF = EMR_EOF342 EmfRecordTypeSetPixelV = EMR_SETPIXELV343 EmfRecordTypeSetMapperFlags = EMR_SETMAPPERFLAGS344 EmfRecordTypeSetMapMode = EMR_SETMAPMODE345 EmfRecordTypeSetBkMode = EMR_SETBKMODE346 EmfRecordTypeSetPolyFillMode = EMR_SETPOLYFILLMODE347 EmfRecordTypeSetROP2 = EMR_SETROP2348 EmfRecordTypeSetStretchBltMode = EMR_SETSTRETCHBLTMODE349 EmfRecordTypeSetTextAlign = EMR_SETTEXTALIGN350 EmfRecordTypeSetColorAdjustment = EMR_SETCOLORADJUSTMENT351 EmfRecordTypeSetTextColor = EMR_SETTEXTCOLOR352 EmfRecordTypeSetBkColor = EMR_SETBKCOLOR353 EmfRecordTypeOffsetClipRgn = EMR_OFFSETCLIPRGN354 EmfRecordTypeMoveToEx = EMR_MOVETOEX355 EmfRecordTypeSetMetaRgn = EMR_SETMETARGN356 EmfRecordTypeExcludeClipRect = EMR_EXCLUDECLIPRECT357 EmfRecordTypeIntersectClipRect = EMR_INTERSECTCLIPRECT358 EmfRecordTypeScaleViewportExtEx = EMR_SCALEVIEWPORTEXTEX359 EmfRecordTypeScaleWindowExtEx = EMR_SCALEWINDOWEXTEX360 EmfRecordTypeSaveDC = EMR_SAVEDC361 EmfRecordTypeRestoreDC = EMR_RESTOREDC362 EmfRecordTypeSetWorldTransform = EMR_SETWORLDTRANSFORM363 EmfRecordTypeModifyWorldTransform = EMR_MODIFYWORLDTRANSFORM364 EmfRecordTypeSelectObject = EMR_SELECTOBJECT365 EmfRecordTypeCreatePen = EMR_CREATEPEN366 EmfRecordTypeCreateBrushIndirect = EMR_CREATEBRUSHINDIRECT367 EmfRecordTypeDeleteObject = EMR_DELETEOBJECT368 EmfRecordTypeAngleArc = EMR_ANGLEARC369 EmfRecordTypeEllipse = EMR_ELLIPSE370 EmfRecordTypeRectangle = EMR_RECTANGLE371 EmfRecordTypeRoundRect = EMR_ROUNDRECT372 EmfRecordTypeArc = EMR_ARC373 EmfRecordTypeChord = EMR_CHORD374 EmfRecordTypePie = EMR_PIE375 EmfRecordTypeSelectPalette = EMR_SELECTPALETTE376 EmfRecordTypeCreatePalette = EMR_CREATEPALETTE377 EmfRecordTypeSetPaletteEntries = EMR_SETPALETTEENTRIES378 EmfRecordTypeResizePalette = EMR_RESIZEPALETTE379 EmfRecordTypeRealizePalette = EMR_REALIZEPALETTE380 EmfRecordTypeExtFloodFill = EMR_EXTFLOODFILL381 EmfRecordTypeLineTo = EMR_LINETO382 EmfRecordTypeArcTo = EMR_ARCTO383 EmfRecordTypePolyDraw = EMR_POLYDRAW384 EmfRecordTypeSetArcDirection = EMR_SETARCDIRECTION385 EmfRecordTypeSetMiterLimit = EMR_SETMITERLIMIT386 EmfRecordTypeBeginPath = EMR_BEGINPATH387 EmfRecordTypeEndPath = EMR_ENDPATH388 EmfRecordTypeCloseFigure = EMR_CLOSEFIGURE389 EmfRecordTypeFillPath = EMR_FILLPATH390 EmfRecordTypeStrokeAndFillPath = EMR_STROKEANDFILLPATH391 EmfRecordTypeStrokePath = EMR_STROKEPATH392 EmfRecordTypeFlattenPath = EMR_FLATTENPATH393 EmfRecordTypeWidenPath = EMR_WIDENPATH394 EmfRecordTypeSelectClipPath = EMR_SELECTCLIPPATH395 EmfRecordTypeAbortPath = EMR_ABORTPATH396 EmfRecordTypeReserved_069 = 69 ' Not Used397 EmfRecordTypeGdiComment = EMR_GDICOMMENT398 EmfRecordTypeFillRgn = EMR_FILLRGN399 EmfRecordTypeFrameRgn = EMR_FRAMERGN400 EmfRecordTypeInvertRgn = EMR_INVERTRGN401 EmfRecordTypePaintRgn = EMR_PAINTRGN402 EmfRecordTypeExtSelectClipRgn = EMR_EXTSELECTCLIPRGN403 EmfRecordTypeBitBlt = EMR_BITBLT404 EmfRecordTypeStretchBlt = EMR_STRETCHBLT405 EmfRecordTypeMaskBlt = EMR_MASKBLT406 EmfRecordTypePlgBlt = EMR_PLGBLT407 EmfRecordTypeSetDIBitsToDevice = EMR_SETDIBITSTODEVICE408 EmfRecordTypeStretchDIBits = EMR_STRETCHDIBITS409 EmfRecordTypeExtCreateFontIndirect = EMR_EXTCREATEFONTINDIRECTW410 EmfRecordTypeExtTextOutA = EMR_EXTTEXTOUTA411 EmfRecordTypeExtTextOutW = EMR_EXTTEXTOUTW412 EmfRecordTypePolyBezier16 = EMR_POLYBEZIER16413 EmfRecordTypePolygon16 = EMR_POLYGON16414 EmfRecordTypePolyline16 = EMR_POLYLINE16415 EmfRecordTypePolyBezierTo16 = EMR_POLYBEZIERTO16416 EmfRecordTypePolylineTo16 = EMR_POLYLINETO16417 EmfRecordTypePolyPolyline16 = EMR_POLYPOLYLINE16418 EmfRecordTypePolyPolygon16 = EMR_POLYPOLYGON16419 EmfRecordTypePolyDraw16 = EMR_POLYDRAW16420 EmfRecordTypeCreateMonoBrush = EMR_CREATEMONOBRUSH421 EmfRecordTypeCreateDIBPatternBrushPt = EMR_CREATEDIBPATTERNBRUSHPT422 EmfRecordTypeExtCreatePen = EMR_EXTCREATEPEN423 EmfRecordTypePolyTextOutA = EMR_POLYTEXTOUTA424 EmfRecordTypePolyTextOutW = EMR_POLYTEXTOUTW425 EmfRecordTypeSetICMMode = 98 ' EMR_SETICMMODE426 EmfRecordTypeCreateColorSpace = 99 ' EMR_CREATECOLORSPACE427 EmfRecordTypeSetColorSpace = 100 ' EMR_SETCOLORSPACE428 EmfRecordTypeDeleteColorSpace = 101 ' EMR_DELETECOLORSPACE429 EmfRecordTypeGLSRecord = 102 ' EMR_GLSRECORD430 EmfRecordTypeGLSBoundedRecord = 103 ' EMR_GLSBOUNDEDRECORD431 EmfRecordTypePixelFormat = 104 ' EMR_PIXELFORMAT432 EmfRecordTypeDrawEscape = 105 ' EMR_RESERVED_105433 EmfRecordTypeExtEscape = 106 ' EMR_RESERVED_106434 EmfRecordTypeStartDoc = 107 ' EMR_RESERVED_107435 EmfRecordTypeSmallTextOut = 108 ' EMR_RESERVED_108436 EmfRecordTypeForceUFIMapping = 109 ' EMR_RESERVED_109437 EmfRecordTypeNamedEscape = 110 ' EMR_RESERVED_110438 EmfRecordTypeColorCorrectPalette = 111 ' EMR_COLORCORRECTPALETTE439 EmfRecordTypeSetICMProfileA = 112 ' EMR_SETICMPROFILEA440 EmfRecordTypeSetICMProfileW = 113 ' EMR_SETICMPROFILEW441 EmfRecordTypeAlphaBlend = 114 ' EMR_ALPHABLEND442 EmfRecordTypeSetLayout = 115 ' EMR_SETLAYOUT443 EmfRecordTypeTransparentBlt = 116 ' EMR_TRANSPARENTBLT444 EmfRecordTypeReserved_117 = 117 ' Not Used445 EmfRecordTypeGradientFill = 118 ' EMR_GRADIENTFILL446 EmfRecordTypeSetLinkedUFIs = 119 ' EMR_RESERVED_119447 EmfRecordTypeSetTextJustification = 120 ' EMR_RESERVED_120448 EmfRecordTypeColorMatchToTargetW = 121 ' EMR_COLORMATCHTOTARGETW449 EmfRecordTypeCreateColorSpaceW = 122 ' EMR_CREATECOLORSPACEW450 EmfRecordTypeMax = 122451 EmfRecordTypeMin = 1452 453 EmfPlusRecordTypeInvalid = GDIP_EMFPLUS_RECORD_BASE454 EmfPlusRecordTypeHeader455 EmfPlusRecordTypeEndOfFile456 457 EmfPlusRecordTypeComment458 459 EmfPlusRecordTypeGetDC460 461 EmfPlusRecordTypeMultiFormatStart462 EmfPlusRecordTypeMultiFormatSection463 EmfPlusRecordTypeMultiFormatEnd464 465 EmfPlusRecordTypeObject466 467 EmfPlusRecordTypeClear468 EmfPlusRecordTypeFillRects469 EmfPlusRecordTypeDrawRects470 EmfPlusRecordTypeFillPolygon471 EmfPlusRecordTypeDrawLines472 EmfPlusRecordTypeFillEllipse473 EmfPlusRecordTypeDrawEllipse474 EmfPlusRecordTypeFillPie475 EmfPlusRecordTypeDrawPie476 EmfPlusRecordTypeDrawArc477 EmfPlusRecordTypeFillRegion478 EmfPlusRecordTypeFillPath479 EmfPlusRecordTypeDrawPath480 EmfPlusRecordTypeFillClosedCurve481 EmfPlusRecordTypeDrawClosedCurve482 EmfPlusRecordTypeDrawCurve483 EmfPlusRecordTypeDrawBeziers484 EmfPlusRecordTypeDrawImage485 EmfPlusRecordTypeDrawImagePoints486 EmfPlusRecordTypeDrawString487 488 EmfPlusRecordTypeSetRenderingOrigin489 EmfPlusRecordTypeSetAntiAliasMode490 EmfPlusRecordTypeSetTextRenderingHint491 EmfPlusRecordTypeSetTextContrast492 EmfPlusRecordTypeSetInterpolationMode493 EmfPlusRecordTypeSetPixelOffsetMode494 EmfPlusRecordTypeSetCompositingMode495 EmfPlusRecordTypeSetCompositingQuality496 EmfPlusRecordTypeSave497 EmfPlusRecordTypeRestore498 EmfPlusRecordTypeBeginContainer499 EmfPlusRecordTypeBeginContainerNoParams500 EmfPlusRecordTypeEndContainer501 EmfPlusRecordTypeSetWorldTransform502 EmfPlusRecordTypeResetWorldTransform503 EmfPlusRecordTypeMultiplyWorldTransform504 EmfPlusRecordTypeTranslateWorldTransform505 EmfPlusRecordTypeScaleWorldTransform506 EmfPlusRecordTypeRotateWorldTransform507 EmfPlusRecordTypeSetPageTransform508 EmfPlusRecordTypeResetClip509 EmfPlusRecordTypeSetClipRect510 EmfPlusRecordTypeSetClipPath511 EmfPlusRecordTypeSetClipRegion512 EmfPlusRecordTypeOffsetClip513 514 EmfPlusRecordTypeDrawDriverString515 516 EmfPlusRecordTotal517 518 EmfPlusRecordTypeMax = EmfPlusRecordTotal-1519 EmfPlusRecordTypeMin = EmfPlusRecordTypeHeader */520 End Enum521 114 522 115 Const Enum StringFormatFlags -
branch/egtra-gdiplus/GdiPlusFlat.ab
r119 r241 12 12 13 13 TypeDef PDirectDrawSurface7 = VoidPtr '*IDirectDrawSurface7 14 15 Namespace Gdiplus 16 Namespace DllExprots 14 17 15 18 ' GraphicsPath APIs … … 666 669 Declare Sub GdiplusNotificationUnhook Lib "gdiplus.dll" (ByVal token As ULONG_PTR) 667 670 671 End Namespace 'DllExports 672 End Namespace 'Gdiplus 673 668 674 #endif '__GDIPLUS_FLATAPI_AB__ -
branch/egtra-gdiplus/GdiPlusGpStubs.ab
r119 r241 9 9 #require <Classes/System/Drawing/Drawing2D/Matrix.ab> 10 10 11 Class GpGraphics 12 End Class 11 Namespace Gdiplus 13 12 14 Class GpBrush 15 End Class 16 Class GpTexture 17 Inherits GpBrush 18 End Class 19 Class GpSolidFill 20 Inherits GpBrush 21 End Class 22 Class GpLineGradient 23 Inherits GpBrush 24 End Class 25 Class GpPathGradient 26 Inherits GpBrush 27 End Class 28 Class GpHatch 29 Inherits GpBrush 30 End Class 13 Type GpGraphics 14 End Type 31 15 32 Class GpPen 33 End Class 34 Class GpCustomLineCap 35 End Class 36 Class GpAdjustableArrowCap 37 Inherits GpCustomLineCap 38 End Class 16 Type GpBrush 17 End Type 18 Type GpTexture 19 ' Inherits GpBrush 20 End Type 21 Type GpSolidFill 22 ' Inherits GpBrush 23 End Type 24 Type GpLineGradient 25 ' Inherits GpBrush 26 End Type 27 Type GpPathGradient 28 ' Inherits GpBrush 29 End Type 30 Type GpHatch 31 ' Inherits GpBrush 32 End Type 39 33 40 Class GpImage 41 End Class 42 Class GpBitmap 43 Inherits GpImage 44 End Class 45 Class GpMetafile 46 Inherits GpImage 47 End Class 48 Class GpImageAttributes 49 End Class 34 Type GpPen 35 End Type 36 Type GpCustomLineCap 37 End Type 38 Type GpAdjustableArrowCap 39 ' Inherits GpCustomLineCap 40 End Type 50 41 51 Class GpPath 52 End Class 53 Class GpRegion 54 End Class 55 Class GpPathIterator 56 End Class 42 Type GpImage 43 End Type 44 Type GpBitmap 45 ' Inherits GpImage 46 End Type 47 Type GpMetafile 48 ' Inherits GpImage 49 End Type 50 Type GpImageAttributes 51 End Type 57 52 58 Class GpFontFamily 59 End Class 60 Class GpFont 61 End Class 62 Class GpStringFormat 63 End Class 64 Class GpFontCollection 65 End Class 66 Class GpInstalledFontCollection 67 Inherits GpFontCollection 68 End Class 69 Class GpPrivateFontCollection 70 Inherits GpFontCollection 71 End Class 53 Type GpPath 54 End Type 55 Type GpRegion 56 End Type 57 Type GpPathIterator 58 End Type 72 59 73 'Class GpCachedBitmap; 74 Class GpCachedBitmap 75 End Class 60 Type GpFontFamily 61 End Type 62 Type GpFont 63 End Type 64 Type GpStringFormat 65 End Type 66 Type GpFontCollection 67 End Type 68 Type GpInstalledFontCollection 69 ' Inherits GpFontCollection 70 End Type 71 Type GpPrivateFontCollection 72 ' Inherits GpFontCollection 73 End Type 76 74 77 TypeDef GpStatus = Status 78 TypeDef GpFillMode = FillMode 79 TypeDef GpWrapMode = WrapMode 80 TypeDef GpUnit = GraphicsUnit 81 TypeDef GpCoordinateSpace = CoordinateSpace 82 TypeDef GpPointF = PointF 83 TypeDef GpPoint = Point 84 TypeDef GpRectF = RectangleF 85 TypeDef GpRect = Rectangle 86 TypeDef GpSizeF = SizeF 87 TypeDef GpHatchStyle = HatchStyle 88 TypeDef GpDashStyle = DashStyle 89 TypeDef GpLineCap = LineCap 90 TypeDef GpDashCap = DashCap 75 'Type GpCachedBitmap; 76 Type GpCachedBitmap 77 End Type 78 79 TypeDef GpStatus = Gdiplus.Status 80 TypeDef GpFillMode = System.Drawing.Drawing2D.FillMode 81 TypeDef GpWrapMode = System.Drawing.Drawing2D.WrapMode 82 TypeDef GpUnit = System.Drawing.GraphicsUnit 83 TypeDef GpCoordinateSpace = System.Drawing.Drawing2D.CoordinateSpace 84 TypeDef GpPointF = System.Drawing.PointF 85 TypeDef GpPoint = System.Drawing.Point 86 TypeDef GpRectF = System.Drawing.RectangleF 87 TypeDef GpRect = System.Drawing.Rectangle 88 TypeDef GpSizeF = System.Drawing.SizeF 89 TypeDef GpHatchStyle = System.Drawing.Drawing2D.HatchStyle 90 TypeDef GpDashStyle = System.Drawing.Drawing2D.DashStyle 91 TypeDef GpLineCap = System.Drawing.Drawing2D.LineCap 92 TypeDef GpDashCap = System.Drawing.Drawing2D.DashCap 91 93 92 94 93 TypeDef GpPenAlignment = PenAlignment95 TypeDef GpPenAlignment = System.Drawing.Drawing2D.PenAlignment 94 96 95 TypeDef GpLineJoin = LineJoin96 TypeDef GpPenType = PenType97 TypeDef GpLineJoin = System.Drawing.Drawing2D.LineJoin 98 TypeDef GpPenType = System.Drawing.PenType 97 99 98 TypeDef GpMatrix = Matrix 100 'TypeDef GpMatrix = Matrix 101 Type GpMatrix 102 End Type 103 99 104 TypeDef GpBrushType = BrushType 100 TypeDef GpMatrixOrder = MatrixOrder101 TypeDef GpFlushIntention = FlushIntention105 TypeDef GpMatrixOrder = System.Drawing.Drawing2D.MatrixOrder 106 TypeDef GpFlushIntention = System.Drawing.Drawing2D.FlushIntention 102 107 TypeDef GpPathData = PathData 103 108 109 End Namespace 110 104 111 #endif '__GDIPLUSGPSTUBS_AB__ 105 -
branch/egtra-gdiplus/GdiPlusInit.ab
r77 r241 3 3 #ifndef __GDIPLUSINIT_AB__ 4 4 #define __GDIPLUSINIT_AB__ 5 6 Namespace Gdiplus 5 7 6 8 Enum DebugEventLevel … … 34 36 End Type 35 37 36 Declare Function GdiplusStartup Lib "Gdi Plus.dll" (38 Declare Function GdiplusStartup Lib "Gdiplus.dll" ( 37 39 /*OUT*/ ByRef token As ULONG_PTR, 38 40 ByRef input As GdiplusStartupInput, 39 41 /*OUT*/ ByVal output As *GdiplusStartupOutput) As Status 40 42 41 Declare Sub GdiplusShutdown Lib "GdiPlus.dll" (ByVal token As ULONG_PTR) 43 Declare Sub GdiplusShutdown Lib "Gdiplus.dll" (ByVal token As ULONG_PTR) 44 45 End Namespace 42 46 43 47 #endif '__GDIPLUSINIT_AB__ -
branch/egtra-gdiplus/GdiPlusTypes.ab
r13 r241 1 ' GdiPlusTypes. sbp1 ' GdiPlusTypes.ab 2 2 3 3 #ifndef __GDIPLUSTYPES_AB__ 4 4 #define __GDIPLUSTYPES_AB__ 5 5 6 #include <Classes/System/Math.ab> 6 #require <Classes/System/Math.ab> 7 #require <Classes/System/Drawing/Imaging/misc.ab> 8 9 #require <Classes/System/Drawing/SizeF.ab> 10 #require <Classes/System/Drawing/Size.ab> 11 #require <Classes/System/Drawing/PointF.ab> 12 #require <Classes/System/Drawing/Point.ab> 13 #require <Classes/System/Drawing/RectangleF.ab> 14 #require <Classes/System/Drawing/Rectangle.ab> 15 #require <Classes/System/Drawing/CharacterRange.ab> 16 17 Namespace Gdiplus 7 18 8 19 TypeDef ImageAbort = *Function(p As VoidPtr) As BOOL … … 10 21 TypeDef GetThumbnailImageAbort = ImageAbort 11 22 12 TypeDef EnumerateMetafileProc = *Function(recordType As EmfPlusRecordType, flags As DWord, dataSize As DWord, data As BytePtr, callbackData As VoidPtr) As BOOL23 TypeDef EnumerateMetafileProc = *Function(recordType As System.Drawing.Imaging.EmfPlusRecordType, flags As DWord, dataSize As DWord, data As BytePtr, callbackData As VoidPtr) As BOOL 13 24 14 25 'Const REAL_MAX = FLT_MAX … … 17 28 'Const REAL_EPSILON = 1.192092896e-07 'FLT_EPSILON 18 29 19 ConstEnum Status30 Enum Status 20 31 Ok = 0 21 32 GenericError = 1 … … 41 52 End Enum 42 53 43 #include <Classes/System/Drawing/SizeF.ab>44 #include <Classes/System/Drawing/Size.ab>45 #include <Classes/System/Drawing/PointF.ab>46 #include <Classes/System/Drawing/Point.ab>47 #include <Classes/System/Drawing/RectangleF.ab>48 #include <Classes/System/Drawing/Rectangle.ab>49 #include <Classes/System/Drawing/CharacterRange.ab>50 51 54 Class PathData 52 55 Public … … 77 80 Public 78 81 Count As Long 79 Points As * PointF82 Points As *System.Drawing.PointF 80 83 Types As *BYTE 81 84 End Class 82 85 86 ' -------- 87 88 TypeDef ARGB = DWord 89 TypeDef ARGB64 = QWord 90 91 Const ALPHA_SHIFT = 24 As DWord 92 Const RED_SHIFT = 16 As DWord 93 Const GREEN_SHIFT = 8 As DWord 94 Const BLUE_SHIFT = 0 As DWord 95 Const ALPHA_MASK = ((&hff As ARGB) << ALPHA_SHIFT) 96 97 Const GetPixelFormatSize(pixfmt) = ((((pixfmt As PixelFormat) >> 8) And &hff) As DWord) 98 99 Const IsIndexedPixelFormat(pixfmt) = ((((pixfmt As PixelFormat) And PixelFormat.Indexed) <> 0) As BOOL) 100 101 Const IsAlphaPixelFormat(pixfmt) = ((((pixfmt As PixelFormat) And PixelFormat.Alpha) <> 0) As BOOL) 102 103 Const IsExtendedPixelFormat(pixfmt) = ((((pixfmt As PixelFormat) And PixelFormat.Extended) <> 0) As BOOL) 104 105 Const IsCanonicalPixelFormat(pixfmt) = ((((pixfmt As PixelFormat) And PixelFormat.Canonical) <> 0) As BOOL) 106 107 Type Align(8) ColorPalette 108 Flags As DWord 109 Count As DWord 110 Entries[1] As ARGB 111 End Type 112 113 Type ColorMatrix 114 m[5][5] As Single 115 End Type 116 117 Type Align(8) EncoderParameter 118 Guid As GUID 119 NumberOfValues As DWord 120 EncoderType As DWord '元はTypeという名前 121 Value As VoidPtr 122 End Type 123 124 Type Align(8) EncoderParameters 125 Count As DWord 126 Parameter[1] As EncoderParameter 127 End Type 128 129 Const PropertyTagTypeByte = 1 130 Const PropertyTagTypeASCII = 2 131 Const PropertyTagTypeShort = 3 132 Const PropertyTagTypeLong = 4 133 Const PropertyTagTypeRational = 5 134 Const PropertyTagTypeUndefined = 7 135 Const PropertyTagTypeSLONG = 9 136 Const PropertyTagTypeSRational = 10 137 138 Const PropertyTagExifIFD = &h8769 139 Const PropertyTagGpsIFD = &h8825 140 141 Const PropertyTagNewSubfileType = &h00FE 142 Const PropertyTagSubfileType = &h00FF 143 Const PropertyTagImageWidth = &h0100 144 Const PropertyTagImageHeight = &h0101 145 Const PropertyTagBitsPerSample = &h0102 146 Const PropertyTagCompression = &h0103 147 Const PropertyTagPhotometricInterp = &h0106 148 Const PropertyTagThreshHolding = &h0107 149 Const PropertyTagCellWidth = &h0108 150 Const PropertyTagCellHeight = &h0109 151 Const PropertyTagFillOrder = &h010A 152 Const PropertyTagDocumentName = &h010D 153 Const PropertyTagImageDescription = &h010E 154 Const PropertyTagEquipMake = &h010F 155 Const PropertyTagEquipModel = &h0110 156 Const PropertyTagStripOffsets = &h0111 157 Const PropertyTagOrientation = &h0112 158 Const PropertyTagSamplesPerPixel = &h0115 159 Const PropertyTagRowsPerStrip = &h0116 160 Const PropertyTagStripBytesCount = &h0117 161 Const PropertyTagMinSampleValue = &h0118 162 Const PropertyTagMaxSampleValue = &h0119 163 Const PropertyTagXResolution = &h011A ' Image resolution in width direction 164 Const PropertyTagYResolution = &h011B ' Image resolution in height direction 165 Const PropertyTagPlanarConfig = &h011C ' Image data arrangement 166 Const PropertyTagPageName = &h011D 167 Const PropertyTagXPosition = &h011E 168 Const PropertyTagYPosition = &h011F 169 Const PropertyTagFreeOffset = &h0120 170 Const PropertyTagFreeByteCounts = &h0121 171 Const PropertyTagGrayResponseUnit = &h0122 172 Const PropertyTagGrayResponseCurve = &h0123 173 Const PropertyTagT4Option = &h0124 174 Const PropertyTagT6Option = &h0125 175 Const PropertyTagResolutionUnit = &h0128 ' Unit of X and Y resolution 176 Const PropertyTagPageNumber = &h0129 177 Const PropertyTagTransferFuncition = &h012D 178 Const PropertyTagSoftwareUsed = &h0131 179 Const PropertyTagDateTime = &h0132 180 Const PropertyTagArtist = &h013B 181 Const PropertyTagHostComputer = &h013C 182 Const PropertyTagPredictor = &h013D 183 Const PropertyTagWhitePoint = &h013E 184 Const PropertyTagPrimaryChromaticities = &h013F 185 Const PropertyTagColorMap = &h0140 186 Const PropertyTagHalftoneHints = &h0141 187 Const PropertyTagTileWidth = &h0142 188 Const PropertyTagTileLength = &h0143 189 Const PropertyTagTileOffset = &h0144 190 Const PropertyTagTileByteCounts = &h0145 191 Const PropertyTagInkSet = &h014C 192 Const PropertyTagInkNames = &h014D 193 Const PropertyTagNumberOfInks = &h014E 194 Const PropertyTagDotRange = &h0150 195 Const PropertyTagTargetPrinter = &h0151 196 Const PropertyTagExtraSamples = &h0152 197 Const PropertyTagSampleFormat = &h0153 198 Const PropertyTagSMinSampleValue = &h0154 199 Const PropertyTagSMaxSampleValue = &h0155 200 Const PropertyTagTransferRange = &h0156 201 202 Const PropertyTagJPEGProc = &h0200 203 Const PropertyTagJPEGInterFormat = &h0201 204 Const PropertyTagJPEGInterLength = &h0202 205 Const PropertyTagJPEGRestartInterval = &h0203 206 Const PropertyTagJPEGLosslessPredictors = &h0205 207 Const PropertyTagJPEGPointTransforms = &h0206 208 Const PropertyTagJPEGQTables = &h0207 209 Const PropertyTagJPEGDCTables = &h0208 210 Const PropertyTagJPEGACTables = &h0209 211 212 Const PropertyTagYCbCrCoefficients = &h0211 213 Const PropertyTagYCbCrSubsampling = &h0212 214 Const PropertyTagYCbCrPositioning = &h0213 215 Const PropertyTagREFBlackWhite = &h0214 216 217 Const PropertyTagICCProfile = &h8773 ' This TAG is defined by ICC 218 ' for embedded ICC in TIFF 219 Const PropertyTagGamma = &h0301 220 Const PropertyTagICCProfileDescriptor = &h0302 221 Const PropertyTagSRGBRenderingIntent = &h0303 222 223 Const PropertyTagImageTitle = &h0320 224 Const PropertyTagCopyright = &h8298 225 226 ' Extra TAGs (Like Adobe Image Information tags etc.) 227 228 Const PropertyTagResolutionXUnit = &h5001 229 Const PropertyTagResolutionYUnit = &h5002 230 Const PropertyTagResolutionXLengthUnit = &h5003 231 Const PropertyTagResolutionYLengthUnit = &h5004 232 Const PropertyTagPrintFlags = &h5005 233 Const PropertyTagPrintFlagsVersion = &h5006 234 Const PropertyTagPrintFlagsCrop = &h5007 235 Const PropertyTagPrintFlagsBleedWidth = &h5008 236 Const PropertyTagPrintFlagsBleedWidthScale = &h5009 237 Const PropertyTagHalftoneLPI = &h500A 238 Const PropertyTagHalftoneLPIUnit = &h500B 239 Const PropertyTagHalftoneDegree = &h500C 240 Const PropertyTagHalftoneShape = &h500D 241 Const PropertyTagHalftoneMisc = &h500E 242 Const PropertyTagHalftoneScreen = &h500F 243 Const PropertyTagJPEGQuality = &h5010 244 Const PropertyTagGridSize = &h5011 245 Const PropertyTagThumbnailFormat = &h5012 ' 1 = JPEG, 0 = RAW RGB 246 Const PropertyTagThumbnailWidth = &h5013 247 Const PropertyTagThumbnailHeight = &h5014 248 Const PropertyTagThumbnailColorDepth = &h5015 249 Const PropertyTagThumbnailPlanes = &h5016 250 Const PropertyTagThumbnailRawBytes = &h5017 251 Const PropertyTagThumbnailSize = &h5018 252 Const PropertyTagThumbnailCompressedSize = &h5019 253 Const PropertyTagColorTransferFunction = &h501A 254 Const PropertyTagThumbnailData = &h501B' RAW thumbnail bits in 255 ' JPEG format or RGB format 256 ' depends on 257 ' PropertyTagThumbnailFormat 258 259 ' Thumbnail related TAGs 260 261 Const PropertyTagThumbnailImageWidth = &h5020 ' Thumbnail width 262 Const PropertyTagThumbnailImageHeight = &h5021 ' Thumbnail height 263 Const PropertyTagThumbnailBitsPerSample = &h5022 ' Number of bits per 264 ' component 265 Const PropertyTagThumbnailCompression = &h5023 ' Compression Scheme 266 Const PropertyTagThumbnailPhotometricInterp = &h5024 ' Pixel composition 267 Const PropertyTagThumbnailImageDescription = &h5025 ' Image Tile 268 Const PropertyTagThumbnailEquipMake = &h5026 ' Manufacturer of Image 269 ' Input equipment 270 Const PropertyTagThumbnailEquipModel = &h5027 ' Model of Image input 271 ' equipment 272 Const PropertyTagThumbnailStripOffsets = &h5028 ' Image data location 273 Const PropertyTagThumbnailOrientation = &h5029 ' Orientation of image 274 Const PropertyTagThumbnailSamplesPerPixel = &h502A ' Number of components 275 Const PropertyTagThumbnailRowsPerStrip = &h502B ' Number of rows per strip 276 Const PropertyTagThumbnailStripBytesCount = &h502C ' Bytes per compressed 277 ' strip 278 Const PropertyTagThumbnailResolutionX = &h502D ' Resolution in width 279 ' direction 280 Const PropertyTagThumbnailResolutionY = &h502E ' Resolution in height 281 ' direction 282 Const PropertyTagThumbnailPlanarConfig = &h502F ' Image data arrangement 283 Const PropertyTagThumbnailResolutionUnit = &h5030 ' Unit of X and Y 284 ' Resolution 285 Const PropertyTagThumbnailTransferFunction = &h5031 ' Transfer function 286 Const PropertyTagThumbnailSoftwareUsed = &h5032 ' Software used 287 Const PropertyTagThumbnailDateTime = &h5033 ' File change date and 288 ' time 289 Const PropertyTagThumbnailArtist = &h5034 ' Person who created the 290 ' image 291 Const PropertyTagThumbnailWhitePoint = &h5035 ' White point chromaticity 292 Const PropertyTagThumbnailPrimaryChromaticities = &h5036 293 ' Chromaticities of 294 ' primaries 295 Const PropertyTagThumbnailYCbCrCoefficients = &h5037 ' Color space transforma- 296 ' tion coefficients 297 Const PropertyTagThumbnailYCbCrSubsampling = &h5038 ' Subsampling ratio of Y 298 ' to C 299 Const PropertyTagThumbnailYCbCrPositioning = &h5039 ' Y and C position 300 Const PropertyTagThumbnailRefBlackWhite = &h503A ' Pair of black and white 301 ' reference values 302 Const PropertyTagThumbnailCopyRight = &h503B ' CopyRight holder 303 304 Const PropertyTagLuminanceTable = &h5090 305 Const PropertyTagChrominanceTable = &h5091 306 307 Const PropertyTagFrameDelay = &h5100 308 Const PropertyTagLoopCount = &h5101 309 310 Const PropertyTagPixelUnit = &h5110 ' Unit specifier for pixel/unit 311 Const PropertyTagPixelPerUnitX = &h5111 ' Pixels per unit in X 312 Const PropertyTagPixelPerUnitY = &h5112 ' Pixels per unit in Y 313 Const PropertyTagPaletteHistogram = &h5113 ' Palette histogram 314 315 ' EXIF specific tag 316 317 Const PropertyTagExifExposureTime = &h829A 318 Const PropertyTagExifFNumber = &h829D 319 320 Const PropertyTagExifExposureProg = &h8822 321 Const PropertyTagExifSpectralSense = &h8824 322 Const PropertyTagExifISOSpeed = &h8827 323 Const PropertyTagExifOECF = &h8828 324 325 Const PropertyTagExifVer = &h9000 326 Const PropertyTagExifDTOrig = &h9003 ' Date & time of original 327 Const PropertyTagExifDTDigitized = &h9004 ' Date & time of digital data generation 328 329 Const PropertyTagExifCompConfig = &h9101 330 Const PropertyTagExifCompBPP = &h9102 331 332 Const PropertyTagExifShutterSpeed = &h9201 333 Const PropertyTagExifAperture = &h9202 334 Const PropertyTagExifBrightness = &h9203 335 Const PropertyTagExifExposureBias = &h9204 336 Const PropertyTagExifMaxAperture = &h9205 337 Const PropertyTagExifSubjectDist = &h9206 338 Const PropertyTagExifMeteringMode = &h9207 339 Const PropertyTagExifLightSource = &h9208 340 Const PropertyTagExifFlash = &h9209 341 Const PropertyTagExifFocalLength = &h920A 342 Const PropertyTagExifMakerNote = &h927C 343 Const PropertyTagExifUserComment = &h9286 344 Const PropertyTagExifDTSubsec = &h9290 ' Date & Time subseconds 345 Const PropertyTagExifDTOrigSS = &h9291 ' Date & Time original subseconds 346 Const PropertyTagExifDTDigSS = &h9292 ' Date & TIme digitized subseconds 347 348 Const PropertyTagExifFPXVer = &hA000 349 Const PropertyTagExifColorSpace = &hA001 350 Const PropertyTagExifPixXDim = &hA002 351 Const PropertyTagExifPixYDim = &hA003 352 Const PropertyTagExifRelatedWav = &hA004 ' related sound file 353 Const PropertyTagExifInterop = &hA005 354 Const PropertyTagExifFlashEnergy = &hA20B 355 Const PropertyTagExifSpatialFR = &hA20C ' Spatial Frequency Response 356 Const PropertyTagExifFocalXRes = &hA20E ' Focal Plane X Resolution 357 Const PropertyTagExifFocalYRes = &hA20F ' Focal Plane Y Resolution 358 Const PropertyTagExifFocalResUnit = &hA210 ' Focal Plane Resolution Unit 359 Const PropertyTagExifSubjectLoc = &hA214 360 Const PropertyTagExifExposureIndex = &hA215 361 Const PropertyTagExifSensingMethod = &hA217 362 Const PropertyTagExifFileSource = &hA300 363 Const PropertyTagExifSceneType = &hA301 364 Const PropertyTagExifCfaPattern = &hA302 365 366 Const PropertyTagGpsVer = &h0000 367 Const PropertyTagGpsLatitudeRef = &h0001 368 Const PropertyTagGpsLatitude = &h0002 369 Const PropertyTagGpsLongitudeRef = &h0003 370 Const PropertyTagGpsLongitude = &h0004 371 Const PropertyTagGpsAltitudeRef = &h0005 372 Const PropertyTagGpsAltitude = &h0006 373 Const PropertyTagGpsGpsTime = &h0007 374 Const PropertyTagGpsGpsSatellites = &h0008 375 Const PropertyTagGpsGpsStatus = &h0009 376 Const PropertyTagGpsGpsMeasureMode = &h00A 377 Const PropertyTagGpsGpsDop = &h000B ' Measurement precision 378 Const PropertyTagGpsSpeedRef = &h000C 379 Const PropertyTagGpsSpeed = &h000D 380 Const PropertyTagGpsTrackRef = &h000E 381 Const PropertyTagGpsTrack = &h000F 382 Const PropertyTagGpsImgDirRef = &h0010 383 Const PropertyTagGpsImgDir = &h0011 384 Const PropertyTagGpsMapDatum = &h0012 385 Const PropertyTagGpsDestLatRef = &h0013 386 Const PropertyTagGpsDestLat = &h0014 387 Const PropertyTagGpsDestLongRef = &h0015 388 Const PropertyTagGpsDestLong = &h0016 389 Const PropertyTagGpsDestBearRef = &h0017 390 Const PropertyTagGpsDestBear = &h0018 391 Const PropertyTagGpsDestDistRef = &h0019 392 Const PropertyTagGpsDestDist = &h001A 393 394 Type ImageCodecInfo 395 Clsid As CLSID 396 FormatID As GUID 397 CodecName As PCWSTR 398 DllName As PCWSTR 399 FormatDescription As PCWSTR 400 FilenameExtension As PCWSTR 401 MimeType As PCWSTR 402 Flags As DWord 403 Version As DWord 404 SigCount As DWord 405 SigSize As DWord 406 SigPattern As *Byte 407 SigMask As DWord 408 End Type 409 410 End Namespace 411 83 412 #endif '__GDIPLUSTYPES_AB__
Note:
See TracChangeset
for help on using the changeset viewer.