Delphi-PRAXiS - Delphi ListView + OwnerDraw: Fehlerhafte Darstellung

Hallo,

ich reagiere im Ereignis OnCustomDrawItem einer TListView auf ein bestimmtes Item das als Caption nur ein Minus enthält und zeichne selbst eine Linie auf das Canvas. Die anderen Listen-Einträge werden von der ListView selbst gezeichnet. Das funktioniert auch alles wunderbar. Fahre ich zur Laufzeit allerdings mit der Maus über das letzte Item wird der Text als schwarzer Kasten dargestellt (siehe Screenshots). Das tritt aber nur auf wenn ich mit der Maus von oben komme.

Kann das jemand nachvollziehen? (Exe + Source im Anhang). Wo liegt mein Fehler?

Das ist der einzige Code dieser Test-Anwendung:

Delphi-Quellcode:

			procedure TForm2.ListView1CustomDrawItem(Sender: TCustomListView;

  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);

const

  LINE_LEFT_RIGHT_PADDING = 6;

var

  ItemVertMiddle: Integer;

  ItemHeight: Integer;

  ItemWidth: Integer;

  ItemRect: TRect;

begin

  if not Assigned(Item) then

    Exit;

  DefaultDraw := Item.Caption <> '-';

  if not DefaultDraw then

  begin

    ItemRect := Item.DisplayRect(drBounds);

    ItemHeight := ItemRect.Bottom - ItemRect.Top;

    ItemVertMiddle := ItemHeight div 2;

    ItemWidth := ItemRect.Right - ItemRect.Left;

    ListView1.Canvas.Pen.Color := clSilver;

    ListView1.Canvas.MoveTo(LINE_LEFT_RIGHT_PADDING, ItemRect.Top + ItemVertMiddle);

    ListView1.Canvas.LineTo(ItemWidth - LINE_LEFT_RIGHT_PADDING, ItemRect.Top + ItemVertMiddle);

  end;

end;