[過去ﾛｸﾞ] Delphiゲームプログラミング相談室 (976ﾚｽ)

Delphiゲームプログラミング相談室 http://echo.5ch.net/test/read.cgi/gamedev/1006249204/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

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

---

712: な [sage] 2006/01/03(火) 21:42:35 ID:E1OTiKsy 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; http://echo.5ch.net/test/read.cgi/gamedev/1006249204/712

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.020s