09-05-2011, 12:09 PM
09-05-2011, 02:32 PM
内部で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}
}
}
}
これで実装すると他で設定した色(たとえば当日の背景色)とかも上書きされてしまうので
考慮が必要ですね。
09-05-2011, 04:03 PM
ありがとうございます!
当日の背景色は、after 句内の最後に下記のようにして上書きすればなんとかなりそうですね。
あちょ。
当日の背景色は、after 句内の最後に下記のようにして上書きすればなんとかなりそうですね。
Code:
{if date.info.iso-date == {DateTime}.info.iso-date then
set tfb.parent.background = "royalblue"
}
あちょ。