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

---

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

---

368: 進可 ◆Sinka1my5k [sage] 03/10/31 01:51 ID:j4xQWGCG(1) AAS
すいません、どうしても判らないので質問。

裏画面を塗りつぶしてからイメージリストのイメージを描いて
それから表画面に描画、というやりかたなのにちらつきが発生するんですが
これは何が原因なのでしょうか？

プログラムとソースは以下です
procedure TForm1.FormCreate(Sender: TObject);
begin

uraGa.Canvas.Pen.Color := RGB(0,135,64); //線の色を緑に
uraGa.Canvas.Brush.Color := RGB(0,135,64);//塗りつぶしも緑に

uraGa.Canvas.Rectangle(0,0,137,97);

tagnum := 0;
omoteGa.Canvas.Draw(0,0,uraGa.Picture.Graphic);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
tagnum := TButton(Sender).Tag;
Caption:=IntToStr(tagnum);

uraGa.Canvas.Rectangle(0,0,137,97);
ImageList1.draw(uraGa.Canvas,tagnum*32+8,0,1); //フィールド描画
omoteGa.Canvas.Draw(0,0,uraGa.Picture.Graphic);
end;

ソース
外部ﾘﾝｸ[lzh]:forgamedev.zombie.jp

---

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

---

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

---

ぬこの手 ぬこTOP 0.008s