ListView Columns und OwnerDraw

[Nils_13]

Danke, jetzt wird der Code schonmal kompiliert. Was muss ich noch machen, dass ich die Farben verändern kann ?

Delphi-Quellcode:

var HeaderHandle : HWND;
    hdi          : HD_ITEM;
    i            : Integer;
begin
  HeaderHandle := GetDlgItem(lv.Handle, 0);
  for i := 0 to lv.Columns.Count - 1 do
  begin
    hdi.mask := HDI_TEXT and HDI_FORMAT and HDI_WIDTH;
    hdi.fmt := HDF_LEFT and HDF_OWNERDRAW and HDF_STRING;
    hdi.cxy := lv.Columns.Items[i].Width;
    hdi.cchTextMax := Length(lv.Columns.Items[i].Caption);
    hdi.pszText := PChar(lv.Columns.Items[i].Caption);
    Header_SetItem(HeaderHandle, i, hdi);
  end;