Прозрачность TListBox

@Gru2303 · Регистрация: 20.04.2019

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

Всем привет у меня есть картинка и ListBox мне нужно сделать чтобы фон ListBox был прозрачным а текст нет. Чтобы поставить под него картинку.

@volvo · 28.04.2019, 19:25

Нельзя сделать TListBox прозрачным, но можно отрисовывать каждый элемент с частью фонового изображения, в результате будет эффект наложения фонового изображения под TListBox. Как-то вот так... (код на Дельфи, но какая разница?)

@Gru2303 · 29.04.2019, 13:31 **[ТС]**

Все перепробовала не получилось. Можешь дать код на C ++ builder.

Заранее СПАСИБО!

@nick42 · 29.04.2019, 14:29

Gru2303, если стиль ListBox'а выбрать OnerDraw и в обработчик (Events) OnDrawItem вставить след. текст__

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{
    TRect ImageRect1,ImageRect2,NewRect,ResRect;
    ImageRect1 = TRect(0,0,Image1->Picture->Bitmap->Width,
                          Image1->Picture->Bitmap->Height);
    ImageRect2 = ImageRect1;
     IntersectRect(&ResRect, &ImageRect2, &Rect);
    NewRect.Left   =ImageRect1.Left;
    NewRect.Top    =ImageRect1.Top+ResRect.Top-ImageRect2.Top;
    NewRect.Right  =ImageRect1.Right;
    NewRect.Bottom =ImageRect1.Bottom+ResRect.Bottom-ImageRect2.Bottom;
    ListBox1->Canvas->CopyRect( ResRect,
                   Image1->Picture->Bitmap->Canvas, NewRect);
 
    ListBox1->Canvas->Brush->Style = bsClear;
    ListBox1->Canvas->TextOut( Rect.Left+2, Rect.Top,
            ExtractFileName(ListBox1->Items->Strings[Index]));
}

то что-то такое получается. Я не разбирался, почему картинка не совпала с нужным фрагментом; с этим, думаю, не сложно разобраться. Но меня больше смутило, что CopyRect скопировал изображение как-то грязно, хотя рисунок в основании был взят типа bmp.

@nick42 · 29.04.2019, 14:34

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

@Gru2303 · 29.04.2019, 14:54 **[ТС]**

Почему То не работает.

Стиль
Название: Screenshot_2.png
Просмотров: 36

Размер: 2.9 Кб

@nick42 · 29.04.2019, 15:49

Не работает, потому что в слове "третий"(англ) ошибка.

А если серьёзно - не понимаю. Только что попробовал с ещё одним ListBox. Не работает только если стиль Standard.
А-а...! У вас, скорее всего, картинка не bmp, то-есть Caption в ней пустой, а видим на экране результат обработки соотв. утилитой. Вставьте картинку формата bmp (расширение) и проверьте.

@nick42 · 29.04.2019, 23:01

P.S. не Caption, а Canvas (...пить меньше надо).

@Gru2303 · 01.05.2019, 15:20 **[ТС]**

Спасибо за помощь но фон как то странно себя ведет.

Можно как то сделать свой компонент ListBox с прозрачным фоном?

@volvo · 01.05.2019, 18:18

Нет, нельзя. Все, что можно - написано выше. Изначально TListBox - виндовый контрол, который не умеет быть прозрачным. Можно попытаться сделать его как бы прозрачным, рисуя элементы на фоне картинки, но это 1) может быть эффективно только на непрокручивающихся списках 2) чревато глюками или мерцанием при перерисовке формы (то есть, когда форму с таким псевдопрозрачным контролом выводишь за пределы видимой части экрана, и потом возвращаешь назад)

Так что, лучше использовать какой-то другой компонент (ну, или писать свой, полностью удовлетворяющий своим нуждам, вообще с нуля). Но чтобы советовать, какой именно - нужно знать задачу.

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@Gru2303 0 / 0 / 0 Регистрация: 20.04.2019 Сообщений: 11

	RAD XE4+ Прозрачность TListBox 28.04.2019, 19:22. Показов 1096. Ответов 9 Метки c++ builder (Все метки) Всем привет у меня есть картинка и ListBox мне нужно сделать чтобы фон ListBox был прозрачным а текст нет. Чтобы поставить под него картинку. 0

@volvo Супер-модератор 33395 / 21505 / 8236 Регистрация: 22.10.2011 Сообщений: 36,902 Записей в блоге: 12
	28.04.2019, 19:25
	Нельзя сделать TListBox прозрачным, но можно отрисовывать каждый элемент с частью фонового изображения, в результате будет эффект наложения фонового изображения под TListBox. Как-то вот так... (код на Дельфи, но какая разница?) 0

@Gru2303 0 / 0 / 0 Регистрация: 20.04.2019 Сообщений: 11
	29.04.2019, 13:31 [ТС]
	Все перепробовала не получилось. Можешь дать код на C ++ builder. Заранее СПАСИБО! 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	29.04.2019, 14:34
	Мне кажется, если разобраться с прямоугольниками, чтобы был перенос изображения без масштабирования, то и "грязь" на изображении исчезнет. 0

@Gru2303 0 / 0 / 0 Регистрация: 20.04.2019 Сообщений: 11
	29.04.2019, 14:54 [ТС]
	Почему То не работает. Стиль 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	29.04.2019, 15:49
	Не работает, потому что в слове "третий"(англ) ошибка. А если серьёзно - не понимаю. Только что попробовал с ещё одним ListBox. Не работает только если стиль Standard. А-а...! У вас, скорее всего, картинка не bmp, то-есть Caption в ней пустой, а видим на экране результат обработки соотв. утилитой. Вставьте картинку формата bmp (расширение) и проверьте. 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	29.04.2019, 23:01
	P.S. не Caption, а Canvas (...пить меньше надо). 0

@Gru2303 0 / 0 / 0 Регистрация: 20.04.2019 Сообщений: 11
	01.05.2019, 15:20 [ТС]
	Спасибо за помощь но фон как то странно себя ведет. Можно как то сделать свой компонент ListBox с прозрачным фоном? 0

@volvo Супер-модератор 33395 / 21505 / 8236 Регистрация: 22.10.2011 Сообщений: 36,902 Записей в блоге: 12
	01.05.2019, 18:18
	Нет, нельзя. Все, что можно - написано выше. Изначально TListBox - виндовый контрол, который не умеет быть прозрачным. Можно попытаться сделать его как бы прозрачным, рисуя элементы на фоне картинки, но это 1) может быть эффективно только на непрокручивающихся списках 2) чревато глюками или мерцанием при перерисовке формы (то есть, когда форму с таким псевдопрозрачным контролом выводишь за пределы видимой части экрана, и потом возвращаешь назад) Так что, лучше использовать какой-то другой компонент (ну, или писать свой, полностью удовлетворяющий своим нуждам, вообще с нуля). Но чтобы советовать, какой именно - нужно знать задачу. 0