名前 題名 ▼ Mr.XRAYさん > >TCalendarのStartOfWeekプロパティ変更したら、別の曜日になっちゃうのに気が付きました。 > > これ,私も気づきました. > というより,日本でも月曜日から始まるカレンダがあったな. > と,それで追加修正しました. > > > ACol を (StartOfWeek + ACol) mod 7 > > に置き換えればよさそうですね。 > > ムムムッ.さすがに igy さん. > 私は以下のようにしました (^^; > > if StartOfWeek = 0 then begin > SundayCol := 0; > end else begin > SundayCol := 7 - StartOfWeek; > end; > if (ACol = SundayCol) then Canvas.Font.Color := clRed; > if (ACol = (6 - StartOfWeek)) then Canvas.Font.Color := $00C86615; GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link