喫茶XRAYトップページ

[スレッド全体]
[12912] TCalendarView、TCalendarPickerでの使用例返信　削除
2019/6/15 (土) 20:39:06 igy
土曜日は青、日曜日や祝日は赤の文字で表示したい場合、

OnDrawDayItemイベントで、

procedure TForm1.CalendarView1DrawDayItem(Sender: TObject;
  DrawParams: TDrawViewInfoParams; CalendarViewViewInfo: TCellItemViewInfo);
var
    S: String;
begin
    if DayOfWeek(CalendarViewViewInfo.Date) = 1 then
        DrawParams.ForegroundColor := clRed;
    if DayOfWeek(CalendarViewViewInfo.Date) = 7 then
        DrawParams.ForegroundColor := clBlue;

    if IsSpecialHoliday(CalendarViewViewInfo.Date, S) then
        DrawParams.ForegroundColor := clRed;
end;

のような感じで、文字の色を変更します。

カレンダー ビューの利用
http://docwiki.embarcadero.com/RADStudio/Rio/ja/%E3%82%AB%E3%83%AC%E3%83%B3%E3%83%80%E3%83%BC_%E3%83%93%E3%83%A5%E3%83%BC%E3%81%AE%E5%88%A9%E7%94%A8

# TCalendarView、TCalendarPickerは、Delphi 10.1 Update2で追加されました。

[12914] Re:TCalendarView、TCalendarPickerでの使用例返信　削除
2019/6/15 (土) 20:58:16 Mr.XRAY
▼ igyさん

> のような感じで、文字の色を変更します。

へぇ〜，なるほど．
ありがとうございます．
さてと，どこに書いておこうかな (笑)
 
> カレンダー ビューの利用
> http://docwiki.embarcadero.com/RADStudio/Rio/ja/%E3%82%AB%E3%83%AC%E3%83%B3%E3%83%80%E3%83%BC_%E3%83%93%E3%83%A5%E3%83%BC%E3%81%AE%E5%88%A9%E7%94%A8
>
> # TCalendarView、TCalendarPickerは、Delphi 10.1 Update2で追加されました。

進化しているんですね．

[12915] Re2:TCalendarView、TCalendarPickerでの使用例返信　削除
2019/6/15 (土) 21:31:39 igy
▼ Mr.XRAYさん
> > カレンダー ビューの利用
> > http://docwiki.embarcadero.com/RADStudio/Rio/ja/%E3%82%AB%E3%83%AC%E3%83%B3%E3%83%80%E3%83%BC_%E3%83%93%E3%83%A5%E3%83%BC%E3%81%AE%E5%88%A9%E7%94%A8
> >
> > # TCalendarView、TCalendarPickerは、Delphi 10.1 Update2で追加されました。
>
> 進化しているんですね．

進化していますが、IDERA Communityでも、

How to add/show "Today button" on TCalendarPicker?
https://community.idera.com/developer-tools/programming-languages/f/c-language/69185/how-to-add-show-today-button-on-tcalendarpicker

挙げられているように、[今日]ボタン がないのが、（少しだけ）難点ですね。

で、↓の TRzDateTimeEdit、TRzCalendar は、なかなか良いかも・・です。


[▼次のスレッド]
INCM/CMT
Cyclamen v3.82