CheckListBox+Image - Но как это связать?

@Андрей2011 · Регистрация: 18.01.2011

Студворк — интернет-сервис помощи студентам

т.е. должен получиться список текстовый, с картинками.
пример:
(галочка) (текст) (рисунок)

[] файл такой-то1 [рисунок]
[] файл такой-то2 [рисунок]
[] файл такой-то3 [рисунок]
[] файл такой-то4 [рисунок]
[] файл такой-то5 [рисунок]

Примером может случить например DBGrid (на сколько я помню, таблица в которую можно добавлять рисунки) и все бы хорошо, да с БД работать нет смысла.
Спасибо всем за посильную помощь. К сожалению в интернете так ничего полезного не нашел по своему вопросу.

cpp_developer · 28.01.2011, 22:36

а что мешает поставить Image в соответствующих координатах после каждого Item ? или обязательно всегда нужен навороченный компонент или , как минимум, архи-сложный код ?

@Андрей2011 · 31.01.2011, 10:43 **[ТС]**

Ничего сверх сложного не требуется. Просто если "просто" Image на форму залить, то при прокрутке списка, эти самые Image "затираются". Я нашел такую вот альтернативу:

при нажатии на кн:

C++
1
2
3
4
5
6
 
for (short i = 1; i <= 6; i++) {
 
 CheckListBox1->Items->Add("Приветик!");
 
 }

а в функции прорисовки:

C++
1
2
3
4
5
6
7
void __fastcall TForm1::CheckListBox1DrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{     
 //тут происходит запись ярлыков.
ImageList1->Draw(CheckListBox1->Canvas,Rect.Left+100,Rect.top,Index);
 
}

Style = lbOwnerDrawVariable; - иначе не выводится ничего. Вот. Но загвоздка в том что "текст" не выводится. Т.е. либо картинки либо текст, при смене этого самого "Style" отображаются, а хочется чтоб и то и то было. Вот эту бы проблему побороть, и былоб все классно.

@Matrix · 31.01.2011, 11:08

C++
1
2
3
4
5
6
7
void __fastcall TForm1::CheckListBox1DrawItem(TWinControl *Control, int Index,
          TRect &Rect, TOwnerDrawState State)
{
//ваш код...
CheckListBox1->Canvas->Brush->Color=clWhite; //hide артефакты =)
CheckListBox1->Canvas->TextOut(Rect.Left+7,Rect.Top+2,CheckListBox1->Items->Strings[Index]); //выводим текст
}

@Андрей2011 · 31.01.2011, 11:12 **[ТС]**

Мммм, спасибо всем кто пытался помочь. Я докопался до правды. Возможно кому-то пригодится.

C++
1
2
3
4
5
6
void __fastcall TForm1::CheckListBox1DrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{     
CheckListBox1->Canvas->TextRect(Rect, 20, Rect.Top, "Текст"); //Соотв. заполяем текст.
ImageList1->Draw(CheckListBox1->Canvas,Rect.Left+100,Rect.top,Index); //Картинка или иконка
}

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Андрей2011 184 / 24 / 4 Регистрация: 18.01.2011 Сообщений: 359

	CheckListBox+Image - Но как это связать? 28.01.2011, 16:20. Показов 1442. Ответов 4 Метки нет (Все метки) т.е. должен получиться список текстовый, с картинками. пример: (галочка) (текст) (рисунок) [] файл такой-то1 [рисунок] [] файл такой-то2 [рисунок] [] файл такой-то3 [рисунок] [] файл такой-то4 [рисунок] [] файл такой-то5 [рисунок] Примером может случить например DBGrid (на сколько я помню, таблица в которую можно добавлять рисунки) и все бы хорошо, да с БД работать нет смысла. Спасибо всем за посильную помощь. К сожалению в интернете так ничего полезного не нашел по своему вопросу. 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	28.01.2011, 22:36
	а что мешает поставить Image в соответствующих координатах после каждого Item ? или обязательно всегда нужен навороченный компонент или , как минимум, архи-сложный код ? 0