随笔 - 2146  文章 - 97 评论 - 11765 trackbacks - 253


路径是一组图形命令, 它能容纳所有基本图形和文本、子路径:

IGPGraphicsPath.AddLine();
IGPGraphicsPath.AddLines();
IGPGraphicsPath.AddArc();
IGPGraphicsPath.AddBezier();
IGPGraphicsPath.AddBeziers();
IGPGraphicsPath.AddCurve();
IGPGraphicsPath.AddClosedCurve();
IGPGraphicsPath.AddRectangle();
IGPGraphicsPath.AddRectangles();
IGPGraphicsPath.AddEllipse();
IGPGraphicsPath.AddPie();
IGPGraphicsPath.AddPolygon();
IGPGraphicsPath.AddPath();
IGPGraphicsPath.AddString();

{ 本页示例相关命令 }
IGPGraphics.DrawPath            // 绘制路径
IGPGraphics.FillPath            // 填充路径
IGPGraphicsPath.FillMode        // 路径填充模式

IGPGraphicsPath.StartFigure     // 开始一个新的图形, 并不关闭之前的图形
IGPGraphicsPath.CloseFigure     // 关闭当前图形, 并开始新图形
IGPGraphicsPath.CloseAllFigures // 关闭之前所有开放图形, 并开始新图形
IGPGraphicsPath.Reset           // 重置路径


FillPath、DrawPath 测试图:



FillPath、DrawPath 测试代码:

uses GdiPlus;

procedure TForm1.FormPaint(Sender: TObject);
var
  Graphics: IGPGraphics;
  Path: IGPGraphicsPath;
  Pen: IGPPen;
  Brush: IGPBrush;
begin
  Path := TGPGraphicsPath.Create;
  Path.AddRectangle(TGPRect.Create(20, 20, 96, 60));
  Path.AddEllipse(TGPRect.Create(92, 20, 120, 60));

  Graphics := TGPGraphics.Create(Handle);
  Pen := TGPPen.Create($FFFF0000, 2);
  Brush := TGPSolidBrush.Create($FFFFD700);

  Graphics.DrawPath(Pen, Path);
  Graphics.TranslateTransform(0, 80);

  Graphics.FillPath(Brush, Path);
  Graphics.TranslateTransform(0, 80);

  Graphics.FillPath(Brush, Path);
  Graphics.DrawPath(Pen, Path);
  Graphics.TranslateTransform(0, 80);

  //填充模式有两种, 默认的是 FillModeAlternate; 可以在建立路径时指定填充模式
  Path.FillMode := FillModeWinding;
  Graphics.FillPath(Brush, Path);
  Graphics.DrawPath(Pen, Path);
  Graphics.TranslateTransform(0, 80);
end;


StartFigure、CloseFigure、CloseAllFigures、Reset 测试图:



StartFigure、CloseFigure、CloseAllFigures、Reset 测试代码:

uses GdiPlus;

procedure TForm1.FormPaint(Sender: TObject);
const
  Pts1: array[0..2] of TGPPoint = ((X:0;   Y:30), (X:30;  Y:0), (X:60;  Y:30));
  Pts2: array[0..2] of TGPPoint = ((X:80;  Y:30), (X:110; Y:0), (X:140; Y:30));
  Pts3: array[0..2] of TGPPoint = ((X:160; Y:30), (X:190; Y:0), (X:220; Y:30));
var
  Graphics: IGPGraphics;
  Path: IGPGraphicsPath;
  Pen: IGPPen;
  Brush: IGPBrush;
begin
  Graphics := TGPGraphics.Create(Handle);
  Pen := TGPPen.Create($FFFF0000, 2);
  Brush := TGPSolidBrush.Create($FFD0D0D0);
  Path := TGPGraphicsPath.Create;

  //
  Path.AddLines(Pts1);
  Path.AddLines(Pts2);
  Path.AddLines(Pts3);
  Graphics.FillPath(Brush, Path);
  Graphics.DrawPath(Pen, Path);
  Graphics.TranslateTransform(0, 50);

  //
  Path.Reset;
  Path.StartFigure;
    Path.AddLines(Pts1);
  Path.StartFigure;
    Path.AddLines(Pts2);
  Path.StartFigure;
    Path.AddLines(Pts3);

  Graphics.FillPath(Brush, Path);
  Graphics.DrawPath(Pen, Path);
  Graphics.TranslateTransform(0, 50);

  //
  Path.Reset;
  Path.StartFigure;
    Path.AddLines(Pts1);
  Path.StartFigure;
    Path.AddLines(Pts2);
  Path.StartFigure;
    Path.AddLines(Pts3);
  Path.CloseFigure;
  Graphics.FillPath(Brush, Path);
  Graphics.DrawPath(Pen, Path);
  Graphics.TranslateTransform(0, 50);

  //
  Path.Reset;
  Path.StartFigure;
    Path.AddLines(Pts1);
  Path.StartFigure;
    Path.AddLines(Pts2);
  Path.StartFigure;
    Path.AddLines(Pts3);
  Path.CloseAllFigures;
  Graphics.FillPath(Brush, Path);
  Graphics.DrawPath(Pen, Path);
  Graphics.TranslateTransform(0, 50);

  //
  Path.Reset;
  Path.StartFigure;
    Path.AddLines(Pts1);
    Path.AddLines(Pts2);
    Path.AddLines(Pts3);
  Path.CloseFigure;
  Graphics.FillPath(Brush, Path);
  Graphics.DrawPath(Pen, Path);
end;


posted on 2009-12-17 13:53 万一 阅读(...) 评论(...) 编辑 收藏