VPF::Есть две BMP'шки и TImage..... - Форум программистов

Sniper

Дата 10.6.2002, 22:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Короче так... вот есть две картинки... и такая проблема...
Сначала рисуется одна картинка в TImage, а при наведении мыши вместо этой картинки должна нарисоваться другая..... всё работает.... только как это проделать быстрее, что бы не было видно мерцания? Может есть другие методы решения проблемы..... посоветуйте..... :-)

--------------------

"Я испытываю отвращение к системе, разработаннной для "пользователя", если в слове "пользователь" закодировано уничижительное значение "тупой и примитивный".
Кен Томпсон, создатель Unix

Vit

Дата 10.6.2002, 23:08 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

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

Репутация: 1
Всего: 207

OpenGL, DirectX и т.п. методы быстрой работы с графикой...

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Baa

Дата 10.6.2002, 23:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: нет
Всего: 12

Кстати, можно создать контекст в памяти, а лучше 2 и менять их местами, а не згрузить бмпшки ( сначала надо скопировать бмпшки в эти контексты )

--------------------

"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande

Song

Дата 11.6.2002, 07:17 (ссылка)

(нет голосов)

Загрузка ...

Sysman.ru

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

Репутация: нет
Всего: 4

Parent.DoubleBuffered:=True
поможет но не сильно.

--------------------

Прежде чем сказать "Невозможно", подумай, прав ли ты

Sniper

Дата 11.6.2002, 18:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Цитата(Vit @ 11.6.2002, 00:08)

OpenGL, DirectX и т.п. методы быстрой работы с графикой...

)

Vit, меня чё-то не радует для этого создавать контекст OpenGL.... и уж тем более в Direct'е:-)))

Хорошо...(поставлю вопрос прямо...) как тогда в Q3 менюха сделана?

--------------------

Baa

Дата 11.6.2002, 19:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: нет
Всего: 12

Вот, вроде нормально работает...

Код


procedure TForm1.Panel1Click(Sender: TObject);
var
  FirstDC,
  SecondDC,
  CurrDC       : HDC;

  FirstBitmap,
  SecondBitmap : HBITMAP;
begin
  CurrDC   := GetDC(Panel1.Handle);
  FirstDC  := CreateCompatibleDC(CurrDC);
  SecondDC := CreateCompatibleDC(CurrDC);

  FirstBitmap  := Image1.Picture.Bitmap.Handle;
  SecondBitmap := Image2.Picture.Bitmap.Handle;

  SelectObject(FirstDC, FirstBitmap);
  SelectObject(SecondDC, SecondBitmap);

  BitBlt (CurrDC, 0, 0, 256, 256, FirstDC, 0, 0, SRCCOPY );
  Sleep  (1000);
  BitBlt (CurrDC, 0, 0, 256, 256, SecondDC, 0, 0, SRCCOPY );

  ReleaseDC(Panel1.Handle, CurrDC);

  DeleteDC(FirstDC);
  DeleteDC(SecondDC);

  DeleteObject(FirstBitmap);
  DeleteObject(SecondBitmap);
end;

--------------------

"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »