pf15bit. Потестируйте код

← →
DevilDevil © (2011-01-20 17:07) [0]

uses Graphics, TypInfo; procedure TForm1.FormCreate(Sender: TObject); var Bitmap: TBitmap; begin Bitmap := TBitmap.Create; Bitmap.PixelFormat := pf15bit; Bitmap.Height := 1; Bitmap.Width := 1; Caption := GetEnumName(typeinfo(TPixelFormat), integer(Bitmap.PixelFormat)); Bitmap.Free;

← →
DevilDevil © (2011-01-20 17:09) [1]

D6. pfCustom. должен быть pf15bit

← →
Ega23 © (2011-01-20 17:10) [2]

> Потестируйте код

нету try..finally

← →
DevilDevil © (2011-01-20 17:17) [3]

>Ega23 © (20.01.11 17:10) [2]
Смотри надпись в Caption

← →
Ega23 © (2011-01-20 17:22) [4]

> Смотри надпись в Caption

Я до него ещё не дошёл, я пока на отсутствии try..finally остановился.
"План - г..но, я в нём участвовать отказываюсь, я - брезгую!" (с) "Интрены"

← →
DevilDevil © (2011-01-20 17:25) [5]

>"План - г..но, я в нём участвовать отказываюсь, я - брезгую!" (с)
в данном случае я рад

← →
TUser © (2011-01-20 17:28) [6]

поставь галку Use Debug DCUs и посмотри, почему меняется

в 7 меняется на присвоении Width

В исходниках к статье
http://www.delphimaster.ru/articles/pixels/index.html
в методе Attach есть пример, как понять, что в pfCustom на самом деле лежит.

вопрос снимается
этот баг не исправлен и в D2006

меняется, потому что Delphi сравнивает флаг Compression на BI_RGB, а надо анализировать поля с флагом BI_BITFIELDS

pf15bit. Потестируйте код Найти похожие ветки