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

---

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

---

184: 名前は開発中のものです。 [] 02/12/20 08:49 ID:dMB3k3fY(1) AAS
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;
でやると画面がちらちらしちゃいま〜す。
よって助けてください。
お願いします。
この通りです。

---

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

---

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

---

ぬこの手 ぬこTOP 0.012s