Как поместить графический элемент в TListBoxDelphi , Компоненты и Классы , СпискиКак поместить графический элемент в TListBoxСначала создайте bmp-файл, который вы будете помещать около каждого элемента списка, в примере это 'c:\file.bmp'. Для создания файла можете воспользоваться специальной графической утилитой ImageEditor, которая входит в пакет Delphi. Желательно, чтобы размер файлы был 16х16. После этого вынесите на форму компонент TListBox. Его свойство Style установите в lbOwnerDrawVariable - это позволит нам прорисовывать каждый элемент списка самостоятельно. Далее объявляем переменную:
После этого задаём обработчику события OnDrawItem следующий вид:
а обработчику события OnMeasureItem такой:
По созданию окна создаёт Bitmap и загружаем в него данные из файла:
По уничтожению окна - уничтожаем Bitmap
Статья Как поместить графический элемент в TListBox раздела Компоненты и Классы Списки может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
|||||||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |