TListview und Bitmaps neuzeichen

[Jens Schumann]

Hallo,
in einer SubItemspalte (Bewertung) eines TListview zeige ich in Abhängigkeit eines
numerischen Wertes eine Bitmap an. Damit ich an den SubItemIndex komme
passiert das im OnAdvancedCustomDrawSubItem Ereignis.

Delphi-Quellcode:

procedure TFormDoubleSongDialog.lvDatabaseAdvancedCustomDrawSubItem(
  Sender: TCustomListView; Item: TListItem; SubItem: Integer;
  State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
var
  SubItemLeft : Integer;
  CheckSong   : TCheckSongItem;
  iCnt        : Integer;
begin
  If (Item=nil) then
    Exit;
  // Berechne die Left-Koordinate des passenden Items
  CheckSong:=TCheckSongItem(Item.Data);
  If (CheckSong<>Nil) and (SubItem=5) and (Stage=cdPrePaint) then // mit Stage=cdPrePaint entspricht das Event dem OnDrawSubItem
    begin
    SubItemLeft:=Item.Left;
    For iCnt:=0 to TListView(Sender).Columns.Count-2 do // Berechne die Left-Koordiante für das Bitmap
      Inc(SubItemLeft,Sender.Column[iCnt].Width);
    Try
      Sender.Canvas.Draw(SubItemLeft,Item.Top,SystemDataprovider.Stars.Value[CheckSong.Rating].Bitmap);
    Except
      Sender.Canvas.Draw(SubItemLeft,Item.Top,SystemDataprovider.Stars.Value[0].Bitmap);
      end;
    end; // If SubItem=5 then
end;

Beim vergrößern der linken Nachbarspalte werden die Bitmaps scheinbar 2mal gezeichnet. Einmal an
der alten und einmal an der neuen Position. (Siehe Anlage)
Wie erreiche ich es, dass die Bitmaps nur an der neuen Position gezeichnet werden?