Delphi cxDateNavigator1设置周末文本颜色为红色

在

TcxDateNavigator

中，是否可以使用不同的文本颜色（红色）标记周末（周六、周日）

---

TMS实现了此功能，但我似乎在这个DevExpress组件中找不到。

至于

cxDateNavigator

，您可以使用其

OnCustomDrawDayNumber

事件处理程序，例如：

uses
  DateUtils, cxDateUtils;

procedure TForm60.cxDateNavigator1CustomDrawDayNumber(Sender: TObject; ACanvas: TcxCanvas; AViewInfo: TcxSchedulerDateNavigatorDayNumberViewInfo; var ADone: Boolean);
begin
  if DayOfTheWeek(AViewInfo.Date) in [DaySaturday, DaySunday] then
  begin
    AViewInfo.Bold := True;
    ACanvas.Font.Color := clGreen;
    ACanvas.Brush.Color := clYellow;
  end;
end;

我不建议您在周末使用红色，因为它通常表示假日

如果你想知道你用鼠标指向哪个日期。您可以实现

OnMouseMove

事件：

procedure TForm60.cxDateNavigator1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  dt: TDateTime;
begin
  dt := TcxDateNavigator(Sender).HitTest.Time;
  if dt = NullDate then
    Caption := 'You are pointing outside the calendar area'
  else
    Caption := 'You are pointing at ' + FormatDateTime(FormatSettings.LongDateFormat, dt);

end;

---

有没有办法显示一个带有“Today dd/mm/yyyy”的页脚，让我（点击）到今天的日期？Yu可以添加一个cxlabel，在其中显示文本。如果需要其他日期格式，请尝试使用FormatDateTime（FormatSettings.ShortDateFormat，dt）。至于跳转，当您将数据分配给DateNavigator时，它将跳转到给定的数据，例如CxDateNavigator 1.Date:=今天；我会跳到今天的约会。如果你想让我给你举个例子，请提出一个新问题