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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Фоновый рисунок в TListView, Подскажите, очень надо 
:(
    Опции темы
Ilya
Дата 1.10.2004, 15:04 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Вот недавно столкнулся с проблемой рисования фонового рисунка в TListView.Подскажите, кто может!
Если можете, то с исходниками.
Заранее спасибо...
  Вверх
Guest
Дата 1.10.2004, 17:16 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Код

procedure TForm1.Button1Click(Sender: TObject);
var
 bit: TBitmap;
begin
 bit := TBitmap.Create;
 Bit.LoadFromFile('C:\TEMP\background.bmp');
 ListView1.Canvas.Brush.Bitmap := bit;
 ListView1.Canvas.FillRect(Rect(0,0,ListView1.Width, ListView1.Height));
end;
  Вверх
Ilya
Дата 11.10.2004, 18:24 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Неа, не пашет...
Рисовать то оно рисует, а вот объекты,которые там находятся(TListItem),когда
перерисовываются стирают уже нарисоыванный фоновый рисунок...
Есть у кого-то ещё какие-то пердложения?Подскажите ПЛЛИЗ
  Вверх
p0s0l
Дата 11.10.2004, 19:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112
Во, так:
Код
procedure TForm1.ListView1AdvancedCustomDraw(Sender: TCustomListView;
 const ARect: TRect; Stage: TCustomDrawStage; var DefaultDraw: Boolean);
var RectSrc : TRect;
begin
 with ListView1 do
 begin
   RectSrc := ARect;
   OffsetRect (RectSrc, ViewOrigin.X, ViewOrigin.Y);
   Canvas.CopyMode := SRCCOPY;
   Canvas.CopyRect(ARect, Bmp.Canvas, RectSrc);
 end;
end;
Только это работает для стилей vsIcon и vsSmallIcon...


--------------------
С уважением, г-н Посол.
PM   Вверх
neutrino
Дата 11.10.2004, 21:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Gothic soul
****


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

Репутация: нет
Всего: 62
Я тут на форуме выкладывал как сделать прозрачный контрол. Может поможет?
Точно помню, что пользовался ф-цией BitBlt.
Добавлено @ 21:42
Эта тема уже была: http://forum.vingrad.ru/index.php?showtopi...9&hl=прозрачный

А это та самая ссылка, что я дал тому человеку: http://forum.vingrad.ru/index.php?showtopi...7&hl=прозрачный


--------------------
The truth comes from within ...

Покойся с миром, Vit 
PM MAIL WWW ICQ Skype GTalk   Вверх
Ilya
Дата 13.10.2004, 18:51 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Спасибо!
Проверим...
  Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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