Использование рисунков в элементах списка

В свойстве списка Picture можно указать имя файла .BMP, который будет отображаться рядом с элементами списка.

Включите следующие строки кода в обработчик события Click для списка:

FOR iItem = 5 TO THIS.ListCount && files start at the 5th item

cExtension = UPPER(RIGHT(THIS.List(iItem),3))

DO CASE

CASE cExtension = "DBF"

THIS.Picture(iItem) = "tables.bmp"

CASE cExtension = "BMP"

THIS.Picture(iItem) = "other.bmp"

CASE cExtension = "PRG"

THIS.Picture(iItem) = "programs.bmp"

CASE cExtension = "SCX"

THIS.Picture(iItem) = "form.bmp"

OTHERWISE

THIS.Picture(iItem) = IIF("]" $ cExtension, ;

"", "textfile.bmp")

ENDCASE

ENDFOR