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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TListView and BackGround 
:(
    Опции темы
Illusion Dolphin
Дата 7.3.2004, 08:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 36
Всего: 63
Ка задать фоновый рисунок компоненту TListView? Ещё желательно его отформатировать по нижниму правому углу, как это бывает в папках проводника в ХР.


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
Cheba
Дата 7.3.2004, 15:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


pointless one
***


Профиль
Группа: Vingrad developer
Сообщений: 1777
Регистрация: 27.11.2003
Где: /dev/null

Репутация: 1
Всего: 62
Смитри пример в C:\Program Files\Borland\Delphi7\Demos\Ownerlst.
Для Дэфи 5-6 тоже должны быть.


--------------------
Как правильно задавать вопросы  
PM MAIL ICQ   Вверх
Illusion Dolphin
Дата 7.3.2004, 20:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 36
Всего: 63
Cheba, В этом примере разбирается ДРУГОЙ компонент, и там ни слова нет про фоновый рисунок...


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
z-END
Дата 8.3.2004, 02:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


прафесар™
****


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

Репутация: 11
Всего: 102
Берешь в listView.OnCustomDraw пишешь следующее:
Код
var Img:TBitMap;
begin
Img := TBitmap.Create;
Img.LoadFromFile(... название файла с картинкой...);
ListView1.Canvas.Draw (Arect.Right-Img.Width, Arect.Bottom-Img.Height,Img);
DefaultDraw := true;
Img.Free;
Img:=nil;
end;



--------------------
Каждый чилавек пасвоему праф...а памоему НЕТ! 
PM WWW ICQ   Вверх
Смайлик
Дата 8.3.2004, 08:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
А зачем
Цитата
Img:=nil;
?

Никогда так не делал и вроде проблем не было.
PM MAIL   Вверх
Cheba
Дата 8.3.2004, 20:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


pointless one
***


Профиль
Группа: Vingrad developer
Сообщений: 1777
Регистрация: 27.11.2003
Где: /dev/null

Репутация: 1
Всего: 62
Цитата
там ни слова нет про фоновый рисунок...
Просю прощения. Попутал.
C:\Program Files\Borland\Delphi7\Demos\CustomDraw
Там про TreeView, но уже точно с бэкграундом. smile.gif


--------------------
Как правильно задавать вопросы  
PM MAIL ICQ   Вверх
z-END
Дата 9.3.2004, 15:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


прафесар™
****


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

Репутация: 11
Всего: 102
зачем := nil; чесно говоря может на Timage это делать и не надо, но наприер если ты сделаешь Form.Free; а потом тормознешь программу она не будет = nil; а если сделать так то будетsmile.gif


--------------------
Каждый чилавек пасвоему праф...а памоему НЕТ! 
PM WWW ICQ   Вверх
<Spawn>
Дата 9.3.2004, 18:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


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

Репутация: 44
Всего: 64
Цитата(nJIaKca @ 7.3.2004, 18:34)
Берешь в listView.OnCustomDraw пишешь следующее:
Код
var Img:TBitMap;
begin
Img := TBitmap.Create;
Img.LoadFromFile(... название файла с картинкой...);
ListView1.Canvas.Draw (Arect.Right-Img.Width, Arect.Bottom-Img.Height,Img);
DefaultDraw := true;
Img.Free;
Img:=nil;
end;

Только правильнее было бы сначала загрузить картинку, например, при старте программы и потом только ее римовать, ниаче это будет очень неэффективно.


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
<Spawn>
Дата 9.3.2004, 18:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


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

Репутация: 44
Всего: 64
Цитата(nJIaKca @ 9.3.2004, 07:10)
зачем := nil; чесно говоря может на Timage это делать и не надо, но наприер если ты сделаешь Form.Free; а потом тормознешь программу она не будет = nil; а если сделать так то будетsmile.gif

Я для этого всегда использую FreeAndNil.


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
<Spawn>
Дата 9.3.2004, 18:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


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

Репутация: 44
Всего: 64
Цитата
А зачем
Цитата
Img:=nil;
?

Никогда так не делал и вроде проблем не было.

Представь, что у тебя есть глобальный объект класса TImage(например MyImg). При вызове деструктора, указателю на этот объект не будет присвоено значение nil и тогда если у тебя где нить будет код подобного типа
Код
procedure TForm1.Button1Click(Sender: TObject);
begin
 if Assigned(MyImg) then
   ...
end;


то ты получишь Access Violetion.


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

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

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

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

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

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

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


 




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


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

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