FreePascal.ru

test1:=TLazIntfImage.Create(Bitmap.Width,Bitmap.Height);
test:= Bitmap.CreateIntfImage;
ImgFormatDescription.Init_BPP24_B8G8R8_BIO_TTB(Bitmap.Width,Bitmap.Height);
test1.DataDescription:=ImgFormatDescription;
test1.CopyPixels(test);
bmap&#58 ...

Образец:
https://dl.dropbox.com/u/19158664/screen.jpg

iskander, этот вариант не подходит, если исходное изображение содержит альфаканал. Полупрозрачные пиксели становятся черными.

Добрый день.
Собственно перерыл весь инет в поисках ответа на этот вопрос: как преобразовать 32-хбитный TBitMap в 24-хбитный? Или Хотя бы как нарисовать его на TCanvas 24-хбитного TBitMap так, чтобы пиксели содержащие альфа канал нормально отрисовывались?

Добрый день!
Кто сталкивался с подобным- помогите. Пробую распечатать изображение на цветном принтере - отлично распечатывается, пробую на лазерном - пустой лист. Перепробовал несколько принтеров - результат такой же. Попутно нашёл проблему: если в названии принтера есть русские буквы - вылетает ...