gditest5.dpr

来自「GDI Plus完整应用例程.GDI Plus完整应用例程」· DPR 代码 · 共 28 行

program GDITEST5;

uses
  Windows,
  Messages,
  SysUtils,
  GDIPAPI,
  GDIPOBJ;

Procedure OnPaint(DC: HDC);
var
  graphics : TGPGraphics;
  Pen : TGPPen;
  path : TGPGraphicsPath;
  brush: TGPSolidBrush;
const
  points : array[0..2] of TGPPoint =
    ((x: 40; y: 60),
     (x: 50; y: 70),
     (x: 30; y: 90));
begin
  graphics := TGPGraphics.Create(DC);

  // To create a path, construct a GraphicsPath object, and then call methods,
  // such as AddLine and AddCurve, to add primitives to the path.

  // The following example creates a path that has a single arc. The arc has a
  // sweep angle of