539(1): 名前は開発中のものです。 [sage] 04/06/11 00:13 ID:dhcI2Ruo(1) AAS
>>538
そんな難しいか？

TForm1に
vb: TDGVertexBuffer;
を追加。

FormCreateのVB作成部分を
vb:= TDGVertexBuffer.Create(DG, 3, SizeOf(TCustomVertex), 0,
D3DFVF_CUSTOMVERTEX, D3DPOOL_DEFAULT);
pVertices:= vb.Lock(0, 3, 0);
try
CopyMemory(pVertices, @vertices, SizeOf(vertices));
finally
vb.Unlock;
end;
に。

ApplicationEvents1IdleのVB表示準備部分を
DG.D3DDevice.SetStreamSource(0, vb.VertexBuffer, 0, SizeOf(TCustomVertex));
に。以上。