Как поменять цвет Header'а в TListView

Code:

uses CommCtrl;

var

BkBrush:HBRUSH; // тут сохраняем brush для фона

// процедура header'а

function NewHeaderProc(wnd: HWND; Msg: Cardinal; wParam: wParam;

                         lParam: lParam): Longint; stdcall;

var

BrushOld: HBRUSH;

ClientRect:TRect;

begin

Result := CallWindowProc(Pointer(GetWindowLong(wnd, GWL_USERDATA)),

                         wnd, Msg, wParam, lParam);

if Msg=WM_ERASEBKGND then // закрашиваем область справа от колонок

begin

  GetClientRect(wnd,ClientRect);

  BrushOld := SelectObject(wParam, BkBrush);

  FillRect(wParam, ClientRect, BkBrush);

  SelectObject(wParam, BrushOld);

  Result := 1;

end

end;

// процедура ListView

function NewListProc(wnd:HWND; uMsg:UINT; wParam:WPARAM;

                    lParam:LPARAM):integer; stdcall;

var

nmlvcd:PNMLVCUSTOMDRAW;

begin

  result:=CallWindowProc(Pointer(GetWindowLong(wnd,GWL_USERDATA)),wnd,

                         uMsg,wParam,lParam);

  if uMsg=WM_NOTIFY then

   if PNMLISTVIEW(lParam)^.hdr.code=NM_CUSTOMDRAW then

   begin

    nmlvcd:=PNMLVCUSTOMDRAW(lparam);

    case nmlvcd.nmcd.dwDrawStage of

      CDDS_PREPAINT:  result:=CDRF_NOTIFYITEMDRAW;

      CDDS_ITEMPREPAINT:

                  begin

                    SetTextColor(nmlvcd.nmcd.hdc,clRed);    // цвет текста

                    SetBkColor(nmlvcd.nmcd.hdc,clYellow);   // цвет фона

                    result:=CDRF_DODEFAULT;

                  end;

     CDDS_ITEMPOSTPAINT: result := CDRF_DODEFAULT;

    end

   end;

end;

procedure TForm1.FormCreate(Sender: TObject);

var

i,j:integer;

lit:TListItem;

begin

with ListView1 do

begin

ViewStyle := vsReport; // стиль, естественно vsReport

GridLines:=true;

// заполним ListView чем-нибудь

for i:=0 to 2 do

begin

    Columns.Add.Caption:='Column'+IntToStr(i);

    Columns[i].Width:=70;

    lit:=Items.Add;

    lit.Caption:='Item'+IntToStr(i);

    for j:=1 to 2 do lit.SubItems.Add('SubItem'+IntToStr(j)+IntToStr(i))

end

end;

//меняем процедуру у ListView

SetWindowLong(ListView1.Handle,GWL_USERDATA,SetWindowLong(ListView1.Handle,

                  GWL_WNDPROC, LPARAM(@NewListProc)));

//тоже самое у Header'а

SetWindowLong(GetWindow(ListView1.Handle, GW_CHILD),GWL_USERDATA,

             SetWindowLong(GetWindow(ListView1.Handle, GW_CHILD),

             GWL_WNDPROC, LPARAM(@NewHeaderProc)));

BkBrush := CreateSolidBrush(clYellow); // цвет фона

end;