掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
四角形の中に線をいれ分割したい (ID:37255)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
さくっと作ってみました。とりあえずのお手軽基本形です。 フォームにButtonとEditとPaitnBoxを貼り付けてください。 Button1のOnClickから呼び出せるようにこのプロシージャをButton1.OnClickより上に貼り付けて、 procedure DrawManyRects(iCount: integer); var k, iUnit: integer; begin if iCount<1 then exit; iUnit:=512 div iCount; with Form1.PaintBox1.Canvas do begin for k:=0 to iCount-1 do begin Brush.Color:=$00000002*k; Pen.Color:=Brush.Color; Rectangle(iUnit*k, 0, iUnit*(k+1), 100) end end end; Buttonのイベントを procedure TForm1.Button1Click(Sender: TObject); begin DrawManyRects(StrToIntDef(Edit1.Text, 1)) end; として、Editに適当な数字を入れてください。 色はBrush.Colorで指定するのですが、困るのは、100色目立って違う色を用意するのが難しいんことなんですよね。 私がよく使う手は、12色位を使い回しすることです。 ここでは簡単に赤のグラデーションにしましたけど、善じさんならあとは分かりますよね。 Pen.Colorも、黒で書くと升目の数が増えてきたときに見難くなるので、色々トライしてみてください。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.