1:
2:
3:
4:
5:
6:

procedure TOVCLDebugView.OmCDI(Sender: TCustomListView; Item: TListItem;
  State: TCustomDrawState; var DefaultDraw: Boolean);
begin
    Sender.Canvas.Brush.Color := GetItemColor(Item);
    Sender.Canvas.FillRect(Item.DisplayRect(drLabel));
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

Procedure TVFSExplorer_Main.OmCDI(Sender: TCustomListView; Item: TListItem;
    State: TCustomDrawState; Var DefaultDraw: Boolean);
Var
    FO: TOVFSObject;
    BMSrc, BMDest: TBitmap;
Begin
    FO := TOVFSObject(Item.Data);

    If Not Assigned(FO) Then
        Exit;

    If FO.FileAttributes And VFS_ATTRIBUTE_IS_DIR <> 0 Then
        Item.ImageIndex := 0
    Else
        Item.ImageIndex := 1;

    If FO.FileAttributes And VFS_ATTRIBUTE_COMPRESSED <> 0 Then
        Sender.Canvas.Brush.Color := $FFEFEF
    Else
        Sender.Canvas.Brush.Color := clWhite;
    Sender.Canvas.FillRect(Item.DisplayRect(drLabel));

    If FO.FileAttributes And VFS_ATTRIBUTE_ENCRYPTED <> 0 Then
        Sender.Canvas.Font.Color := clGreen
    Else
        Sender.Canvas.Font.Color := clBlack;

    If FO.FileAttributes And VFS_ATTRIBUTE_HIDDEN <> 0 Then
    Begin
        If TListView(Sender).SmallImages.GetBitmap(Item.ImageIndex, BMSrc) Then
        Begin
          If MyAlphaBlend(BMSrc, BmDest, 50) Then
              TListView(Sender).SmallImages.Insert(Item.ImageIndex, BMDest, nil);
        End;
    End;
End;