Listview: Bitmap aus Header entfernen

[Mattze]

Hi,

damit will es auch nicht.
Zum Bitmap entfernen (nach luckies Tutorial):

Delphi-Quellcode:

procedure TMyListView.HeaderBmpDel;
var buf: PAnsiChar;
    hdr: HWND;
    hi: THDItem;
begin
    GetMem(buf, 100);
    hi.Mask := HDI_BITMAP or HDI_FORMAT {or HDI_IMAGE or HDI_ORDER} or
               HDI_TEXT or HDI_WIDTH;
    hi.pszText := buf;
    hi.cchTextMax := sizeof(buf);
    if not Header_GetItem(hdr,1,hi) then
      showmessage('Fehler beim Get');
    hi.fmt := hi.fmt and not HDF_BITMAP_ON_RIGHT  // Bitmap-Position
             and not HDF_IMAGE
             and not HDF_BITMAP;  
    if not Header_SetItem(hdr,1,hi) then
      showmessage('Fehler beim Set');
  end;
end;

Die Showmessges habe ich mal zu Testzwecken reingeschrieben und siehe da,
er schafft weder das Header_GetItem noch das Header_SetItem!
Der kriegt auch den pszText nicht richtig.

@uligerhardt:
Dein Vorschlag klappt übrigens auch nicht.

Ich versuche es weiter...
Irgendwie muss es ja gehen...

Gruß
Mattze