Colorear secciones en un THeaderControl

[Angel.Matilla]

En un aplicación en BCB 6 me interesaría poder colorear o diferenciar de alguna manera determinadas secciones de un THeaderControl. Estuve mirando por el foro y sólo encontré una respuesta de roman en la que cita el evento OnCustomDraw en Pintar de un color un THeaderSection o la cabecera de un TListColumn. He estado mirando y, al menos en Builder, tal evento no existe para THeaderControl o no soy capaz de encontrarlo. ¿Alguien me puede guiar en como modificar el aspecto de una sección en este elemento?

[Neftali [Germán.Estévez]]

A mi un código como este me funciona (lo he probado en una versión más nueva de Delphi, eso sí):

Código Delphi [-]
procedure TForm3.HeaderControl1DrawSection(HeaderControl: THeaderControl;
  Section: THeaderSection; const Rect: TRect; Pressed: Boolean);
var
  oldColor:TColor;
begin
  if (Section.Index = 2) then begin
    HeaderControl.Canvas.FloodFill(Rect.Left + 1, Rect.Top + 1, clInfoBk, TFillStyle.fsSurface);
    HeaderControl.Canvas.Brush.Color := clInfoBk;
    HeaderControl.Canvas.Pen.Style := TPenStyle.psClear;
    HeaderControl.Canvas.Rectangle(Rect);
  end;
end;

Lo único importante, es que la tercera columna (en este caso Index=2) hay que definirla con la propiedad Style=hsOwnerDraw.

Si no defines así esa propiedad, el evento no salta sobre esa columna. Es decir, en mi ejemplo, que tiene definidas tres columnas, y sólo la tercera definida como hsOwnerDraw, el evento OnDrawSection sólo salta en la tercera.

[Angel.Matilla]

¡Perfecto! Muchas gracias.