|
>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;
|