korobovmax Цитата: Не проще ли найти место, где рисуется градиент и чуть-чуть его подправить?
Собственно, я этим и занимаюсь (ищу место).
Если Вас больше вдохновляет путь правки исходников, то вероятно поможет следующее:
1. Если в unit cxSchedulerCustomResourceView
поправить следующую функцию, то градиент исчезает
function TcxSchedulerDayHeaderCellViewInfo.CheckSelection: Boolean;
begin
//Result := True; // Убрано
Result := False;
end;
2. Или можно править функцию
procedure TcxSchedulerHeaderCellViewInfo.ValidateSelection;
begin
{if CheckSelection and (Date = DateOf(FDateTime)) then
FButtonState := cxbsHot;} //Убрано
if Selected then
begin
if Selected then
TextColor := FSelectionTextColor;
FSelectionRect := PainterHelper.ExcludeBorders(Bounds, Borders);
if FButtonState = cxbsHot then
begin
FSelectionRect.Left := Max(FSelectionRect.Left, FSelectionRect.Right -
PainterHelper.TextWidth(Font, DisplayText) - cxTextOffset * 2);
end;
end;
end;
3. Или можно заменить на какую-то свою процедуру
class procedure TcxSchedulerPainterHelper.DrawGradientRect