712(1): な [sage] 2006/01/03(火) 21:42:35 ID:E1OTiKsy(1) AAS
DelphiXのチュートリアルにも書いてありますが、サーフェイスの画素データに
直接アクセスして描画してみたらどうでしょう。
外してたらごめん。

procedureTForm1.Button1Click(Sender:TObject);
var
　ddsd:DDSURFACEDESC;

　function DDScanLine(y:Integer):Pointer;
　begin
　　{TBitmap.ScanLine と同じ働きをします}
　　Result :=Pointer(Integer(ddsd.lpSurface)+y*ddsd.lPitch);
　end;
var
　y:Integer;
begin
　ddsd.dwSize :=SizeOf(ddsd);
　ifDXDraw1.Surface.Lock(ddsd)then
　begin
　　{ddsd.dwWidth サーフェースの幅}
　　{ddsd.dwheigh サーフェースの高さ}
　　{ddsd.lpSurface ピクセルデータ(0,0)へのポインタ}
　　{ddsd.lPitch 下の行のスキャンラインへのオフセット}
　　{Abs(ddsd.lPitch)１ラインで使用しているバイト数}
　　try
　　　for y:=0 to ddsd.dwHeight-1 do
　　　　FillChar(DDScanLine(y)^,Abs(ddsd.lPitch),Y);
　　finally
　　　DXDraw1.Surface.UnLock;{これが必須}
　end;
end;