1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

 
procedure TFormMP3Player.ListViewPlaylistAdvancedCustomDrawItem( 
  Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; 
  Stage: TCustomDrawStage; var DefaultDraw: Boolean); 
var t_rect : TRect; 
    t_old, t_new : TBrush; 
begin 
  DefaultDraw:=true; 
  inherited; 
  if (Item.Selected) then 
  begin 
    t_rect:=Item.DisplayRect(drLabel); 
    t_rect.BottomRight.Y:=t_rect.BottomRight.Y-1; 
    t_old:=Sender.Canvas.Brush; 
    t_new:=TBrush.Create; 
    t_new.Color:=clBlue; 
    Sender.Canvas.Brush:=t_new; 
    Sender.Canvas.FrameRect(t_rect); 
    Sender.Canvas.Brush:=t_old; 
    FreeAndNil(t_new); 
  end; 
end;