Delphi下的GDI+编程[10] 绘制饼形-DrawPie[转]

本例效果图：

DrawPie：绘制一个扇形，该形状由一个坐标对、宽度、高度以及从起始角度到旋转角度的两条射线所连接的椭圆定义。

procedure TForm1.FormPaint(Sender: TObject);//编程form1的onPaint事件代码如下

var

  g:TGPGraphics; //定义绘图表面类变量

  p:TGPPen; //定义画笔类变量

begin

  g:=TGPGraphics.Create(Canvas.Handle); //创建绘图表面对象

  p:=TGPPen.Create(aclRed,2); //创建画笔对象

  g.Clear(aclWhite); //清除整个绘图面并以白色填充

 

  g.DrawPie(p,10,10,200,100,0,350); //在绘图表面画一个饼形（也可以叫扇形）

 

  p.Free; //用完成对象记得释放

  g.Free; //用完成对象记得释放

end;

 

怎么样？是不是觉得与画弧形很像？其实不是同一个东西哦。。。

好吧，为了让大家理解‘起始角度’和‘旋转角度’这两个东东，我把程度再改一改，看下图与代码

unit Unit1;

 

interface

 

uses //系统自动生成

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Spin, ExtCtrls;

 

type        //在窗体上添加了一个TPanel，两个TLabel，两个TSpinEdit。

  TForm1 = class(TForm)

    Panel1: TPanel;

    Label1: TLabel;

    Label2: TLabel;

    SpinEdit1: TSpinEdit;

    SpinEdit2: TSpinEdit;

    procedure FormCreate(Sender: TObject);

    procedure FormPaint(Sender: TObject);

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

uses GDIPOBJ, GDIPAPI; //加入这两个GDI+要用到的单元

 

var

  a1,a2: Integer; //声明两个本单元文件内要用到的全局变量(用于起始角度和旋转角度)

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  a1 := 0;    //初始化起始角度

  SpinEdit1.Text := IntToStr(a1);

  a2 := 30;  //初始化旋转角度

  SpinEdit2.Text := IntToStr(a2);

  SpinEdit1.Increment := 10; //步进

  SpinEdit2.Increment := 10;

  SpinEdit1.OnChange := FormPaint; //组件OnChange指向FormPaint

  SpinEdit2.OnChange := FormPaint;

end;

 

procedure TForm1.FormPaint(Sender: TObject);

var

  g: TGPGraphics;

  p: TGPPen;

  x,y,w,h: Integer;

begin

  g := TGPGraphics.Create(Canvas.Handle);

  p := TGPPen.Create(aclRed, 2);

  g.Clear(aclWhite);

 

  x := ClientWidth div 6;

  y := ClientHeight div 6;

  w := x * 4;

  h := y * 3;

  a1 := StrToIntDef(SpinEdit1.Text, 0); //此函数用于检查用户在SpinEdit输入的数值

  a2 := StrToIntDef(SpinEdit2.Text, 30); //如果用户输入英文之类的字符SpinEdit将回复为参数2

 

  g.DrawPie(p, x, y, w, h, a1, a2); //画扇形

 

  g.Free;

  p.Free;

end;

 

end.