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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> нарисовать Bitmap на Canvas'e, TShellListView, как?! 
:(
    Опции темы
0LineGate
Дата 3.6.2007, 20:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 176
Регистрация: 17.2.2007
Где: Россия, Тула

Репутация: нет
Всего: 2
у меня есть TShellListView как на фоне нарисовать то что у меня в Image1?..

такой код почему-то не работает...

Код

ShellListView1.Canvas.Draw(0,0,Image1.Picture.Graphic);
ShellListView1.Repaint;


как будет правильно?... у меня лично вообще никаких предположений... :(
PM MAIL WWW Skype   Вверх
aktuba
Дата 4.6.2007, 09:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: нет
Всего: 38
Судя по
Код

ShellListView1.Repaint;


код ты расположил не в OnPaint, а зря  smile 


--------------------
user posted image
PM MAIL WWW Skype   Вверх
0LineGate
Дата 4.6.2007, 09:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 176
Регистрация: 17.2.2007
Где: Россия, Тула

Репутация: нет
Всего: 2
интересно где ты нашёл событие OnPaint у TShellListView  smile 
PM MAIL WWW Skype   Вверх
ivan219
  Дата 4.6.2007, 17:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 4
Всего: 12
Если нет то никто немешает это организовать smile 


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
0LineGate
Дата 5.6.2007, 14:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 176
Регистрация: 17.2.2007
Где: Россия, Тула

Репутация: нет
Всего: 2
...как?...
PM MAIL WWW Skype   Вверх
ivan219
  Дата 6.6.2007, 16:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 4
Всего: 12
Посмотри как организован класс TCustomControl


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
0LineGate
Дата 7.6.2007, 15:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 176
Регистрация: 17.2.2007
Где: Россия, Тула

Репутация: нет
Всего: 2
Код

  TCustomControl = class(TWinControl)
  private
    FCanvas: TCanvas;
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
  protected
    procedure Paint; virtual;
    procedure PaintWindow(DC: HDC); override;
    property Canvas: TCanvas read FCanvas;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;


а толку-то... 

таки как нарисовать Bitmap на Canvas'e TShellListView'а?..
PM MAIL WWW Skype   Вверх
ivan219
  Дата 7.6.2007, 19:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 4
Всего: 12
Упссс маленько вопрос непонял smile извини не в ту степь ушол smile 

Вот так работает smile 
Код

procedure TForm1.FormPaint(Sender: TObject);
begin
 ShellListView1.Canvas.Draw(0,0,Image1.Picture.Graphic);
end;

Правда коряво smile 

Надо OnPaint самому TShellListView делать smile 

Это сообщение отредактировал(а) ivan219 - 7.6.2007, 20:05


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
ivan219
  Дата 7.6.2007, 20:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 4
Всего: 12
Жаль его исходного кода нет smile 


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
ivan219
  Дата 10.6.2007, 16:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 4
Всего: 12
Цитата(ivan219 @  7.6.2007,  20:07 Найти цитируемый пост)
Жаль его исходного кода нет

А он и ненужен smile 

Так что если вопрос всё ещё актуален вот компонент в котором есть событие OnPaint smile 

Правда всёравно коряво получается smile 

Это сообщение отредактировал(а) ivan219 - 10.6.2007, 16:07

Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  ShellListViewOnPaint.rar 0,39 Kb


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
0LineGate
Дата 10.6.2007, 17:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 176
Регистрация: 17.2.2007
Где: Россия, Тула

Репутация: нет
Всего: 2
ещё не смотрел, посмотрю - дам + smile
PM MAIL WWW Skype   Вверх
Ak47black
Дата 21.6.2007, 11:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0
Если я правильно понял, то тут у вас проблемы с отловом событий.
Как вариант вам тогда можно перенаправить процедуру обработки сообщений WindowProc у любого компонента TWinControls и самому поотлавливать любое событие.
Тоесть делаем так 
  • Создаем свою процедуру обработки (WindowProc)
  • Сохраняем старый адрес WindowProc  у компонента
  • Приравниваем к WindowProc  свою процедуру обработки
  • И в своей процедуре обрабатываем сообщение и  вызываем старую процедуру WindowProc (или вообще не вызываем если обработали)


Это сообщение отредактировал(а) Ak47black - 21.6.2007, 11:27
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

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

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

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

FAQ раздела лежит здесь!

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

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


 




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


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

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