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.