Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Добавить картинку в imagelist, если есть путь к ней 
:(
    Опции темы
DIMONSOFT
  Дата 22.7.2005, 20:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 19.12.2004
Где: Киев

Репутация: 1
Всего: -3
сабж smile
--------------------
PM MAIL   Вверх
Poseidon
Дата 22.7.2005, 20:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Как добывить? Программно или вручную? Какою картинку?

Вот пример для иконки.
Програмно:
Код
var Ico: TIcon;
begin
Ico:= TIcon.Create;
Ico.LoadFromFile('Путь к иконке');
ImageList1.AddIcon(Ico);
Ico.Free;
end;


Вручную: Кликнуть по компоненту 2 раза, нажать "Добавить", выбрать иконку, нажать "ОК".


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
DIMONSOFT
Дата 27.7.2005, 22:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 19.12.2004
Где: Киев

Репутация: 1
Всего: -3
Цитата(Poseidon @ 22.7.2005, 20:46)
Програмно:

Спасибо большое! smile

--------------------
PM MAIL   Вверх
Song
Дата 29.7.2005, 07:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Sysman.ru
***


Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4
Poseidon
try finally забываешь


--------------------
Прежде чем сказать "Невозможно", подумай, прав ли ты
PM WWW ICQ   Вверх
Poseidon
Дата 29.7.2005, 20:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Song, зачем? Разве этот код может сгенерировать исключение?


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Quadr0
Дата 29.7.2005, 21:46 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 00:54
  Вверх
Poseidon
Дата 30.7.2005, 12:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Код
var Ico: TIcon;
begin
If FileExists('Путь к иконке')
then
  begin
  Ico:= TIcon.Create;
  Ico.LoadFromFile('Путь к иконке');
  ImageList1.AddIcon(Ico);
  Ico.Free;
  end
else ShowMessage('Иконка не найдена');
end;


Не люблю я эти защищенные блоки smile


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Rrader
Дата 30.7.2005, 16:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191
Цитата

Если файл не будет найден (читай если его нет), то сгенерирует. и Ico.Free выполнен не будет, что повлечёт утечку памяти.

2Poseidon
Если файл - не иконка, то также будет утечка памяти. Так что:
Код

var
  Ico: TIcon;    
begin    
  If FileExists('Путь к иконке') then    
  Begin
  Ico:= TIcon.Create;    
    Try      
      Ico.LoadFromFile('Путь к иконке');    
      ImageList1.AddIcon(Ico);    
    Finally
      Ico.Free;
    End;    
  End    
  else ShowMessage('Иконка не найдена');    
end;



--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
Akella
Дата 1.8.2005, 09:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
Цитата(Song @ 29.7.2005, 07:46)
Poseidon
try finally забываешь

я считаю, это лишнее, т.к. чкловеку нужен пример работы со списком иконок, а что делать с этим примером, он и сам разберётся.
PM MAIL   Вверх
Song
Дата 1.8.2005, 09:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Sysman.ru
***


Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4
Цитата(Poseidon @ 29.7.2005, 21:23)
Song, зачем? Разве этот код может сгенерировать исключение?

Исключение может сгенерить что угодно. Даже дельфийский VCL при неблагоприятных условиях (например, при нехватке ресурсных идентификаторов или достаточного количества памяти).
Ты должен в любом случае гарантированно разрушить свой объект, даже если тебе кажется что здесь он будет разрушен 100%.
Добавлено @ 09:51
Цитата(dsergey @ 1.8.2005, 10:19)
я считаю, это лишнее, т.к. чкловеку нужен пример работы со списком иконок, а что делать с этим примером, он и сам разберётся.

Пример должен быть правильным smile


--------------------
Прежде чем сказать "Невозможно", подумай, прав ли ты
PM WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0605 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.