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;