Pintar de un color un THeaderSection o la cabecera de un TListColumn

[Ictiandro]

Hola chicos.
Necesito ayuda, tengo que pintar de un color la cabecera de un TListColumn o en todo caso una sección (es decir THeaderSection) de un THeaderControl. He agotado todos los medios posibles y nose como realizar dicha tarea, cualquier ayuda o guía queda muy agradecida.
Gracias

[roman]

El problema es que el control ListView de Delphi no expone los eventos necesarios para pintar los encabezados.

El HeaderControl sí expone el evento OnCustomDraw para tal efecto pero tratar de sustituir el encabezado de un ListView por uno propio puede tornarse muy complicado para sincronizarlo con las columnas.

La manera en que he visto que logran esto es haciendo uso del siguiente hecho: cuando Windows debe pintar el header, manda un mensaje WM_NOTIFY a la ventana padre- en este caso el ListView -con información relacionada a la etapa de dibujado.

Para captar este mensaje, lo ideal sería crear una componente derivada de TListView; pero para fines prácticos podemos usar el viejo truco de la "componente usurpadora":

Código Delphi [-]
type
  TListView = class(ComCtrls.TListView)
  private
    procedure WMNotify(var Msg: TWMNotify); message WM_NOTIFY;
  end;

  TForm1 = class(TForm)
    ListView1: TListView;
     ...
  end;

Esto es, se declara en la misma unidad que el formulario que contiene al ListView y antes de la declaración de éste, una clase del mismo nombre de la componente que nos interesa que descienda de ella. Esta nueva clase "usurpa" la original haciendo que la componente insertada en el formulario adquiera la nueva funcionalidad.

Para la implementación de WMNotify debemos incluir la unidad CommCtrl (no confundir con ComCtrls) para la definición de las estructuras de datos y constantes necesarias.

La implementación es sencilla:

Código Delphi [-]
{
  El mensaje WM_NOTIFY se usa para muchas cosas así que primero que
  nada hay que determinar que el mensaje es de pintado y que viene
  del header.
}
procedure TListView.WMNotify(var Msg: TWMNotify);
var
  Header: HWnd;
  CustomDraw: PNMCustomDraw;

begin
  // obtener el identificador del header
  Header := Perform(LVM_GETHEADER, 0, 0);

  if (Msg.NMHdr.code = NM_CUSTOMDRAW) and (Msg.NMHdr.hwndFrom = Header) then
  begin
    // estructura de datos con información para el pintado
    CustomDraw := PNMCustomDraw(Msg.NMHdr);

    case CustomDraw.dwDrawStage of
      CDDS_PREPAINT:
        // se le dice a Windows que queremos notificaciones para cada item
        Msg.Result := CDRF_NOTIFYITEMDRAW;

      CDDS_ITEMPREPAINT:
        (*
          dwItemSpec es el índice del item del encabezado (columna)
          que queremos pintar- en este caso 1
        *)
        if CustomDraw.dwItemSpec = 1 then
          // aquí indicamos el color del fondo
          Windows.SetBkColor(CustomDraw.hdc, $00FF8080);
    end;
  end;
end;

// Saludos

[Ictiandro]

Muchas gracias Maestro Roman, realmente necesita ayuda con respecto a este problema, me has ahorrado muchas complicaciones y también tiempo.

[Ictiandro]

Corrección:
Muchas gracias Maestro Roman, realmente necesitaba ayuda con respecto a este problema, me has ahorrado muchas complicaciones y también tiempo.

[jusnjosesch]

Hola:
Ante todo, muchas gracias, encontré este hilo y me solucionó un problema, y me quedó uno menor:
Cuando los títulos del ListView están pintados, al desplazarlos no arrastra toda la columna, solo se mueve el cabezal, pero los datos quedan donde están. He buscado por todos lados, pero no consigo arreglarlo.
Tiene solución, cual es?
Gracias de antemano.

Empezado por roman

El problema es que el control ListView de Delphi no expone los eventos necesarios para pintar los encabezados.

El HeaderControl sí expone el evento OnCustomDraw para tal efecto pero tratar de sustituir el encabezado de un ListView por uno propio puede tornarse muy complicado para sincronizarlo con las columnas.

La manera en que he visto que logran esto es haciendo uso del siguiente hecho: cuando Windows debe pintar el header, manda un mensaje WM_NOTIFY a la ventana padre- en este caso el ListView -con información relacionada a la etapa de dibujado.

Para captar este mensaje, lo ideal sería crear una componente derivada de TListView; pero para fines prácticos podemos usar el viejo truco de la "componente usurpadora":



Código Delphi [-]
type
TListView = class(ComCtrls.TListView)
private
procedure WMNotify(var Msg: TWMNotify); message WM_NOTIFY;
end;

TForm1 = class(TForm)
ListView1: TListView;
...
end;





Esto es, se declara en la misma unidad que el formulario que contiene al ListView y antes de la declaración de éste, una clase del mismo nombre de la componente que nos interesa que descienda de ella. Esta nueva clase "usurpa" la original haciendo que la componente insertada en el formulario adquiera la nueva funcionalidad.

Para la implementación de WMNotify debemos incluir la unidad CommCtrl (no confundir con ComCtrls) para la definición de las estructuras de datos y constantes necesarias.

La implementación es sencilla:


Código Delphi [-]
{
El mensaje WM_NOTIFY se usa para muchas cosas así que primero que
nada hay que determinar que el mensaje es de pintado y que viene
del header.
}
procedure TListView.WMNotify(var Msg: TWMNotify);
var
Header: HWnd;
CustomDraw: PNMCustomDraw;

begin
// obtener el identificador del header
Header := Perform(LVM_GETHEADER, 0, 0);

if (Msg.NMHdr.code = NM_CUSTOMDRAW) and (Msg.NMHdr.hwndFrom = Header) then
begin
// estructura de datos con información para el pintado
CustomDraw := PNMCustomDraw(Msg.NMHdr);

case CustomDraw.dwDrawStage of
CDDS_PREPAINT:
// se le dice a Windows que queremos notificaciones para cada item
Msg.Result := CDRF_NOTIFYITEMDRAW;

CDDS_ITEMPREPAINT:
(*
dwItemSpec es el índice del item del encabezado (columna)
que queremos pintar- en este caso 1
*)
if CustomDraw.dwItemSpec = 1 then
// aquí indicamos el color del fondo
Windows.SetBkColor(CustomDraw.hdc, $00FF8080);
end;
end;
end;





// Saludos