カレンダーの色について

[umemura]

CurlのCalenderControl で表示される土日、祝祭日の色を変えるにはどうすればよいでしょうか。

土曜日はボックス（ボタン）の色を青、日曜日と祝祭日の色は赤色で表示したいです。

[Yuhki]

内部でDayFrameというクラスでもってるようなので
素直にはできないようですね。。。
無理やりですが…

Code:

{CalendarControl
    day-proc =
        {proc {cc:CalendarControl, date:DateTime}:(#Graphic, bool)
            let constant info:DateTimeInfo = date.info
            {if info.day-of-week >= 6 then
                def tfb = {TextFlowBox {value info.day}}
                {after 0s do
                    {if-non-null p = tfb.parent then
                        set p.background =
                            {if info.day-of-week == 6 then
                                "lightblue"
                             else
                                "pink"
                            }
                    }
                }
                {return tfb, true}
             else
                {return null, true}
            }
        }
}

これで実装すると他で設定した色（たとえば当日の背景色）とかも上書きされてしまうので
考慮が必要ですね。

[umemura]

ありがとうございます！

当日の背景色は、after 句内の最後に下記のようにして上書きすればなんとかなりそうですね。

Code:

{if date.info.iso-date == {DateTime}.info.iso-date then
    set tfb.parent.background = "royalblue"
}

あちょ。