Changeset 241 for branch/egtra-gdiplus/Classes/System/Drawing/Graphics.ab
- Timestamp:
- May 9, 2007, 10:26:36 PM (18 years ago)
- Location:
- branch/egtra-gdiplus
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
branch/egtra-gdiplus/Classes/System/Drawing/Graphics.ab
r212 r241 4 4 #define __SYSTEM_DRAWING_GRAPHICS_AB__ 5 5 6 Class Brush : End Class 6 #require <GdiplusGpStubs.ab> 7 #require <GdiPlusFlat.ab> 8 #require <Classes/System/Drawing/misc.ab> 9 #require <Classes/System/Drawing/Rectangle.ab> 10 #require <Classes/System/Drawing/RectangleF.ab> 11 #require <Classes/System/Drawing/Point.ab> 12 #require <Classes/System/Drawing/PointF.ab> 13 #require <Classes/System/Drawing/SizeF.ab> 14 #require <Classes/System/Drawing/Font.ab> 15 #require <Classes/System/Drawing/Brush.ab> 16 '#require <Classes/System/Drawing/Pen.ab> 17 '#require <Classes/System/Drawing/Region.ab> 18 '#require <Classes/System/Drawing/StringFormat.ab> 19 '#require <Classes/System/Drawing/Image.ab> 20 #require <Classes/System/Drawing/Drawing2D/misc.ab> 21 #require <Classes/System/Drawing/Drawing2D/Matrix.ab> 22 #require <Classes/System/Drawing/Imaging/ImageAttributes.ab> 23 24 Namespace System 25 Namespace Drawing 26 7 27 Class Pen : End Class 8 28 Class StringFormat : End Class 9 29 Class Image : End Class 10 Class ImageAttributes : End Class11 30 Class Metafile : End Class 12 31 Class Region : End Class 13 32 Class GraphicsPath : End Class 14 33 Class CachedBitmap : End Class 15 16 #include <GdiplusGpStubs.ab>17 #include <GdiPlusFlat.ab>18 #include <Classes/System/Drawing/misc.ab>19 #include <Classes/System/Drawing/Rectangle.ab>20 #include <Classes/System/Drawing/RectangleF.ab>21 #include <Classes/System/Drawing/Point.ab>22 #include <Classes/System/Drawing/PointF.ab>23 #include <Classes/System/Drawing/SizeF.ab>24 #include <Classes/System/Drawing/Font.ab>25 '#include <Classes/System/Drawing/Brush.ab>26 '#include <Classes/System/Drawing/Pen.ab>27 '#include <Classes/System/Drawing/Region.ab>28 '#include <Classes/System/Drawing/StringFormat.ab>29 '#include <Classes/System/Drawing/Image.ab>30 #include <Classes/System/Drawing/Drawing2D/misc.ab>31 #include <Classes/System/Drawing/Drawing2D/Matrix.ab>32 34 33 35 Class Graphics … … 104 106 End Function 105 107 106 Function PageScale(scale As Single) As Status108 Function PageScale(scale As Single) As Gdiplus.Status 107 109 Return SetStatus(GdipSetPageScale(nativeGraphics, scale)) 108 110 End Function … … 120 122 End Function 121 123 122 Function PageUnit(unit As GraphicsUnit) As Status124 Function PageUnit(unit As GraphicsUnit) As Gdiplus.Status 123 125 Return SetStatus(GdipSetPageUnit(nativeGraphics, unit)) 124 126 End Function … … 206 208 207 209 Sub Graphics(hdc As HDC) 208 Dim graphics = 0 As G pGraphics210 Dim graphics = 0 As Gdiplus.GpGraphics 209 211 lastResult = GdipCreateFromHDC(hdc, graphics) 210 212 SetNativeGraphics(graphics) … … 212 214 213 215 Sub Graphics(hdc As HDC, hdevice As HANDLE) 214 Dim graphics = 0 As *G pGraphics216 Dim graphics = 0 As *Gdiplus.GpGraphics 215 217 lastResult = GdipCreateFromHDC2(hdc, hdevice, graphics) 216 218 SetNativeGraphics(graphics) … … 218 220 219 221 Sub Graphics(hwnd As HWND) 220 Dim graphics = 0 As *G pGraphics222 Dim graphics = 0 As *Gdiplus.GpGraphics 221 223 lastResult = GdipCreateFromHWND(hwnd, graphics) 222 224 SetNativeGraphics(graphics) … … 224 226 225 227 Sub Graphics(hwnd As HWND, icm As BOOL) 226 Dim graphics = 0 As *G pGraphics228 Dim graphics = 0 As *Gdiplus.GpGraphics 227 229 If icm <> FALSE Then 228 230 lastResult = GdipCreateFromHWNDICM(hwnd, graphics) … … 234 236 235 237 Sub Graphics(image As Image) 236 Dim graphics = 0 As *G pGraphics238 Dim graphics = 0 As *Gdiplus.GpGraphics 237 239 If (image != 0) 238 240 lastResult = GdipGetImageGraphicsContext(image->NativeImage, graphics) … … 273 275 '------------------------------------------------------------------------ 274 276 275 Function SetRenderingOrigin(x As Long, y As Long) As Status277 Function SetRenderingOrigin(x As Long, y As Long) As Gdiplus.Status 276 278 Return SetStatus(GdipSetRenderingOrigin(nativeGraphics, x, y)) 277 279 End Function 278 280 279 Const Function GetRenderingOrigin(x As Long, y As Long) As Status281 Const Function GetRenderingOrigin(x As Long, y As Long) As Gdiplus.Status 280 282 Return SetStatus(GdipGetRenderingOrigin(nativeGraphics, x, y)) 281 283 End Function 282 284 283 Function SetCompositingMode(compositingMode As CompositingMode) As Status285 Function SetCompositingMode(compositingMode As CompositingMode) As Gdiplus.Status 284 286 Return SetStatus(GdipSetCompositingMode(nativeGraphics, compositingMode)) 285 287 End Function … … 301 303 End Function 302 304 303 Function SetTextRenderingHint(newMode As TextRenderingHint) As Status305 Function SetTextRenderingHint(newMode As TextRenderingHint) As Gdiplus.Status 304 306 Return SetStatus(GdipSetTextRenderingHint(nativeGraphics, newMode)) 305 307 End Function … … 311 313 End Function 312 314 313 Function SetTextContrast(contrast As DWord) As Status315 Function SetTextContrast(contrast As DWord) As Gdiplus.Status 314 316 Return SetStatus(GdipSetTextContrast(nativeGraphics, contrast)) 315 317 End Function … … 327 329 End Function 328 330 329 Function SetInterpolationMode(interpolationMode As InterpolationMode) As Status331 Function SetInterpolationMode(interpolationMode As InterpolationMode) As Gdiplus.Status 330 332 Return SetStatus(GdipSetInterpolationMode(nativeGraphics, interpolationMode)) 331 333 End Function … … 337 339 End Function 338 340 339 Function SetSmoothingMode(smoothingMode As SmoothingMode) As Status341 Function SetSmoothingMode(smoothingMode As SmoothingMode) As Gdiplus.Status 340 342 Return SetStatus(GdipSetSmoothingMode(nativeGraphics, smoothingMode)) 341 343 End Function … … 347 349 End Function 348 350 349 Function SetPixelOffsetMode(pixelOffsetMode As PixelOffsetMode) As Status351 Function SetPixelOffsetMode(pixelOffsetMode As PixelOffsetMode) As Gdiplus.Status 350 352 Return SetStatus(GdipSetPixelOffsetMode(nativeGraphics, pixelOffsetMode)) 351 353 End Function … … 355 357 '------------------------------------------------------------------------ 356 358 357 Function SetTransform(matrix As /*Const*/ *Matrix) As Status359 Function SetTransform(matrix As /*Const*/ *Matrix) As Gdiplus.Status 358 360 Return SetStatus(GdipSetWorldTransform(nativeGraphics, matrix->nativeMatrix)) 359 361 End Function 360 362 361 Function ResetTransform() As Status363 Function ResetTransform() As Gdiplus.Status 362 364 Return SetStatus(GdipResetWorldTransform(nativeGraphics)) 363 365 End Function 364 366 365 Function MultiplyTransform(matrix As /*Const*/ Matrix) As Status367 Function MultiplyTransform(matrix As /*Const*/ Matrix) As Gdiplus.Status 366 368 Return SetStatus(GdipMultiplyWorldTransform(nativeGraphics, matrix->nativeMatrix, MatrixOrder.Prepend)) 367 369 End Function 368 370 369 Function MultiplyTransform(matrix As /*Const*/ Matrix, order As MatrixOrder) As Status371 Function MultiplyTransform(matrix As /*Const*/ Matrix, order As MatrixOrder) As Gdiplus.Status 370 372 Return SetStatus(GdipMultiplyWorldTransform(nativeGraphics, matrix->nativeMatrix, order)) 371 373 End Function 372 374 373 Function TranslateTransform(dx As Single, dy As Single) As Status375 Function TranslateTransform(dx As Single, dy As Single) As Gdiplus.Status 374 376 Return SetStatus(GdipTranslateWorldTransform(nativeGraphics, dx, dy, MatrixOrder.Prepend)) 375 377 End Function 376 378 377 Function TranslateTransform(dx As Single, dy As Single, order As MatrixOrder) As Status379 Function TranslateTransform(dx As Single, dy As Single, order As MatrixOrder) As Gdiplus.Status 378 380 Return SetStatus(GdipTranslateWorldTransform(nativeGraphics, dx, dy, order)) 379 381 End Function 380 382 381 Function ScaleTransform(sx As Single, sy As Single) As Status383 Function ScaleTransform(sx As Single, sy As Single) As Gdiplus.Status 382 384 Return SetStatus(GdipScaleWorldTransform(nativeGraphics, sx, sy, MatrixOrder.Prepend)) 383 385 End Function 384 386 385 Function ScaleTransform(sx As Single, sy As Single, order As MatrixOrder) As Status387 Function ScaleTransform(sx As Single, sy As Single, order As MatrixOrder) As Gdiplus.Status 386 388 Return SetStatus(GdipScaleWorldTransform(nativeGraphics, sx, sy, order)) 387 389 End Function 388 390 389 Function RotateTransform(angle As Single) As Status391 Function RotateTransform(angle As Single) As Gdiplus.Status 390 392 Return SetStatus(GdipRotateWorldTransform(nativeGraphics, angle, MatrixOrder.Prepend)) 391 393 End Function 392 394 393 Function RotateTransform(angle As Single, order As MatrixOrder) As Status395 Function RotateTransform(angle As Single, order As MatrixOrder) As Gdiplus.Status 394 396 Return SetStatus(GdipRotateWorldTransform(nativeGraphics, angle, order)) 395 397 End Function 396 398 397 Const Function GetTransform(matrix As Matrix) As Status399 Const Function GetTransform(matrix As Matrix) As Gdiplus.Status 398 400 Return SetStatus(GdipGetWorldTransform(nativeGraphics, matrix->nativeMatrix)) 399 401 End Function 400 402 401 Const Function TransformPoints(destSpace As CoordinateSpace, srcSpace As CoordinateSpace, pts As PointF, count As Long) As Status403 Const Function TransformPoints(destSpace As CoordinateSpace, srcSpace As CoordinateSpace, pts As PointF, count As Long) As Gdiplus.Status 402 404 Return SetStatus(GdipTransformPoints(nativeGraphics, destSpace, srcSpace, pts, count)) 403 405 End Function 404 406 405 Const Function TransformPoints(destSpace As CoordinateSpace, srcSpace As CoordinateSpace, pts As Point, count As Long) As Status407 Const Function TransformPoints(destSpace As CoordinateSpace, srcSpace As CoordinateSpace, pts As Point, count As Long) As Gdiplus.Status 406 408 Return SetStatus(GdipTransformPointsI(nativeGraphics, destSpace, srcSpace, pts, count)) 407 409 End Function … … 411 413 '------------------------------------------------------------------------ 412 414 413 Const Function GetNearestColor(color As Color) As Status415 Const Function GetNearestColor(color As Color) As Gdiplus.Status 414 416 Dim argb = color->Value 415 417 Dim status = SetStatus(GdipGetNearestColor(nativeGraphics, argb)) … … 418 420 End Function 419 421 420 Function DrawLine(pen As /*Const*/ Pen, x1 As Single, y1 As Single, x2 As Single, y2 As Single) As Status422 Function DrawLine(pen As /*Const*/ Pen, x1 As Single, y1 As Single, x2 As Single, y2 As Single) As Gdiplus.Status 421 423 Return SetStatus(GdipDrawLine(nativeGraphics, pen->nativePen, x1, y1, x2, y2)) 422 424 End Function 423 425 424 Function DrawLine(pen As /*Const*/ Pen, pt1 As /*Const*/ PointF, pt2 As /*Const*/ PointF) As Status426 Function DrawLine(pen As /*Const*/ Pen, pt1 As /*Const*/ PointF, pt2 As /*Const*/ PointF) As Gdiplus.Status 425 427 Return DrawLine(pen, pt1.X, pt1.Y, pt2.X, pt2.Y) 426 428 End Function 427 429 428 Function DrawLines(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status430 Function DrawLines(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status 429 431 Return SetStatus(GdipDrawLines(nativeGraphics, pen->nativePen, points, count)) 430 432 End Function 431 433 432 Function DrawLine(pen As /*Const*/ Pen, x1 As Long, y1 As Long, x2 As Long, y2 As Long) As Status434 Function DrawLine(pen As /*Const*/ Pen, x1 As Long, y1 As Long, x2 As Long, y2 As Long) As Gdiplus.Status 433 435 Return SetStatus(GdipDrawLineI(nativeGraphics, pen->nativePen, x1, y1, x2, y2)) 434 436 End Function 435 437 436 Function DrawLine(pen As /*Const*/ Pen, pt1 As /*Const*/ Point, pt2 As /*Const*/ Point) As Status438 Function DrawLine(pen As /*Const*/ Pen, pt1 As /*Const*/ Point, pt2 As /*Const*/ Point) As Gdiplus.Status 437 439 Return DrawLine(pen, pt1.X, pt1.Y, pt2.X, pt2.Y) 438 440 End Function 439 441 440 Function DrawLines(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status442 Function DrawLines(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Gdiplus.Status 441 443 Return SetStatus(GdipDrawLinesI(nativeGraphics, pen->nativePen, points, count)) 442 444 End Function 443 445 444 Function DrawArc(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single, startAngle As Single, sweepAngle As Single) As Status446 Function DrawArc(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 445 447 Return SetStatus(GdipDrawArc(nativeGraphics, pen->nativePen, x, y, width, height, startAngle, sweepAngle)) 446 448 End Function 447 449 448 Function DrawArc(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Status450 Function DrawArc(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 449 451 Return DrawArc(pen, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle) 450 452 End Function 451 453 452 Function DrawArc(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long, startAngle As Single, sweepAngle As Single) As Status454 Function DrawArc(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 453 455 Return SetStatus(GdipDrawArcI(nativeGraphics, pen->nativePen, x, y, width, height, startAngle, sweepAngle)) 454 456 End Function 455 457 456 Function DrawArc(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Status458 Function DrawArc(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 457 459 Return DrawArc(pen, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle) 458 460 End Function 459 461 460 Function DrawBezier(pen As /*Const*/ Pen, x1 As Single, y1 As Single, x2 As Single, y2 As Single, x3 As Single, y3 As Single, x4 As Single, y4 As Single) As Status462 Function DrawBezier(pen As /*Const*/ Pen, x1 As Single, y1 As Single, x2 As Single, y2 As Single, x3 As Single, y3 As Single, x4 As Single, y4 As Single) As Gdiplus.Status 461 463 Return SetStatus(GdipDrawBezier(nativeGraphics, pen->nativePen, x1, y1,x2, y2, x3, y3, x4, y4)) 462 464 End Function 463 465 464 Function DrawBezier(pen As /*Const*/ Pen, pt1 As /*Const*/ PointF, pt2 As /*Const*/ PointF, pt3 As /*Const*/ PointF, pt4 As /*Const*/ PointF) As Status466 Function DrawBezier(pen As /*Const*/ Pen, pt1 As /*Const*/ PointF, pt2 As /*Const*/ PointF, pt3 As /*Const*/ PointF, pt4 As /*Const*/ PointF) As Gdiplus.Status 465 467 Return DrawBezier(pen, pt1.X, pt1.Y, pt2.X, pt2.Y, pt3.X, pt3.Y, pt4.X, pt4.Y) 466 468 End Function 467 469 468 Function DrawBeziers(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status470 Function DrawBeziers(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status 469 471 Return SetStatus(GdipDrawBeziers(nativeGraphics, pen->nativePen, points, count)) 470 472 End Function 471 473 472 Function DrawBezier(pen As /*Const*/ Pen, x1 As Long, y1 As Long, x2 As Long, y2 As Long, x3 As Long, y3 As Long, x4 As Long, y4 As Long) As Status474 Function DrawBezier(pen As /*Const*/ Pen, x1 As Long, y1 As Long, x2 As Long, y2 As Long, x3 As Long, y3 As Long, x4 As Long, y4 As Long) As Gdiplus.Status 473 475 Return SetStatus(GdipDrawBezierI(nativeGraphics, pen->nativePen, x1, y1, x2, y2, x3, y3, x4, y4)) 474 476 End Function 475 477 476 Function DrawBezier(pen As /*Const*/ Pen, pt1 As /*Const*/ Point, pt2 As /*Const*/ Point, pt3 As /*Const*/ Point, pt4 As /*Const*/ Point) As Status478 Function DrawBezier(pen As /*Const*/ Pen, pt1 As /*Const*/ Point, pt2 As /*Const*/ Point, pt3 As /*Const*/ Point, pt4 As /*Const*/ Point) As Gdiplus.Status 477 479 Return DrawBezier(pen pt1.X, pt1.Y, pt2.X, pt2.Y, pt3.X, pt3.Y, pt4.X, pt4.Y) 478 480 End Function 479 481 480 Function DrawBeziers(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status482 Function DrawBeziers(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Gdiplus.Status 481 483 Return SetStatus(GdipDrawBeziersI(nativeGraphics, pen->nativePen, points, count)) 482 484 End Function 483 485 484 Function DrawRectangle(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF) As Status486 Function DrawRectangle(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF) As Gdiplus.Status 485 487 Return DrawRectangle(pen, rect.X, rect.Y, rect.Width, rect.Height) 486 488 End Function 487 489 488 Function DrawRectangle(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single) As Status490 Function DrawRectangle(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single) As Gdiplus.Status 489 491 Return SetStatus(GdipDrawRectangle(nativeGraphics, pen->nativePen, x, y, width, height)) 490 492 End Function 491 493 492 Function DrawRectangles(pen As /*Const*/ Pen, rects As /*Const*/ *RectangleF, count As Long) As Status494 Function DrawRectangles(pen As /*Const*/ Pen, rects As /*Const*/ *RectangleF, count As Long) As Gdiplus.Status 493 495 Return SetStatus(GdipDrawRectangles(nativeGraphics, pen->nativePen, rects, count)) 494 496 End Function 495 497 496 Function DrawRectangle(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle) As Status498 Function DrawRectangle(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle) As Gdiplus.Status 497 499 Return DrawRectangle(pen, rect.X, rect.Y, rect.Width, rect.Height) 498 500 End Function 499 501 500 Function DrawRectangle(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long) As Status502 Function DrawRectangle(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long) As Gdiplus.Status 501 503 Return SetStatus(GdipDrawRectangleI(nativeGraphics, pen->nativePen, x, y, width, height)) 502 504 End Function 503 505 504 Function DrawRectangles(pen As /*Const*/ Pen, rects As /*Const*/ *Rectangle, count As Long) As Status506 Function DrawRectangles(pen As /*Const*/ Pen, rects As /*Const*/ *Rectangle, count As Long) As Gdiplus.Status 505 507 Return SetStatus(GdipDrawRectanglesI(nativeGraphics, pen->nativePen, rects, count)) 506 508 End Function 507 509 508 Function DrawEllipse(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF) As Status510 Function DrawEllipse(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF) As Gdiplus.Status 509 511 Return DrawEllipse(pen, rect.X, rect.Y, rect.Width, rect.Height) 510 512 End Function 511 513 512 Function DrawEllipse(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single) As Status514 Function DrawEllipse(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single) As Gdiplus.Status 513 515 Return SetStatus(GdipDrawEllipse(nativeGraphics, pen->nativePen, x, y, width, height)) 514 516 End Function 515 517 516 Function DrawEllipse(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle) As Status518 Function DrawEllipse(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle) As Gdiplus.Status 517 519 Return DrawEllipse(pen, rect.X, rect.Y, rect.Width, rect.Height) 518 520 End Function 519 521 520 Function DrawEllipse(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long) As Status522 Function DrawEllipse(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long) As Gdiplus.Status 521 523 Return SetStatus(GdipDrawEllipseI(nativeGraphics, pen->nativePen, x, y, width, height)) 522 524 End Function 523 525 524 Function DrawPie(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Status526 Function DrawPie(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 525 527 Return DrawPie(pen, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle) 526 528 End Function 527 529 528 Function DrawPie(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single, startAngle As Single, sweepAngle As Single) As Status530 Function DrawPie(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 529 531 Return SetStatus(GdipDrawPie(nativeGraphics, pen->nativePen, x, y, width, height, startAngle, sweepAngle)) 530 532 End Function 531 533 532 Function DrawPie(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Status534 Function DrawPie(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 533 535 Return DrawPie(pen, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle) 534 536 End Function 535 537 536 Function DrawPie(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long, startAngle As Single, sweepAngle As Single) As Status538 Function DrawPie(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 537 539 Return SetStatus(GdipDrawPieI(nativeGraphics, pen->nativePen, x, y, width, height, startAngle, sweepAngle)) 538 540 End Function 539 541 540 Function DrawPolygon(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status542 Function DrawPolygon(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status 541 543 Return SetStatus(GdipDrawPolygon(nativeGraphics, pen->nativePen, points, count)) 542 544 End Function 543 545 544 Function DrawPolygon(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status546 Function DrawPolygon(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Gdiplus.Status 545 547 Return SetStatus(GdipDrawPolygonI(nativeGraphics, pen->nativePen, points, count)) 546 548 End Function 547 549 548 Function DrawPath(pen As /*Const*/ Pen, path As /*Const*/ GraphicsPath) As Status550 Function DrawPath(pen As /*Const*/ Pen, path As /*Const*/ GraphicsPath) As Gdiplus.Status 549 551 Return SetStatus(GdipDrawPath(nativeGraphics, pen->nativePen, path->nativePath)) 550 552 ' Return SetStatus(GdipDrawPath(nativeGraphics, pen ? pen->nativePen : NULL, path ? path->nativePath : NULL)) 551 553 End Function 552 554 553 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status555 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status 554 556 Return SetStatus(GdipDrawCurve(nativeGraphics, pen->nativePen, points, count)) 555 557 End Function 556 558 557 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, tension As Single) As Status559 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, tension As Single) As Gdiplus.Status 558 560 Return SetStatus(GdipDrawCurve2(nativeGraphics, pen->nativePen, points,count, tension)) 559 561 End Function 560 562 561 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, offset As Long, numberOfSegments As Long) As Status563 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, offset As Long, numberOfSegments As Long) As Gdiplus.Status 562 564 Return SetStatus(GdipDrawCurve3(nativeGraphics, pen->nativePen, points, count, offset,numberOfSegments, 0.5)) 563 565 End Function 564 566 565 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, offset As Long, numberOfSegments As Long, tension As Single) As Status567 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, offset As Long, numberOfSegments As Long, tension As Single) As Gdiplus.Status 566 568 Return SetStatus(GdipDrawCurve3(nativeGraphics, pen->nativePen, points, count, offset,numberOfSegments, tension)) 567 569 End Function 568 570 569 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status571 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Gdiplus.Status 570 572 Return SetStatus(GdipDrawCurveI(nativeGraphics, pen->nativePen, points, count)) 571 573 End Function 572 574 573 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, tension As Single) As Status575 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, tension As Single) As Gdiplus.Status 574 576 Return SetStatus(GdipDrawCurve2I(nativeGraphics, pen->nativePen, points, count, tension)) 575 577 End Function 576 578 577 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, offset As Long, numberOfSegments As Long) As Status579 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, offset As Long, numberOfSegments As Long) As Gdiplus.Status 578 580 Return SetStatus(GdipDrawCurve3I(nativeGraphics, pen->nativePen, points, count, offset, numberOfSegments, 0.5)) 579 581 End Function 580 582 581 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, offset As Long, numberOfSegments As Long, tension As Single) As Status583 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, offset As Long, numberOfSegments As Long, tension As Single) As Gdiplus.Status 582 584 Return SetStatus(GdipDrawCurve3I(nativeGraphics, pen->nativePen, points, count, offset, numberOfSegments, tension)) 583 585 End Function 584 586 585 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status587 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status 586 588 Return SetStatus(GdipDrawClosedCurve(nativeGraphics, pen->nativePen, points, count)) 587 589 End Function 588 590 589 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, tension As Single) As Status591 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, tension As Single) As Gdiplus.Status 590 592 Return SetStatus(GdipDrawClosedCurve2(nativeGraphics, pen->nativePen, points, count, tension)) 591 593 End Function 592 594 593 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status595 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Gdiplus.Status 594 596 Return SetStatus(GdipDrawClosedCurveI(nativeGraphics, pen->nativePen, points, count)) 595 597 End Function 596 598 597 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, tension As Single) As Status599 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, tension As Single) As Gdiplus.Status 598 600 Return SetStatus(GdipDrawClosedCurve2I(nativeGraphics, pen->nativePen, points, count, tension)) 599 601 End Function 600 602 601 Function Clear(color As /*Const*/ Color) As Status603 Function Clear(color As /*Const*/ Color) As Gdiplus.Status 602 604 Return SetStatus(GdipGraphicsClear(nativeGraphics, color.Value)) 603 605 End Function 604 606 605 Function FillRectangle(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF) As Status607 Function FillRectangle(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF) As Gdiplus.Status 606 608 Return FillRectangle(brush, rect.X, rect.Y, rect.Width, rect.Height) 607 609 End Function 608 610 609 Function FillRectangle(brush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single) As Status611 Function FillRectangle(brush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single) As Gdiplus.Status 610 612 Return SetStatus(GdipFillRectangle(nativeGraphics, brush->nativeBrush, x, y, width, height)) 611 613 End Function 612 614 613 Function FillRectangles(brush As /*Const*/ Brush, rects As /*Const*/ *RectangleF, count As Long) As Status615 Function FillRectangles(brush As /*Const*/ Brush, rects As /*Const*/ *RectangleF, count As Long) As Gdiplus.Status 614 616 Return SetStatus(GdipFillRectangles(nativeGraphics,brush->nativeBrush,rects, count)) 615 617 End Function 616 618 617 Function FillRectangle(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle) As Status619 Function FillRectangle(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle) As Gdiplus.Status 618 620 Return FillRectangle(brush, rect.X, rect.Y, rect.Width, rect.Height) 619 621 End Function 620 622 621 Function FillRectangle(brush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long) As Status623 Function FillRectangle(brush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long) As Gdiplus.Status 622 624 Return SetStatus(GdipFillRectangleI(nativeGraphics, brush->nativeBrush, x, y, width, height)) 623 625 End Function 624 626 625 Function FillRectangles(brush As /*Const*/ Brush, rects As /*Const*/ *Rectangle, count As Long) As Status627 Function FillRectangles(brush As /*Const*/ Brush, rects As /*Const*/ *Rectangle, count As Long) As Gdiplus.Status 626 628 Return SetStatus(GdipFillRectanglesI(nativeGraphics, brush->nativeBrush, rects, count)) 627 629 End Function 628 630 629 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long) As Status631 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status 630 632 Return FillPolygon(brush, points, count, FillModeAlternate) 631 633 End Function 632 634 633 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode) As Status635 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode) As Gdiplus.Status 634 636 Return SetStatus(GdipFillPolygon(nativeGraphics, brush->nativeBrush, points, count, fillMode)) 635 637 End Function 636 638 637 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long) As Status639 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long) As Gdiplus.Status 638 640 Return FillPolygon(brush, points, count, FillModeAlternate) 639 641 End Function 640 642 641 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode) As Status643 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode) As Gdiplus.Status 642 644 Return SetStatus(GdipFillPolygonI(nativeGraphics, brush->nativeBrush, points, count, fillMode)) 643 645 End Function 644 646 645 Function FillEllipse(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF) As Status647 Function FillEllipse(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF) As Gdiplus.Status 646 648 Return FillEllipse(brush, rect.X, rect.Y, rect.Width, rect.Height) 647 649 End Function 648 650 649 Function FillEllipse(brush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single) As Status651 Function FillEllipse(brush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single) As Gdiplus.Status 650 652 Return SetStatus(GdipFillEllipse(nativeGraphics, brush->nativeBrush, x, y, width, height)) 651 653 End Function 652 654 653 Function FillEllipse(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle) As Status655 Function FillEllipse(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle) As Gdiplus.Status 654 656 Return FillEllipse(brush, rect.X, rect.Y, rect.Width, rect.Height) 655 657 End Function 656 658 657 Function FillEllipse(brush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long) As Status659 Function FillEllipse(brush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long) As Gdiplus.Status 658 660 Return SetStatus(GdipFillEllipseI(nativeGraphics, brush->nativeBrush, x, y, width, height)) 659 661 End Function 660 662 661 Function FillPie(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Status663 Function FillPie(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 662 664 Return FillPie(brush, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle) 663 665 End Function 664 666 665 Function FillPie(brush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single, startAngle As Single, sweepAngle As Single) As Status667 Function FillPie(brush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 666 668 Return SetStatus(GdipFillPie(nativeGraphics, brush->nativeBrush, x, y, width, height, startAngle, sweepAngle)) 667 669 End Function 668 670 669 Function FillPie(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Status671 Function FillPie(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 670 672 Return FillPie(brush, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle) 671 673 End Function 672 674 673 Function FillPie(brush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long, startAngle As Single, sweepAngle As Single) As Status675 Function FillPie(brush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long, startAngle As Single, sweepAngle As Single) As Gdiplus.Status 674 676 Return SetStatus(GdipFillPieI(nativeGraphics, brush->nativeBrush, x, y, width, height, startAngle, sweepAngle)) 675 677 End Function 676 678 677 Function FillPath(brush As /*Const*/ Brush, path As /*Const*/ GraphicsPath) As Status679 Function FillPath(brush As /*Const*/ Brush, path As /*Const*/ GraphicsPath) As Gdiplus.Status 678 680 Return SetStatus(GdipFillPath(nativeGraphics, brush->nativeBrush, path->nativePath)) 679 681 End Function 680 682 681 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long) As Status683 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long) As Gdiplus.Status 682 684 Return SetStatus(GdipFillClosedCurve(nativeGraphics, brush->nativeBrush, points, count)) 683 685 End Function 684 686 685 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode) As Status687 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode) As Gdiplus.Status 686 688 Return SetStatus(GdipFillClosedCurve2(nativeGraphics, brush->nativeBrush, points, count, 0.5, fillMode)) 687 689 End Function 688 690 689 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode, tension As Single) As Status691 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode, tension As Single) As Gdiplus.Status 690 692 Return SetStatus(GdipFillClosedCurve2(nativeGraphics, brush->nativeBrush, points, count, tension, fillMode)) 691 693 End Function 692 694 693 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long) As Status695 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long) As Gdiplus.Status 694 696 Return SetStatus(GdipFillClosedCurveI(nativeGraphics, brush->nativeBrush, points, count)) 695 697 End Function 696 698 697 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode) As Status699 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode) As Gdiplus.Status 698 700 Return SetStatus(GdipFillClosedCurve2I(nativeGraphics, brush->nativeBrush, points, count, 0.5, fillMode)) 699 701 End Function 700 702 701 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode, tension As Single) As Status703 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode, tension As Single) As Gdiplus.Status 702 704 Return SetStatus(GdipFillClosedCurve2I(nativeGraphics, brush->nativeBrush, points, count, tension, fillMode)) 703 705 End Function 704 706 705 Function FillRegion(brush As /*Const*/ Brush, region As /*Const*/ Region) As Status707 Function FillRegion(brush As /*Const*/ Brush, region As /*Const*/ Region) As Gdiplus.Status 706 708 Return SetStatus(GdipFillRegion(nativeGraphics, brush->nativeBrush, region->nativeRegion)) 707 709 End Function 708 710 709 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF) As Status711 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF) As Gdiplus.Status 710 712 Dim nativeFont As *GpFont 711 713 If VarPtr(font) <> 0 Then … … 718 720 719 721 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ Rectangle, 720 stringFormat As /*Const*/ StringFormat, brush As /*Const*/ Brush) As Status722 stringFormat As /*Const*/ StringFormat, brush As /*Const*/ Brush) As Gdiplus.Status 721 723 722 724 Dim nativeFont As *GpFont … … 736 738 737 739 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF, 738 stringFormat As /*Const*/ StringFormat, brush As /*Const*/ Brush) As Status740 stringFormat As /*Const*/ StringFormat, brush As /*Const*/ Brush) As Gdiplus.Status 739 741 740 742 Dim nativeFont As *GpFont … … 759 761 End Function 760 762 761 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ Point) As Status763 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ Point) As Gdiplus.Status 762 764 Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0) 763 765 Dim nativeFont As *GpFont … … 771 773 772 774 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ PointF, 773 brush As /*Const*/ Brush) As Status775 brush As /*Const*/ Brush) As Gdiplus.Status 774 776 775 777 Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0) … … 789 791 End Function 790 792 791 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ PointF) As Status793 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ PointF) As Gdiplus.Status 792 794 Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0) 793 795 Dim nativeFont As *GpFont … … 801 803 802 804 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ PointF, 803 stringFormat As /*Const*/ StringFormat) As Status805 stringFormat As /*Const*/ StringFormat) As Gdiplus.Status 804 806 805 807 Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0) … … 820 822 821 823 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ PointF, 822 stringFormat As /*Const*/ StringFormat, brush As /*Const*/ Brush) As Status824 stringFormat As /*Const*/ StringFormat, brush As /*Const*/ Brush) As Gdiplus.Status 823 825 824 826 Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0) … … 844 846 845 847 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF, 846 stringFormat As /*Const*/ StringFormat, boundingBox As RectangleF) As Status848 stringFormat As /*Const*/ StringFormat, boundingBox As RectangleF) As Gdiplus.Status 847 849 848 850 Return MeasureString(str, length, font, layoutRect, stringFormat, boundingBox, ByVal 0, ByVal 0) … … 851 853 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF, 852 854 stringFormat As /*Const*/ StringFormat, boundingBox As RectangleF, 853 codepointsFitted As Long) As Status855 codepointsFitted As Long) As Gdiplus.Status 854 856 855 857 Return MeasureString(str, length, font, layoutRect, stringFormat, boundingBox, codepointsFitted, ByVal 0) … … 858 860 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF, 859 861 stringFormat As /*Const*/ StringFormat, boundingBox As RectangleF, 860 codepointsFitted As Long, linesFilled As Long) As Status862 codepointsFitted As Long, linesFilled As Long) As Gdiplus.Status 861 863 862 864 Dim nativeFont As *GpFont … … 878 880 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, 879 881 layoutRectSize As /*Const*/ SizeF, stringFormat As /*Const*/ StringFormat, 880 size As SizeF) As Status882 size As SizeF) As Gdiplus.Status 881 883 882 884 Return MeasureString(str, length, font, layoutRectSize, stringFormat, size, ByVal 0, ByVal 0) … … 885 887 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, 886 888 layoutRectSize As /*Const*/ SizeF, stringFormat As /*Const*/ StringFormat, 887 size As SizeF, codepointsFitted As Long) As Status889 size As SizeF, codepointsFitted As Long) As Gdiplus.Status 888 890 889 891 Return MeasureString(str, length, font, layoutRectSize, stringFormat, size, codepointsFitted, ByVal 0) … … 892 894 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, 893 895 layoutRectSize As /*Const*/ SizeF, stringFormat As /*Const*/ StringFormat, 894 size As SizeF, codepointsFitted As Long, linesFilled As Long) As Status896 size As SizeF, codepointsFitted As Long, linesFilled As Long) As Gdiplus.Status 895 897 896 898 Dim layoutRect As RectangleF(0, 0, layoutRectSize.Width, layoutRectSize.Height) … … 917 919 nativeFont, layoutRect, nativeFormat, pBoundingBox, codepointsFitted, linesFilled)) 918 920 919 If VarPtr(size) <> 0 And status = Status.Ok Then921 If VarPtr(size) <> 0 And status = Gdiplus.Status.Ok Then 920 922 size.Width = boundingBox.Width 921 923 size.Height = boundingBox.Height … … 927 929 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, 928 930 origin As /*Const*/ PointF, stringFormat As /*Const*/ StringFormat, 929 boundingBox As RectangleF) As Status931 boundingBox As RectangleF) As Gdiplus.Status 930 932 931 933 Dim rect As RectangleF(origin.X, origin.Y, 0.0f, 0.0f) … … 947 949 948 950 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, 949 layoutRect As /*Const*/ RectangleF, boundingBox As RectangleF) As Status951 layoutRect As /*Const*/ RectangleF, boundingBox As RectangleF) As Gdiplus.Status 950 952 951 953 Dim nativeFont As *GpFont … … 960 962 961 963 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, 962 origin As /*Const*/ PointF, boundingBox As RectangleF) As Status964 origin As /*Const*/ PointF, boundingBox As RectangleF) As Gdiplus.Status 963 965 Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0) 964 966 … … 974 976 Const Function MeasureCharacterRanges(str As PCWSTR, length As Long, font As /*Const*/ Font, 975 977 layoutRect As /*Const*/ RectangleF, stringFormat As /*Const*/ StringFormat, 976 regionCount As Long, regions As *Region) As Status978 regionCount As Long, regions As *Region) As Gdiplus.Status 977 979 If regions = 0 Or regionCount <= 0 Then 978 980 Return InvalidParameter … … 1010 1012 1011 1013 Function DrawDriverString(text As /*Const*/ Word, length As Long, font As /*Const*/ Font, 1012 brush As /*Const*/ Brush, positions As /*Const*/ *PointF, flags As Long) As Status1014 brush As /*Const*/ Brush, positions As /*Const*/ *PointF, flags As Long) As Gdiplus.Status 1013 1015 1014 1016 Return DrawDriverString(text, length, font, brush, positions, flags, ByVal 0) … … 1016 1018 1017 1019 Function DrawDriverString(text As /*Const*/ Word, length As Long, font As /*Const*/ Font, 1018 brush As /*Const*/ Brush, positions As /*Const*/ *PointF, flags As Long, matrix As /*Const*/ Matrix) As Status1020 brush As /*Const*/ Brush, positions As /*Const*/ *PointF, flags As Long, matrix As /*Const*/ Matrix) As Gdiplus.Status 1019 1021 1020 1022 Dim nativeFont As *GpFont … … 1040 1042 1041 1043 Const Function MeasureDriverString(text As /*Const*/ Word, length As Long, font As /*Const*/ Font, 1042 positions As /*Const*/ *PointF, flags As Long, matrix As /*Const*/ Matrix, boundingBox As RectangleF) As Status1044 positions As /*Const*/ *PointF, flags As Long, matrix As /*Const*/ Matrix, boundingBox As RectangleF) As Gdiplus.Status 1043 1045 1044 1046 Dim nativeFont As *GpFont … … 1061 1063 ' native format differs from this Graphics. 1062 1064 1063 Function DrawCachedBitmap(cb As CachedBitmap, x As Long, y As Long) As Status1065 Function DrawCachedBitmap(cb As CachedBitmap, x As Long, y As Long) As Gdiplus.Status 1064 1066 Return SetStatus(GdipDrawCachedBitmap(nativeGraphics, cb->nativeCachedBitmap, x, y)) 1065 1067 End Function 1066 1068 1067 Function DrawImage(image As Image, point As /*Const*/ PointF) As Status1069 Function DrawImage(image As Image, point As /*Const*/ PointF) As Gdiplus.Status 1068 1070 Return DrawImage(image, point.X, point.Y) 1069 1071 End Function 1070 1072 1071 Function DrawImage(image As Image, x As Single, y As Single) As Status1073 Function DrawImage(image As Image, x As Single, y As Single) As Gdiplus.Status 1072 1074 Dim nativeImage As *GpImage 1073 1075 If VarPtr(image) <> 0 Then … … 1079 1081 End Function 1080 1082 1081 Function DrawImage(image As Image, rect As /*Const*/ RectangleF) As Status1083 Function DrawImage(image As Image, rect As /*Const*/ RectangleF) As Gdiplus.Status 1082 1084 Return DrawImage(image, rect.X, rect.Y, rect.Width, rect.Height) 1083 1085 End Function 1084 1086 1085 Function DrawImage(image As Image, x As Single, y As Single, width As Single, height As Single) As Status1087 Function DrawImage(image As Image, x As Single, y As Single, width As Single, height As Single) As Gdiplus.Status 1086 1088 Dim nativeImage As *GpImage 1087 1089 If VarPtr(image) <> 0 Then … … 1093 1095 End Function 1094 1096 1095 Function DrawImage(image As Image, point As /*Const*/ Point) As Status1096 Return DrawImage(image, point.X, point.Y) As Status1097 End Function 1098 1099 Function DrawImage(image As Image, x As Long, y As Long) As Status1097 Function DrawImage(image As Image, point As /*Const*/ Point) As Gdiplus.Status 1098 Return DrawImage(image, point.X, point.Y) As Gdiplus.Status 1099 End Function 1100 1101 Function DrawImage(image As Image, x As Long, y As Long) As Gdiplus.Status 1100 1102 Dim nativeImage As *GpImage 1101 1103 If VarPtr(image) <> 0 Then … … 1107 1109 End Function 1108 1110 1109 Function DrawImage(image As Image, rect As /*Const*/ Rectangle) As Status1111 Function DrawImage(image As Image, rect As /*Const*/ Rectangle) As Gdiplus.Status 1110 1112 Return DrawImage(image, rect.X, rect.Y, rect.Width, rect.Height) 1111 1113 End Function 1112 1114 1113 Function DrawImage(image As Image, x As Long, y As Long, width As Long, height As Long) As Status1115 Function DrawImage(image As Image, x As Long, y As Long, width As Long, height As Long) As Gdiplus.Status 1114 1116 Dim nativeImage As *GpImage 1115 1117 If VarPtr(image) <> 0 Then … … 1129 1131 ' destPoints[3] <=> bottom-right corner 1130 1132 1131 Function DrawImage(image As Image, destPoints As /*Const*/ PointF, count As Long) As Status1133 Function DrawImage(image As Image, destPoints As /*Const*/ PointF, count As Long) As Gdiplus.Status 1132 1134 If count <> 3 And count <> 4 Then 1133 1135 Return SetStatus(InvalidParameter) … … 1143 1145 End Function 1144 1146 1145 Function DrawImage(image As Image, destPoints As /*Const*/ Point, count As Long) As Status1147 Function DrawImage(image As Image, destPoints As /*Const*/ Point, count As Long) As Gdiplus.Status 1146 1148 If count <> 3 And count <> 4 Then 1147 1149 Return SetStatus(InvalidParameter) … … 1158 1160 1159 1161 Function DrawImage(image As Image, x As Single, y As Single, 1160 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Status1162 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Gdiplus.Status 1161 1163 1162 1164 Dim nativeImage As *GpImage … … 1170 1172 1171 1173 Function DrawImage(image As Image, destRect As /*Const*/ RectangleF, 1172 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Status1174 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Gdiplus.Status 1173 1175 1174 1176 Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, 0, 0, 0) … … 1177 1179 Function DrawImage(image As Image, destRect As /*Const*/ RectangleF, 1178 1180 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1179 imageAttributes As /*Const*/ ImageAttributes) As Status1181 imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1180 1182 1181 1183 Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, 0, 0) … … 1185 1187 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1186 1188 imageAttributes As /*Const*/ ImageAttributes, 1187 callback As DrawImageAbort) As Status1189 callback As DrawImageAbort) As Gdiplus.Status 1188 1190 1189 1191 Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, callback, 0) … … 1192 1194 Function DrawImage(image As Image, destRect As /*Const*/ RectangleF, 1193 1195 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1194 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status1196 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Gdiplus.Status 1195 1197 1196 1198 Dim nativeImage As *GpImage … … 1200 1202 nativeImage = 0 1201 1203 End If 1202 Dim nativeImageAttr As *GpImageAttributes1203 If VarPtr(imageAttributes) <> 0 Then1204 nativeImageAttr = image.NativeImageAttr1205 Else1206 nativeImageAttr = 01207 End If1208 1204 1209 1205 Return SetStatus(GdipDrawImageRectRect(nativeGraphics, nativeImageAttr, 1210 1206 destRect.X, destRect.Y, destRect.Width, destRect.Height, srcx, srcy, srcwidth, srcheight, 1211 srcUnit, nativeImageAttr, callback, callbackData))1207 srcUnit, ImageAttributes.Native(imageAttributes), callback, callbackData)) 1212 1208 End Function 1213 1209 1214 1210 Function DrawImage(image As Image, destPoints As /*Const*/ PointF, count As Long, 1215 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Status1211 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Gdiplus.Status 1216 1212 1217 1213 Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, 0, 0, 0) … … 1220 1216 Function DrawImage(image As Image, destPoints As /*Const*/ PointF, count As Long, 1221 1217 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1222 imageAttributes As /*Const*/ ImageAttributes) As Status1218 imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1223 1219 1224 1220 Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, 0, 0) … … 1228 1224 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1229 1225 imageAttributes As /*Const*/ ImageAttributes, 1230 callback As DrawImageAbort) As Status1226 callback As DrawImageAbort) As Gdiplus.Status 1231 1227 1232 1228 Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, callback, 0) … … 1235 1231 Function DrawImage(image As Image, destPoints As /*Const*/ PointF, count As Long, 1236 1232 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1237 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status1233 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Gdiplus.Status 1238 1234 1239 1235 Dim nativeImage As *GpImage … … 1243 1239 nativeImage = 0 1244 1240 End If 1245 Dim nativeImageAttr As *GpImageAttributes1246 If VarPtr(imageAttributes) <> 0 Then1247 nativeImageAttr = image.NativeImageAttr1248 Else1249 nativeImageAttr = 01250 End If1251 1241 1252 1242 Return SetStatus(GdipDrawImagePointsRect(nativeGraphics, nativeImage, destPoints, count, 1253 srcx, srcy, srcwidth, srcheight, srcUnit, nativeImageAttr, callback, callbackData))1243 srcx, srcy, srcwidth, srcheight, srcUnit, ImageAttributes.Native(imageAttributes), callback, callbackData)) 1254 1244 End Function 1255 1245 1256 1246 Function DrawImage(image As Image, x As Long, y As Long, 1257 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit) As Status1247 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit) As Gdiplus.Status 1258 1248 1259 1249 Dim nativeImage As *GpImage … … 1267 1257 1268 1258 Function DrawImage(image As Image, destRect As /*Const*/ Rectangle, 1269 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Status1259 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Gdiplus.Status 1270 1260 1271 1261 Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, 0, 0, 0) … … 1274 1264 Function DrawImage(image As Image, destRect As /*Const*/ Rectangle, 1275 1265 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1276 imageAttributes As /*Const*/ ImageAttributes) As Status1266 imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1277 1267 1278 1268 Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, 0, 0) … … 1281 1271 Function DrawImage(image As Image, destRect As /*Const*/ Rectangle, 1282 1272 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1283 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Status1273 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Gdiplus.Status 1284 1274 1285 1275 Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, callback, 0) … … 1288 1278 Function DrawImage(image As Image, destRect As /*Const*/ Rectangle, 1289 1279 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit, 1290 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status1280 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Gdiplus.Status 1291 1281 1292 1282 Dim nativeImage As *GpImage … … 1296 1286 nativeImage = 0 1297 1287 End If 1298 Dim nativeImageAttr As *GpImageAttributes1299 If VarPtr(imageAttributes) <> 0 Then1300 nativeImageAttr = image.NativeImageAttr1301 Else1302 nativeImageAttr = 01303 End If1304 1288 1305 1289 Return SetStatus(GdipDrawImageRectRectI(nativeGraphics, nativeImage, 1306 1290 destRect.X, destRect.Y, destRect.Width, destRect.Height, 1307 srcx, srcy, srcwidth, srcheight, srcUnit, nativeImageAttr, callback, callbackData))1291 srcx, srcy, srcwidth, srcheight, srcUnit, ImageAttributes.Native(imageAttributes), callback, callbackData)) 1308 1292 End Function 1309 1293 1310 1294 Function DrawImage(image As Image, destPoints As /*Const*/ Point, count As Long, 1311 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit) As Status1295 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit) As Gdiplus.Status 1312 1296 1313 1297 Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, 0, 0, 0) … … 1316 1300 Function DrawImage(image As Image, destPoints As /*Const*/ Point, count As Long, 1317 1301 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit, 1318 imageAttributes As /*Const*/ ImageAttributes) As Status1302 imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1319 1303 1320 1304 Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, 0, 0) … … 1324 1308 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit, _ 1325 1309 imageAttributes As /*Const*/ ImageAttributes, 1326 callback As DrawImageAbort) As Status1310 callback As DrawImageAbort) As Gdiplus.Status 1327 1311 1328 1312 Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, callback, 0) … … 1331 1315 Function DrawImage(image As Image, destPoints As /*Const*/ Point, count As Long, 1332 1316 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit, 1333 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status1317 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Gdiplus.Status 1334 1318 1335 1319 Dim nativeImage As *GpImage … … 1339 1323 nativeImage = 0 1340 1324 End If 1341 Dim nativeImageAttr As *GpImageAttributes1342 If VarPtr(imageAttributes) <> 0 Then1343 nativeImageAttr = image.NativeImageAttr1344 Else1345 nativeImageAttr = 01346 End If1347 1325 1348 1326 Return SetStatus(GdipDrawImagePointsRectI(nativeGraphics, nativeImage, destPoints, count, 1349 srcx, srcy, srcwidth, srcheight, srcUnit, nativeImageAttr, callback, callbackData))1350 End Function 1351 1352 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit) As Status1327 srcx, srcy, srcwidth, srcheight, srcUnit, ImageAttributes.Native(imageAttributes), callback, callbackData)) 1328 End Function 1329 1330 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit) As Gdiplus.Status 1353 1331 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit) 1354 1332 End Function 1355 1333 1356 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit) As Status1334 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit) As Gdiplus.Status 1357 1335 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit) 1358 1336 End Function 1359 1337 1360 Function DrawImage(image As Image, x As Long, y As Long, srcRect As Rectangle, srcUnit As GraphicsUnit) As Status1338 Function DrawImage(image As Image, x As Long, y As Long, srcRect As Rectangle, srcUnit As GraphicsUnit) As Gdiplus.Status 1361 1339 Return DrawImage(image, x, y, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit) 1362 1340 End Function 1363 1341 1364 Function DrawImage(image As Image, x As Single, y As Single, srcRect As RectangleF, srcUnit As GraphicsUnit) As Status1342 Function DrawImage(image As Image, x As Single, y As Single, srcRect As RectangleF, srcUnit As GraphicsUnit) As Gdiplus.Status 1365 1343 Return DrawImage(image, x, y, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit) 1366 1344 End Function 1367 1345 1368 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes) As Status1346 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1369 1347 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes) 1370 1348 End Function 1371 1349 1372 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes) As Status1350 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1373 1351 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes) 1374 1352 End Function 1375 1353 1376 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Status1354 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Gdiplus.Status 1377 1355 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes, callback) 1378 1356 End Function 1379 1357 1380 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Status1358 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Gdiplus.Status 1381 1359 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes, callback) 1382 1360 End Function 1383 1361 1384 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status1362 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Gdiplus.Status 1385 1363 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes, callback, callbackData) 1386 1364 End Function 1387 1365 1388 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status1366 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Gdiplus.Status 1389 1367 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes, callback, callbackData) 1390 1368 End Function … … 1397 1375 1398 1376 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ PointF, 1399 callback As EnumerateMetafileProc) As Status1377 callback As EnumerateMetafileProc) As Gdiplus.Status 1400 1378 1401 1379 Return EnumerateMetafile(metafile, destPoint, callback, 0, 0) … … 1403 1381 1404 1382 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ PointF, 1405 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1383 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1406 1384 1407 1385 Return EnumerateMetafile(metafile, destPoint, callback, callbackData, 0) … … 1409 1387 1410 1388 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ PointF, 1411 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1389 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1412 1390 1413 1391 Dim nativeImage As /*Const*/ *GpMetafile … … 1417 1395 nativeImage = 0 1418 1396 End If 1419 Dim nativeImageAttr As *GpImageAttributes1420 If VarPtr(imageAttributes) <> 0 Then1421 nativeImageAttr = image.NativeImageAttr1422 Else1423 nativeImageAttr = 01424 End If1425 1397 1426 1398 Return SetStatus(GdipEnumerateMetafileDestPoint(nativeGraphics, 1427 nativeImage, destPoint, callback, callbackData, nativeImageAttr))1399 nativeImage, destPoint, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1428 1400 End Function 1429 1401 1430 1402 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ Point, 1431 callback As EnumerateMetafileProc) As Status1403 callback As EnumerateMetafileProc) As Gdiplus.Status 1432 1404 1433 1405 Return EnumerateMetafile(metafile, destPoint, callback, 0, 0) … … 1435 1407 1436 1408 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ Point, 1437 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1409 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1438 1410 1439 1411 Return EnumerateMetafile(metafile, destPoint, callback, callbackData, 0) … … 1441 1413 1442 1414 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ Point, 1443 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1415 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1444 1416 1445 1417 Dim nativeImage As /*Const*/ *GpMetafile … … 1449 1421 nativeImage = 0 1450 1422 End If 1451 Dim nativeImageAttr As *GpImageAttributes1452 If VarPtr(imageAttributes) <> 0 Then1453 nativeImageAttr = image.NativeImageAttr1454 Else1455 nativeImageAttr = 01456 End If1457 1423 1458 1424 Return SetStatus(GdipEnumerateMetafileDestPointI(nativeGraphics, 1459 nativeImage, destPoint, callback, callbackData, nativeImageAttr))1425 nativeImage, destPoint, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1460 1426 End Function 1461 1427 1462 1428 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ RectangleF, 1463 callback As EnumerateMetafileProc) As Status1429 callback As EnumerateMetafileProc) As Gdiplus.Status 1464 1430 1465 1431 Return EnumerateMetafile(metafile, destRect, callback, 0, 0) … … 1467 1433 1468 1434 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ RectangleF, 1469 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1435 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1470 1436 1471 1437 Return EnumerateMetafile(metafile, destRect, callback, callbackData, 0) … … 1473 1439 1474 1440 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ RectangleF, 1475 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1441 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1476 1442 1477 1443 Dim nativeImage As /*Const*/ *GpMetafile … … 1481 1447 nativeImage = 0 1482 1448 End If 1483 Dim nativeImageAttr As *GpImageAttributes1484 If VarPtr(imageAttributes) <> 0 Then1485 nativeImageAttr = image.NativeImageAttr1486 Else1487 nativeImageAttr = 01488 End If1489 1449 1490 1450 Return SetStatus(GdipEnumerateMetafileDestRect(nativeGraphics, 1491 nativeImage, destRect, callback, callbackData, nativeImageAttr))1451 nativeImage, destRect, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1492 1452 End Function 1493 1453 1494 1454 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ Rectangle, 1495 callback As EnumerateMetafileProc) As Status1455 callback As EnumerateMetafileProc) As Gdiplus.Status 1496 1456 1497 1457 Return EnumerateMetafile(metafile, destRect, callback, 0, 0) … … 1499 1459 1500 1460 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ Rectangle, 1501 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1461 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1502 1462 1503 1463 Return EnumerateMetafile(metafile, destRect, callback, callbackData, 0) … … 1505 1465 1506 1466 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ Rectangle, 1507 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1467 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1508 1468 1509 1469 Dim nativeImage As /*Const*/ *GpMetafile … … 1513 1473 nativeImage = 0 1514 1474 End If 1515 Dim nativeImageAttr As *GpImageAttributes1516 If VarPtr(imageAttributes) <> 0 Then1517 nativeImageAttr = image.NativeImageAttr1518 Else1519 nativeImageAttr = 01520 End If1521 1475 1522 1476 Return SetStatus(GdipEnumerateMetafileDestRectI(nativeGraphics, 1523 nativeImage, destRect, callback, callbackData, nativeImageAttr))1477 nativeImage, destRect, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1524 1478 End Function 1525 1479 1526 1480 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *PointF, count As Long, 1527 callback As EnumerateMetafileProc) As Status1481 callback As EnumerateMetafileProc) As Gdiplus.Status 1528 1482 1529 1483 Return EnumerateMetafile(metafile, destPoints, count, callback, 0, 0) … … 1531 1485 1532 1486 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *PointF, count As Long, 1533 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1487 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1534 1488 1535 1489 Return EnumerateMetafile(metafile, destPoints, count, callback, callbackData, 0) … … 1537 1491 1538 1492 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *PointF, count As Long, 1539 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1493 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1540 1494 1541 1495 Dim nativeImage As /*Const*/ *GpMetafile … … 1545 1499 nativeImage = 0 1546 1500 End If 1547 Dim nativeImageAttr As *GpImageAttributes1548 If VarPtr(imageAttributes) <> 0 Then1549 nativeImageAttr = image.NativeImageAttr1550 Else1551 nativeImageAttr = 01552 End If1553 1501 1554 1502 Return SetStatus(GdipEnumerateMetafileDestPoints(nativeGraphics, 1555 nativeImage,destPoints, count, callback, callbackData, nativeImageAttr))1503 nativeImage,destPoints, count, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1556 1504 End Function 1557 1505 1558 1506 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *Point, count As Long, 1559 callback As EnumerateMetafileProc) As Status1507 callback As EnumerateMetafileProc) As Gdiplus.Status 1560 1508 1561 1509 Return EnumerateMetafile(metafile, destPoints, count, callback, 0, 0) … … 1563 1511 1564 1512 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *Point, count As Long, 1565 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1513 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1566 1514 1567 1515 Return EnumerateMetafile(metafile, destPoints, count, callback, callbackData, 0) … … 1569 1517 1570 1518 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *Point, count As Long, 1571 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1519 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1572 1520 1573 1521 Dim nativeImage As /*Const*/ *GpMetafile … … 1577 1525 nativeImage = 0 1578 1526 End If 1579 Dim nativeImageAttr As *GpImageAttributes1580 If VarPtr(imageAttributes) <> 0 Then1581 nativeImageAttr = image.NativeImageAttr1582 Else1583 nativeImageAttr = 01584 End If1585 1527 1586 1528 Return SetStatus(GdipEnumerateMetafileDestPointsI(nativeGraphics, 1587 nativeImage,destPoints, count, callback, callbackData, nativeImageAttr))1529 nativeImage,destPoints, count, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1588 1530 End Function 1589 1531 1590 1532 Function EnumerateMetafile(metafile As /*Const*/ Metafile, 1591 1533 destPoint As /*Const*/ PointF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, 1592 callback As EnumerateMetafileProc) As Status1534 callback As EnumerateMetafileProc) As Gdiplus.Status 1593 1535 1594 1536 Return EnumerateMetafile(metafile, destPoint, count, srcUnit, callback, 0, 0) … … 1597 1539 Function EnumerateMetafile(metafile As /*Const*/ Metafile, 1598 1540 destPoint As /*Const*/ PointF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, 1599 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1541 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1600 1542 1601 1543 Return EnumerateMetafile(metafile, destPoint, srcRect, srcUnit, callback, callbackData, 0) … … 1604 1546 Function EnumerateMetafile(metafile As /*Const*/ Metafile, 1605 1547 destPoint As /*Const*/ PointF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, 1606 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1548 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1607 1549 1608 1550 Dim nativeImage As /*Const*/ *GpMetafile … … 1612 1554 nativeImage = 0 1613 1555 End If 1614 Dim nativeImageAttr As *GpImageAttributes1615 If VarPtr(imageAttributes) <> 0 Then1616 nativeImageAttr = image.NativeImageAttr1617 Else1618 nativeImageAttr = 01619 End If1620 1556 1621 1557 Return SetStatus(GdipEnumerateMetafileSrcRectDestPoint(nativeGraphics, _ 1622 nativeImage, destPoint, srcRect, srcUnit, callback, callbackData, nativeImageAttr))1558 nativeImage, destPoint, srcRect, srcUnit, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1623 1559 End Function 1624 1560 1625 1561 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1626 1562 destPoint As /*Const*/ Point, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1627 callback As EnumerateMetafileProc) As Status1563 callback As EnumerateMetafileProc) As Gdiplus.Status 1628 1564 1629 1565 Return EnumerateMetafile(metafile, destPoint, count, srcUnit, callback, 0, 0) … … 1632 1568 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1633 1569 destPoint As /*Const*/ Point, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1634 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1570 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1635 1571 1636 1572 Return EnumerateMetafile(metafile, destPoint, srcRect, srcUnit, callback, callbackData, 0) … … 1639 1575 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1640 1576 destPoint As /*Const*/ Point, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1641 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1577 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1642 1578 1643 1579 Dim nativeImage As /*Const*/ *GpMetafile … … 1647 1583 nativeImage = 0 1648 1584 End If 1649 Dim nativeImageAttr As *GpImageAttributes1650 If VarPtr(imageAttributes) <> 0 Then1651 nativeImageAttr = image.NativeImageAttr1652 Else1653 nativeImageAttr = 01654 End If1655 1585 1656 1586 Return SetStatus(GdipEnumerateMetafileSrcRectDestPointI(nativeGraphics, _ 1657 nativeImage, destPoint, srcRect, srcUnit, callback, callbackData, nativeImageAttr))1587 nativeImage, destPoint, srcRect, srcUnit, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1658 1588 End Function 1659 1589 1660 1590 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1661 1591 destRect As /*Const*/ RectangleF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _ 1662 callback As EnumerateMetafileProc) As Status1592 callback As EnumerateMetafileProc) As Gdiplus.Status 1663 1593 1664 1594 Return EnumerateMetafile(metafile, destRect, count, srcUnit, callback, 0, 0) … … 1667 1597 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1668 1598 destRect As /*Const*/ RectangleF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _ 1669 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1599 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1670 1600 1671 1601 Return EnumerateMetafile(metafile, destRect, srcRect, srcUnit, callback, callbackData, 0) … … 1674 1604 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1675 1605 destRect As /*Const*/ RectangleF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _ 1676 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1606 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1677 1607 1678 1608 Dim nativeImage As /*Const*/ *GpMetafile … … 1682 1612 nativeImage = 0 1683 1613 End If 1684 Dim nativeImageAttr As *GpImageAttributes1685 If VarPtr(imageAttributes) <> 0 Then1686 nativeImageAttr = image.NativeImageAttr1687 Else1688 nativeImageAttr = 01689 End If1690 1614 1691 1615 Return SetStatus(GdipEnumerateMetafileSrcRectDestRect(nativeGraphics, _ 1692 nativeImage, destRect, srcRect, srcUnit, callback, callbackData, nativeImageAttr))1616 nativeImage, destRect, srcRect, srcUnit, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1693 1617 End Function 1694 1618 1695 1619 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1696 1620 destRect As /*Const*/ Rectangle, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1697 callback As EnumerateMetafileProc) As Status1621 callback As EnumerateMetafileProc) As Gdiplus.Status 1698 1622 1699 1623 Return EnumerateMetafile(metafile, destRect, srcRect, srcUnit, callback, 0, 0) … … 1702 1626 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1703 1627 destRect As /*Const*/ Rectangle, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1704 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1628 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1705 1629 1706 1630 Return EnumerateMetafile(metafile, destRect, srcRect, srcUnit, callback, callbackData, 0) … … 1709 1633 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1710 1634 destRect As /*Const*/ Rectangle, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1711 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1635 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1712 1636 1713 1637 Dim nativeImage As /*Const*/ *GpMetafile … … 1717 1641 nativeImage = 0 1718 1642 End If 1719 Dim nativeImageAttr As *GpImageAttributes1720 If VarPtr(imageAttributes) <> 0 Then1721 nativeImageAttr = image.NativeImageAttr1722 Else1723 nativeImageAttr = 01724 End If1725 1643 1726 1644 Return SetStatus(GdipEnumerateMetafileSrcRectDestRectI(nativeGraphics, _ 1727 nativeImage, destRect, srcRect, srcUnit, callback, callbackData, nativeImageAttr))1645 nativeImage, destRect, srcRect, srcUnit, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1728 1646 End Function 1729 1647 1730 1648 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1731 1649 destPoints As /*Const*/ *PointF, count As Long, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _ 1732 callback As EnumerateMetafileProc) As Status1650 callback As EnumerateMetafileProc) As Gdiplus.Status 1733 1651 1734 1652 Return EnumerateMetafile(metafile, destPoints, count, srcRect, srcUnit, callback, 0, 0) … … 1737 1655 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1738 1656 destPoints As /*Const*/ *PointF, count As Long, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _ 1739 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1657 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1740 1658 1741 1659 Return EnumerateMetafile(metafile, destPoints, count, srcRect, srcUnit, callback, callbackData, 0) … … 1744 1662 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1745 1663 destPoints As /*Const*/ *PointF, count As Long, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _ 1746 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1664 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1747 1665 1748 1666 Dim nativeImage As /*Const*/ *GpMetafile … … 1752 1670 nativeImage = 0 1753 1671 End If 1754 Dim nativeImageAttr As *GpImageAttributes1755 If VarPtr(imageAttributes) <> 0 Then1756 nativeImageAttr = image.NativeImageAttr1757 Else1758 nativeImageAttr = 01759 End If1760 1672 1761 1673 Return SetStatus(GdipEnumerateMetafileSrcRectDestPoints(nativeGraphics, _ 1762 nativeImage, destPoints, count, srcRect, srcUnit, callback, callbackData, nativeImageAttr))1674 nativeImage, destPoints, count, srcRect, srcUnit, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1763 1675 End Function 1764 1676 1765 1677 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1766 1678 destPoints As /*Const*/ *Point, count As Long, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1767 callback As EnumerateMetafileProc) As Status1679 callback As EnumerateMetafileProc) As Gdiplus.Status 1768 1680 1769 1681 Return EnumerateMetafile(metafile, destPoints, count, srcRect, srcUnit, callback, 0, 0) … … 1772 1684 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1773 1685 destPoints As /*Const*/ *Point, count As Long, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1774 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status1686 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Gdiplus.Status 1775 1687 1776 1688 Return EnumerateMetafile(metafile, destPoints, count, srcRect, srcUnit, callback, callbackData, 0) … … 1779 1691 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1780 1692 destPoints As /*Const*/ *Point, count As Long, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1781 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status1693 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Gdiplus.Status 1782 1694 1783 1695 Dim nativeImage As /*Const*/ *GpMetafile … … 1787 1699 nativeImage = 0 1788 1700 End If 1789 Dim nativeImageAttr As *GpImageAttributes1790 If VarPtr(imageAttributes) <> 0 Then1791 nativeImageAttr = image.NativeImageAttr1792 Else1793 nativeImageAttr = 01794 End If1795 1701 1796 1702 Return SetStatus(GdipEnumerateMetafileSrcRectDestPointsI(nativeGraphics, nativeImage, _ 1797 destPoints, count, srcRect, srcUnit, callback, callbackData, nativeImageAttr))1798 End Function 1799 1800 Function SetClip(g As /*Const*/ Graphics) As Status1703 destPoints, count, srcRect, srcUnit, callback, callbackData, ImageAttributes.Native(imageAttributes))) 1704 End Function 1705 1706 Function SetClip(g As /*Const*/ Graphics) As Gdiplus.Status 1801 1707 Return SetClip(g, CombineMode.Replace) 1802 1708 End Function 1803 1709 1804 Function SetClip(rc As /*Const*/ RectangleF) As Status1710 Function SetClip(rc As /*Const*/ RectangleF) As Gdiplus.Status 1805 1711 Return SetStatus(GdipSetClipRect(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Replace)) 1806 1712 End Function 1807 1713 1808 Function SetClip(rc As /*Const*/ Rectangle) As Status1714 Function SetClip(rc As /*Const*/ Rectangle) As Gdiplus.Status 1809 1715 Return SetStatus(GdipSetClipRectI(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Replace)) 1810 1716 End Function 1811 1717 1812 Function SetClip(path As /*Const*/ GraphicsPath) As Status1718 Function SetClip(path As /*Const*/ GraphicsPath) As Gdiplus.Status 1813 1719 Return SetStatus(GdipSetClipPath(nativeGraphics, path->nativePath, CombineMode.Replace)) 1814 1720 End Function 1815 1721 1816 Function SetClip(region As /*Const*/ Region) As Status1722 Function SetClip(region As /*Const*/ Region) As Gdiplus.Status 1817 1723 Return SetStatus(GdipSetClipRegion(nativeGraphics, region->nativeRegion, CombineMode.Replace)) 1818 1724 End Function 1819 1725 1820 Function SetClip(g As /*Const*/ Graphics, combineMode As CombineMode) As Status1726 Function SetClip(g As /*Const*/ Graphics, combineMode As CombineMode) As Gdiplus.Status 1821 1727 Return SetStatus(GdipSetClipGraphics(nativeGraphics, g->nativeGraphics, combineMode)) 1822 1728 End Function 1823 1729 1824 Function SetClip(rc As /*Const*/ RectangleF, combineMode As CombineMode) As Status1730 Function SetClip(rc As /*Const*/ RectangleF, combineMode As CombineMode) As Gdiplus.Status 1825 1731 Return SetStatus(GdipSetClipRect(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, combineMode)) 1826 1732 End Function 1827 1733 1828 Function SetClip(rc As /*Const*/ Rectangle, combineMode As CombineMode) As Status1734 Function SetClip(rc As /*Const*/ Rectangle, combineMode As CombineMode) As Gdiplus.Status 1829 1735 Return SetStatus(GdipSetClipRectI(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, combineMode)) 1830 1736 End Function 1831 1737 1832 Function SetClip(path As /*Const*/ GraphicsPath, combineMode As CombineMode) As Status1738 Function SetClip(path As /*Const*/ GraphicsPath, combineMode As CombineMode) As Gdiplus.Status 1833 1739 Return SetStatus(GdipSetClipPath(nativeGraphics, path->nativePath, combineMode)) 1834 1740 End Function 1835 1741 1836 Function SetClip(region As /*Const*/ Region, combineMode As CombineMode) As Status1742 Function SetClip(region As /*Const*/ Region, combineMode As CombineMode) As Gdiplus.Status 1837 1743 Return SetStatus(GdipSetClipRegion(nativeGraphics, region->nativeRegion, combineMode)) 1838 1744 End Function … … 1842 1748 ' the coordinates in the HRGN. 1843 1749 1844 Function SetClip(hrgn As HRGN, combineMode As CombineMode /* = CombineModeReplace*/) As Status1750 Function SetClip(hrgn As HRGN, combineMode As CombineMode /* = CombineModeReplace*/) As Gdiplus.Status 1845 1751 Return SetStatus(GdipSetClipHrgn(nativeGraphics, hrgn, combineMode)) 1846 1752 End Function 1847 1753 1848 Function IntersectClip(rc As /*Const*/ RectangleF) As Status1754 Function IntersectClip(rc As /*Const*/ RectangleF) As Gdiplus.Status 1849 1755 Return SetStatus(GdipSetClipRect(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Intersect)) 1850 1756 End Function 1851 1757 1852 Function IntersectClip(rc As /*Const*/ Rectangle) As Status1758 Function IntersectClip(rc As /*Const*/ Rectangle) As Gdiplus.Status 1853 1759 Return SetStatus(GdipSetClipRectI(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Intersect)) 1854 1760 End Function 1855 1761 1856 Function IntersectClip(region As /*Const*/ Region) As Status1762 Function IntersectClip(region As /*Const*/ Region) As Gdiplus.Status 1857 1763 Return SetStatus(GdipSetClipRegion(nativeGraphics, region->nativeRegion, CombineMode.Intersect)) 1858 1764 End Function 1859 1765 1860 Function ExcludeClip(rc As /*Const*/ RectangleF) As Status1766 Function ExcludeClip(rc As /*Const*/ RectangleF) As Gdiplus.Status 1861 1767 Return SetStatus(GdipSetClipRect(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Exclude)) 1862 1768 End Function 1863 1769 1864 Function ExcludeClip(rc As /*Const*/ Rectangle) As Status1770 Function ExcludeClip(rc As /*Const*/ Rectangle) As Gdiplus.Status 1865 1771 Return SetStatus(GdipSetClipRectI(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Exclude)) 1866 1772 End Function 1867 1773 1868 Function ExcludeClip(region As /*Const*/ Region) As Status1774 Function ExcludeClip(region As /*Const*/ Region) As Gdiplus.Status 1869 1775 Return SetStatus(GdipSetClipRegion(nativeGraphics, region->nativeRegion, CombineMode.Exclude)) 1870 1776 End Function 1871 1777 1872 Function ResetClip() As Status1778 Function ResetClip() As Gdiplus.Status 1873 1779 Return SetStatus(GdipResetClip(nativeGraphics)) 1874 1780 End Function 1875 1781 1876 Function TranslateClip(dx As Single, dy As Single) As Status1782 Function TranslateClip(dx As Single, dy As Single) As Gdiplus.Status 1877 1783 Return SetStatus(GdipTranslateClip(nativeGraphics, dx, dy)) 1878 1784 End Function 1879 1785 1880 Function TranslateClip(dx As Long, dy As Long) As Status1786 Function TranslateClip(dx As Long, dy As Long) As Gdiplus.Status 1881 1787 Return SetStatus(GdipTranslateClipI(nativeGraphics, dx, dy)) 1882 1788 End Function 1883 1789 1884 Const Function GetClip(region As Region) As Status1790 Const Function GetClip(region As Region) As Gdiplus.Status 1885 1791 Return SetStatus(GdipGetClip(nativeGraphics, region->nativeRegion)) 1886 1792 End Function 1887 1793 1888 Const Function GetClipBounds(rc As RectangleF) As Status1794 Const Function GetClipBounds(rc As RectangleF) As Gdiplus.Status 1889 1795 Return SetStatus(GdipGetClipBounds(nativeGraphics, rc)) 1890 1796 End Function 1891 1797 1892 Const Function GetClipBounds(rc As Rectangle) As Status1798 Const Function GetClipBounds(rc As Rectangle) As Gdiplus.Status 1893 1799 Return SetStatus(GdipGetClipBoundsI(nativeGraphics, rc)) 1894 1800 End Function 1895 1801 1896 Const Function GetVisibleClipBounds(rc As RectangleF) As Status1802 Const Function GetVisibleClipBounds(rc As RectangleF) As Gdiplus.Status 1897 1803 Return SetStatus(GdipGetVisibleClipBounds(nativeGraphics, rc)) 1898 1804 End Function 1899 1805 1900 Const Function GetVisibleClipBounds(rc As Rectangle) As Status1806 Const Function GetVisibleClipBounds(rc As Rectangle) As Gdiplus.Status 1901 1807 Return SetStatus(GdipGetVisibleClipBoundsI(nativeGraphics, rc)) 1902 1808 End Function … … 1970 1876 End Function 1971 1877 1972 Function EndContainer(state As GraphicsContainer) As Status1878 Function EndContainer(state As GraphicsContainer) As Gdiplus.Status 1973 1879 Return SetStatus(GdipEndContainer(nativeGraphics, state)) 1974 1880 End Function … … 1984 1890 End Function 1985 1891 1986 Const Function GetLastStatus() As Status1892 Const Function GetLastStatus() As Gdiplus.Status 1987 1893 Dim lastStatus = lastResult 1988 lastResult = Status.Ok1894 lastResult = Gdiplus.Status.Ok 1989 1895 Return lastStatus 1990 1896 End Function … … 1994 1900 ' Debug 1995 1901 ' End Sub 1996 Sub Operator =(gr As Graphics)1997 Debug1998 End Sub1999 1902 2000 1903 Protected 2001 Sub Graphics(graphics As *G pGraphics)2002 lastResult = Status.Ok1904 Sub Graphics(graphics As *Gdiplus.GpGraphics) 1905 lastResult = Gdiplus.Status.Ok 2003 1906 SetNativeGraphics(graphics) 2004 1907 End Sub 2005 1908 2006 Sub SetNativeGraphics(graphics As *G pGraphics)1909 Sub SetNativeGraphics(graphics As *Gdiplus.GpGraphics) 2007 1910 This.nativeGraphics = graphics 2008 1911 End Sub 2009 1912 2010 Const Function SetStatus(status As Status) AsStatus2011 If status <> Status.Ok Then1913 Const Function SetStatus(status As Gdiplus.Status) As Gdiplus.Status 1914 If status <> Gdiplus.Status.Ok Then 2012 1915 lastResult = status 2013 1916 End If … … 2015 1918 End Function 2016 1919 2017 Const Function GetNativeGraphics() As *G pGraphics1920 Const Function GetNativeGraphics() As *Gdiplus.GpGraphics 2018 1921 Return This.nativeGraphics 2019 1922 End Function … … 2024 1927 2025 1928 Protected 2026 nativeGraphics As *G pGraphics2027 lastResult As /*Mutable*/ Status1929 nativeGraphics As *Gdiplus.GpGraphics 1930 lastResult As /*Mutable*/ Gdiplus.Status 2028 1931 End Class 2029 1932 1933 End Namespace 'Drawing 1934 End Namespace 'System 1935 2030 1936 #endif
Note:
See TracChangeset
for help on using the changeset viewer.