|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.07.2017, 13:47 | #1 |
Пользователь
Регистрация: 27.07.2015
Сообщений: 10
|
подскажите как рисовать на компоненте TListBox иконки/битмапы одинакового размера, чтобы они размещались в ряд, как это сделано в TotalCommander
Граждане программисты, подскажите как рисовать на компоненте TListBox иконки/битмапы одинакового размера, что бы они размещались вряд, так как это сделано в TotalCommander при редактировании ButtonBar
buttonBarTotal.jpg Картинки в TListBox должны располагаться в ряд. На форме имеем imageList1 и ListBox1 в imageList1 загружены картинки одного размера далее Понятно что Код:
Что бы в картинки строились в ряд, присваивал Код:
Они то выстраивались в ряд, но наплывали друг на друга, т.е. скролинга картинок по горизонтали в лист боксе не было. Картинки старались поместиться в исходную ширину лист бокса. Последний раз редактировалось Вадим Мошев; 08.07.2017 в 20:53. |
08.07.2017, 23:32 | #2 |
Форумчанин
Регистрация: 16.12.2009
Сообщений: 902
|
Я думаю в TotalCommander используется компонент ListView
Использовать примерно так Код:
Последний раз редактировалось Aliens_wolfs; 09.07.2017 в 00:32. |
23.07.2017, 12:53 | #3 |
Пользователь
Регистрация: 27.07.2015
Сообщений: 10
|
Нет, там TListBox используется в форме редактирования иконок для
TButtonBar |
24.07.2017, 15:57 | #4 |
Форумчанин
Регистрация: 29.10.2015
Сообщений: 273
|
Код:
|
04.08.2017, 15:38 | #5 |
Пользователь
Регистрация: 27.07.2015
Сообщений: 10
|
Фильке за стремление помочь ставлю пять,
за не работающий пример - кол. (Как в фигурном катании - за артистичность 5.0 , за технику 1.0) И так имеется какой-то TImageList, в нем куча картинок (иконок) одинакового размера. Как их отобразить в TListBox что бы они отражались в один ряд, горизонтально и любую из них можно было выбрать. Что мне пришло в бошку, так это бросить на форму TListBox, под ним TScrollBar для прокрутки. Из списка картинок сформировать одну картинку в TBitMap, выстроив их в ряд. И скопировать Бит мап на канву Лист Бокса при прорисовке айтема. Айтем лист бокса только один. Ну и дальше городить отрисовку активной иконки, когда клацаешь мышью... Но в Тотал Коммандоре это сделано как то проще, без того огорода, что мне придумалось... Последний раз редактировалось Dimitr69; 04.08.2017 в 15:40. |
04.08.2017, 18:35 | #6 |
Форумчанин
Регистрация: 29.10.2015
Сообщений: 273
|
|
05.08.2017, 10:00 | #7 |
Пользователь
Регистрация: 27.07.2015
Сообщений: 10
|
Запихнул в IDE Delphi XE2 код и попробовал (Ось - Win7) (возможно несовместимость какая-то).
Да и строки Код:
Короче у меня не заработало... По идее все должно быть просто (то, как это реализовано в Тотал Командоре).... |
05.08.2017, 10:29 | #8 |
Форумчанин
Регистрация: 29.10.2015
Сообщений: 273
|
А что мешает сделать 6 или 13?
А где написано, что должно быть определённое их количество? Это не так... Последний раз редактировалось Filka; 05.08.2017 в 17:36. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль(Файлы). Два типизированных файла одинакового размера. Получить третий файл как сумму элементов. | Артемdgty | Помощь студентам | 8 | 08.10.2013 20:32 |
Что это и как сделано? Как разобраться? | gryz | Microsoft Office Excel | 4 | 07.02.2012 22:48 |
как рисовать график ф-ии с на компоненте TImage? | Владимир1111 | Помощь студентам | 4 | 02.04.2010 10:26 |
Не понятно. Как это сделано | kzld | Microsoft Office Excel | 2 | 31.03.2010 11:24 |
как рисовать на канве битмапы учитывая прозрачность участков битмапа? | Alar | Общие вопросы Delphi | 0 | 29.10.2006 23:06 |