cxGrid 및 cxPivotGrid에서 일요일에 색을 다르게 표시하기

var
  ADate: TDateTime;
begin
  inherited;
  if ACell.DataField = 그리드_검진계획DBPv예약인원 then
  begin
    ADate := EncodeDate(스핀_년도.Value, 스핀_월.Value, StrToIntDef(Copy(ACell.Column.GetDisplayText, 1, 2), 0));
    if DayOfWeek(ADate) = 1 then
      AStyle := DM.그리드_TOTAL;
  end;
end;