掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
書いた色を記憶しておくには？ (ID:9894)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TColorの配列を作っておいて、FormCreateなどであらかじめ 色を配列に入れておけば、良いのではないでしょうか。 var CircleColor: array[1..8] of TColor; procedure TForm1.FormCreate(Sender: TObject); var i: integer; begin randomize; for i:=1 to 8 do begin CircleColor[i] := RGB(random(256),random(256),random(256)); end; end; こんな感じにして、描く時に for i:=s+1 to s+8 do begin Image1.Canvas.Pen.Color := CircleColor[i]; end; ところで、タイマーの変数sは、ちゃんと初期化されてるのですか？ 全体を見てないので、わかりませんが。 ループでただ８回呼び出すだけなら、 for i:=1 to 8 do で良い気もしますが。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.