Delphi 与 DirectX 之 DelphiX(21): TDirectDrawSurface 的绘图命令

TDirectDrawSurface.PokeLine();

TDirectDrawSurface.PokeLinePolar();

TDirectDrawSurface.PokeBox();

TDirectDrawSurface.PokeBlendPixel();

TDirectDrawSurface.PokeCircle();

TDirectDrawSurface.PokeEllipse();

TDirectDrawSurface.PokeFilledEllipse();

TDirectDrawSurface.PokeWuLine();

TDirectDrawSurface.PokeVLine();

TDirectDrawSurface.DoRotate();


 
   

这些绘图命令都需要在 TDirectDrawSurface.Lock 和 TDirectDrawSurface.UnLock 之间进行, 并不是特别好用.

另外还有两个读写属性: Pixel 和 Pixels, 绘制时前者须在 Lock、UnLock 之间, 后者又不能锁定, 真是不完善.

本例只是个画线的例子, 运行效果图:

---

代码文件:

---

unit Unit1;



interface



uses

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

  Dialogs, DXClass, DXDraws;



type

  TForm1 = class(TForm)

    DXDraw1: TDXDraw;

    DXTimer1: TDXTimer;

    procedure FormCreate(Sender: TObject);

    procedure DXTimer1Timer(Sender: TObject; LagCount: Integer);

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

begin

  DXDraw1.Align := alClient;

  DXTimer1.Interval := 50;

end;



procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);

var

  x1,y1,x2,y2: Integer;

  clr: TColor;

begin

  x1 := Random(DXDraw1.Surface.Width);

  y1 := Random(DXDraw1.Surface.Height);

  x2 := Random(DXDraw1.Surface.Width);

  y2 := Random(DXDraw1.Surface.Height);

  clr := Random($FFFFFF);



//  DXDraw1.Surface.Fill(0);

  DXDraw1.Surface.Lock;

  DXDraw1.Surface.PokeLine(x1, y1, x2, y2, clr);

  DXDraw1.Surface.UnLock;

  DXDraw1.Flip;

end;



end.