LIstview Eintrag aber nicht Icon markieren

[cherry]

Also ich habe bis jetzt herumgepröbelt... leider aber nichts brauchbares gefunden.
Ich habs mal so probiert... Aber ehrlich gesagt weiss ich nicht warum das
nicht geklappt hat?!

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  DefaultDraw := true;
  bmp := TBitMap.Create;
  if cdsSelected in State then
  begin
    Imagelist1.GetBitmap(Item.Index,bmp);
    gr := TGraphic(bmp);
    ListView1.Canvas.Draw(Item.Position.X,Item.Position.Y,gr);
  end;
end;

erstens verändert sich aus irgendeinem Grund die Schriftart, dann
wird das Gezeichnete wieder überladen und und und...

Also ich würde jezt, wenn ich du wäre, eine Neue Komponente erstellen.
Direkt ableiten von TListView und die nötigen Proceduren anpassen,
respektive overriden!

> Anstatt die Idee mit der Komponente, kannst du auch alles selber Zeichnen,
ist vielleicht einfacher?!

Ich sollte mich jetzt mal hinter meine Arbeit klemmen, sonst hat mein
Chef nicht freude...

Also schöne Ostern allerseits

PS: versuche mal meine Funktion mit DefaultDraw := false, dann
siehst du das ich gar nicht soweit von der Lösung entfernt war.
(in meinen Gedanken auf jedenfall )