ListView mit Image in Überschrift

[LokutusvB]

Guten Morgen,

ich habe mir für ein Projekt eine ListView und eine ImageList erzeugt. Die ListView beinhaltet mehrere Spalten, Style vsReport, die ImageList beinhaltet ein Bild. Der ListView habe ich in der IDE bei SmallImages die ImageList zugeordnet.

Nun soll in einer der Spalten in der Überschrift kein Text, sondern das Bild erscheinen. Das funktioniert auch, in dem ich bei FormShow Der Spaltenüberschrift den Index zuordne.

Nun habe ich aber das Problem, wenn ich zur Laufzeit die ListView mit TListItems ausfülle, wird immer beim ersten Item das Bild mit dargestellt, das möchte ich aber nicht. So habe ich den ImageIndex des Items auf -1 gesetzt. Das nützt aber auch nicht viel, da nun zwar nicht mehr das Bild angzeigt wird, der Platz für das Bild aber trotzdem reserviert bleibt. Wie kann ich das beheben, daß das Bild wirklich nur in der Überschrift dagestellt wird?

Code:

procedure TF_Form1.FormShow(Sender: TObject);
var
  actItem: TListItem;
begin
  lvListe.Columns[4].ImageIndex := 0;
  actItem := lvListe.Items.Add;
  actItem.ImageIndex := -1;
  actItem.Caption := 'XYZ';
  actItem.SubItems.Add('XYZ');
  actItem.SubItems.Add(XYZ');
  actItem.SubItems.Add('XYZ');  
end;