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

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

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

---

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

---

184: 名前は開発中のものです。 [] 02/12/20 08:49 ID:dMB3k3fY TImage.OnMouseMoveイベントが起ったらそのX,Yに画像を移動して表示を 作ってるのですが、 var 　Back: TBitMap; { 背景画像 } 　Mask: TBitMap; { マスク } 　Pattern: TBitMap; { パターン } procedure Form1.Image1MouseMove(Sender: TObject; Shift: TShiftState, X, Y: Integer); begin 　{ Image1に背景を上書き } 　StretchBlt(Image1.Canvas.Handle, 0, 0, Image1.Width, Image1.Height, 　　　　　　Back.Canvas.Handle, 0, 0, Back.Width, Back.Height, SrcCopy); 　{ 表示したいパターンのマスクをOR描き } 　StretchBlt(Image1.Canvas.Handle, X, Y, Image1.Width, Image1.Height, 　　　　　　Mask.Canvas.Handle, 0, 0, Mask.Width, Mask.Height, SrcPaint); 　{ 表示したいパターンをAND描き } 　StretchBlt(Image1.Canvas.Handle, X, Y, Image1.Width, Image1.Height, 　　　　　　Pattern.Canvas.Handle, 0, 0, Pattern.Width, Pattern.Height, SrcAnd); 　Image1.Repaint; end; でやると画面がちらちらしちゃいま〜す。 よって助けてください。 お願いします。 この通りです。 http://echo.5ch.net/test/read.cgi/gamedev/1006249204/184

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.019s