Showmenu (based on files => ShowMenuStringFromFilesInFolder)

[Kevin]

i think this is what your after ron

Code:

Copy      Help

str sm; ARRAY(str) a
ShowMenuStringFromFilesInFolder "$documents$\*.txt" sm a
__ImageList- il
;il.Load("bmp file created with qm imagelist editor")
;or
il=ImageList_Create(16 16 ILC_MASK|ILC_COLOR32 0 8)
int hi
hi=GetFileIcon(".txt")
ImageList_ReplaceIcon(il -1 hi)
DestroyIcon(hi)
int ii; str stmi;
for ii 1 a.len+1
,stmi.formata("%i=0 " ii)
stmi.trim
SetThreadMenuIcons stmi +il 2
int i=ShowMenu(sm)-1; if(i<0) ret
out a[i]