[過去ﾛｸﾞ] Delphiゲームプログラミング相談室 (976ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

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;

---

上下前次1-新書関写板覧索設栞歴

---

あと 264 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.019s