Ignore:
Timestamp:
May 9, 2007, 10:26:36 PM (18 years ago)
Author:
イグトランス (egtra)
Message:

GDI+に対して名前空間で囲ったものの、現在コンパイルできないため分岐させておく

Location:
branch/egtra-gdiplus
Files:
1 edited
1 copied

Legend:

Unmodified
Added
Removed
  • branch/egtra-gdiplus/Classes/System/Drawing/Graphics.ab

    r212 r241  
    44#define __SYSTEM_DRAWING_GRAPHICS_AB__
    55
    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
     24Namespace System
     25Namespace Drawing
     26
    727Class Pen : End Class
    828Class StringFormat : End Class
    929Class Image : End Class
    10 Class ImageAttributes : End Class
    1130Class Metafile : End Class
    1231Class Region : End Class
    1332Class GraphicsPath : End Class
    1433Class 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>
    3234
    3335Class Graphics
     
    104106    End Function
    105107
    106     Function PageScale(scale As Single) As Status
     108    Function PageScale(scale As Single) As Gdiplus.Status
    107109        Return SetStatus(GdipSetPageScale(nativeGraphics, scale))
    108110    End Function
     
    120122    End Function
    121123
    122     Function PageUnit(unit As GraphicsUnit) As Status
     124    Function PageUnit(unit As GraphicsUnit) As Gdiplus.Status
    123125        Return SetStatus(GdipSetPageUnit(nativeGraphics, unit))
    124126    End Function
     
    206208
    207209    Sub Graphics(hdc As HDC)
    208         Dim graphics = 0 As GpGraphics
     210        Dim graphics = 0 As Gdiplus.GpGraphics
    209211        lastResult = GdipCreateFromHDC(hdc, graphics)
    210212        SetNativeGraphics(graphics)
     
    212214
    213215    Sub Graphics(hdc As HDC, hdevice As HANDLE)
    214         Dim graphics = 0 As *GpGraphics
     216        Dim graphics = 0 As *Gdiplus.GpGraphics
    215217        lastResult = GdipCreateFromHDC2(hdc, hdevice, graphics)
    216218        SetNativeGraphics(graphics)
     
    218220
    219221    Sub Graphics(hwnd As HWND)
    220         Dim graphics = 0 As *GpGraphics
     222        Dim graphics = 0 As *Gdiplus.GpGraphics
    221223        lastResult = GdipCreateFromHWND(hwnd, graphics)
    222224        SetNativeGraphics(graphics)
     
    224226
    225227    Sub Graphics(hwnd As HWND, icm As BOOL)
    226         Dim graphics = 0 As *GpGraphics
     228        Dim graphics = 0 As *Gdiplus.GpGraphics
    227229        If icm <> FALSE Then
    228230            lastResult = GdipCreateFromHWNDICM(hwnd, graphics)
     
    234236
    235237    Sub Graphics(image As Image)
    236         Dim graphics = 0 As *GpGraphics
     238        Dim graphics = 0 As *Gdiplus.GpGraphics
    237239        If (image != 0)
    238240            lastResult = GdipGetImageGraphicsContext(image->NativeImage, graphics)
     
    273275    '------------------------------------------------------------------------
    274276
    275     Function SetRenderingOrigin(x As Long, y As Long) As Status
     277    Function SetRenderingOrigin(x As Long, y As Long) As Gdiplus.Status
    276278        Return SetStatus(GdipSetRenderingOrigin(nativeGraphics, x, y))
    277279    End Function
    278280
    279     Const Function GetRenderingOrigin(x As Long, y As Long) As Status
     281    Const Function GetRenderingOrigin(x As Long, y As Long) As Gdiplus.Status
    280282        Return SetStatus(GdipGetRenderingOrigin(nativeGraphics, x, y))
    281283    End Function
    282284
    283     Function SetCompositingMode(compositingMode As CompositingMode) As Status
     285    Function SetCompositingMode(compositingMode As CompositingMode) As Gdiplus.Status
    284286        Return SetStatus(GdipSetCompositingMode(nativeGraphics, compositingMode))
    285287    End Function
     
    301303    End Function
    302304
    303     Function SetTextRenderingHint(newMode As TextRenderingHint) As Status
     305    Function SetTextRenderingHint(newMode As TextRenderingHint) As Gdiplus.Status
    304306        Return SetStatus(GdipSetTextRenderingHint(nativeGraphics, newMode))
    305307    End Function
     
    311313    End Function
    312314
    313     Function SetTextContrast(contrast As DWord) As Status
     315    Function SetTextContrast(contrast As DWord) As Gdiplus.Status
    314316        Return SetStatus(GdipSetTextContrast(nativeGraphics, contrast))
    315317    End Function
     
    327329    End Function
    328330
    329     Function SetInterpolationMode(interpolationMode As InterpolationMode) As Status
     331    Function SetInterpolationMode(interpolationMode As InterpolationMode) As Gdiplus.Status
    330332        Return SetStatus(GdipSetInterpolationMode(nativeGraphics, interpolationMode))
    331333    End Function
     
    337339    End Function
    338340
    339     Function SetSmoothingMode(smoothingMode As SmoothingMode) As Status
     341    Function SetSmoothingMode(smoothingMode As SmoothingMode) As Gdiplus.Status
    340342        Return SetStatus(GdipSetSmoothingMode(nativeGraphics, smoothingMode))
    341343    End Function
     
    347349    End Function
    348350
    349     Function SetPixelOffsetMode(pixelOffsetMode As PixelOffsetMode) As Status
     351    Function SetPixelOffsetMode(pixelOffsetMode As PixelOffsetMode) As Gdiplus.Status
    350352        Return SetStatus(GdipSetPixelOffsetMode(nativeGraphics, pixelOffsetMode))
    351353    End Function
     
    355357    '------------------------------------------------------------------------
    356358
    357     Function SetTransform(matrix As /*Const*/ *Matrix) As Status
     359    Function SetTransform(matrix As /*Const*/ *Matrix) As Gdiplus.Status
    358360        Return SetStatus(GdipSetWorldTransform(nativeGraphics, matrix->nativeMatrix))
    359361    End Function
    360362
    361     Function ResetTransform() As Status
     363    Function ResetTransform() As Gdiplus.Status
    362364        Return SetStatus(GdipResetWorldTransform(nativeGraphics))
    363365    End Function
    364366
    365     Function MultiplyTransform(matrix As /*Const*/ Matrix) As Status
     367    Function MultiplyTransform(matrix As /*Const*/ Matrix) As Gdiplus.Status
    366368        Return SetStatus(GdipMultiplyWorldTransform(nativeGraphics, matrix->nativeMatrix, MatrixOrder.Prepend))
    367369    End Function
    368370
    369     Function MultiplyTransform(matrix As /*Const*/ Matrix, order As MatrixOrder) As Status
     371    Function MultiplyTransform(matrix As /*Const*/ Matrix, order As MatrixOrder) As Gdiplus.Status
    370372        Return SetStatus(GdipMultiplyWorldTransform(nativeGraphics, matrix->nativeMatrix, order))
    371373    End Function
    372374
    373     Function TranslateTransform(dx As Single, dy As Single) As Status
     375    Function TranslateTransform(dx As Single, dy As Single) As Gdiplus.Status
    374376        Return SetStatus(GdipTranslateWorldTransform(nativeGraphics, dx, dy, MatrixOrder.Prepend))
    375377    End Function
    376378
    377     Function TranslateTransform(dx As Single, dy As Single, order As MatrixOrder) As Status
     379    Function TranslateTransform(dx As Single, dy As Single, order As MatrixOrder) As Gdiplus.Status
    378380        Return SetStatus(GdipTranslateWorldTransform(nativeGraphics, dx, dy, order))
    379381    End Function
    380382
    381     Function ScaleTransform(sx As Single, sy As Single) As Status
     383    Function ScaleTransform(sx As Single, sy As Single) As Gdiplus.Status
    382384        Return SetStatus(GdipScaleWorldTransform(nativeGraphics, sx, sy, MatrixOrder.Prepend))
    383385    End Function
    384386
    385     Function ScaleTransform(sx As Single, sy As Single, order As MatrixOrder) As Status
     387    Function ScaleTransform(sx As Single, sy As Single, order As MatrixOrder) As Gdiplus.Status
    386388        Return SetStatus(GdipScaleWorldTransform(nativeGraphics, sx, sy, order))
    387389    End Function
    388390
    389     Function RotateTransform(angle As Single) As Status
     391    Function RotateTransform(angle As Single) As Gdiplus.Status
    390392        Return SetStatus(GdipRotateWorldTransform(nativeGraphics, angle, MatrixOrder.Prepend))
    391393    End Function
    392394
    393     Function RotateTransform(angle As Single, order As MatrixOrder) As Status
     395    Function RotateTransform(angle As Single, order As MatrixOrder) As Gdiplus.Status
    394396        Return SetStatus(GdipRotateWorldTransform(nativeGraphics, angle, order))
    395397    End Function
    396398
    397     Const Function GetTransform(matrix As Matrix) As Status
     399    Const Function GetTransform(matrix As Matrix) As Gdiplus.Status
    398400        Return SetStatus(GdipGetWorldTransform(nativeGraphics, matrix->nativeMatrix))
    399401    End Function
    400402
    401     Const Function TransformPoints(destSpace As CoordinateSpace, srcSpace As CoordinateSpace, pts As PointF, count As Long) As Status
     403    Const Function TransformPoints(destSpace As CoordinateSpace, srcSpace As CoordinateSpace, pts As PointF, count As Long) As Gdiplus.Status
    402404        Return SetStatus(GdipTransformPoints(nativeGraphics, destSpace, srcSpace, pts, count))
    403405    End Function
    404406
    405     Const Function TransformPoints(destSpace As CoordinateSpace, srcSpace As CoordinateSpace, pts As Point, count As Long) As Status
     407    Const Function TransformPoints(destSpace As CoordinateSpace, srcSpace As CoordinateSpace, pts As Point, count As Long) As Gdiplus.Status
    406408        Return SetStatus(GdipTransformPointsI(nativeGraphics, destSpace, srcSpace, pts, count))
    407409    End Function
     
    411413    '------------------------------------------------------------------------
    412414
    413     Const Function GetNearestColor(color As Color) As Status
     415    Const Function GetNearestColor(color As Color) As Gdiplus.Status
    414416        Dim argb = color->Value
    415417        Dim status = SetStatus(GdipGetNearestColor(nativeGraphics, argb))
     
    418420    End Function
    419421
    420     Function DrawLine(pen As /*Const*/ Pen, x1 As Single, y1 As Single, x2 As Single, y2 As Single) As Status
     422    Function DrawLine(pen As /*Const*/ Pen, x1 As Single, y1 As Single, x2 As Single, y2 As Single) As Gdiplus.Status
    421423        Return SetStatus(GdipDrawLine(nativeGraphics, pen->nativePen, x1, y1, x2, y2))
    422424    End Function
    423425
    424     Function DrawLine(pen As /*Const*/ Pen, pt1 As /*Const*/ PointF, pt2 As /*Const*/ PointF) As Status
     426    Function DrawLine(pen As /*Const*/ Pen, pt1 As /*Const*/ PointF, pt2 As /*Const*/ PointF) As Gdiplus.Status
    425427        Return DrawLine(pen, pt1.X, pt1.Y, pt2.X, pt2.Y)
    426428    End Function
    427429
    428     Function DrawLines(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status
     430    Function DrawLines(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status
    429431        Return SetStatus(GdipDrawLines(nativeGraphics, pen->nativePen, points, count))
    430432    End Function
    431433
    432     Function DrawLine(pen As /*Const*/ Pen, x1 As Long, y1 As Long, x2 As Long, y2 As Long) As Status
     434    Function DrawLine(pen As /*Const*/ Pen, x1 As Long, y1 As Long, x2 As Long, y2 As Long) As Gdiplus.Status
    433435        Return SetStatus(GdipDrawLineI(nativeGraphics, pen->nativePen, x1, y1, x2, y2))
    434436    End Function
    435437
    436     Function DrawLine(pen As /*Const*/ Pen, pt1 As /*Const*/ Point, pt2 As /*Const*/ Point) As Status
     438    Function DrawLine(pen As /*Const*/ Pen, pt1 As /*Const*/ Point, pt2 As /*Const*/ Point) As Gdiplus.Status
    437439        Return DrawLine(pen, pt1.X, pt1.Y, pt2.X, pt2.Y)
    438440    End Function
    439441
    440     Function DrawLines(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status
     442    Function DrawLines(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Gdiplus.Status
    441443        Return SetStatus(GdipDrawLinesI(nativeGraphics, pen->nativePen, points, count))
    442444    End Function
    443445
    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 Status
     446    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
    445447        Return SetStatus(GdipDrawArc(nativeGraphics, pen->nativePen, x, y, width, height, startAngle, sweepAngle))
    446448    End Function
    447449
    448     Function DrawArc(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Status
     450    Function DrawArc(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Gdiplus.Status
    449451        Return DrawArc(pen, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle)
    450452    End Function
    451453
    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 Status
     454    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
    453455        Return SetStatus(GdipDrawArcI(nativeGraphics, pen->nativePen, x, y, width, height, startAngle, sweepAngle))
    454456    End Function
    455457
    456     Function DrawArc(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Status
     458    Function DrawArc(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Gdiplus.Status
    457459        Return DrawArc(pen, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle)
    458460    End Function
    459461
    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 Status
     462    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
    461463        Return SetStatus(GdipDrawBezier(nativeGraphics, pen->nativePen, x1, y1,x2, y2, x3, y3, x4, y4))
    462464    End Function
    463465
    464     Function DrawBezier(pen As /*Const*/ Pen, pt1 As /*Const*/ PointF, pt2 As /*Const*/ PointF, pt3 As /*Const*/ PointF, pt4 As /*Const*/ PointF) As Status
     466    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
    465467        Return DrawBezier(pen, pt1.X, pt1.Y, pt2.X, pt2.Y, pt3.X, pt3.Y, pt4.X, pt4.Y)
    466468    End Function
    467469
    468     Function DrawBeziers(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status
     470    Function DrawBeziers(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status
    469471        Return SetStatus(GdipDrawBeziers(nativeGraphics, pen->nativePen, points, count))
    470472    End Function
    471473
    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 Status
     474    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
    473475        Return SetStatus(GdipDrawBezierI(nativeGraphics, pen->nativePen, x1, y1, x2, y2, x3, y3, x4, y4))
    474476    End Function
    475477
    476     Function DrawBezier(pen As /*Const*/ Pen, pt1 As /*Const*/ Point, pt2 As /*Const*/ Point, pt3 As /*Const*/ Point, pt4 As /*Const*/ Point) As Status
     478    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
    477479        Return DrawBezier(pen pt1.X, pt1.Y, pt2.X, pt2.Y, pt3.X, pt3.Y, pt4.X, pt4.Y)
    478480    End Function
    479481
    480     Function DrawBeziers(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status
     482    Function DrawBeziers(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Gdiplus.Status
    481483        Return SetStatus(GdipDrawBeziersI(nativeGraphics, pen->nativePen, points, count))
    482484    End Function
    483485
    484     Function DrawRectangle(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF) As Status
     486    Function DrawRectangle(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF) As Gdiplus.Status
    485487        Return DrawRectangle(pen, rect.X, rect.Y, rect.Width, rect.Height)
    486488    End Function
    487489
    488     Function DrawRectangle(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single) As Status
     490    Function DrawRectangle(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single) As Gdiplus.Status
    489491        Return SetStatus(GdipDrawRectangle(nativeGraphics, pen->nativePen, x, y, width, height))
    490492    End Function
    491493
    492     Function DrawRectangles(pen As /*Const*/ Pen, rects As /*Const*/ *RectangleF, count As Long) As Status
     494    Function DrawRectangles(pen As /*Const*/ Pen, rects As /*Const*/ *RectangleF, count As Long) As Gdiplus.Status
    493495        Return SetStatus(GdipDrawRectangles(nativeGraphics, pen->nativePen, rects, count))
    494496    End Function
    495497
    496     Function DrawRectangle(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle) As Status
     498    Function DrawRectangle(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle) As Gdiplus.Status
    497499        Return DrawRectangle(pen, rect.X, rect.Y, rect.Width, rect.Height)
    498500    End Function
    499501
    500     Function DrawRectangle(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long) As Status
     502    Function DrawRectangle(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long) As Gdiplus.Status
    501503        Return SetStatus(GdipDrawRectangleI(nativeGraphics, pen->nativePen, x, y, width, height))
    502504    End Function
    503505
    504     Function DrawRectangles(pen As /*Const*/ Pen, rects As /*Const*/ *Rectangle,  count As Long) As Status
     506    Function DrawRectangles(pen As /*Const*/ Pen, rects As /*Const*/ *Rectangle,  count As Long) As Gdiplus.Status
    505507        Return SetStatus(GdipDrawRectanglesI(nativeGraphics, pen->nativePen, rects, count))
    506508    End Function
    507509
    508     Function DrawEllipse(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF) As Status
     510    Function DrawEllipse(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF) As Gdiplus.Status
    509511        Return DrawEllipse(pen, rect.X, rect.Y, rect.Width, rect.Height)
    510512    End Function
    511513
    512     Function DrawEllipse(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single) As Status
     514    Function DrawEllipse(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single) As Gdiplus.Status
    513515        Return SetStatus(GdipDrawEllipse(nativeGraphics, pen->nativePen, x, y, width, height))
    514516    End Function
    515517
    516     Function DrawEllipse(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle) As Status
     518    Function DrawEllipse(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle) As Gdiplus.Status
    517519        Return DrawEllipse(pen, rect.X, rect.Y, rect.Width, rect.Height)
    518520    End Function
    519521
    520     Function DrawEllipse(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long) As Status
     522    Function DrawEllipse(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long) As Gdiplus.Status
    521523        Return SetStatus(GdipDrawEllipseI(nativeGraphics, pen->nativePen, x, y, width, height))
    522524    End Function
    523525
    524     Function DrawPie(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Status
     526    Function DrawPie(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Gdiplus.Status
    525527        Return DrawPie(pen, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle)
    526528    End Function
    527529
    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 Status
     530    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
    529531        Return SetStatus(GdipDrawPie(nativeGraphics, pen->nativePen, x, y, width, height, startAngle, sweepAngle))
    530532    End Function
    531533
    532     Function DrawPie(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Status
     534    Function DrawPie(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Gdiplus.Status
    533535        Return DrawPie(pen, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle)
    534536    End Function
    535537
    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 Status
     538    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
    537539        Return SetStatus(GdipDrawPieI(nativeGraphics, pen->nativePen, x, y, width, height, startAngle, sweepAngle))
    538540    End Function
    539541
    540     Function DrawPolygon(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status
     542    Function DrawPolygon(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status
    541543        Return SetStatus(GdipDrawPolygon(nativeGraphics, pen->nativePen, points, count))
    542544    End Function
    543545
    544     Function DrawPolygon(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status
     546    Function DrawPolygon(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Gdiplus.Status
    545547        Return SetStatus(GdipDrawPolygonI(nativeGraphics, pen->nativePen, points, count))
    546548    End Function
    547549
    548     Function DrawPath(pen As /*Const*/ Pen, path As /*Const*/ GraphicsPath) As Status
     550    Function DrawPath(pen As /*Const*/ Pen, path As /*Const*/ GraphicsPath) As Gdiplus.Status
    549551        Return SetStatus(GdipDrawPath(nativeGraphics, pen->nativePen, path->nativePath))
    550552'       Return SetStatus(GdipDrawPath(nativeGraphics, pen ? pen->nativePen : NULL, path ? path->nativePath : NULL))
    551553    End Function
    552554
    553     Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status
     555    Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status
    554556        Return SetStatus(GdipDrawCurve(nativeGraphics, pen->nativePen, points, count))
    555557    End Function
    556558
    557     Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, tension As Single) As Status
     559    Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, tension As Single) As Gdiplus.Status
    558560        Return SetStatus(GdipDrawCurve2(nativeGraphics, pen->nativePen, points,count, tension))
    559561    End Function
    560562
    561     Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, offset As Long, numberOfSegments As Long) As Status
     563    Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, offset As Long, numberOfSegments As Long) As Gdiplus.Status
    562564        Return SetStatus(GdipDrawCurve3(nativeGraphics, pen->nativePen, points, count, offset,numberOfSegments, 0.5))
    563565    End Function
    564566
    565     Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, offset As Long, numberOfSegments As Long, tension As Single) As Status
     567    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
    566568        Return SetStatus(GdipDrawCurve3(nativeGraphics, pen->nativePen, points, count, offset,numberOfSegments, tension))
    567569    End Function
    568570
    569     Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status
     571    Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Gdiplus.Status
    570572        Return SetStatus(GdipDrawCurveI(nativeGraphics, pen->nativePen, points, count))
    571573    End Function
    572574
    573     Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, tension As Single) As Status
     575    Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, tension As Single) As Gdiplus.Status
    574576        Return SetStatus(GdipDrawCurve2I(nativeGraphics, pen->nativePen, points, count, tension))
    575577    End Function
    576578
    577     Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, offset As Long, numberOfSegments As Long) As Status
     579    Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, offset As Long, numberOfSegments As Long) As Gdiplus.Status
    578580        Return SetStatus(GdipDrawCurve3I(nativeGraphics, pen->nativePen, points, count, offset, numberOfSegments, 0.5))
    579581    End Function
    580582
    581     Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, offset As Long, numberOfSegments As Long, tension As Single) As Status
     583    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
    582584        Return SetStatus(GdipDrawCurve3I(nativeGraphics, pen->nativePen, points, count, offset, numberOfSegments, tension))
    583585    End Function
    584586
    585     Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status
     587    Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status
    586588        Return SetStatus(GdipDrawClosedCurve(nativeGraphics, pen->nativePen, points, count))
    587589    End Function
    588590
    589     Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, tension As Single) As Status
     591    Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, tension As Single) As Gdiplus.Status
    590592        Return SetStatus(GdipDrawClosedCurve2(nativeGraphics, pen->nativePen, points, count, tension))
    591593    End Function
    592594
    593     Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status
     595    Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Gdiplus.Status
    594596        Return SetStatus(GdipDrawClosedCurveI(nativeGraphics, pen->nativePen, points, count))
    595597    End Function
    596598
    597     Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, tension As Single) As Status
     599    Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, tension As Single) As Gdiplus.Status
    598600        Return SetStatus(GdipDrawClosedCurve2I(nativeGraphics, pen->nativePen, points, count, tension))
    599601    End Function
    600602
    601     Function Clear(color As /*Const*/ Color) As Status
     603    Function Clear(color As /*Const*/ Color) As Gdiplus.Status
    602604        Return SetStatus(GdipGraphicsClear(nativeGraphics, color.Value))
    603605    End Function
    604606
    605     Function FillRectangle(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF) As Status
     607    Function FillRectangle(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF) As Gdiplus.Status
    606608        Return FillRectangle(brush, rect.X, rect.Y, rect.Width, rect.Height)
    607609    End Function
    608610
    609     Function FillRectangle(brush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single) As Status
     611    Function FillRectangle(brush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single) As Gdiplus.Status
    610612        Return SetStatus(GdipFillRectangle(nativeGraphics, brush->nativeBrush, x, y, width, height))
    611613    End Function
    612614
    613     Function FillRectangles(brush As /*Const*/ Brush, rects As /*Const*/ *RectangleF, count As Long) As Status
     615    Function FillRectangles(brush As /*Const*/ Brush, rects As /*Const*/ *RectangleF, count As Long) As Gdiplus.Status
    614616        Return SetStatus(GdipFillRectangles(nativeGraphics,brush->nativeBrush,rects, count))
    615617    End Function
    616618
    617     Function FillRectangle(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle) As Status
     619    Function FillRectangle(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle) As Gdiplus.Status
    618620        Return FillRectangle(brush, rect.X, rect.Y, rect.Width, rect.Height)
    619621    End Function
    620622
    621     Function FillRectangle(brush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long) As Status
     623    Function FillRectangle(brush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long) As Gdiplus.Status
    622624        Return SetStatus(GdipFillRectangleI(nativeGraphics, brush->nativeBrush, x, y, width, height))
    623625    End Function
    624626
    625     Function FillRectangles(brush As /*Const*/ Brush, rects As /*Const*/ *Rectangle, count As Long) As Status
     627    Function FillRectangles(brush As /*Const*/ Brush, rects As /*Const*/ *Rectangle, count As Long) As Gdiplus.Status
    626628        Return SetStatus(GdipFillRectanglesI(nativeGraphics, brush->nativeBrush, rects, count))
    627629    End Function
    628630
    629     Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long) As Status
     631    Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status
    630632        Return FillPolygon(brush, points, count, FillModeAlternate)
    631633    End Function
    632634
    633     Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode) As Status
     635    Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode) As Gdiplus.Status
    634636        Return SetStatus(GdipFillPolygon(nativeGraphics, brush->nativeBrush, points, count, fillMode))
    635637    End Function
    636638
    637     Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long) As Status
     639    Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long) As Gdiplus.Status
    638640        Return FillPolygon(brush, points, count, FillModeAlternate)
    639641    End Function
    640642
    641     Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode) As Status
     643    Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode) As Gdiplus.Status
    642644        Return SetStatus(GdipFillPolygonI(nativeGraphics, brush->nativeBrush, points, count, fillMode))
    643645    End Function
    644646
    645     Function FillEllipse(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF) As Status
     647    Function FillEllipse(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF) As Gdiplus.Status
    646648        Return FillEllipse(brush, rect.X, rect.Y, rect.Width, rect.Height)
    647649    End Function
    648650
    649     Function FillEllipse(brush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single) As Status
     651    Function FillEllipse(brush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single) As Gdiplus.Status
    650652        Return SetStatus(GdipFillEllipse(nativeGraphics, brush->nativeBrush, x, y, width, height))
    651653    End Function
    652654
    653     Function FillEllipse(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle) As Status
     655    Function FillEllipse(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle) As Gdiplus.Status
    654656        Return FillEllipse(brush, rect.X, rect.Y, rect.Width, rect.Height)
    655657    End Function
    656658
    657     Function FillEllipse(brush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long) As Status
     659    Function FillEllipse(brush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long) As Gdiplus.Status
    658660        Return SetStatus(GdipFillEllipseI(nativeGraphics, brush->nativeBrush, x, y, width, height))
    659661    End Function
    660662
    661     Function FillPie(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Status
     663    Function FillPie(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Gdiplus.Status
    662664        Return FillPie(brush, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle)
    663665    End Function
    664666
    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 Status
     667    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
    666668        Return SetStatus(GdipFillPie(nativeGraphics, brush->nativeBrush, x, y, width, height, startAngle, sweepAngle))
    667669    End Function
    668670
    669     Function FillPie(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Status
     671    Function FillPie(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Gdiplus.Status
    670672        Return FillPie(brush, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle)
    671673    End Function
    672674
    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 Status
     675    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
    674676        Return SetStatus(GdipFillPieI(nativeGraphics, brush->nativeBrush, x, y, width, height, startAngle, sweepAngle))
    675677    End Function
    676678
    677     Function FillPath(brush As /*Const*/ Brush, path As /*Const*/ GraphicsPath) As Status
     679    Function FillPath(brush As /*Const*/ Brush, path As /*Const*/ GraphicsPath) As Gdiplus.Status
    678680        Return SetStatus(GdipFillPath(nativeGraphics, brush->nativeBrush, path->nativePath))
    679681    End Function
    680682
    681     Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long) As Status
     683    Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status
    682684        Return SetStatus(GdipFillClosedCurve(nativeGraphics, brush->nativeBrush, points, count))
    683685    End Function
    684686
    685     Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode) As Status
     687    Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode) As Gdiplus.Status
    686688        Return SetStatus(GdipFillClosedCurve2(nativeGraphics, brush->nativeBrush, points, count, 0.5, fillMode))
    687689    End Function
    688690
    689     Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode, tension As Single) As Status
     691    Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode, tension As Single) As Gdiplus.Status
    690692        Return SetStatus(GdipFillClosedCurve2(nativeGraphics, brush->nativeBrush, points, count, tension, fillMode))
    691693    End Function
    692694
    693     Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long) As Status
     695    Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long) As Gdiplus.Status
    694696        Return SetStatus(GdipFillClosedCurveI(nativeGraphics, brush->nativeBrush, points, count))
    695697    End Function
    696698
    697     Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode) As Status
     699    Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode) As Gdiplus.Status
    698700        Return SetStatus(GdipFillClosedCurve2I(nativeGraphics, brush->nativeBrush, points, count, 0.5, fillMode))
    699701    End Function
    700702
    701     Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode, tension As Single) As Status
     703    Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode, tension As Single) As Gdiplus.Status
    702704        Return SetStatus(GdipFillClosedCurve2I(nativeGraphics, brush->nativeBrush, points, count, tension, fillMode))
    703705    End Function
    704706
    705     Function FillRegion(brush As /*Const*/ Brush, region As /*Const*/ Region) As Status
     707    Function FillRegion(brush As /*Const*/ Brush, region As /*Const*/ Region) As Gdiplus.Status
    706708        Return SetStatus(GdipFillRegion(nativeGraphics, brush->nativeBrush, region->nativeRegion))
    707709    End Function
    708710
    709     Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF) As Status
     711    Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF) As Gdiplus.Status
    710712        Dim nativeFont As *GpFont
    711713        If VarPtr(font) <> 0 Then
     
    718720
    719721    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 Status
     722        stringFormat As /*Const*/ StringFormat, brush As /*Const*/ Brush) As Gdiplus.Status
    721723
    722724        Dim nativeFont As *GpFont
     
    736738
    737739    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 Status
     740        stringFormat As /*Const*/ StringFormat, brush As /*Const*/ Brush) As Gdiplus.Status
    739741
    740742        Dim nativeFont As *GpFont
     
    759761    End Function
    760762
    761     Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ Point) As Status
     763    Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ Point) As Gdiplus.Status
    762764        Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0)
    763765        Dim nativeFont As *GpFont
     
    771773
    772774    Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ PointF,
    773         brush As /*Const*/ Brush) As Status
     775        brush As /*Const*/ Brush) As Gdiplus.Status
    774776
    775777        Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0)
     
    789791    End Function
    790792
    791     Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ PointF) As Status
     793    Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ PointF) As Gdiplus.Status
    792794        Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0)
    793795        Dim nativeFont As *GpFont
     
    801803
    802804    Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ PointF,
    803         stringFormat As /*Const*/ StringFormat) As Status
     805        stringFormat As /*Const*/ StringFormat) As Gdiplus.Status
    804806
    805807        Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0)
     
    820822
    821823    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 Status
     824        stringFormat As /*Const*/ StringFormat, brush As /*Const*/ Brush) As Gdiplus.Status
    823825
    824826        Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0)
     
    844846
    845847    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 Status
     848        stringFormat As /*Const*/ StringFormat, boundingBox As RectangleF) As Gdiplus.Status
    847849
    848850        Return MeasureString(str, length, font, layoutRect, stringFormat, boundingBox, ByVal 0, ByVal 0)
     
    851853    Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF,
    852854        stringFormat As /*Const*/ StringFormat, boundingBox As RectangleF,
    853         codepointsFitted As Long) As Status
     855        codepointsFitted As Long) As Gdiplus.Status
    854856
    855857        Return MeasureString(str, length, font, layoutRect, stringFormat, boundingBox, codepointsFitted, ByVal 0)
     
    858860    Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF,
    859861        stringFormat As /*Const*/ StringFormat, boundingBox As RectangleF,
    860         codepointsFitted As Long, linesFilled As Long) As Status
     862        codepointsFitted As Long, linesFilled As Long) As Gdiplus.Status
    861863
    862864        Dim nativeFont As *GpFont
     
    878880    Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font,
    879881        layoutRectSize As /*Const*/ SizeF, stringFormat As /*Const*/ StringFormat,
    880         size As SizeF) As Status
     882        size As SizeF) As Gdiplus.Status
    881883
    882884            Return MeasureString(str, length, font, layoutRectSize, stringFormat, size, ByVal 0, ByVal 0)
     
    885887    Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font,
    886888        layoutRectSize As /*Const*/ SizeF, stringFormat As /*Const*/ StringFormat,
    887         size As SizeF, codepointsFitted As Long) As Status
     889        size As SizeF, codepointsFitted As Long) As Gdiplus.Status
    888890
    889891            Return MeasureString(str, length, font, layoutRectSize, stringFormat, size, codepointsFitted, ByVal 0)
     
    892894    Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font,
    893895        layoutRectSize As /*Const*/ SizeF, stringFormat As /*Const*/ StringFormat,
    894         size As SizeF, codepointsFitted As Long, linesFilled As Long) As Status
     896        size As SizeF, codepointsFitted As Long, linesFilled As Long) As Gdiplus.Status
    895897
    896898        Dim layoutRect As RectangleF(0, 0, layoutRectSize.Width, layoutRectSize.Height)
     
    917919            nativeFont, layoutRect, nativeFormat, pBoundingBox, codepointsFitted, linesFilled))
    918920
    919         If VarPtr(size) <> 0 And status = Status.Ok Then
     921        If VarPtr(size) <> 0 And status = Gdiplus.Status.Ok Then
    920922            size.Width  = boundingBox.Width
    921923            size.Height = boundingBox.Height
     
    927929    Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font,
    928930        origin As /*Const*/ PointF, stringFormat As /*Const*/ StringFormat,
    929         boundingBox As RectangleF) As Status
     931        boundingBox As RectangleF) As Gdiplus.Status
    930932
    931933        Dim rect As RectangleF(origin.X, origin.Y, 0.0f, 0.0f)
     
    947949
    948950    Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font,
    949         layoutRect As /*Const*/ RectangleF, boundingBox As RectangleF) As Status
     951        layoutRect As /*Const*/ RectangleF, boundingBox As RectangleF) As Gdiplus.Status
    950952
    951953        Dim nativeFont As *GpFont
     
    960962
    961963    Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font,
    962         origin As /*Const*/ PointF, boundingBox As RectangleF) As Status
     964        origin As /*Const*/ PointF, boundingBox As RectangleF) As Gdiplus.Status
    963965        Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0)
    964966
     
    974976    Const Function MeasureCharacterRanges(str As PCWSTR, length As Long, font As /*Const*/ Font,
    975977        layoutRect As /*Const*/ RectangleF, stringFormat As /*Const*/ StringFormat,
    976         regionCount As Long, regions As *Region) As Status
     978        regionCount As Long, regions As *Region) As Gdiplus.Status
    977979        If regions = 0 Or regionCount <= 0 Then
    978980            Return InvalidParameter
     
    10101012
    10111013    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 Status
     1014        brush As /*Const*/ Brush, positions As /*Const*/ *PointF, flags As Long) As Gdiplus.Status
    10131015
    10141016        Return DrawDriverString(text, length, font, brush, positions, flags, ByVal 0)
     
    10161018
    10171019    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 Status
     1020        brush As /*Const*/ Brush, positions As /*Const*/ *PointF, flags As Long, matrix As /*Const*/ Matrix) As Gdiplus.Status
    10191021
    10201022        Dim nativeFont As *GpFont
     
    10401042
    10411043    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 Status
     1044        positions As /*Const*/ *PointF, flags As Long, matrix As /*Const*/ Matrix, boundingBox As RectangleF) As Gdiplus.Status
    10431045
    10441046        Dim nativeFont As *GpFont
     
    10611063    ' native format differs from this Graphics.
    10621064
    1063     Function DrawCachedBitmap(cb As CachedBitmap, x As Long, y As Long) As Status
     1065    Function DrawCachedBitmap(cb As CachedBitmap, x As Long, y As Long) As Gdiplus.Status
    10641066        Return SetStatus(GdipDrawCachedBitmap(nativeGraphics, cb->nativeCachedBitmap, x, y))
    10651067    End Function
    10661068
    1067     Function DrawImage(image As Image, point As /*Const*/ PointF) As Status
     1069    Function DrawImage(image As Image, point As /*Const*/ PointF) As Gdiplus.Status
    10681070        Return DrawImage(image, point.X, point.Y)
    10691071    End Function
    10701072
    1071     Function DrawImage(image As Image, x As Single, y As Single) As Status
     1073    Function DrawImage(image As Image, x As Single, y As Single) As Gdiplus.Status
    10721074        Dim nativeImage As *GpImage
    10731075        If VarPtr(image) <> 0 Then
     
    10791081    End Function
    10801082
    1081     Function DrawImage(image As Image, rect As /*Const*/ RectangleF) As Status
     1083    Function DrawImage(image As Image, rect As /*Const*/ RectangleF) As Gdiplus.Status
    10821084        Return DrawImage(image, rect.X, rect.Y, rect.Width, rect.Height)
    10831085    End Function
    10841086
    1085     Function DrawImage(image As Image, x As Single, y As Single, width As Single, height As Single) As Status
     1087    Function DrawImage(image As Image, x As Single, y As Single, width As Single, height As Single) As Gdiplus.Status
    10861088        Dim nativeImage As *GpImage
    10871089        If VarPtr(image) <> 0 Then
     
    10931095    End Function
    10941096
    1095     Function DrawImage(image As Image, point As /*Const*/ Point) As Status
    1096         Return DrawImage(image, point.X, point.Y) As Status
    1097     End Function
    1098 
    1099     Function DrawImage(image As Image, x As Long, y As Long) As Status
     1097    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
    11001102        Dim nativeImage As *GpImage
    11011103        If VarPtr(image) <> 0 Then
     
    11071109    End Function
    11081110
    1109     Function DrawImage(image As Image, rect As /*Const*/ Rectangle) As Status
     1111    Function DrawImage(image As Image, rect As /*Const*/ Rectangle) As Gdiplus.Status
    11101112        Return DrawImage(image, rect.X, rect.Y, rect.Width, rect.Height)
    11111113    End Function
    11121114
    1113     Function DrawImage(image As Image, x As Long, y As Long, width As Long, height As Long) As Status
     1115    Function DrawImage(image As Image, x As Long, y As Long, width As Long, height As Long) As Gdiplus.Status
    11141116        Dim nativeImage As *GpImage
    11151117        If VarPtr(image) <> 0 Then
     
    11291131    '      destPoints[3] <=> bottom-right corner
    11301132
    1131     Function DrawImage(image As Image, destPoints As /*Const*/ PointF, count As Long) As Status
     1133    Function DrawImage(image As Image, destPoints As /*Const*/ PointF, count As Long) As Gdiplus.Status
    11321134        If count <> 3 And count <> 4 Then
    11331135            Return SetStatus(InvalidParameter)
     
    11431145    End Function
    11441146
    1145     Function DrawImage(image As Image, destPoints As /*Const*/ Point, count As Long) As Status
     1147    Function DrawImage(image As Image, destPoints As /*Const*/ Point, count As Long) As Gdiplus.Status
    11461148        If count <> 3 And count <> 4 Then
    11471149            Return SetStatus(InvalidParameter)
     
    11581160
    11591161    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 Status
     1162        srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Gdiplus.Status
    11611163
    11621164        Dim nativeImage As *GpImage
     
    11701172
    11711173    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 Status
     1174        srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Gdiplus.Status
    11731175
    11741176        Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, 0, 0, 0)
     
    11771179    Function DrawImage(image As Image, destRect As /*Const*/ RectangleF,
    11781180        srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit,
    1179         imageAttributes As /*Const*/ ImageAttributes) As Status
     1181        imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status
    11801182
    11811183        Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, 0, 0)
     
    11851187        srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit,
    11861188        imageAttributes As /*Const*/ ImageAttributes,
    1187         callback As DrawImageAbort) As Status
     1189        callback As DrawImageAbort) As Gdiplus.Status
    11881190
    11891191        Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, callback, 0)
     
    11921194    Function DrawImage(image As Image, destRect As /*Const*/ RectangleF,
    11931195        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 Status
     1196        imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Gdiplus.Status
    11951197
    11961198        Dim nativeImage As *GpImage
     
    12001202            nativeImage = 0
    12011203        End If
    1202         Dim nativeImageAttr As *GpImageAttributes
    1203         If VarPtr(imageAttributes) <> 0 Then
    1204             nativeImageAttr = image.NativeImageAttr
    1205         Else
    1206             nativeImageAttr = 0
    1207         End If
    12081204
    12091205        Return SetStatus(GdipDrawImageRectRect(nativeGraphics, nativeImageAttr,
    12101206            destRect.X, destRect.Y, destRect.Width, destRect.Height, srcx, srcy, srcwidth, srcheight,
    1211             srcUnit, nativeImageAttr, callback, callbackData))
     1207            srcUnit, ImageAttributes.Native(imageAttributes), callback, callbackData))
    12121208    End Function
    12131209
    12141210    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 Status
     1211        srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Gdiplus.Status
    12161212
    12171213        Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, 0, 0, 0)
     
    12201216    Function DrawImage(image As Image, destPoints As /*Const*/ PointF, count As Long,
    12211217        srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit,
    1222         imageAttributes As /*Const*/ ImageAttributes) As Status
     1218        imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status
    12231219
    12241220        Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, 0, 0)
     
    12281224        srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit,
    12291225        imageAttributes As /*Const*/ ImageAttributes,
    1230         callback As DrawImageAbort) As Status
     1226        callback As DrawImageAbort) As Gdiplus.Status
    12311227
    12321228        Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, callback, 0)
     
    12351231    Function DrawImage(image As Image, destPoints As /*Const*/ PointF, count As Long,
    12361232        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 Status
     1233        imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Gdiplus.Status
    12381234
    12391235        Dim nativeImage As *GpImage
     
    12431239            nativeImage = 0
    12441240        End If
    1245         Dim nativeImageAttr As *GpImageAttributes
    1246         If VarPtr(imageAttributes) <> 0 Then
    1247             nativeImageAttr = image.NativeImageAttr
    1248         Else
    1249             nativeImageAttr = 0
    1250         End If
    12511241
    12521242        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))
    12541244    End Function
    12551245
    12561246    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 Status
     1247        srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit) As Gdiplus.Status
    12581248
    12591249        Dim nativeImage As *GpImage
     
    12671257
    12681258    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 Status
     1259        srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Gdiplus.Status
    12701260
    12711261        Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, 0, 0, 0)
     
    12741264    Function DrawImage(image As Image, destRect As /*Const*/ Rectangle,
    12751265        srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit,
    1276         imageAttributes As /*Const*/ ImageAttributes) As Status
     1266        imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status
    12771267
    12781268        Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, 0, 0)
     
    12811271    Function DrawImage(image As Image, destRect As /*Const*/ Rectangle,
    12821272        srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit,
    1283         imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Status
     1273        imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Gdiplus.Status
    12841274
    12851275        Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, callback, 0)
     
    12881278    Function DrawImage(image As Image, destRect As /*Const*/ Rectangle,
    12891279        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 Status
     1280        imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Gdiplus.Status
    12911281
    12921282        Dim nativeImage As *GpImage
     
    12961286            nativeImage = 0
    12971287        End If
    1298         Dim nativeImageAttr As *GpImageAttributes
    1299         If VarPtr(imageAttributes) <> 0 Then
    1300             nativeImageAttr = image.NativeImageAttr
    1301         Else
    1302             nativeImageAttr = 0
    1303         End If
    13041288
    13051289        Return SetStatus(GdipDrawImageRectRectI(nativeGraphics, nativeImage,
    13061290            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))
    13081292    End Function
    13091293
    13101294    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 Status
     1295        srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit) As Gdiplus.Status
    13121296
    13131297        Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, 0, 0, 0)
     
    13161300    Function DrawImage(image As Image, destPoints As /*Const*/ Point, count As Long,
    13171301        srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit,
    1318         imageAttributes As /*Const*/ ImageAttributes) As Status
     1302        imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status
    13191303
    13201304        Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, 0, 0)
     
    13241308        srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit, _
    13251309        imageAttributes As /*Const*/ ImageAttributes,
    1326         callback As DrawImageAbort) As Status
     1310        callback As DrawImageAbort) As Gdiplus.Status
    13271311
    13281312        Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, callback, 0)
     
    13311315    Function DrawImage(image As Image, destPoints As /*Const*/ Point, count As Long,
    13321316        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 Status
     1317        imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Gdiplus.Status
    13341318
    13351319        Dim nativeImage As *GpImage
     
    13391323            nativeImage = 0
    13401324        End If
    1341         Dim nativeImageAttr As *GpImageAttributes
    1342         If VarPtr(imageAttributes) <> 0 Then
    1343             nativeImageAttr = image.NativeImageAttr
    1344         Else
    1345             nativeImageAttr = 0
    1346         End If
    13471325
    13481326        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 Status
     1327            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
    13531331        Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit)
    13541332    End Function
    13551333
    1356     Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit) As Status
     1334    Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit) As Gdiplus.Status
    13571335        Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit)
    13581336    End Function
    13591337
    1360     Function DrawImage(image As Image, x As Long, y As Long, srcRect As Rectangle, srcUnit As GraphicsUnit) As Status
     1338    Function DrawImage(image As Image, x As Long, y As Long, srcRect As Rectangle, srcUnit As GraphicsUnit) As Gdiplus.Status
    13611339        Return DrawImage(image, x, y, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit)
    13621340    End Function
    13631341
    1364     Function DrawImage(image As Image, x As Single, y As Single, srcRect As RectangleF, srcUnit As GraphicsUnit) As Status
     1342    Function DrawImage(image As Image, x As Single, y As Single, srcRect As RectangleF, srcUnit As GraphicsUnit) As Gdiplus.Status
    13651343        Return DrawImage(image, x, y, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit)
    13661344    End Function
    13671345
    1368     Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes) As Status
     1346    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
    13691347        Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes)
    13701348    End Function
    13711349
    1372     Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes) As Status
     1350    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
    13731351        Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes)
    13741352    End Function
    13751353
    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 Status
     1354    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
    13771355        Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes, callback)
    13781356    End Function
    13791357
    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 Status
     1358    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
    13811359        Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes, callback)
    13821360    End Function
    13831361
    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 Status
     1362    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
    13851363        Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes, callback, callbackData)
    13861364    End Function
    13871365
    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 Status
     1366    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
    13891367        Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes, callback, callbackData)
    13901368    End Function
     
    13971375
    13981376    Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ PointF,
    1399         callback As EnumerateMetafileProc) As Status
     1377        callback As EnumerateMetafileProc) As Gdiplus.Status
    14001378
    14011379        Return EnumerateMetafile(metafile, destPoint, callback, 0, 0)
     
    14031381
    14041382    Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ PointF,
    1405         callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status
     1383        callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status
    14061384
    14071385        Return EnumerateMetafile(metafile, destPoint, callback, callbackData, 0)
     
    14091387
    14101388    Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ PointF,
    1411         callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status
     1389        callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status
    14121390
    14131391        Dim nativeImage As /*Const*/ *GpMetafile
     
    14171395            nativeImage = 0
    14181396        End If
    1419         Dim nativeImageAttr As *GpImageAttributes
    1420         If VarPtr(imageAttributes) <> 0 Then
    1421             nativeImageAttr = image.NativeImageAttr
    1422         Else
    1423             nativeImageAttr = 0
    1424         End If
    14251397
    14261398        Return SetStatus(GdipEnumerateMetafileDestPoint(nativeGraphics,
    1427             nativeImage, destPoint, callback, callbackData,nativeImageAttr))
     1399            nativeImage, destPoint, callback, callbackData, ImageAttributes.Native(imageAttributes)))
    14281400    End Function
    14291401
    14301402    Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ Point,
    1431         callback As EnumerateMetafileProc) As Status
     1403        callback As EnumerateMetafileProc) As Gdiplus.Status
    14321404
    14331405        Return EnumerateMetafile(metafile, destPoint, callback, 0, 0)
     
    14351407
    14361408    Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ Point,
    1437         callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status
     1409        callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status
    14381410
    14391411        Return EnumerateMetafile(metafile, destPoint, callback, callbackData, 0)
     
    14411413
    14421414    Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ Point,
    1443         callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status
     1415        callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status
    14441416
    14451417        Dim nativeImage As /*Const*/ *GpMetafile
     
    14491421            nativeImage = 0
    14501422        End If
    1451         Dim nativeImageAttr As *GpImageAttributes
    1452         If VarPtr(imageAttributes) <> 0 Then
    1453             nativeImageAttr = image.NativeImageAttr
    1454         Else
    1455             nativeImageAttr = 0
    1456         End If
    14571423
    14581424        Return SetStatus(GdipEnumerateMetafileDestPointI(nativeGraphics,
    1459             nativeImage, destPoint, callback, callbackData,nativeImageAttr))
     1425            nativeImage, destPoint, callback, callbackData, ImageAttributes.Native(imageAttributes)))
    14601426    End Function
    14611427
    14621428    Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ RectangleF,
    1463         callback As EnumerateMetafileProc) As Status
     1429        callback As EnumerateMetafileProc) As Gdiplus.Status
    14641430
    14651431        Return EnumerateMetafile(metafile, destRect, callback, 0, 0)
     
    14671433
    14681434    Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ RectangleF,
    1469         callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status
     1435        callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status
    14701436
    14711437        Return EnumerateMetafile(metafile, destRect, callback, callbackData, 0)
     
    14731439
    14741440    Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ RectangleF,
    1475         callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status
     1441        callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status
    14761442
    14771443        Dim nativeImage As /*Const*/ *GpMetafile
     
    14811447            nativeImage = 0
    14821448        End If
    1483         Dim nativeImageAttr As *GpImageAttributes
    1484         If VarPtr(imageAttributes) <> 0 Then
    1485             nativeImageAttr = image.NativeImageAttr
    1486         Else
    1487             nativeImageAttr = 0
    1488         End If
    14891449
    14901450        Return SetStatus(GdipEnumerateMetafileDestRect(nativeGraphics,
    1491             nativeImage, destRect, callback, callbackData, nativeImageAttr))
     1451            nativeImage, destRect, callback, callbackData, ImageAttributes.Native(imageAttributes)))
    14921452    End Function
    14931453
    14941454    Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ Rectangle,
    1495         callback As EnumerateMetafileProc) As Status
     1455        callback As EnumerateMetafileProc) As Gdiplus.Status
    14961456
    14971457        Return EnumerateMetafile(metafile, destRect, callback, 0, 0)
     
    14991459
    15001460    Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ Rectangle,
    1501         callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status
     1461        callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status
    15021462
    15031463        Return EnumerateMetafile(metafile, destRect, callback, callbackData, 0)
     
    15051465
    15061466    Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ Rectangle,
    1507         callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status
     1467        callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status
    15081468
    15091469        Dim nativeImage As /*Const*/ *GpMetafile
     
    15131473            nativeImage = 0
    15141474        End If
    1515         Dim nativeImageAttr As *GpImageAttributes
    1516         If VarPtr(imageAttributes) <> 0 Then
    1517             nativeImageAttr = image.NativeImageAttr
    1518         Else
    1519             nativeImageAttr = 0
    1520         End If
    15211475
    15221476        Return SetStatus(GdipEnumerateMetafileDestRectI(nativeGraphics,
    1523             nativeImage, destRect, callback, callbackData, nativeImageAttr))
     1477            nativeImage, destRect, callback, callbackData, ImageAttributes.Native(imageAttributes)))
    15241478    End Function
    15251479
    15261480    Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *PointF, count As Long,
    1527         callback As EnumerateMetafileProc) As Status
     1481        callback As EnumerateMetafileProc) As Gdiplus.Status
    15281482
    15291483        Return EnumerateMetafile(metafile, destPoints, count, callback, 0, 0)
     
    15311485
    15321486    Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *PointF, count As Long,
    1533         callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status
     1487        callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status
    15341488
    15351489        Return EnumerateMetafile(metafile, destPoints, count, callback, callbackData, 0)
     
    15371491
    15381492    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 Status
     1493        callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status
    15401494
    15411495        Dim nativeImage As /*Const*/ *GpMetafile
     
    15451499            nativeImage = 0
    15461500        End If
    1547         Dim nativeImageAttr As *GpImageAttributes
    1548         If VarPtr(imageAttributes) <> 0 Then
    1549             nativeImageAttr = image.NativeImageAttr
    1550         Else
    1551             nativeImageAttr = 0
    1552         End If
    15531501
    15541502        Return SetStatus(GdipEnumerateMetafileDestPoints(nativeGraphics,
    1555             nativeImage,destPoints, count, callback, callbackData, nativeImageAttr))
     1503            nativeImage,destPoints, count, callback, callbackData, ImageAttributes.Native(imageAttributes)))
    15561504    End Function
    15571505
    15581506    Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *Point, count As Long,
    1559         callback As EnumerateMetafileProc) As Status
     1507        callback As EnumerateMetafileProc) As Gdiplus.Status
    15601508
    15611509        Return EnumerateMetafile(metafile, destPoints, count, callback, 0, 0)
     
    15631511
    15641512    Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *Point, count As Long,
    1565         callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status
     1513        callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status
    15661514
    15671515        Return EnumerateMetafile(metafile, destPoints, count, callback, callbackData, 0)
     
    15691517
    15701518    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 Status
     1519        callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status
    15721520
    15731521        Dim nativeImage As /*Const*/ *GpMetafile
     
    15771525            nativeImage = 0
    15781526        End If
    1579         Dim nativeImageAttr As *GpImageAttributes
    1580         If VarPtr(imageAttributes) <> 0 Then
    1581             nativeImageAttr = image.NativeImageAttr
    1582         Else
    1583             nativeImageAttr = 0
    1584         End If
    15851527
    15861528        Return SetStatus(GdipEnumerateMetafileDestPointsI(nativeGraphics,
    1587             nativeImage,destPoints, count, callback, callbackData, nativeImageAttr))
     1529            nativeImage,destPoints, count, callback, callbackData, ImageAttributes.Native(imageAttributes)))
    15881530    End Function
    15891531
    15901532    Function EnumerateMetafile(metafile As /*Const*/ Metafile,
    15911533        destPoint As /*Const*/ PointF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit,
    1592         callback As EnumerateMetafileProc) As Status
     1534        callback As EnumerateMetafileProc) As Gdiplus.Status
    15931535
    15941536        Return EnumerateMetafile(metafile, destPoint, count, srcUnit, callback, 0, 0)
     
    15971539    Function EnumerateMetafile(metafile As /*Const*/ Metafile,
    15981540        destPoint As /*Const*/ PointF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit,
    1599         callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status
     1541        callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status
    16001542
    16011543        Return EnumerateMetafile(metafile, destPoint, srcRect, srcUnit, callback, callbackData, 0)
     
    16041546    Function EnumerateMetafile(metafile As /*Const*/ Metafile,
    16051547        destPoint As /*Const*/ PointF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit,
    1606         callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status
     1548        callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status
    16071549
    16081550        Dim nativeImage As /*Const*/ *GpMetafile
     
    16121554            nativeImage = 0
    16131555        End If
    1614         Dim nativeImageAttr As *GpImageAttributes
    1615         If VarPtr(imageAttributes) <> 0 Then
    1616             nativeImageAttr = image.NativeImageAttr
    1617         Else
    1618             nativeImageAttr = 0
    1619         End If
    16201556
    16211557        Return SetStatus(GdipEnumerateMetafileSrcRectDestPoint(nativeGraphics, _
    1622             nativeImage, destPoint, srcRect, srcUnit, callback, callbackData, nativeImageAttr))
     1558            nativeImage, destPoint, srcRect, srcUnit, callback, callbackData, ImageAttributes.Native(imageAttributes)))
    16231559    End Function
    16241560
    16251561    Function EnumerateMetafile(metafile As /*Const*/ Metafile, _
    16261562        destPoint As /*Const*/ Point, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _
    1627         callback As EnumerateMetafileProc) As Status
     1563        callback As EnumerateMetafileProc) As Gdiplus.Status
    16281564
    16291565        Return EnumerateMetafile(metafile, destPoint, count, srcUnit, callback, 0, 0)
     
    16321568    Function EnumerateMetafile(metafile As /*Const*/ Metafile, _
    16331569        destPoint As /*Const*/ Point, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _
    1634         callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status
     1570        callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status
    16351571
    16361572        Return EnumerateMetafile(metafile, destPoint, srcRect, srcUnit, callback, callbackData, 0)
     
    16391575    Function EnumerateMetafile(metafile As /*Const*/ Metafile, _
    16401576        destPoint As /*Const*/ Point, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _
    1641         callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status
     1577        callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status
    16421578
    16431579        Dim nativeImage As /*Const*/ *GpMetafile
     
    16471583            nativeImage = 0
    16481584        End If
    1649         Dim nativeImageAttr As *GpImageAttributes
    1650         If VarPtr(imageAttributes) <> 0 Then
    1651             nativeImageAttr = image.NativeImageAttr
    1652         Else
    1653             nativeImageAttr = 0
    1654         End If
    16551585
    16561586        Return SetStatus(GdipEnumerateMetafileSrcRectDestPointI(nativeGraphics, _
    1657             nativeImage, destPoint, srcRect, srcUnit, callback, callbackData, nativeImageAttr))
     1587            nativeImage, destPoint, srcRect, srcUnit, callback, callbackData, ImageAttributes.Native(imageAttributes)))
    16581588    End Function
    16591589
    16601590    Function EnumerateMetafile(metafile As /*Const*/ Metafile, _
    16611591        destRect As /*Const*/ RectangleF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _
    1662         callback As EnumerateMetafileProc) As Status
     1592        callback As EnumerateMetafileProc) As Gdiplus.Status
    16631593
    16641594        Return EnumerateMetafile(metafile, destRect, count, srcUnit, callback, 0, 0)
     
    16671597    Function EnumerateMetafile(metafile As /*Const*/ Metafile, _
    16681598        destRect As /*Const*/ RectangleF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _
    1669         callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status
     1599        callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status
    16701600
    16711601        Return EnumerateMetafile(metafile, destRect, srcRect, srcUnit, callback, callbackData, 0)
     
    16741604    Function EnumerateMetafile(metafile As /*Const*/ Metafile, _
    16751605        destRect As /*Const*/ RectangleF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _
    1676         callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status
     1606        callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status
    16771607
    16781608        Dim nativeImage As /*Const*/ *GpMetafile
     
    16821612            nativeImage = 0
    16831613        End If
    1684         Dim nativeImageAttr As *GpImageAttributes
    1685         If VarPtr(imageAttributes) <> 0 Then
    1686             nativeImageAttr = image.NativeImageAttr
    1687         Else
    1688             nativeImageAttr = 0
    1689         End If
    16901614
    16911615        Return SetStatus(GdipEnumerateMetafileSrcRectDestRect(nativeGraphics, _
    1692             nativeImage, destRect, srcRect, srcUnit, callback, callbackData, nativeImageAttr))
     1616            nativeImage, destRect, srcRect, srcUnit, callback, callbackData, ImageAttributes.Native(imageAttributes)))
    16931617    End Function
    16941618
    16951619    Function EnumerateMetafile(metafile As /*Const*/ Metafile, _
    16961620        destRect As /*Const*/ Rectangle, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _
    1697         callback As EnumerateMetafileProc) As Status
     1621        callback As EnumerateMetafileProc) As Gdiplus.Status
    16981622
    16991623        Return EnumerateMetafile(metafile, destRect, srcRect, srcUnit, callback, 0, 0)
     
    17021626    Function EnumerateMetafile(metafile As /*Const*/ Metafile, _
    17031627        destRect As /*Const*/ Rectangle, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _
    1704         callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status
     1628        callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status
    17051629
    17061630        Return EnumerateMetafile(metafile, destRect, srcRect, srcUnit, callback, callbackData, 0)
     
    17091633    Function EnumerateMetafile(metafile As /*Const*/ Metafile, _
    17101634        destRect As /*Const*/ Rectangle, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _
    1711         callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status
     1635        callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status
    17121636
    17131637        Dim nativeImage As /*Const*/ *GpMetafile
     
    17171641            nativeImage = 0
    17181642        End If
    1719         Dim nativeImageAttr As *GpImageAttributes
    1720         If VarPtr(imageAttributes) <> 0 Then
    1721             nativeImageAttr = image.NativeImageAttr
    1722         Else
    1723             nativeImageAttr = 0
    1724         End If
    17251643
    17261644        Return SetStatus(GdipEnumerateMetafileSrcRectDestRectI(nativeGraphics, _
    1727             nativeImage, destRect, srcRect, srcUnit, callback, callbackData, nativeImageAttr))
     1645            nativeImage, destRect, srcRect, srcUnit, callback, callbackData, ImageAttributes.Native(imageAttributes)))
    17281646    End Function
    17291647
    17301648    Function EnumerateMetafile(metafile As /*Const*/ Metafile, _
    17311649        destPoints As /*Const*/ *PointF, count As Long, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _
    1732         callback As EnumerateMetafileProc) As Status
     1650        callback As EnumerateMetafileProc) As Gdiplus.Status
    17331651
    17341652        Return EnumerateMetafile(metafile, destPoints, count, srcRect, srcUnit, callback, 0, 0)
     
    17371655    Function EnumerateMetafile(metafile As /*Const*/ Metafile, _
    17381656        destPoints As /*Const*/ *PointF, count As Long, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _
    1739         callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status
     1657        callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status
    17401658
    17411659        Return EnumerateMetafile(metafile, destPoints, count, srcRect, srcUnit, callback, callbackData, 0)
     
    17441662    Function EnumerateMetafile(metafile As /*Const*/ Metafile, _
    17451663        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 Status
     1664        callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status
    17471665
    17481666        Dim nativeImage As /*Const*/ *GpMetafile
     
    17521670            nativeImage = 0
    17531671        End If
    1754         Dim nativeImageAttr As *GpImageAttributes
    1755         If VarPtr(imageAttributes) <> 0 Then
    1756             nativeImageAttr = image.NativeImageAttr
    1757         Else
    1758             nativeImageAttr = 0
    1759         End If
    17601672
    17611673        Return SetStatus(GdipEnumerateMetafileSrcRectDestPoints(nativeGraphics, _
    1762             nativeImage, destPoints, count, srcRect, srcUnit, callback, callbackData, nativeImageAttr))
     1674            nativeImage, destPoints, count, srcRect, srcUnit, callback, callbackData, ImageAttributes.Native(imageAttributes)))
    17631675    End Function
    17641676
    17651677    Function EnumerateMetafile(metafile As /*Const*/ Metafile, _
    17661678        destPoints As /*Const*/ *Point, count As Long, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _
    1767         callback As EnumerateMetafileProc) As Status
     1679        callback As EnumerateMetafileProc) As Gdiplus.Status
    17681680
    17691681        Return EnumerateMetafile(metafile, destPoints, count, srcRect, srcUnit, callback, 0, 0)
     
    17721684    Function EnumerateMetafile(metafile As /*Const*/ Metafile, _
    17731685        destPoints As /*Const*/ *Point, count As Long, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _
    1774         callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status
     1686        callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status
    17751687
    17761688        Return EnumerateMetafile(metafile, destPoints, count, srcRect, srcUnit, callback, callbackData, 0)
     
    17791691    Function EnumerateMetafile(metafile As /*Const*/ Metafile, _
    17801692        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 Status
     1693        callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status
    17821694
    17831695        Dim nativeImage As /*Const*/ *GpMetafile
     
    17871699            nativeImage = 0
    17881700        End If
    1789         Dim nativeImageAttr As *GpImageAttributes
    1790         If VarPtr(imageAttributes) <> 0 Then
    1791             nativeImageAttr = image.NativeImageAttr
    1792         Else
    1793             nativeImageAttr = 0
    1794         End If
    17951701
    17961702        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 Status
     1703            destPoints, count, srcRect, srcUnit, callback, callbackData, ImageAttributes.Native(imageAttributes)))
     1704    End Function
     1705
     1706    Function SetClip(g As /*Const*/ Graphics) As Gdiplus.Status
    18011707        Return SetClip(g, CombineMode.Replace)
    18021708    End Function
    18031709
    1804     Function SetClip(rc As /*Const*/ RectangleF) As Status
     1710    Function SetClip(rc As /*Const*/ RectangleF) As Gdiplus.Status
    18051711        Return SetStatus(GdipSetClipRect(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Replace))
    18061712    End Function
    18071713
    1808     Function SetClip(rc As /*Const*/ Rectangle) As Status
     1714    Function SetClip(rc As /*Const*/ Rectangle) As Gdiplus.Status
    18091715        Return SetStatus(GdipSetClipRectI(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Replace))
    18101716    End Function
    18111717
    1812     Function SetClip(path As /*Const*/ GraphicsPath) As Status
     1718    Function SetClip(path As /*Const*/ GraphicsPath) As Gdiplus.Status
    18131719        Return SetStatus(GdipSetClipPath(nativeGraphics, path->nativePath, CombineMode.Replace))
    18141720    End Function
    18151721
    1816     Function SetClip(region As /*Const*/ Region) As Status
     1722    Function SetClip(region As /*Const*/ Region) As Gdiplus.Status
    18171723        Return SetStatus(GdipSetClipRegion(nativeGraphics, region->nativeRegion, CombineMode.Replace))
    18181724    End Function
    18191725
    1820     Function SetClip(g As /*Const*/ Graphics, combineMode As CombineMode) As Status
     1726    Function SetClip(g As /*Const*/ Graphics, combineMode As CombineMode) As Gdiplus.Status
    18211727        Return SetStatus(GdipSetClipGraphics(nativeGraphics, g->nativeGraphics, combineMode))
    18221728    End Function
    18231729
    1824     Function SetClip(rc As /*Const*/ RectangleF, combineMode As CombineMode) As Status
     1730    Function SetClip(rc As /*Const*/ RectangleF, combineMode As CombineMode) As Gdiplus.Status
    18251731        Return SetStatus(GdipSetClipRect(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, combineMode))
    18261732    End Function
    18271733
    1828     Function SetClip(rc As /*Const*/ Rectangle, combineMode As CombineMode) As Status
     1734    Function SetClip(rc As /*Const*/ Rectangle, combineMode As CombineMode) As Gdiplus.Status
    18291735        Return SetStatus(GdipSetClipRectI(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, combineMode))
    18301736    End Function
    18311737
    1832     Function SetClip(path As /*Const*/ GraphicsPath, combineMode As CombineMode) As Status
     1738    Function SetClip(path As /*Const*/ GraphicsPath, combineMode As CombineMode) As Gdiplus.Status
    18331739        Return SetStatus(GdipSetClipPath(nativeGraphics, path->nativePath, combineMode))
    18341740    End Function
    18351741
    1836     Function SetClip(region As /*Const*/ Region, combineMode As CombineMode) As Status
     1742    Function SetClip(region As /*Const*/ Region, combineMode As CombineMode) As Gdiplus.Status
    18371743        Return SetStatus(GdipSetClipRegion(nativeGraphics, region->nativeRegion, combineMode))
    18381744    End Function
     
    18421748    ' the coordinates in the HRGN.
    18431749
    1844     Function SetClip(hrgn As HRGN, combineMode As CombineMode /* = CombineModeReplace*/) As Status
     1750    Function SetClip(hrgn As HRGN, combineMode As CombineMode /* = CombineModeReplace*/) As Gdiplus.Status
    18451751        Return SetStatus(GdipSetClipHrgn(nativeGraphics, hrgn, combineMode))
    18461752    End Function
    18471753
    1848     Function IntersectClip(rc As /*Const*/ RectangleF) As Status
     1754    Function IntersectClip(rc As /*Const*/ RectangleF) As Gdiplus.Status
    18491755        Return SetStatus(GdipSetClipRect(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Intersect))
    18501756    End Function
    18511757
    1852     Function IntersectClip(rc As /*Const*/ Rectangle) As Status
     1758    Function IntersectClip(rc As /*Const*/ Rectangle) As Gdiplus.Status
    18531759        Return SetStatus(GdipSetClipRectI(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Intersect))
    18541760    End Function
    18551761
    1856     Function IntersectClip(region As /*Const*/ Region) As Status
     1762    Function IntersectClip(region As /*Const*/ Region) As Gdiplus.Status
    18571763        Return SetStatus(GdipSetClipRegion(nativeGraphics, region->nativeRegion, CombineMode.Intersect))
    18581764    End Function
    18591765
    1860     Function ExcludeClip(rc As /*Const*/ RectangleF) As Status
     1766    Function ExcludeClip(rc As /*Const*/ RectangleF) As Gdiplus.Status
    18611767        Return SetStatus(GdipSetClipRect(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Exclude))
    18621768    End Function
    18631769
    1864     Function ExcludeClip(rc As /*Const*/ Rectangle) As Status
     1770    Function ExcludeClip(rc As /*Const*/ Rectangle) As Gdiplus.Status
    18651771        Return SetStatus(GdipSetClipRectI(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Exclude))
    18661772    End Function
    18671773
    1868     Function ExcludeClip(region As /*Const*/ Region) As Status
     1774    Function ExcludeClip(region As /*Const*/ Region) As Gdiplus.Status
    18691775        Return SetStatus(GdipSetClipRegion(nativeGraphics, region->nativeRegion, CombineMode.Exclude))
    18701776    End Function
    18711777
    1872     Function ResetClip() As Status
     1778    Function ResetClip() As Gdiplus.Status
    18731779        Return SetStatus(GdipResetClip(nativeGraphics))
    18741780    End Function
    18751781
    1876     Function TranslateClip(dx As Single, dy As Single) As Status
     1782    Function TranslateClip(dx As Single, dy As Single) As Gdiplus.Status
    18771783        Return SetStatus(GdipTranslateClip(nativeGraphics, dx, dy))
    18781784    End Function
    18791785
    1880     Function TranslateClip(dx As Long, dy As Long) As Status
     1786    Function TranslateClip(dx As Long, dy As Long) As Gdiplus.Status
    18811787        Return SetStatus(GdipTranslateClipI(nativeGraphics, dx, dy))
    18821788    End Function
    18831789
    1884     Const Function GetClip(region As Region) As Status
     1790    Const Function GetClip(region As Region) As Gdiplus.Status
    18851791        Return SetStatus(GdipGetClip(nativeGraphics, region->nativeRegion))
    18861792    End Function
    18871793
    1888     Const Function GetClipBounds(rc As RectangleF) As Status
     1794    Const Function GetClipBounds(rc As RectangleF) As Gdiplus.Status
    18891795        Return SetStatus(GdipGetClipBounds(nativeGraphics, rc))
    18901796    End Function
    18911797
    1892     Const Function GetClipBounds(rc As Rectangle) As Status
     1798    Const Function GetClipBounds(rc As Rectangle) As Gdiplus.Status
    18931799        Return SetStatus(GdipGetClipBoundsI(nativeGraphics, rc))
    18941800    End Function
    18951801
    1896     Const Function GetVisibleClipBounds(rc As RectangleF) As Status
     1802    Const Function GetVisibleClipBounds(rc As RectangleF) As Gdiplus.Status
    18971803        Return SetStatus(GdipGetVisibleClipBounds(nativeGraphics, rc))
    18981804    End Function
    18991805
    1900     Const Function GetVisibleClipBounds(rc As Rectangle) As Status
     1806    Const Function GetVisibleClipBounds(rc As Rectangle) As Gdiplus.Status
    19011807        Return SetStatus(GdipGetVisibleClipBoundsI(nativeGraphics, rc))
    19021808    End Function
     
    19701876    End Function
    19711877
    1972     Function EndContainer(state As GraphicsContainer) As Status
     1878    Function EndContainer(state As GraphicsContainer) As Gdiplus.Status
    19731879        Return SetStatus(GdipEndContainer(nativeGraphics, state))
    19741880    End Function
     
    19841890    End Function
    19851891
    1986     Const Function GetLastStatus() As Status
     1892    Const Function GetLastStatus() As Gdiplus.Status
    19871893        Dim lastStatus = lastResult
    1988         lastResult = Status.Ok
     1894        lastResult = Gdiplus.Status.Ok
    19891895        Return lastStatus
    19901896    End Function
     
    19941900'       Debug
    19951901'   End Sub
    1996     Sub Operator =(gr As Graphics)
    1997         Debug
    1998     End Sub
    19991902
    20001903Protected
    2001     Sub Graphics(graphics As *GpGraphics)
    2002         lastResult = Status.Ok
     1904    Sub Graphics(graphics As *Gdiplus.GpGraphics)
     1905        lastResult = Gdiplus.Status.Ok
    20031906        SetNativeGraphics(graphics)
    20041907    End Sub
    20051908
    2006     Sub SetNativeGraphics(graphics As *GpGraphics)
     1909    Sub SetNativeGraphics(graphics As *Gdiplus.GpGraphics)
    20071910        This.nativeGraphics = graphics
    20081911    End Sub
    20091912
    2010     Const Function SetStatus(status As Status) As Status
    2011         If status <> Status.Ok Then
     1913    Const Function SetStatus(status As Gdiplus.Status) As Gdiplus.Status
     1914        If status <> Gdiplus.Status.Ok Then
    20121915            lastResult = status
    20131916        End If
     
    20151918    End Function
    20161919
    2017     Const Function GetNativeGraphics() As *GpGraphics
     1920    Const Function GetNativeGraphics() As *Gdiplus.GpGraphics
    20181921        Return This.nativeGraphics
    20191922    End Function
     
    20241927
    20251928Protected
    2026     nativeGraphics As *GpGraphics
    2027     lastResult As /*Mutable*/ Status
     1929    nativeGraphics As *Gdiplus.GpGraphics
     1930    lastResult As /*Mutable*/ Gdiplus.Status
    20281931End Class
    20291932
     1933End Namespace 'Drawing
     1934End Namespace 'System
     1935
    20301936#endif
Note: See TracChangeset for help on using the changeset viewer.