Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Компоненты и классы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #16  
Старый 11.03.2013, 11:59
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

тоже по диагонали прочитал...)))
если обрабатываются все файлы, а не только exe, то нужно сделать еще дефаултную ассоциацию по расширениям, которую тоже добавить в начало списка:
полный дефаулт = 0
txt = 1
doc = 2
...
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #17  
Старый 11.03.2013, 12:03
Аватар для morebeauty
morebeauty morebeauty вне форума
Начинающий
 
Регистрация: 21.06.2012
Сообщения: 106
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
тоже по диагонали прочитал...)))


Процитирую последнее свое сообщение
Цитата:
Ладно, спрошу конкретнее. Чтобы без лишних предположений и тд.

Допустим, у меня УЖЕ есть нарисованный список в ListView. Нужно выбрать итемы у которых свойство ImageIndex=0 (это легко) и поменять их на другие картинки типа TBitmap.

Как это сделать?

Я ведь могу на ходу (в рунтайме) поменять текст любого итема. Так почему с картинками все так сложно?
Ответить с цитированием
  #18  
Старый 11.03.2013, 12:19
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Можно наследника от listview написать и переопределить отрисовку айтемов, там уж хоть с битмапа, хоть с чего бери.

Еще вродо можно на событие OnDrawitem завязаться и рисовать то, что тебе надо.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #19  
Старый 11.03.2013, 13:17
Аватар для morebeauty
morebeauty morebeauty вне форума
Начинающий
 
Регистрация: 21.06.2012
Сообщения: 106
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Блин, ну по любому же компонент хранит в памяти свой собственный TBitmap, а не ссылку на нужный TBitmap в ImageList (УЖЕ ПОСЛЕ ОТРИСОВКИ). Просто для меня пока копаться в коде компонента это проблематично. Я в своей то программе спустя недели две разбираюсь с трудом, что уж говорить про чужой код
Ответить с цитированием
  #20  
Старый 11.03.2013, 13:23
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Да не хранит он битмап, он хранит индекс, при отрисовке ИМИДЖЛИСТ рисует на компоненте.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #21  
Старый 11.03.2013, 13:28
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Смех

VCL TListView == Windows List View Control
VCL TImageList == Windows Image List
так что ковырять придется Windows
Кристиан Гислер же не ковырял Windows для Total Commander
__________________
Пишу программы за еду.
__________________

Последний раз редактировалось NumLock, 11.03.2013 в 13:30.
Ответить с цитированием
  #22  
Старый 11.03.2013, 13:47
Аватар для morebeauty
morebeauty morebeauty вне форума
Начинающий
 
Регистрация: 21.06.2012
Сообщения: 106
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Да не хранит он битмап, он хранит индекс, при отрисовке ИМИДЖЛИСТ рисует на компоненте.
Может и так, да только у ImageList процедура для рисования вызывается вот так.
Код:
ImageList.GetBitmap([index картинки],[Bitmap на который рисуем]);
То есть для того, чтобы он отобразил куда-то на компонент картинку, нам нужен экземпляр класса TBitmap этого компонента. или я чего то путаю?
Ответить с цитированием
  #23  
Старый 11.03.2013, 13:49
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Цитата:
Сообщение от morebeauty
А разве не получится так, что ImageList будет забит целой кучей одинаковых иконок?
Чтобы этого не было нужно хранить не только картинку, но и её CRC. При добавлении новой, проверить со списком уже существующих CRC и на этом делать вывод: добавлять/не добавлять.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #24  
Старый 11.03.2013, 13:51
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

У TImageList-а есть также метод Draw, рисующий на указанном канвасе.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #25  
Старый 11.03.2013, 14:05
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

ListView сам рисует только картинку из ImageList, индекс которой у него в свойстве элемента. ни откуда больше он не будет сам рисовать картинку.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #26  
Старый 11.03.2013, 14:16
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Моя знать, ТС не знать.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #27  
Старый 11.03.2013, 16:53
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от angvelem
Моя знать, ТС не знать.
:^O)

http://desksoft.ru/index.php?s_id=82dcd89a74fe7632fe93ee25f2258974&dr kb=110&id=846&str_path=0|55|106|110
Ответить с цитированием
  #28  
Старый 12.03.2013, 05:55
Аватар для morebeauty
morebeauty morebeauty вне форума
Начинающий
 
Регистрация: 21.06.2012
Сообщения: 106
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Народ, у меня настолько ничего не получается, что даже стыдно выкидывать код. Если кому не сложно, сварганьте простенькую форму с ListView'ом и ImageList'ом.

ImageList будет содержать дефолтную иконку (с индексом 0) и иконку для формата TXT.

ListView должен отображать файлы в корне диска С:
Файлы TXT он должен отображать с иконкой[1] из ImageList, а остальные файлы с родными иконками (как они отображаются в проводнике)
Ответить с цитированием
  #29  
Старый 12.03.2013, 10:08
icWasya icWasya вне форума
Местный
 
Регистрация: 09.11.2010
Сообщения: 499
Репутация: 10
По умолчанию

А если ковырять не ListView, а FileListBox с закладки Win3.1 ?
Ответить с цитированием
  #30  
Старый 12.03.2013, 10:26
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

FileListBox - это УГ.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:52.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter