Изменить цвет фона у заголовков cxGrid

Как правило, изменить внешний вид заголовков столбиков через стили не удаётся. Остаётся только полностью заменить обработчик рисования заголовка.
Например, так:

procedure TMain.cxGrid1DBTableView1CustomDrawColumnHeader(
        Sender: TcxGridTableView; 
        ACanvas: TcxCanvas; 
        AViewInfo: TcxGridColumnHeaderViewInfo; 
  var ADone: Boolean);
begin
  with AViewInfo do
  begin
    LookAndFeelPainter.DrawHeader(ACanvas, Bounds, TextBounds, Neighbors,
               Borders, ButtonState, AlignmentHorz,  AlignmentVert, MultiLine,
               False, Text, Params.Font, Params.TextColor , Params.Color);

    ACanvas.FillRect(cxRectInflate(Bounds, 0,0,-1,-2), clRed);
    ACanvas.DrawText(Text, TextBounds, AlignmentHorz, AlignmentVert, MultiLine, False);
    ADone := True;
  end;
end;
Метки: