Changeset 212 for Include/Classes/System/Drawing/Graphics.ab
- Timestamp:
- Apr 13, 2007, 5:12:31 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/Classes/System/Drawing/Graphics.ab
r104 r212 37 37 '========================================================================= 38 38 Const Function Clip() As Region 39 Dim r As Regi no39 Dim r As Region 40 40 GetClip(r) 41 41 Return r 42 42 End Function 43 43 44 Sub Clip( ByRefregion As /*Const*/ Region)44 Sub Clip(region As /*Const*/ Region) 45 45 SetClip(region, CombineMode.Replace) 46 46 End Sub … … 172 172 End Function 173 173 174 Sub Transform( ByRefmatrix As Matrix)174 Sub Transform(matrix As Matrix) 175 175 SetTransform(matirx) 176 176 End Sub … … 185 185 ' Methods 186 186 '========================================================================= 187 Static Function FromHDC(hdc As HDC) As *Graphics187 Static Function FromHDC(hdc As HDC) As Graphics 188 188 Return New Graphics(hdc) 189 189 End Function 190 190 191 Static Function FromHDC(hdc As HDC, hdevice As HANDLE) As *Graphics191 Static Function FromHDC(hdc As HDC, hdevice As HANDLE) As Graphics 192 192 Return New Graphics(hdc, hdevice) 193 193 End Function 194 194 195 Static Function FromHWND(hwnd As HWND) As *Graphics195 Static Function FromHWND(hwnd As HWND) As Graphics 196 196 Return New Graphics(hwnd, FALSE) 197 197 End Function 198 198 199 Static Function FromHWND(hwnd As DWord, icm As BOOL) As *Graphics199 Static Function FromHWND(hwnd As DWord, icm As BOOL) As Graphics 200 200 Return New Graphics(hwnd, icm) 201 201 End Function 202 202 203 Static Function FromImage(image As *Image) As *Graphics203 Static Function FromImage(image As Image) As Graphics 204 204 Return New Graphics(image) 205 205 End Function 206 206 207 207 Sub Graphics(hdc As HDC) 208 Dim graphics = 0 As *GpGraphics208 Dim graphics = 0 As GpGraphics 209 209 lastResult = GdipCreateFromHDC(hdc, graphics) 210 210 SetNativeGraphics(graphics) … … 233 233 End Sub 234 234 235 Sub Graphics(image As *Image)235 Sub Graphics(image As Image) 236 236 Dim graphics = 0 As *GpGraphics 237 237 If (image != 0) … … 277 277 End Function 278 278 279 Const Function GetRenderingOrigin( ByRef x As Long, ByRefy As Long) As Status279 Const Function GetRenderingOrigin(x As Long, y As Long) As Status 280 280 Return SetStatus(GdipGetRenderingOrigin(nativeGraphics, x, y)) 281 281 End Function … … 355 355 '------------------------------------------------------------------------ 356 356 357 Function SetTransform( ByRefmatrix As /*Const*/ *Matrix) As Status357 Function SetTransform(matrix As /*Const*/ *Matrix) As Status 358 358 Return SetStatus(GdipSetWorldTransform(nativeGraphics, matrix->nativeMatrix)) 359 359 End Function … … 363 363 End Function 364 364 365 Function MultiplyTransform( ByRefmatrix As /*Const*/ Matrix) As Status365 Function MultiplyTransform(matrix As /*Const*/ Matrix) As Status 366 366 Return SetStatus(GdipMultiplyWorldTransform(nativeGraphics, matrix->nativeMatrix, MatrixOrder.Prepend)) 367 367 End Function 368 368 369 Function MultiplyTransform( ByRefmatrix As /*Const*/ Matrix, order As MatrixOrder) As Status369 Function MultiplyTransform(matrix As /*Const*/ Matrix, order As MatrixOrder) As Status 370 370 Return SetStatus(GdipMultiplyWorldTransform(nativeGraphics, matrix->nativeMatrix, order)) 371 371 End Function … … 395 395 End Function 396 396 397 Const Function GetTransform( ByRefmatrix As Matrix) As Status397 Const Function GetTransform(matrix As Matrix) As Status 398 398 Return SetStatus(GdipGetWorldTransform(nativeGraphics, matrix->nativeMatrix)) 399 399 End Function … … 411 411 '------------------------------------------------------------------------ 412 412 413 Const Function GetNearestColor( ByRefcolor As Color) As Status413 Const Function GetNearestColor(color As Color) As Status 414 414 Dim argb = color->Value 415 415 Dim status = SetStatus(GdipGetNearestColor(nativeGraphics, argb)) … … 418 418 End Function 419 419 420 Function DrawLine( ByRefpen As /*Const*/ Pen, x1 As Single, y1 As Single, x2 As Single, y2 As Single) As Status420 Function DrawLine(pen As /*Const*/ Pen, x1 As Single, y1 As Single, x2 As Single, y2 As Single) As Status 421 421 Return SetStatus(GdipDrawLine(nativeGraphics, pen->nativePen, x1, y1, x2, y2)) 422 422 End Function 423 423 424 Function DrawLine( ByRef pen As /*Const*/ Pen, ByRef pt1 As /*Const*/ PointF, ByRefpt2 As /*Const*/ PointF) As Status424 Function DrawLine(pen As /*Const*/ Pen, pt1 As /*Const*/ PointF, pt2 As /*Const*/ PointF) As Status 425 425 Return DrawLine(pen, pt1.X, pt1.Y, pt2.X, pt2.Y) 426 426 End Function 427 427 428 Function DrawLines( ByRefpen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status428 Function DrawLines(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status 429 429 Return SetStatus(GdipDrawLines(nativeGraphics, pen->nativePen, points, count)) 430 430 End Function 431 431 432 Function DrawLine( ByRefpen As /*Const*/ Pen, x1 As Long, y1 As Long, x2 As Long, y2 As Long) As Status432 Function DrawLine(pen As /*Const*/ Pen, x1 As Long, y1 As Long, x2 As Long, y2 As Long) As Status 433 433 Return SetStatus(GdipDrawLineI(nativeGraphics, pen->nativePen, x1, y1, x2, y2)) 434 434 End Function 435 435 436 Function DrawLine( ByRef pen As /*Const*/ Pen, ByRef pt1 As /*Const*/ Point, ByRefpt2 As /*Const*/ Point) As Status436 Function DrawLine(pen As /*Const*/ Pen, pt1 As /*Const*/ Point, pt2 As /*Const*/ Point) As Status 437 437 Return DrawLine(pen, pt1.X, pt1.Y, pt2.X, pt2.Y) 438 438 End Function 439 439 440 Function DrawLines( ByRefpen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status440 Function DrawLines(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status 441 441 Return SetStatus(GdipDrawLinesI(nativeGraphics, pen->nativePen, points, count)) 442 442 End Function 443 443 444 Function DrawArc( ByRefpen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single, startAngle As Single, sweepAngle As Single) As Status444 Function DrawArc(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single, startAngle As Single, sweepAngle As Single) As Status 445 445 Return SetStatus(GdipDrawArc(nativeGraphics, pen->nativePen, x, y, width, height, startAngle, sweepAngle)) 446 446 End Function 447 447 448 Function DrawArc( ByRef pen As /*Const*/ Pen, ByRefrect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Status448 Function DrawArc(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Status 449 449 Return DrawArc(pen, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle) 450 450 End Function 451 451 452 Function DrawArc( ByRefpen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long, startAngle As Single, sweepAngle As Single) As Status452 Function DrawArc(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long, startAngle As Single, sweepAngle As Single) As Status 453 453 Return SetStatus(GdipDrawArcI(nativeGraphics, pen->nativePen, x, y, width, height, startAngle, sweepAngle)) 454 454 End Function 455 455 456 Function DrawArc( ByRef pen As /*Const*/ Pen, ByRefrect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Status456 Function DrawArc(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Status 457 457 Return DrawArc(pen, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle) 458 458 End Function 459 459 460 Function DrawBezier( ByRefpen 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 Status460 Function DrawBezier(pen As /*Const*/ Pen, x1 As Single, y1 As Single, x2 As Single, y2 As Single, x3 As Single, y3 As Single, x4 As Single, y4 As Single) As Status 461 461 Return SetStatus(GdipDrawBezier(nativeGraphics, pen->nativePen, x1, y1,x2, y2, x3, y3, x4, y4)) 462 462 End Function 463 463 464 Function DrawBezier( ByRef pen As /*Const*/ Pen, ByRef pt1 As /*Const*/ PointF, ByRef pt2 As /*Const*/ PointF, ByRef pt3 As /*Const*/ PointF, ByRefpt4 As /*Const*/ PointF) As Status464 Function DrawBezier(pen As /*Const*/ Pen, pt1 As /*Const*/ PointF, pt2 As /*Const*/ PointF, pt3 As /*Const*/ PointF, pt4 As /*Const*/ PointF) As Status 465 465 Return DrawBezier(pen, pt1.X, pt1.Y, pt2.X, pt2.Y, pt3.X, pt3.Y, pt4.X, pt4.Y) 466 466 End Function 467 467 468 Function DrawBeziers( ByRefpen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status468 Function DrawBeziers(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status 469 469 Return SetStatus(GdipDrawBeziers(nativeGraphics, pen->nativePen, points, count)) 470 470 End Function 471 471 472 Function DrawBezier( ByRefpen 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 Status472 Function DrawBezier(pen As /*Const*/ Pen, x1 As Long, y1 As Long, x2 As Long, y2 As Long, x3 As Long, y3 As Long, x4 As Long, y4 As Long) As Status 473 473 Return SetStatus(GdipDrawBezierI(nativeGraphics, pen->nativePen, x1, y1, x2, y2, x3, y3, x4, y4)) 474 474 End Function 475 475 476 Function DrawBezier( ByRef pen As /*Const*/ Pen, ByRef pt1 As /*Const*/ Point, ByRef pt2 As /*Const*/ Point, ByRef pt3 As /*Const*/ Point, ByRefpt4 As /*Const*/ Point) As Status476 Function DrawBezier(pen As /*Const*/ Pen, pt1 As /*Const*/ Point, pt2 As /*Const*/ Point, pt3 As /*Const*/ Point, pt4 As /*Const*/ Point) As Status 477 477 Return DrawBezier(pen pt1.X, pt1.Y, pt2.X, pt2.Y, pt3.X, pt3.Y, pt4.X, pt4.Y) 478 478 End Function 479 479 480 Function DrawBeziers( ByRefpen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status480 Function DrawBeziers(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status 481 481 Return SetStatus(GdipDrawBeziersI(nativeGraphics, pen->nativePen, points, count)) 482 482 End Function 483 483 484 Function DrawRectangle( ByRef pen As /*Const*/ Pen, ByRefrect As /*Const*/ RectangleF) As Status484 Function DrawRectangle(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF) As Status 485 485 Return DrawRectangle(pen, rect.X, rect.Y, rect.Width, rect.Height) 486 486 End Function 487 487 488 Function DrawRectangle( ByRefpen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single) As Status488 Function DrawRectangle(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single) As Status 489 489 Return SetStatus(GdipDrawRectangle(nativeGraphics, pen->nativePen, x, y, width, height)) 490 490 End Function 491 491 492 Function DrawRectangles( ByRefpen As /*Const*/ Pen, rects As /*Const*/ *RectangleF, count As Long) As Status492 Function DrawRectangles(pen As /*Const*/ Pen, rects As /*Const*/ *RectangleF, count As Long) As Status 493 493 Return SetStatus(GdipDrawRectangles(nativeGraphics, pen->nativePen, rects, count)) 494 494 End Function 495 495 496 Function DrawRectangle( ByRef pen As /*Const*/ Pen, ByRefrect As /*Const*/ Rectangle) As Status496 Function DrawRectangle(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle) As Status 497 497 Return DrawRectangle(pen, rect.X, rect.Y, rect.Width, rect.Height) 498 498 End Function 499 499 500 Function DrawRectangle( ByRefpen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long) As Status500 Function DrawRectangle(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long) As Status 501 501 Return SetStatus(GdipDrawRectangleI(nativeGraphics, pen->nativePen, x, y, width, height)) 502 502 End Function 503 503 504 Function DrawRectangles( ByRefpen As /*Const*/ Pen, rects As /*Const*/ *Rectangle, count As Long) As Status504 Function DrawRectangles(pen As /*Const*/ Pen, rects As /*Const*/ *Rectangle, count As Long) As Status 505 505 Return SetStatus(GdipDrawRectanglesI(nativeGraphics, pen->nativePen, rects, count)) 506 506 End Function 507 507 508 Function DrawEllipse( ByRef pen As /*Const*/ Pen, ByRefrect As /*Const*/ RectangleF) As Status508 Function DrawEllipse(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF) As Status 509 509 Return DrawEllipse(pen, rect.X, rect.Y, rect.Width, rect.Height) 510 510 End Function 511 511 512 Function DrawEllipse( ByRefpen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single) As Status512 Function DrawEllipse(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single) As Status 513 513 Return SetStatus(GdipDrawEllipse(nativeGraphics, pen->nativePen, x, y, width, height)) 514 514 End Function 515 515 516 Function DrawEllipse( ByRef pen As /*Const*/ Pen, ByRefrect As /*Const*/ Rectangle) As Status516 Function DrawEllipse(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle) As Status 517 517 Return DrawEllipse(pen, rect.X, rect.Y, rect.Width, rect.Height) 518 518 End Function 519 519 520 Function DrawEllipse( ByRefpen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long) As Status520 Function DrawEllipse(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long) As Status 521 521 Return SetStatus(GdipDrawEllipseI(nativeGraphics, pen->nativePen, x, y, width, height)) 522 522 End Function 523 523 524 Function DrawPie( ByRef pen As /*Const*/ Pen, ByRefrect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Status524 Function DrawPie(pen As /*Const*/ Pen, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Status 525 525 Return DrawPie(pen, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle) 526 526 End Function 527 527 528 Function DrawPie( ByRefpen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single, startAngle As Single, sweepAngle As Single) As Status528 Function DrawPie(pen As /*Const*/ Pen, x As Single, y As Single, width As Single, height As Single, startAngle As Single, sweepAngle As Single) As Status 529 529 Return SetStatus(GdipDrawPie(nativeGraphics, pen->nativePen, x, y, width, height, startAngle, sweepAngle)) 530 530 End Function 531 531 532 Function DrawPie( ByRef pen As /*Const*/ Pen, ByRefrect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Status532 Function DrawPie(pen As /*Const*/ Pen, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Status 533 533 Return DrawPie(pen, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle) 534 534 End Function 535 535 536 Function DrawPie( ByRefpen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long, startAngle As Single, sweepAngle As Single) As Status536 Function DrawPie(pen As /*Const*/ Pen, x As Long, y As Long, width As Long, height As Long, startAngle As Single, sweepAngle As Single) As Status 537 537 Return SetStatus(GdipDrawPieI(nativeGraphics, pen->nativePen, x, y, width, height, startAngle, sweepAngle)) 538 538 End Function 539 539 540 Function DrawPolygon( ByRefpen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status540 Function DrawPolygon(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status 541 541 Return SetStatus(GdipDrawPolygon(nativeGraphics, pen->nativePen, points, count)) 542 542 End Function 543 543 544 Function DrawPolygon( ByRefpen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status544 Function DrawPolygon(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status 545 545 Return SetStatus(GdipDrawPolygonI(nativeGraphics, pen->nativePen, points, count)) 546 546 End Function 547 547 548 Function DrawPath( ByRef pen As /*Const*/ Pen, ByRefpath As /*Const*/ GraphicsPath) As Status548 Function DrawPath(pen As /*Const*/ Pen, path As /*Const*/ GraphicsPath) As Status 549 549 Return SetStatus(GdipDrawPath(nativeGraphics, pen->nativePen, path->nativePath)) 550 550 ' Return SetStatus(GdipDrawPath(nativeGraphics, pen ? pen->nativePen : NULL, path ? path->nativePath : NULL)) 551 551 End Function 552 552 553 Function DrawCurve( ByRefpen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status553 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status 554 554 Return SetStatus(GdipDrawCurve(nativeGraphics, pen->nativePen, points, count)) 555 555 End Function 556 556 557 Function DrawCurve( ByRefpen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, tension As Single) As Status557 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, tension As Single) As Status 558 558 Return SetStatus(GdipDrawCurve2(nativeGraphics, pen->nativePen, points,count, tension)) 559 559 End Function 560 560 561 Function DrawCurve( ByRefpen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, offset As Long, numberOfSegments As Long) As Status561 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, offset As Long, numberOfSegments As Long) As Status 562 562 Return SetStatus(GdipDrawCurve3(nativeGraphics, pen->nativePen, points, count, offset,numberOfSegments, 0.5)) 563 563 End Function 564 564 565 Function DrawCurve( ByRefpen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, offset As Long, numberOfSegments As Long, tension As Single) As Status565 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, offset As Long, numberOfSegments As Long, tension As Single) As Status 566 566 Return SetStatus(GdipDrawCurve3(nativeGraphics, pen->nativePen, points, count, offset,numberOfSegments, tension)) 567 567 End Function 568 568 569 Function DrawCurve( ByRefpen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status569 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status 570 570 Return SetStatus(GdipDrawCurveI(nativeGraphics, pen->nativePen, points, count)) 571 571 End Function 572 572 573 Function DrawCurve( ByRefpen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, tension As Single) As Status573 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, tension As Single) As Status 574 574 Return SetStatus(GdipDrawCurve2I(nativeGraphics, pen->nativePen, points, count, tension)) 575 575 End Function 576 576 577 Function DrawCurve( ByRefpen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, offset As Long, numberOfSegments As Long) As Status577 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, offset As Long, numberOfSegments As Long) As Status 578 578 Return SetStatus(GdipDrawCurve3I(nativeGraphics, pen->nativePen, points, count, offset, numberOfSegments, 0.5)) 579 579 End Function 580 580 581 Function DrawCurve( ByRefpen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, offset As Long, numberOfSegments As Long, tension As Single) As Status581 Function DrawCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, offset As Long, numberOfSegments As Long, tension As Single) As Status 582 582 Return SetStatus(GdipDrawCurve3I(nativeGraphics, pen->nativePen, points, count, offset, numberOfSegments, tension)) 583 583 End Function 584 584 585 Function DrawClosedCurve( ByRefpen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status585 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long) As Status 586 586 Return SetStatus(GdipDrawClosedCurve(nativeGraphics, pen->nativePen, points, count)) 587 587 End Function 588 588 589 Function DrawClosedCurve( ByRefpen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, tension As Single) As Status589 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *PointF, count As Long, tension As Single) As Status 590 590 Return SetStatus(GdipDrawClosedCurve2(nativeGraphics, pen->nativePen, points, count, tension)) 591 591 End Function 592 592 593 Function DrawClosedCurve( ByRefpen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status593 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long) As Status 594 594 Return SetStatus(GdipDrawClosedCurveI(nativeGraphics, pen->nativePen, points, count)) 595 595 End Function 596 596 597 Function DrawClosedCurve( ByRefpen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, tension As Single) As Status597 Function DrawClosedCurve(pen As /*Const*/ Pen, points As /*Const*/ *Point, count As Long, tension As Single) As Status 598 598 Return SetStatus(GdipDrawClosedCurve2I(nativeGraphics, pen->nativePen, points, count, tension)) 599 599 End Function 600 600 601 Function Clear( ByRefcolor As /*Const*/ Color) As Status601 Function Clear(color As /*Const*/ Color) As Status 602 602 Return SetStatus(GdipGraphicsClear(nativeGraphics, color.Value)) 603 603 End Function 604 604 605 Function FillRectangle( ByRef brush As /*Const*/ Brush, ByRefrect As /*Const*/ RectangleF) As Status605 Function FillRectangle(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF) As Status 606 606 Return FillRectangle(brush, rect.X, rect.Y, rect.Width, rect.Height) 607 607 End Function 608 608 609 Function FillRectangle( ByRefbrush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single) As Status609 Function FillRectangle(brush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single) As Status 610 610 Return SetStatus(GdipFillRectangle(nativeGraphics, brush->nativeBrush, x, y, width, height)) 611 611 End Function 612 612 613 Function FillRectangles( ByRefbrush As /*Const*/ Brush, rects As /*Const*/ *RectangleF, count As Long) As Status613 Function FillRectangles(brush As /*Const*/ Brush, rects As /*Const*/ *RectangleF, count As Long) As Status 614 614 Return SetStatus(GdipFillRectangles(nativeGraphics,brush->nativeBrush,rects, count)) 615 615 End Function 616 616 617 Function FillRectangle( ByRef brush As /*Const*/ Brush, ByRefrect As /*Const*/ Rectangle) As Status617 Function FillRectangle(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle) As Status 618 618 Return FillRectangle(brush, rect.X, rect.Y, rect.Width, rect.Height) 619 619 End Function 620 620 621 Function FillRectangle( ByRefbrush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long) As Status621 Function FillRectangle(brush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long) As Status 622 622 Return SetStatus(GdipFillRectangleI(nativeGraphics, brush->nativeBrush, x, y, width, height)) 623 623 End Function 624 624 625 Function FillRectangles( ByRefbrush As /*Const*/ Brush, rects As /*Const*/ *Rectangle, count As Long) As Status625 Function FillRectangles(brush As /*Const*/ Brush, rects As /*Const*/ *Rectangle, count As Long) As Status 626 626 Return SetStatus(GdipFillRectanglesI(nativeGraphics, brush->nativeBrush, rects, count)) 627 627 End Function 628 628 629 Function FillPolygon( ByRefbrush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long) As Status629 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long) As Status 630 630 Return FillPolygon(brush, points, count, FillModeAlternate) 631 631 End Function 632 632 633 Function FillPolygon( ByRefbrush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode) As Status633 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode) As Status 634 634 Return SetStatus(GdipFillPolygon(nativeGraphics, brush->nativeBrush, points, count, fillMode)) 635 635 End Function 636 636 637 Function FillPolygon( ByRefbrush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long) As Status637 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long) As Status 638 638 Return FillPolygon(brush, points, count, FillModeAlternate) 639 639 End Function 640 640 641 Function FillPolygon( ByRefbrush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode) As Status641 Function FillPolygon(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode) As Status 642 642 Return SetStatus(GdipFillPolygonI(nativeGraphics, brush->nativeBrush, points, count, fillMode)) 643 643 End Function 644 644 645 Function FillEllipse( ByRef brush As /*Const*/ Brush, ByRefrect As /*Const*/ RectangleF) As Status645 Function FillEllipse(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF) As Status 646 646 Return FillEllipse(brush, rect.X, rect.Y, rect.Width, rect.Height) 647 647 End Function 648 648 649 Function FillEllipse( ByRefbrush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single) As Status649 Function FillEllipse(brush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single) As Status 650 650 Return SetStatus(GdipFillEllipse(nativeGraphics, brush->nativeBrush, x, y, width, height)) 651 651 End Function 652 652 653 Function FillEllipse( ByRef brush As /*Const*/ Brush, ByRefrect As /*Const*/ Rectangle) As Status653 Function FillEllipse(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle) As Status 654 654 Return FillEllipse(brush, rect.X, rect.Y, rect.Width, rect.Height) 655 655 End Function 656 656 657 Function FillEllipse( ByRefbrush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long) As Status657 Function FillEllipse(brush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long) As Status 658 658 Return SetStatus(GdipFillEllipseI(nativeGraphics, brush->nativeBrush, x, y, width, height)) 659 659 End Function 660 660 661 Function FillPie( ByRef brush As /*Const*/ Brush, ByRefrect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Status661 Function FillPie(brush As /*Const*/ Brush, rect As /*Const*/ RectangleF, startAngle As Single, sweepAngle As Single) As Status 662 662 Return FillPie(brush, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle) 663 663 End Function 664 664 665 Function FillPie( ByRefbrush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single, startAngle As Single, sweepAngle As Single) As Status665 Function FillPie(brush As /*Const*/ Brush, x As Single, y As Single, width As Single, height As Single, startAngle As Single, sweepAngle As Single) As Status 666 666 Return SetStatus(GdipFillPie(nativeGraphics, brush->nativeBrush, x, y, width, height, startAngle, sweepAngle)) 667 667 End Function 668 668 669 Function FillPie( ByRef brush As /*Const*/ Brush, ByRefrect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Status669 Function FillPie(brush As /*Const*/ Brush, rect As /*Const*/ Rectangle, startAngle As Single, sweepAngle As Single) As Status 670 670 Return FillPie(brush, rect.X, rect.Y, rect.Width, rect.Height, startAngle, sweepAngle) 671 671 End Function 672 672 673 Function FillPie( ByRefbrush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long, startAngle As Single, sweepAngle As Single) As Status673 Function FillPie(brush As /*Const*/ Brush, x As Long, y As Long, width As Long, height As Long, startAngle As Single, sweepAngle As Single) As Status 674 674 Return SetStatus(GdipFillPieI(nativeGraphics, brush->nativeBrush, x, y, width, height, startAngle, sweepAngle)) 675 675 End Function 676 676 677 Function FillPath( ByRef brush As /*Const*/ Brush, ByRefpath As /*Const*/ GraphicsPath) As Status677 Function FillPath(brush As /*Const*/ Brush, path As /*Const*/ GraphicsPath) As Status 678 678 Return SetStatus(GdipFillPath(nativeGraphics, brush->nativeBrush, path->nativePath)) 679 679 End Function 680 680 681 Function FillClosedCurve( ByRefbrush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long) As Status681 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long) As Status 682 682 Return SetStatus(GdipFillClosedCurve(nativeGraphics, brush->nativeBrush, points, count)) 683 683 End Function 684 684 685 Function FillClosedCurve( ByRefbrush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode) As Status685 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode) As Status 686 686 Return SetStatus(GdipFillClosedCurve2(nativeGraphics, brush->nativeBrush, points, count, 0.5, fillMode)) 687 687 End Function 688 688 689 Function FillClosedCurve( ByRefbrush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode, tension As Single) As Status689 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *PointF, count As Long, fillMode As FillMode, tension As Single) As Status 690 690 Return SetStatus(GdipFillClosedCurve2(nativeGraphics, brush->nativeBrush, points, count, tension, fillMode)) 691 691 End Function 692 692 693 Function FillClosedCurve( ByRefbrush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long) As Status693 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long) As Status 694 694 Return SetStatus(GdipFillClosedCurveI(nativeGraphics, brush->nativeBrush, points, count)) 695 695 End Function 696 696 697 Function FillClosedCurve( ByRefbrush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode) As Status697 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode) As Status 698 698 Return SetStatus(GdipFillClosedCurve2I(nativeGraphics, brush->nativeBrush, points, count, 0.5, fillMode)) 699 699 End Function 700 700 701 Function FillClosedCurve( ByRefbrush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode, tension As Single) As Status701 Function FillClosedCurve(brush As /*Const*/ Brush, points As /*Const*/ *Point, count As Long, fillMode As FillMode, tension As Single) As Status 702 702 Return SetStatus(GdipFillClosedCurve2I(nativeGraphics, brush->nativeBrush, points, count, tension, fillMode)) 703 703 End Function 704 704 705 Function FillRegion( ByRef brush As /*Const*/ Brush, ByRefregion As /*Const*/ Region) As Status705 Function FillRegion(brush As /*Const*/ Brush, region As /*Const*/ Region) As Status 706 706 Return SetStatus(GdipFillRegion(nativeGraphics, brush->nativeBrush, region->nativeRegion)) 707 707 End Function 708 708 709 Function DrawString(str As PCWSTR, length As Long, ByRef font As /*Const*/ Font, ByReflayoutRect As /*Const*/ RectangleF) As Status709 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF) As Status 710 710 Dim nativeFont As *GpFont 711 711 If VarPtr(font) <> 0 Then … … 717 717 End Function 718 718 719 Function DrawString(str As PCWSTR, length As Long, ByRef font As /*Const*/ Font, ByReflayoutRect As /*Const*/ Rectangle,720 ByRef stringFormat As /*Const*/ StringFormat, ByRefbrush As /*Const*/ Brush) As Status719 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ Rectangle, 720 stringFormat As /*Const*/ StringFormat, brush As /*Const*/ Brush) As Status 721 721 722 722 Dim nativeFont As *GpFont … … 735 735 End Function 736 736 737 Function DrawString(str As PCWSTR, length As Long, ByRef font As /*Const*/ Font, ByReflayoutRect As /*Const*/ RectangleF,738 ByRef stringFormat As /*Const*/ StringFormat, ByRefbrush As /*Const*/ Brush) As Status737 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF, 738 stringFormat As /*Const*/ StringFormat, brush As /*Const*/ Brush) As Status 739 739 740 740 Dim nativeFont As *GpFont … … 759 759 End Function 760 760 761 Function DrawString(str As PCWSTR, length As Long, ByRef font As /*Const*/ Font, ByReforigin As /*Const*/ Point) As Status761 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ Point) As Status 762 762 Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0) 763 763 Dim nativeFont As *GpFont … … 770 770 End Function 771 771 772 Function DrawString(str As PCWSTR, length As Long, ByRef font As /*Const*/ Font, ByReforigin As /*Const*/ PointF,773 ByRefbrush As /*Const*/ Brush) As Status772 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ PointF, 773 brush As /*Const*/ Brush) As Status 774 774 775 775 Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0) … … 789 789 End Function 790 790 791 Function DrawString(str As PCWSTR, length As Long, ByRef font As /*Const*/ Font, ByReforigin As /*Const*/ PointF) As Status791 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ PointF) As Status 792 792 Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0) 793 793 Dim nativeFont As *GpFont … … 800 800 End Function 801 801 802 Function DrawString(str As PCWSTR, length As Long, ByRef font As /*Const*/ Font, ByReforigin As /*Const*/ PointF,803 ByRefstringFormat As /*Const*/ StringFormat) As Status802 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ PointF, 803 stringFormat As /*Const*/ StringFormat) As Status 804 804 805 805 Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0) … … 819 819 End Function 820 820 821 Function DrawString(str As PCWSTR, length As Long, ByRef font As /*Const*/ Font, ByReforigin As /*Const*/ PointF,822 ByRef stringFormat As /*Const*/ StringFormat, ByRefbrush As /*Const*/ Brush) As Status821 Function DrawString(str As PCWSTR, length As Long, font As /*Const*/ Font, origin As /*Const*/ PointF, 822 stringFormat As /*Const*/ StringFormat, brush As /*Const*/ Brush) As Status 823 823 824 824 Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0) … … 843 843 End Function 844 844 845 Const Function MeasureString(str As PCWSTR, length As Long, ByRef font As /*Const*/ Font, ByReflayoutRect As /*Const*/ RectangleF,846 ByRef stringFormat As /*Const*/ StringFormat, ByRefboundingBox As RectangleF) As Status845 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF, 846 stringFormat As /*Const*/ StringFormat, boundingBox As RectangleF) As Status 847 847 848 848 Return MeasureString(str, length, font, layoutRect, stringFormat, boundingBox, ByVal 0, ByVal 0) 849 849 End Function 850 850 851 Const Function MeasureString(str As PCWSTR, length As Long, ByRef font As /*Const*/ Font, ByReflayoutRect As /*Const*/ RectangleF,852 ByRef stringFormat As /*Const*/ StringFormat, ByRefboundingBox As RectangleF,853 ByRefcodepointsFitted As Long) As Status851 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF, 852 stringFormat As /*Const*/ StringFormat, boundingBox As RectangleF, 853 codepointsFitted As Long) As Status 854 854 855 855 Return MeasureString(str, length, font, layoutRect, stringFormat, boundingBox, codepointsFitted, ByVal 0) 856 856 End Function 857 857 858 Const Function MeasureString(str As PCWSTR, length As Long, ByRef font As /*Const*/ Font, ByReflayoutRect As /*Const*/ RectangleF,859 ByRef stringFormat As /*Const*/ StringFormat, ByRefboundingBox As RectangleF,860 ByRef codepointsFitted As Long, ByReflinesFilled As Long) As Status858 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, layoutRect As /*Const*/ RectangleF, 859 stringFormat As /*Const*/ StringFormat, boundingBox As RectangleF, 860 codepointsFitted As Long, linesFilled As Long) As Status 861 861 862 862 Dim nativeFont As *GpFont … … 876 876 End Function 877 877 878 Const Function MeasureString(str As PCWSTR, length As Long, ByReffont As /*Const*/ Font,879 ByRef layoutRectSize As /*Const*/ SizeF, ByRefstringFormat As /*Const*/ StringFormat,880 ByRefsize As SizeF) As Status878 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, 879 layoutRectSize As /*Const*/ SizeF, stringFormat As /*Const*/ StringFormat, 880 size As SizeF) As Status 881 881 882 882 Return MeasureString(str, length, font, layoutRectSize, stringFormat, size, ByVal 0, ByVal 0) 883 883 End Function 884 884 885 Const Function MeasureString(str As PCWSTR, length As Long, ByReffont As /*Const*/ Font,886 ByRef layoutRectSize As /*Const*/ SizeF, ByRefstringFormat As /*Const*/ StringFormat,887 ByRef size As SizeF, ByRefcodepointsFitted As Long) As Status885 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, 886 layoutRectSize As /*Const*/ SizeF, stringFormat As /*Const*/ StringFormat, 887 size As SizeF, codepointsFitted As Long) As Status 888 888 889 889 Return MeasureString(str, length, font, layoutRectSize, stringFormat, size, codepointsFitted, ByVal 0) 890 890 End Function 891 891 892 Const Function MeasureString(str As PCWSTR, length As Long, ByReffont As /*Const*/ Font,893 ByRef layoutRectSize As /*Const*/ SizeF, ByRefstringFormat As /*Const*/ StringFormat,894 ByRef size As SizeF, ByRef codepointsFitted As Long, ByReflinesFilled As Long) As Status892 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, 893 layoutRectSize As /*Const*/ SizeF, stringFormat As /*Const*/ StringFormat, 894 size As SizeF, codepointsFitted As Long, linesFilled As Long) As Status 895 895 896 896 Dim layoutRect As RectangleF(0, 0, layoutRectSize.Width, layoutRectSize.Height) … … 925 925 End Function 926 926 927 Const Function MeasureString(str As PCWSTR, length As Long, ByReffont As /*Const*/ Font,928 ByRef origin As /*Const*/ PointF, ByRefstringFormat As /*Const*/ StringFormat,929 ByRefboundingBox As RectangleF) As Status927 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, 928 origin As /*Const*/ PointF, stringFormat As /*Const*/ StringFormat, 929 boundingBox As RectangleF) As Status 930 930 931 931 Dim rect As RectangleF(origin.X, origin.Y, 0.0f, 0.0f) … … 946 946 End Function 947 947 948 Const Function MeasureString(str As PCWSTR, length As Long, ByReffont As /*Const*/ Font,949 ByRef layoutRect As /*Const*/ RectangleF, ByRefboundingBox As RectangleF) As Status948 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, 949 layoutRect As /*Const*/ RectangleF, boundingBox As RectangleF) As Status 950 950 951 951 Dim nativeFont As *GpFont … … 959 959 End Function 960 960 961 Const Function MeasureString(str As PCWSTR, length As Long, ByReffont As /*Const*/ Font,962 ByRef origin As /*Const*/ PointF, ByRefboundingBox As RectangleF) As Status961 Const Function MeasureString(str As PCWSTR, length As Long, font As /*Const*/ Font, 962 origin As /*Const*/ PointF, boundingBox As RectangleF) As Status 963 963 Dim rect As RectangleF(origin.X, origin.Y, 0.0, 0.0) 964 964 … … 972 972 End Function 973 973 974 Const Function MeasureCharacterRanges(str As PCWSTR, length As Long, ByReffont As /*Const*/ Font,975 ByRef layoutRect As /*Const*/ RectangleF, ByRefstringFormat As /*Const*/ StringFormat,974 Const Function MeasureCharacterRanges(str As PCWSTR, length As Long, font As /*Const*/ Font, 975 layoutRect As /*Const*/ RectangleF, stringFormat As /*Const*/ StringFormat, 976 976 regionCount As Long, regions As *Region) As Status 977 977 If regions = 0 Or regionCount <= 0 Then … … 1009 1009 End Function 1010 1010 1011 Function DrawDriverString(text As /*Const*/ Word, length As Long, ByReffont As /*Const*/ Font,1012 ByRefbrush As /*Const*/ Brush, positions As /*Const*/ *PointF, flags As Long) As Status1011 Function DrawDriverString(text As /*Const*/ Word, length As Long, font As /*Const*/ Font, 1012 brush As /*Const*/ Brush, positions As /*Const*/ *PointF, flags As Long) As Status 1013 1013 1014 1014 Return DrawDriverString(text, length, font, brush, positions, flags, ByVal 0) 1015 1015 End Function 1016 1016 1017 Function DrawDriverString(text As /*Const*/ Word, length As Long, ByReffont As /*Const*/ Font,1018 ByRef brush As /*Const*/ Brush, positions As /*Const*/ *PointF, flags As Long, ByRefmatrix As /*Const*/ Matrix) As Status1017 Function DrawDriverString(text As /*Const*/ Word, length As Long, font As /*Const*/ Font, 1018 brush As /*Const*/ Brush, positions As /*Const*/ *PointF, flags As Long, matrix As /*Const*/ Matrix) As Status 1019 1019 1020 1020 Dim nativeFont As *GpFont … … 1039 1039 End Function 1040 1040 1041 Const Function MeasureDriverString(text As /*Const*/ Word, length As Long, ByReffont As /*Const*/ Font,1042 positions As /*Const*/ *PointF, flags As Long, ByRef matrix As /*Const*/ Matrix, ByRefboundingBox As RectangleF) As Status1041 Const Function MeasureDriverString(text As /*Const*/ Word, length As Long, font As /*Const*/ Font, 1042 positions As /*Const*/ *PointF, flags As Long, matrix As /*Const*/ Matrix, boundingBox As RectangleF) As Status 1043 1043 1044 1044 Dim nativeFont As *GpFont … … 1061 1061 ' native format differs from this Graphics. 1062 1062 1063 Function DrawCachedBitmap( ByRefcb As CachedBitmap, x As Long, y As Long) As Status1063 Function DrawCachedBitmap(cb As CachedBitmap, x As Long, y As Long) As Status 1064 1064 Return SetStatus(GdipDrawCachedBitmap(nativeGraphics, cb->nativeCachedBitmap, x, y)) 1065 1065 End Function 1066 1066 1067 Function DrawImage( ByRef image As Image, ByRefpoint As /*Const*/ PointF) As Status1067 Function DrawImage(image As Image, point As /*Const*/ PointF) As Status 1068 1068 Return DrawImage(image, point.X, point.Y) 1069 1069 End Function 1070 1070 1071 Function DrawImage( ByRefimage As Image, x As Single, y As Single) As Status1071 Function DrawImage(image As Image, x As Single, y As Single) As Status 1072 1072 Dim nativeImage As *GpImage 1073 1073 If VarPtr(image) <> 0 Then … … 1079 1079 End Function 1080 1080 1081 Function DrawImage( ByRef image As Image, ByRefrect As /*Const*/ RectangleF) As Status1081 Function DrawImage(image As Image, rect As /*Const*/ RectangleF) As Status 1082 1082 Return DrawImage(image, rect.X, rect.Y, rect.Width, rect.Height) 1083 1083 End Function 1084 1084 1085 Function DrawImage( ByRefimage As Image, x As Single, y As Single, width As Single, height As Single) As Status1085 Function DrawImage(image As Image, x As Single, y As Single, width As Single, height As Single) As Status 1086 1086 Dim nativeImage As *GpImage 1087 1087 If VarPtr(image) <> 0 Then … … 1093 1093 End Function 1094 1094 1095 Function DrawImage( ByRef image As Image, ByRefpoint As /*Const*/ Point) As Status1095 Function DrawImage(image As Image, point As /*Const*/ Point) As Status 1096 1096 Return DrawImage(image, point.X, point.Y) As Status 1097 1097 End Function 1098 1098 1099 Function DrawImage( ByRefimage As Image, x As Long, y As Long) As Status1099 Function DrawImage(image As Image, x As Long, y As Long) As Status 1100 1100 Dim nativeImage As *GpImage 1101 1101 If VarPtr(image) <> 0 Then … … 1107 1107 End Function 1108 1108 1109 Function DrawImage( ByRef image As Image, ByRefrect As /*Const*/ Rectangle) As Status1109 Function DrawImage(image As Image, rect As /*Const*/ Rectangle) As Status 1110 1110 Return DrawImage(image, rect.X, rect.Y, rect.Width, rect.Height) 1111 1111 End Function 1112 1112 1113 Function DrawImage( ByRefimage As Image, x As Long, y As Long, width As Long, height As Long) As Status1113 Function DrawImage(image As Image, x As Long, y As Long, width As Long, height As Long) As Status 1114 1114 Dim nativeImage As *GpImage 1115 1115 If VarPtr(image) <> 0 Then … … 1129 1129 ' destPoints[3] <=> bottom-right corner 1130 1130 1131 Function DrawImage( ByRefimage As Image, destPoints As /*Const*/ PointF, count As Long) As Status1131 Function DrawImage(image As Image, destPoints As /*Const*/ PointF, count As Long) As Status 1132 1132 If count <> 3 And count <> 4 Then 1133 1133 Return SetStatus(InvalidParameter) … … 1143 1143 End Function 1144 1144 1145 Function DrawImage( ByRefimage As Image, destPoints As /*Const*/ Point, count As Long) As Status1145 Function DrawImage(image As Image, destPoints As /*Const*/ Point, count As Long) As Status 1146 1146 If count <> 3 And count <> 4 Then 1147 1147 Return SetStatus(InvalidParameter) … … 1157 1157 End Function 1158 1158 1159 Function DrawImage( ByRefimage As Image, x As Single, y As Single,1159 Function DrawImage(image As Image, x As Single, y As Single, 1160 1160 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Status 1161 1161 … … 1169 1169 End Function 1170 1170 1171 Function DrawImage( ByRef image As Image, ByRefdestRect As /*Const*/ RectangleF,1171 Function DrawImage(image As Image, destRect As /*Const*/ RectangleF, 1172 1172 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Status 1173 1173 … … 1175 1175 End Function 1176 1176 1177 Function DrawImage( ByRef image As Image, ByRefdestRect As /*Const*/ RectangleF,1177 Function DrawImage(image As Image, destRect As /*Const*/ RectangleF, 1178 1178 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1179 ByRefimageAttributes As /*Const*/ ImageAttributes) As Status1179 imageAttributes As /*Const*/ ImageAttributes) As Status 1180 1180 1181 1181 Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, 0, 0) 1182 1182 End Function 1183 1183 1184 Function DrawImage( ByRef image As Image, ByRefdestRect As /*Const*/ RectangleF,1184 Function DrawImage(image As Image, destRect As /*Const*/ RectangleF, 1185 1185 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1186 ByRefimageAttributes As /*Const*/ ImageAttributes,1186 imageAttributes As /*Const*/ ImageAttributes, 1187 1187 callback As DrawImageAbort) As Status 1188 1188 … … 1190 1190 End Function 1191 1191 1192 Function DrawImage( ByRef image As Image, ByRefdestRect As /*Const*/ RectangleF,1192 Function DrawImage(image As Image, destRect As /*Const*/ RectangleF, 1193 1193 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1194 ByRefimageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status1194 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status 1195 1195 1196 1196 Dim nativeImage As *GpImage … … 1212 1212 End Function 1213 1213 1214 Function DrawImage( ByRefimage As Image, destPoints As /*Const*/ PointF, count As Long,1214 Function DrawImage(image As Image, destPoints As /*Const*/ PointF, count As Long, 1215 1215 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Status 1216 1216 … … 1218 1218 End Function 1219 1219 1220 Function DrawImage( ByRefimage As Image, destPoints As /*Const*/ PointF, count As Long,1220 Function DrawImage(image As Image, destPoints As /*Const*/ PointF, count As Long, 1221 1221 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1222 ByRefimageAttributes As /*Const*/ ImageAttributes) As Status1222 imageAttributes As /*Const*/ ImageAttributes) As Status 1223 1223 1224 1224 Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, 0, 0) 1225 1225 End Function 1226 1226 1227 Function DrawImage( ByRefimage As Image, destPoints As /*Const*/ PointF, count As Long,1227 Function DrawImage(image As Image, destPoints As /*Const*/ PointF, count As Long, 1228 1228 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1229 ByRefimageAttributes As /*Const*/ ImageAttributes,1229 imageAttributes As /*Const*/ ImageAttributes, 1230 1230 callback As DrawImageAbort) As Status 1231 1231 … … 1233 1233 End Function 1234 1234 1235 Function DrawImage( ByRefimage As Image, destPoints As /*Const*/ PointF, count As Long,1235 Function DrawImage(image As Image, destPoints As /*Const*/ PointF, count As Long, 1236 1236 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1237 ByRefimageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status1237 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status 1238 1238 1239 1239 Dim nativeImage As *GpImage … … 1254 1254 End Function 1255 1255 1256 Function DrawImage( ByRefimage As Image, x As Long, y As Long,1256 Function DrawImage(image As Image, x As Long, y As Long, 1257 1257 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit) As Status 1258 1258 … … 1266 1266 End Function 1267 1267 1268 Function DrawImage( ByRef image As Image, ByRefdestRect As /*Const*/ Rectangle,1268 Function DrawImage(image As Image, destRect As /*Const*/ Rectangle, 1269 1269 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit) As Status 1270 1270 … … 1272 1272 End Function 1273 1273 1274 Function DrawImage( ByRef image As Image, ByRefdestRect As /*Const*/ Rectangle,1274 Function DrawImage(image As Image, destRect As /*Const*/ Rectangle, 1275 1275 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1276 ByRefimageAttributes As /*Const*/ ImageAttributes) As Status1276 imageAttributes As /*Const*/ ImageAttributes) As Status 1277 1277 1278 1278 Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, 0, 0) 1279 1279 End Function 1280 1280 1281 Function DrawImage( ByRef image As Image, ByRefdestRect As /*Const*/ Rectangle,1281 Function DrawImage(image As Image, destRect As /*Const*/ Rectangle, 1282 1282 srcx As Single, srcy As Single, srcwidth As Single, srcheight As Single, srcUnit As GraphicsUnit, 1283 ByRefimageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Status1283 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Status 1284 1284 1285 1285 Return DrawImage(image, destRect, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, callback, 0) 1286 1286 End Function 1287 1287 1288 Function DrawImage( ByRef image As Image, ByRefdestRect As /*Const*/ Rectangle,1288 Function DrawImage(image As Image, destRect As /*Const*/ Rectangle, 1289 1289 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit, 1290 ByRefimageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status1290 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status 1291 1291 1292 1292 Dim nativeImage As *GpImage … … 1308 1308 End Function 1309 1309 1310 Function DrawImage( ByRefimage As Image, destPoints As /*Const*/ Point, count As Long,1310 Function DrawImage(image As Image, destPoints As /*Const*/ Point, count As Long, 1311 1311 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit) As Status 1312 1312 … … 1314 1314 End Function 1315 1315 1316 Function DrawImage( ByRefimage As Image, destPoints As /*Const*/ Point, count As Long,1316 Function DrawImage(image As Image, destPoints As /*Const*/ Point, count As Long, 1317 1317 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit, 1318 ByRefimageAttributes As /*Const*/ ImageAttributes) As Status1318 imageAttributes As /*Const*/ ImageAttributes) As Status 1319 1319 1320 1320 Return DrawImage(image, destPoints, count, srcx, srcy, srcwidth, srcheight, srcUnit, imageAttributes, 0, 0) 1321 1321 End Function 1322 1322 1323 Function DrawImage( ByRefimage As Image, destPoints As /*Const*/ Point, count As Long, _1323 Function DrawImage(image As Image, destPoints As /*Const*/ Point, count As Long, _ 1324 1324 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit, _ 1325 ByRefimageAttributes As /*Const*/ ImageAttributes,1325 imageAttributes As /*Const*/ ImageAttributes, 1326 1326 callback As DrawImageAbort) As Status 1327 1327 … … 1329 1329 End Function 1330 1330 1331 Function DrawImage( ByRefimage As Image, destPoints As /*Const*/ Point, count As Long,1331 Function DrawImage(image As Image, destPoints As /*Const*/ Point, count As Long, 1332 1332 srcx As Long, srcy As Long, srcwidth As Long, srcheight As Long, srcUnit As GraphicsUnit, 1333 ByRefimageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status1333 imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status 1334 1334 1335 1335 Dim nativeImage As *GpImage … … 1350 1350 End Function 1351 1351 1352 Function DrawImage( ByRef image As Image, destPoints As /*Const*/ *Point, count As Long, ByRefsrcRect As Rectangle, srcUnit As GraphicsUnit) As Status1352 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit) As Status 1353 1353 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit) 1354 1354 End Function 1355 1355 1356 Function DrawImage( ByRef image As Image, destPoints As /*Const*/ *PointF, count As Long, ByRefsrcRect As RectangleF, srcUnit As GraphicsUnit) As Status1356 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit) As Status 1357 1357 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit) 1358 1358 End Function 1359 1359 1360 Function DrawImage( ByRef image As Image, x As Long, y As Long, ByRefsrcRect As Rectangle, srcUnit As GraphicsUnit) As Status1360 Function DrawImage(image As Image, x As Long, y As Long, srcRect As Rectangle, srcUnit As GraphicsUnit) As Status 1361 1361 Return DrawImage(image, x, y, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit) 1362 1362 End Function 1363 1363 1364 Function DrawImage( ByRef image As Image, x As Single, y As Single, ByRefsrcRect As RectangleF, srcUnit As GraphicsUnit) As Status1364 Function DrawImage(image As Image, x As Single, y As Single, srcRect As RectangleF, srcUnit As GraphicsUnit) As Status 1365 1365 Return DrawImage(image, x, y, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit) 1366 1366 End Function 1367 1367 1368 Function DrawImage( ByRef image As Image, destPoints As /*Const*/ *Point, count As Long, ByRef srcRect As Rectangle, srcUnit As GraphicsUnit, ByRefimageAttributes As /*Const*/ ImageAttributes) As Status1368 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes) As Status 1369 1369 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes) 1370 1370 End Function 1371 1371 1372 Function DrawImage( ByRef image As Image, destPoints As /*Const*/ *PointF, count As Long, ByRef srcRect As RectangleF, srcUnit As GraphicsUnit, ByRefimageAttributes As /*Const*/ ImageAttributes) As Status1372 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes) As Status 1373 1373 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes) 1374 1374 End Function 1375 1375 1376 Function DrawImage( ByRef image As Image, destPoints As /*Const*/ *Point, count As Long, ByRef srcRect As Rectangle, srcUnit As GraphicsUnit, ByRefimageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Status1376 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Status 1377 1377 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes, callback) 1378 1378 End Function 1379 1379 1380 Function DrawImage( ByRef image As Image, destPoints As /*Const*/ *PointF, count As Long, ByRef srcRect As RectangleF, srcUnit As GraphicsUnit, ByRefimageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Status1380 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort) As Status 1381 1381 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes, callback) 1382 1382 End Function 1383 1383 1384 Function DrawImage( ByRef image As Image, destPoints As /*Const*/ *Point, count As Long, ByRef srcRect As Rectangle, srcUnit As GraphicsUnit, ByRefimageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status1384 Function DrawImage(image As Image, destPoints As /*Const*/ *Point, count As Long, srcRect As Rectangle, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status 1385 1385 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes, callback, callbackData) 1386 1386 End Function 1387 1387 1388 Function DrawImage( ByRef image As Image, destPoints As /*Const*/ *PointF, count As Long, ByRef srcRect As RectangleF, srcUnit As GraphicsUnit, ByRefimageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status1388 Function DrawImage(image As Image, destPoints As /*Const*/ *PointF, count As Long, srcRect As RectangleF, srcUnit As GraphicsUnit, imageAttributes As /*Const*/ ImageAttributes, callback As DrawImageAbort, callbackData As VoidPtr) As Status 1389 1389 Return DrawImage(image, destPoints, count, srcRect.X, srcRect.Y, srcRect.Width, srcRect.Height, srcUnit, imageAttributes, callback, callbackData) 1390 1390 End Function … … 1396 1396 ' to play the particular record. 1397 1397 1398 Function EnumerateMetafile( ByRef metafile As /*Const*/ Metafile, ByRefdestPoint As /*Const*/ PointF,1398 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ PointF, 1399 1399 callback As EnumerateMetafileProc) As Status 1400 1400 … … 1402 1402 End Function 1403 1403 1404 Function EnumerateMetafile( ByRef metafile As /*Const*/ Metafile, ByRefdestPoint As /*Const*/ PointF,1404 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ PointF, 1405 1405 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status 1406 1406 … … 1408 1408 End Function 1409 1409 1410 Function EnumerateMetafile( ByRef metafile As /*Const*/ Metafile, ByRefdestPoint As /*Const*/ PointF,1411 callback As EnumerateMetafileProc, callbackData As VoidPtr, ByRefimageAttributes As /*Const*/ ImageAttributes) As Status1410 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ PointF, 1411 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status 1412 1412 1413 1413 Dim nativeImage As /*Const*/ *GpMetafile … … 1428 1428 End Function 1429 1429 1430 Function EnumerateMetafile( ByRef metafile As /*Const*/ Metafile, ByRefdestPoint As /*Const*/ Point,1430 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ Point, 1431 1431 callback As EnumerateMetafileProc) As Status 1432 1432 … … 1434 1434 End Function 1435 1435 1436 Function EnumerateMetafile( ByRef metafile As /*Const*/ Metafile, ByRefdestPoint As /*Const*/ Point,1436 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ Point, 1437 1437 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status 1438 1438 … … 1440 1440 End Function 1441 1441 1442 Function EnumerateMetafile( ByRef metafile As /*Const*/ Metafile, ByRefdestPoint As /*Const*/ Point,1443 callback As EnumerateMetafileProc, callbackData As VoidPtr, ByRefimageAttributes As /*Const*/ ImageAttributes) As Status1442 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoint As /*Const*/ Point, 1443 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status 1444 1444 1445 1445 Dim nativeImage As /*Const*/ *GpMetafile … … 1460 1460 End Function 1461 1461 1462 Function EnumerateMetafile( ByRef metafile As /*Const*/ Metafile, ByRefdestRect As /*Const*/ RectangleF,1462 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ RectangleF, 1463 1463 callback As EnumerateMetafileProc) As Status 1464 1464 … … 1466 1466 End Function 1467 1467 1468 Function EnumerateMetafile( ByRef metafile As /*Const*/ Metafile, ByRefdestRect As /*Const*/ RectangleF,1468 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ RectangleF, 1469 1469 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status 1470 1470 … … 1472 1472 End Function 1473 1473 1474 Function EnumerateMetafile( ByRef metafile As /*Const*/ Metafile, ByRefdestRect As /*Const*/ RectangleF,1475 callback As EnumerateMetafileProc, callbackData As VoidPtr, ByRefimageAttributes As /*Const*/ ImageAttributes) As Status1474 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ RectangleF, 1475 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status 1476 1476 1477 1477 Dim nativeImage As /*Const*/ *GpMetafile … … 1492 1492 End Function 1493 1493 1494 Function EnumerateMetafile( ByRef metafile As /*Const*/ Metafile, ByRefdestRect As /*Const*/ Rectangle,1494 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ Rectangle, 1495 1495 callback As EnumerateMetafileProc) As Status 1496 1496 … … 1498 1498 End Function 1499 1499 1500 Function EnumerateMetafile( ByRef metafile As /*Const*/ Metafile, ByRefdestRect As /*Const*/ Rectangle,1500 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ Rectangle, 1501 1501 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status 1502 1502 … … 1504 1504 End Function 1505 1505 1506 Function EnumerateMetafile( ByRef metafile As /*Const*/ Metafile, ByRefdestRect As /*Const*/ Rectangle,1507 callback As EnumerateMetafileProc, callbackData As VoidPtr, ByRefimageAttributes As /*Const*/ ImageAttributes) As Status1506 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destRect As /*Const*/ Rectangle, 1507 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status 1508 1508 1509 1509 Dim nativeImage As /*Const*/ *GpMetafile … … 1524 1524 End Function 1525 1525 1526 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, destPoints As /*Const*/ *PointF, count As Long,1526 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *PointF, count As Long, 1527 1527 callback As EnumerateMetafileProc) As Status 1528 1528 … … 1530 1530 End Function 1531 1531 1532 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, destPoints As /*Const*/ *PointF, count As Long,1532 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *PointF, count As Long, 1533 1533 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status 1534 1534 … … 1536 1536 End Function 1537 1537 1538 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, destPoints As /*Const*/ *PointF, count As Long,1539 callback As EnumerateMetafileProc, callbackData As VoidPtr, ByRefimageAttributes As /*Const*/ ImageAttributes) As Status1538 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *PointF, count As Long, 1539 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status 1540 1540 1541 1541 Dim nativeImage As /*Const*/ *GpMetafile … … 1556 1556 End Function 1557 1557 1558 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, destPoints As /*Const*/ *Point, count As Long,1558 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *Point, count As Long, 1559 1559 callback As EnumerateMetafileProc) As Status 1560 1560 … … 1562 1562 End Function 1563 1563 1564 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, destPoints As /*Const*/ *Point, count As Long,1564 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *Point, count As Long, 1565 1565 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status 1566 1566 … … 1568 1568 End Function 1569 1569 1570 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, destPoints As /*Const*/ *Point, count As Long,1571 callback As EnumerateMetafileProc, callbackData As VoidPtr, ByRefimageAttributes As /*Const*/ ImageAttributes) As Status1570 Function EnumerateMetafile(metafile As /*Const*/ Metafile, destPoints As /*Const*/ *Point, count As Long, 1571 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status 1572 1572 1573 1573 Dim nativeImage As /*Const*/ *GpMetafile … … 1588 1588 End Function 1589 1589 1590 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile,1591 ByRef destPoint As /*Const*/ PointF, ByRefsrcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit,1590 Function EnumerateMetafile(metafile As /*Const*/ Metafile, 1591 destPoint As /*Const*/ PointF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, 1592 1592 callback As EnumerateMetafileProc) As Status 1593 1593 … … 1595 1595 End Function 1596 1596 1597 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile,1598 ByRef destPoint As /*Const*/ PointF, ByRefsrcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit,1597 Function EnumerateMetafile(metafile As /*Const*/ Metafile, 1598 destPoint As /*Const*/ PointF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, 1599 1599 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status 1600 1600 … … 1602 1602 End Function 1603 1603 1604 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile,1605 ByRef destPoint As /*Const*/ PointF, ByRefsrcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit,1606 callback As EnumerateMetafileProc, callbackData As VoidPtr, ByRefimageAttributes As /*Const*/ ImageAttributes) As Status1604 Function EnumerateMetafile(metafile As /*Const*/ Metafile, 1605 destPoint As /*Const*/ PointF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, 1606 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status 1607 1607 1608 1608 Dim nativeImage As /*Const*/ *GpMetafile … … 1623 1623 End Function 1624 1624 1625 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, _1626 ByRef destPoint As /*Const*/ Point, ByRefsrcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _1625 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1626 destPoint As /*Const*/ Point, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1627 1627 callback As EnumerateMetafileProc) As Status 1628 1628 … … 1630 1630 End Function 1631 1631 1632 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, _1633 ByRef destPoint As /*Const*/ Point, ByRefsrcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _1632 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1633 destPoint As /*Const*/ Point, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1634 1634 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status 1635 1635 … … 1637 1637 End Function 1638 1638 1639 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, _1640 ByRef destPoint As /*Const*/ Point, ByRefsrcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _1641 callback As EnumerateMetafileProc, callbackData As VoidPtr, ByRefimageAttributes As /*Const*/ ImageAttributes) As Status1639 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1640 destPoint As /*Const*/ Point, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1641 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status 1642 1642 1643 1643 Dim nativeImage As /*Const*/ *GpMetafile … … 1658 1658 End Function 1659 1659 1660 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, _1661 ByRef destRect As /*Const*/ RectangleF, ByRefsrcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _1660 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1661 destRect As /*Const*/ RectangleF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _ 1662 1662 callback As EnumerateMetafileProc) As Status 1663 1663 … … 1665 1665 End Function 1666 1666 1667 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, _1668 ByRef destRect As /*Const*/ RectangleF, ByRefsrcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _1667 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1668 destRect As /*Const*/ RectangleF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _ 1669 1669 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status 1670 1670 … … 1672 1672 End Function 1673 1673 1674 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, _1675 ByRef destRect As /*Const*/ RectangleF, ByRefsrcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _1676 callback As EnumerateMetafileProc, callbackData As VoidPtr, ByRefimageAttributes As /*Const*/ ImageAttributes) As Status1674 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1675 destRect As /*Const*/ RectangleF, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _ 1676 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status 1677 1677 1678 1678 Dim nativeImage As /*Const*/ *GpMetafile … … 1693 1693 End Function 1694 1694 1695 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, _1696 ByRef destRect As /*Const*/ Rectangle, ByRefsrcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _1695 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1696 destRect As /*Const*/ Rectangle, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1697 1697 callback As EnumerateMetafileProc) As Status 1698 1698 … … 1700 1700 End Function 1701 1701 1702 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, _1703 ByRef destRect As /*Const*/ Rectangle, ByRefsrcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _1702 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1703 destRect As /*Const*/ Rectangle, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1704 1704 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status 1705 1705 … … 1707 1707 End Function 1708 1708 1709 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, _1710 ByRef destRect As /*Const*/ Rectangle, ByRefsrcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _1711 callback As EnumerateMetafileProc, callbackData As VoidPtr, ByRefimageAttributes As /*Const*/ ImageAttributes) As Status1709 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1710 destRect As /*Const*/ Rectangle, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1711 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status 1712 1712 1713 1713 Dim nativeImage As /*Const*/ *GpMetafile … … 1728 1728 End Function 1729 1729 1730 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, _1731 destPoints As /*Const*/ *PointF, count As Long, ByRefsrcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _1730 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1731 destPoints As /*Const*/ *PointF, count As Long, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _ 1732 1732 callback As EnumerateMetafileProc) As Status 1733 1733 … … 1735 1735 End Function 1736 1736 1737 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, _1738 destPoints As /*Const*/ *PointF, count As Long, ByRefsrcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _1737 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1738 destPoints As /*Const*/ *PointF, count As Long, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _ 1739 1739 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status 1740 1740 … … 1742 1742 End Function 1743 1743 1744 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, _1745 destPoints As /*Const*/ *PointF, count As Long, ByRefsrcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _1746 callback As EnumerateMetafileProc, callbackData As VoidPtr, ByRefimageAttributes As /*Const*/ ImageAttributes) As Status1744 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1745 destPoints As /*Const*/ *PointF, count As Long, srcRect As /*Const*/ RectangleF, srcUnit As GraphicsUnit, _ 1746 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status 1747 1747 1748 1748 Dim nativeImage As /*Const*/ *GpMetafile … … 1763 1763 End Function 1764 1764 1765 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, _1766 destPoints As /*Const*/ *Point, count As Long, ByRefsrcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _1765 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1766 destPoints As /*Const*/ *Point, count As Long, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1767 1767 callback As EnumerateMetafileProc) As Status 1768 1768 … … 1770 1770 End Function 1771 1771 1772 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, _1773 destPoints As /*Const*/ *Point, count As Long, ByRefsrcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _1772 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1773 destPoints As /*Const*/ *Point, count As Long, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1774 1774 callback As EnumerateMetafileProc, callbackData As VoidPtr) As Status 1775 1775 … … 1777 1777 End Function 1778 1778 1779 Function EnumerateMetafile( ByRefmetafile As /*Const*/ Metafile, _1780 destPoints As /*Const*/ *Point, count As Long, ByRefsrcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _1781 callback As EnumerateMetafileProc, callbackData As VoidPtr, ByRefimageAttributes As /*Const*/ ImageAttributes) As Status1779 Function EnumerateMetafile(metafile As /*Const*/ Metafile, _ 1780 destPoints As /*Const*/ *Point, count As Long, srcRect As /*Const*/ Rectangle, srcUnit As GraphicsUnit, _ 1781 callback As EnumerateMetafileProc, callbackData As VoidPtr, imageAttributes As /*Const*/ ImageAttributes) As Status 1782 1782 1783 1783 Dim nativeImage As /*Const*/ *GpMetafile … … 1798 1798 End Function 1799 1799 1800 Function SetClip( ByRefg As /*Const*/ Graphics) As Status1800 Function SetClip(g As /*Const*/ Graphics) As Status 1801 1801 Return SetClip(g, CombineMode.Replace) 1802 1802 End Function 1803 1803 1804 Function SetClip( ByRefrc As /*Const*/ RectangleF) As Status1804 Function SetClip(rc As /*Const*/ RectangleF) As Status 1805 1805 Return SetStatus(GdipSetClipRect(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Replace)) 1806 1806 End Function 1807 1807 1808 Function SetClip( ByRefrc As /*Const*/ Rectangle) As Status1808 Function SetClip(rc As /*Const*/ Rectangle) As Status 1809 1809 Return SetStatus(GdipSetClipRectI(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Replace)) 1810 1810 End Function 1811 1811 1812 Function SetClip( ByRefpath As /*Const*/ GraphicsPath) As Status1812 Function SetClip(path As /*Const*/ GraphicsPath) As Status 1813 1813 Return SetStatus(GdipSetClipPath(nativeGraphics, path->nativePath, CombineMode.Replace)) 1814 1814 End Function 1815 1815 1816 Function SetClip( ByRefregion As /*Const*/ Region) As Status1816 Function SetClip(region As /*Const*/ Region) As Status 1817 1817 Return SetStatus(GdipSetClipRegion(nativeGraphics, region->nativeRegion, CombineMode.Replace)) 1818 1818 End Function 1819 1819 1820 Function SetClip( ByRefg As /*Const*/ Graphics, combineMode As CombineMode) As Status1820 Function SetClip(g As /*Const*/ Graphics, combineMode As CombineMode) As Status 1821 1821 Return SetStatus(GdipSetClipGraphics(nativeGraphics, g->nativeGraphics, combineMode)) 1822 1822 End Function 1823 1823 1824 Function SetClip( ByRefrc As /*Const*/ RectangleF, combineMode As CombineMode) As Status1824 Function SetClip(rc As /*Const*/ RectangleF, combineMode As CombineMode) As Status 1825 1825 Return SetStatus(GdipSetClipRect(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, combineMode)) 1826 1826 End Function 1827 1827 1828 Function SetClip( ByRefrc As /*Const*/ Rectangle, combineMode As CombineMode) As Status1828 Function SetClip(rc As /*Const*/ Rectangle, combineMode As CombineMode) As Status 1829 1829 Return SetStatus(GdipSetClipRectI(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, combineMode)) 1830 1830 End Function 1831 1831 1832 Function SetClip( ByRefpath As /*Const*/ GraphicsPath, combineMode As CombineMode) As Status1832 Function SetClip(path As /*Const*/ GraphicsPath, combineMode As CombineMode) As Status 1833 1833 Return SetStatus(GdipSetClipPath(nativeGraphics, path->nativePath, combineMode)) 1834 1834 End Function 1835 1835 1836 Function SetClip( ByRefregion As /*Const*/ Region, combineMode As CombineMode) As Status1836 Function SetClip(region As /*Const*/ Region, combineMode As CombineMode) As Status 1837 1837 Return SetStatus(GdipSetClipRegion(nativeGraphics, region->nativeRegion, combineMode)) 1838 1838 End Function … … 1846 1846 End Function 1847 1847 1848 Function IntersectClip( ByRefrc As /*Const*/ RectangleF) As Status1848 Function IntersectClip(rc As /*Const*/ RectangleF) As Status 1849 1849 Return SetStatus(GdipSetClipRect(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Intersect)) 1850 1850 End Function 1851 1851 1852 Function IntersectClip( ByRefrc As /*Const*/ Rectangle) As Status1852 Function IntersectClip(rc As /*Const*/ Rectangle) As Status 1853 1853 Return SetStatus(GdipSetClipRectI(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Intersect)) 1854 1854 End Function 1855 1855 1856 Function IntersectClip( ByRefregion As /*Const*/ Region) As Status1856 Function IntersectClip(region As /*Const*/ Region) As Status 1857 1857 Return SetStatus(GdipSetClipRegion(nativeGraphics, region->nativeRegion, CombineMode.Intersect)) 1858 1858 End Function 1859 1859 1860 Function ExcludeClip( ByRefrc As /*Const*/ RectangleF) As Status1860 Function ExcludeClip(rc As /*Const*/ RectangleF) As Status 1861 1861 Return SetStatus(GdipSetClipRect(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Exclude)) 1862 1862 End Function 1863 1863 1864 Function ExcludeClip( ByRefrc As /*Const*/ Rectangle) As Status1864 Function ExcludeClip(rc As /*Const*/ Rectangle) As Status 1865 1865 Return SetStatus(GdipSetClipRectI(nativeGraphics, rc.X, rc.Y, rc.Width, rc.Height, CombineMode.Exclude)) 1866 1866 End Function 1867 1867 1868 Function ExcludeClip( ByRefregion As /*Const*/ Region) As Status1868 Function ExcludeClip(region As /*Const*/ Region) As Status 1869 1869 Return SetStatus(GdipSetClipRegion(nativeGraphics, region->nativeRegion, CombineMode.Exclude)) 1870 1870 End Function … … 1882 1882 End Function 1883 1883 1884 Const Function GetClip( ByRefregion As Region) As Status1884 Const Function GetClip(region As Region) As Status 1885 1885 Return SetStatus(GdipGetClip(nativeGraphics, region->nativeRegion)) 1886 1886 End Function 1887 1887 1888 Const Function GetClipBounds( ByRefrc As RectangleF) As Status1888 Const Function GetClipBounds(rc As RectangleF) As Status 1889 1889 Return SetStatus(GdipGetClipBounds(nativeGraphics, rc)) 1890 1890 End Function 1891 1891 1892 Const Function GetClipBounds( ByRefrc As Rectangle) As Status1892 Const Function GetClipBounds(rc As Rectangle) As Status 1893 1893 Return SetStatus(GdipGetClipBoundsI(nativeGraphics, rc)) 1894 1894 End Function 1895 1895 1896 Const Function GetVisibleClipBounds( ByRefrc As RectangleF) As Status1896 Const Function GetVisibleClipBounds(rc As RectangleF) As Status 1897 1897 Return SetStatus(GdipGetVisibleClipBounds(nativeGraphics, rc)) 1898 1898 End Function 1899 1899 1900 Const Function GetVisibleClipBounds( ByRefrc As Rectangle) As Status1900 Const Function GetVisibleClipBounds(rc As Rectangle) As Status 1901 1901 Return SetStatus(GdipGetVisibleClipBoundsI(nativeGraphics, rc)) 1902 1902 End Function … … 1908 1908 End Function 1909 1909 1910 Const Function IsVisible( ByRefpt As /*Const*/ Point) As BOOL1910 Const Function IsVisible(pt As /*Const*/ Point) As BOOL 1911 1911 Return IsVisible(pt.X, pt.Y) 1912 1912 End Function … … 1918 1918 End Function 1919 1919 1920 Const Function IsVisible( ByRefrc As /*Const*/ Rectangle) As BOOL1920 Const Function IsVisible(rc As /*Const*/ Rectangle) As BOOL 1921 1921 Return IsVisible(rc.X, rc.Y, rc.Width, rc.Height) 1922 1922 End Function … … 1928 1928 End Function 1929 1929 1930 Const Function IsVisible( ByRefpoint As /*Const*/ PointF) As BOOL1930 Const Function IsVisible(point As /*Const*/ PointF) As BOOL 1931 1931 Return IsVisible(pt.X, pt.Y) 1932 1932 End Function … … 1938 1938 End Function 1939 1939 1940 Const Function IsVisible( ByRefrect As /*Const*/ RectangleF) As BOOL1940 Const Function IsVisible(rect As /*Const*/ RectangleF) As BOOL 1941 1941 Return IsVisible(rc.X, rc.Y, rc.Width, rc.Height) 1942 1942 End Function … … 1952 1952 End Function 1953 1953 1954 Function BeginContainer( ByRef dstrect As /*Const*/ RectangleF, ByRefsrcrect As /*Const*/ RectangleF, unit As GraphicsUnit) As GraphicsContainer1954 Function BeginContainer(dstrect As /*Const*/ RectangleF, srcrect As /*Const*/ RectangleF, unit As GraphicsUnit) As GraphicsContainer 1955 1955 Dim state As GraphicsContainer 1956 1956 SetStatus(GdipBeginContainer(nativeGraphics, dstrect, srcrect, unit, state)) … … 1958 1958 End Function 1959 1959 1960 Function BeginContainer( ByRef dstrect As /*Const*/ Rectangle, ByRefsrcrect As /*Const*/ Rectangle, unit As GraphicsUnit) As GraphicsContainer1960 Function BeginContainer(dstrect As /*Const*/ Rectangle, srcrect As /*Const*/ Rectangle, unit As GraphicsUnit) As GraphicsContainer 1961 1961 Dim state As GraphicsContainer 1962 1962 SetStatus(GdipBeginContainerI(nativeGraphics, dstrect, srcrect, unit, state)) … … 1991 1991 1992 1992 Private 1993 ' Sub Graphics( ByRefgr As Graphics)1993 ' Sub Graphics(gr As Graphics) 1994 1994 ' Debug 1995 1995 ' End Sub 1996 Sub Operator =( ByRefgr As Graphics)1996 Sub Operator =(gr As Graphics) 1997 1997 Debug 1998 1998 End Sub
Note:
See TracChangeset
for help on using the changeset viewer.