Hola,
Te iba a remitir a
este hilo pero ¿qué crees?
En el código de ese hilo adapta el método WMNotify así:
Código Delphi
[-]
procedure TListView.WMNotify(var Msg: TWMNotify);
var
Header: HWnd;
CustomDraw: PNMCustomDraw;
HeaderFont: TFont;
begin
Header := Perform(LVM_GETHEADER, 0, 0);
if (Msg.NMHdr.code = NM_CUSTOMDRAW) and (Msg.NMHdr.hwndFrom = Header) then
begin
CustomDraw := PNMCustomDraw(Msg.NMHdr);
case CustomDraw.dwDrawStage of
CDDS_PREPAINT:
Msg.Result := CDRF_NOTIFYITEMDRAW;
CDDS_ITEMPREPAINT:
if CustomDraw.dwItemSpec = 1 then
begin
HeaderFont := TFont.Create;
try
HeaderFont.Style := [fsBold];
Windows.SelectObject(CustomDraw.hdc, HeaderFont.Handle);
Windows.SetTextColor(CustomDraw.hdc, clBlue);
finally
HeaderFont.Free;
end;
end;
end;
end;
end;
// Saludos