再学 GDI+[4]: DrawEllipse - 绘制椭圆[转]

unit Unit1;

 

interface

 

uses

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

  Dialogs;

 

type

  TForm1 = class(TForm)

    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure FormPaint(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

uses

  GDIPAPI,GDIPOBJ;

var

  x:Integer = 20;

  y:Integer = 20;

  w:Integer = 100;

  h:Integer = 50;

  f:Byte;

  a,b:Integer;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  f:=1;       //标志致1，表示开始绘画了

  a:=x;    //鼠标按下了，记下这个坐标;

  b:=y;

end;

 

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

  if f = 0 then

  Exit;

  if ssCtrl in Shift then   //ssCtrl是键盘传过来的消息，Shift是集合类型，所以用运算符IN

  begin

    f:=2;    //标志致2，时刻绘画重新调整后的图案;

    Text:='Ctrl 键被按下, 鼠标可调整大小';

  end

  else

  begin

    Text:='没有按下 Ctrl 键, 鼠标可调整位置';

  end;

//---------------------------------------------------------------------------

  a := X - a;    //计算自鼠标按下---到---鼠标移动到的位置（相对距离）

  b := Y - b;

  Repaint;   //重画

  a := X;         //保存好现在鼠标所在的位置

  b := Y;

//----------------------------------------------------------------------------

end;

 

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  f:=0;

end;

 

procedure TForm1.FormPaint(Sender: TObject);

var

  g: TGPGraphics;

  p: TGPPen;

begin

  Form1.DoubleBuffered:=True; //开启双缓冲后客户区就不闪烁了;

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

  g.Clear(aclWhite);

  p:=TGPPen.Create(aclRed);

  case f of

    1: begin       //如果键盘上没有按下Ctrl键将执行此步计算

      Inc(x,a);    //图案移动的关键在这里，这里的x是全局变量，因此还是20

      Inc(y,b);

    end;

    2: begin

      Inc(w,a);   //如果键盘上按下Ctrl键将执行这里，此时圆的第一个坐标没变，我们来改变它的宽高;

      Inc(h,b);

    end;

  end;

  g.DrawEllipse(p, x, y, w, h);

  p.Free;

  g.Free;

end;

 

{画一个圆需要两个坐标，例如（x:20,y:20）和（w:100,h:50），程序运行时我按这两个坐标画了一个圆，

  这是我们就能看窗体客户上有了一个圆，那么我怎样移动这个圆呢？我在（x:20,y:20）按下鼠标左键，

  那么(a=x=20,b=y=20),然后移动，一直移到（newX:50，newY:50），那么相对距离是多少呢?是(a=newX-a=30,

  b=newY-b=30),那么我只要在INC（x,a)=50,INC(y,b)=50处画圆大家就能看到原来的圆出现在新的位置了，这

  就是“移动”)}

 

end.