名前
題名
▼ igyさん > > if ACol = 0 then Canvas.Font.Color := clRed; > > if ACol = 6 then Canvas.Font.Color := clBlue; > > ACol を (StartOfWeek + ACol) mod 7 > に置き換えればよさそうですね。
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link