Popupmenu in Listbox!! Repaint beim schließen!

[Sharky]

Delphi-Quellcode:

.
   if odSelected in State then //Prüft, ob ein Item markiert ist
   begin
     Canvas.Brush.Color := RGB(196,188,80); //Canvas-Hintergrundfarbe  setzen
   Canvas.FillRect(Rect); // Hintergrund malen
   Canvas.TextOut(Rect.Left + 6, Rect.Top + 6, Items[Index]); // Text ausgeben
   end;

Du gibst den Text nur aus wenn das Item den Focus hat? Ist das absicht?

Hänge doch mal ein Bild an wie das ganze aussehen soll.