Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.06.07;
Скачать: CL | DM;

Вниз

отрисовка в image   Найти похожие ветки 

 
Kos ©   (2009-04-03 21:04) [0]

Подскажите, пожалуйста, как можно отобразить на Image быстро и корректно? Имеется матрица со значениями цветов RGB, известна ширина, высота картинки. С помощью Image.Canvas.Pixels[i,j] долго, а с помощью API функции SetDIBits иногда Canvas белого цвета, глючная функция. Есть другие методы?


 
Игорь Шевченко ©   (2009-04-03 21:11) [1]

есть. заполнять битмап в памяти и выполнять bitblt. Примерно так работает doublebuffering


 
KilkennyCat ©   (2009-04-03 21:17) [2]

Есть еще статья http://www.delphimaster.ru/articles/pixels/index.html


 
Игорь Шевченко ©   (2009-04-03 21:27) [3]


> с помощью API функции SetDIBits иногда Canvas белого цвета,
>  глючная функция


Надеюсь, Microsoft извещен о том, что сделал глючную функцию и должен возместить моральный ущерб ?


 
KilkennyCat ©   (2009-04-03 21:35) [4]

Моральный, потому что белывй цвет - цвет траура. В Японии (или Китае, вообщем - там).


 
Kos ©   (2009-04-23 20:40) [5]

Приведу пример кода, может подскажет кто, что не так? Вот если размер изображения не превышает размера image, то изображение отображается, если превышает, то image белый, Bitmap пустой. Возможно, надо память выделить под BitMap. Матрица arraycolor заполнена правильно.


BM : TBitmap;
DC : HDC;
HB : HBitmap;
Bi : PBitmapInfo;
arraycolor : array of integer;

 BM := TBitmap.Create;
 DC:=GetDC(Form1.Handle);
 BM.Height := h;
 BM.Width := w;
 image1.Picture.Bitmap.Height := h;
 image1.Picture.Bitmap.Width := w;
 HB:= BM.Handle;
 GetMem(Bi,sizeof(TBitmapInfoheader));

 Bi^.bmiHeader.biSize:= sizeof(bi.bmiHeader);
 Bi^.bmiHeader.biWidth:= w;
 Bi^.bmiHeader.biHeight:= h;
 Bi^.bmiHeader.biPlanes:= 1;
 Bi^.bmiHeader.biBitCount:= 32;
 Bi^.bmiHeader.biCompression:= BI_RGB;
 Bi^.bmiHeader.biSizeImage:= 0;
 Bi^.bmiHeader.biClrUsed:= 0;
 Bi^.bmiHeader.biClrImportant:= 1;

 SetDIBits(DC,HB,0,h,arraycolor,Bi^,DIB_RGB_COLORS);

 BM.Canvas.Refresh;
 Image1.Picture.Bitmap.Assign(BM);
 image1.Invalidate;



Страницы: 1 вся ветка

Текущий архив: 2009.06.07;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.01 c
2-1240308814
aza
2009-04-21 14:13
2009.06.07
Помогите редактировать записи..


15-1238840732
ZeroDivide
2009-04-04 14:25
2009.06.07
Кто-то тут по поводу труб сокрушался...


15-1238549794
brother
2009-04-01 05:36
2009.06.07
Обсудим факт?


3-1222029089
Раиса
2008-09-22 00:31
2009.06.07
ClientDataSet и Insert .... select ... from что?


15-1238775478
Garfunkel
2009-04-03 20:17
2009.06.07
TMidiGen - модуль для создания midi звуков