Obtain Image list data from separate bmp files for each colu

[Gintaras]

Member function __ImageList.AppendImageList

Code:

Copy      Help

function il

int hi i n=ImageList_GetImageCount(il)
for i 0 n
,hi=ImageList_GetIcon(il i 0)
,ImageList_ReplaceIcon this.handle -1 hi
,DestroyIcon hi

Macro Macro2753

Code:

Copy      Help

__ImageList il.Load("$qm$\il_qm.bmp")
__ImageList il2.Load("$qm$\il_icons.bmp")
il.AppendImageList(il2)

int i n=ImageList_GetImageCount(il)
str s; for(i 0 n) s.addline(F"{i}")
ListDialog(s "" "" 0 0 0 0 0 0 il)