cxGrid 및 cxPivotGrid에서 일요일에 색을 다르게 표시하기
|
1 2 3 4 5 6 7 8 9 10 11 |
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; |
최신 댓글