Данный пример демонстрирует, как вы можете добавить графическую картинку для каждого текстового элемента Списка (например типа List Box). В данном примере, вы можете указать некоторую Базу Данных, контейнер (.dbc), а в соответствующем Контроле ListBox будут показаны вместе с именами выбранных элементов разнообразные Картинки, соответствующие Таблицам, локальным и удаленным Представлениям.

В следующем Фрагменте программного кода, выполняется перебор всех составляющих Компонент Базы Данных, с помощью свойства Picture для каждого элемента Списка определяется соответствующая Картинка, (код метода cmdDatabase). В соответствии с используемым индексом переменной Цикла выполняется определение картинки для своего Элемента Списка.

	Копировать Код
FOR i = (m.nTblCount+1) TO thisform.lstDatabase.ListCount IF DBGETPROP(ALLTRIM(thisform.lstDatabase.List[m.i]),; "view","sourcetype") = 1 *Local view thisform.lstDatabase.Picture[m.i] = m.cLViewBMP ELSE * Remote view thisform.lstDatabase.Picture[m.i] = m.cRViewBMP ENDIF ENDFOR

Обратите Внимание
Вам нужно следить за размером используемых Картинок; указанные размеры должны соответствовать установленному значению для текстовых Элементов (свойство FontSize); в противном случае, графические элементы отображаются некорректно.

Задачи

Другие ссылки