🚀 go-pugleaf

Hello Hans,

All I used was the display name (no dir).  My code has 2 TListViews: one for 
files on the PC (lvPC), the other for files on the network (lvFtp).

My OnCustomDrawItem handler below is still messy, but it's working!  A note 
about the "<DIR>" text:  This is something FTP servers typically return, so 
I fill my TListItem->SubItems with this instead of leaving my Size field 
blank.
//-----------------------------------------------
void __fastcall TMainForm::ListView_CustomDrawItem(TCustomListView *Sender,
  TListItem* Item, TCustomDrawState State, bool &DefaultDraw) {
  TListView* lv = dynamic_cast<TListView*>(Sender);
  lv->Canvas->Font->Style = TFontStyles();
  lv->Canvas->Font->Color = clBlack;
  if (lv == lvFtp) {
    int Flags = SHGFI_USEFILEATTRIBUTES | SHGFI_SMALLICON;
    TSHFileInfo FileInfo;
    memset(&FileInfo, 0, sizeof(FileInfo));
    char file[MAX_PATH + 1] = {0};
    strncpy(file, Item->Caption.c_str(), MAX_PATH); // Filename only. No 
directory
    if (strstr(Item->SubItems->GetText(), "<DIR>")) {
      SHGetFileInfo(file, FILE_ATTRIBUTE_DIRECTORY, &FileInfo, 
sizeof(FileInfo), Flags);
    } else {
      SHGetFileInfo(file, FILE_ATTRIBUTE_NORMAL, &FileInfo, 
sizeof(FileInfo), Flags);
    }
    Item->ImageIndex = FileInfo.iIcon;
  } else if (lv == lvPC) {
    int Attrs = ((PShellItem*)pcList->Items[Item->Index])->Attributes;
    if (BOOL(Attrs & FILE_ATTRIBUTE_HIDDEN)) {
      lv->Canvas->Font->Style = Sender->Canvas->Font->Style << fsItalic;
      lv->Canvas->Font->Color = clGray;
    }
    if (BOOL(Attrs & FILE_ATTRIBUTE_SYSTEM)) {
      lv->Canvas->Font->Style = Sender->Canvas->Font->Style << fsItalic;
      lv->Canvas->Font->Color = clGradientInactiveCaption;
    }
  }
}


> Can you please show how you construct the filename ? Is it something
> with the dir + DisplayName ?
>
> Hans.