掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
書いた色を記憶しておくには？ (ID:9893)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
タイマーで、色がランダムな８個の円（９個目書くときは１個目を白で消す）が出るプログラムを作りたいのですが、以下（抜粋）のように作ったら 新しく書く円以外も一個円を書くたびに変色してしまいます今まで書いた円の色を記憶して毎回その色で塗りなおすにはどうしたらよいでしょうか（長文すいません） var s:integer; data:array[0..7,1..3] of integer; {$R *.dfm} procedure TForm1.Timer2Timer(Sender: TObject); begin data[s,1] := random(Image1.Width); data[s,2] := random(Image1.Height); data[s,3] := random(22); for i:=s+1 to s+8 do begin randomize; Image1.Canvas.Pen.Color := RGB(random(256),random(256),random(256)); circle(data[i mod 8,1],data[i mod 8,2],5*(data[i mod 8,3]+1)); end; s := (s+1) mod 8;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.