Custom Icon overlay on Folder Alias

General
21

Carlo:

download the project here,
run,
drop a folder (with some items inside),
watch what you will get on screen

Nota: get an eye on the screen and the real folder contents for an alias (where on screen is the alias item name in the folder).

This works fine here.

Also, did you get an eye on the Examples ?

Specially FileBrowser.xojo_binary_project who also display the Aliases (but resolve them: my alias was pointing to a folder, so the entry in the ListBox does show a hierarchical entry).

BTW: in that example, skip the typo and concentrate on the code ;-:).

22

Thankyou Emil of your effort … but your sample doesn’t work as I’m expecting.

  1. In your code you never filter folder aliases because you use : trueitem
  2. so there is any filter on alias
    Changin your for cicle I have the same result… no aliases are founded:

// Loop thru the dropped folder contents
For LoopIdx = 1 To SourceCnt
// Deals with one ITEM at a time
SourceChildFI = TheFolderFI.Item(LoopIdx)

// Add this Item Name in a Row (Using AddRow or AddFolder)
If SourceChildFI.Alias=true Then
  // Add the Item Name as a Folder entry
  Me.AddFolder SourceChildFI.DisplayName
  
  // Get the number of the just added Row #
  LocRow = LB.LastIndex
  
  // Add the FolderItem Reference in RowTag
  LB.RowTag(LocRow) = SourceChildFI
  
End If
23

A strange (crazy) idea comes to mind:

what result did you expect to get on screen when an alias name is displayed ?

BTW: I wil left in some seconds, so I will read your anwser tomorrow.

24

I have solved. Folderitem.Alias work when you got a TrueFolderItem. Maybe I’m Wrong but from documentation It seemed to exactement the contraire… :wink:
Thank you anyway Emile. I appreciate your help. Hope to do the same for you in the future.
C