Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Опять TFastDIB :))) и TImage [D7, WinXP]


PenguinX ©   (2004-06-22 15:53:00) 

Есть ли способ "передать" изображение из контекста устройства в TFastDIB быстрее, чем попиксельная закраска с помощью Windows.GetPixel и TFastDIB.SetPixel? Простое присваивание FastDIB.hDC := DC не прводит ни к чему. (Например при вызове FastFX.Rotate90CW(FastDIB, FastDIB2) и последующем Image1.Canvas.Handle := FastDIB2.hDC Image1 просто заполняется чёрным фоном ==> при переворачивании используется не свойство hDC, а Pixels**.
Помогите, пожалуйста!


PenguinX   (2004-06-23 08:34:00) [1]

2Sapersky
Я Вам безмерно благодарен! Если нужны какие компоненты или модули - пишите - у меня довольно обширная коллекция.


Sapersky   (2004-06-23 00:36:00) [2]

Ещё Image1.Refresh в конце.


Sapersky   (2004-06-23 00:31:00) [3]

А наоборот нельзя - грузить и всю обработку делать в FastDIB, а рисовать в TImage? Cм. пример Bumpmap, функцию SetThumbnail.
Ну если уж очень хочется грузить в TImage, можно сделать так (для 24-битных битмапов):

Var
 FDIB : TFastDIB;
 b : TBitmap;

b:=Image1.Picture.Bitmap;
FDIB:=TFastDIB.Create;
FDIB.SetInterface(b.ScanLine[b.Height-1], b.Width, b.Height, 24, 0, 0, 0);
FDIB.FreeBits:=False;
<...>
FDIB.Free;


PenguinX   (2004-06-22 22:35:00) [4]

Неужели никто не знает?


Наверх

Титульная страница Поиск, карта сайта Написать письмо