Работа с TBitmap

← →
korban1 (2006-01-27 14:53) [0]

Подскажите пожалуйста. У меня есть графический файл с прозрачным фоном. Я его сохраняю с помощю tbitmap( типа 1.bmp) . А вместо прозрачного фона в 1.bmp како-то чорный
В чём проблема

← →
antonn © (2006-01-27 15:09) [1]

может исходный 32 битный, с маской.
а сохраняется 24 бита...

← →
korban1 (2006-01-27 15:50) [2]

Что исходный 32 бита это точно. А как поменять что-бы и сохраняло в 32

← →
korban1 (2006-01-27 15:56) [3]

Кстати исходный png файл.

← →
MBo © (2006-01-27 16:38) [4]

В битмапе нет прозрачного цвета.
Существует соглашение, по которому цвет левого (верхнего или нижнего, не помню) пиксела при выводе определенными способами считается прозрачным

← →
korban © (2006-01-27 22:58) [5]

Проблема в том что не сохраняет файл с прозрачным фоном
Вот текст
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
PNG: TPNGObject;
begin
PNG := TPNGObject.Create;
Bitmap := TBitmap.Create;
{In case something goes wrong, free booth PNG and Bitmap}
try
PNG.LoadFromFile("apply.png");
Bitmap.Assign(PNG); //Convert data into bitmap
Bitmap.SaveToFile("apply.ico");
finally
PNG.Free;
Bitmap.Free;
end;
end;

← →
antonn © (2006-01-28 19:57) [6]

MBo © (27.01.06 16:38) [4]
у 32 битного битмапа есть 1 бит, к 3м остальным(rgb), в котором хранится альфаканал (степень прозрачности от 0 до 255), наверное это и имелось в виду.

korban © (27.01.06 22:58) [5]
а если указать битмапу, что ему нужно родиться 32 битным? :)
Bitmap.pixelformat:=pf32bit; - после рождения выставить

← →
clampo © (2006-01-28 20:26) [7]

чё такое : TPNGObject ?

← →
clampo © (2006-01-28 20:27) [8]

чё такое : TPNGObject ?

← →
antonn © (2006-01-28 21:25) [9]

clampo © (28.01.06 20:27) [8]
а это с дополнительным компонентом идет:)

← →
clampo © (2006-01-29 03:16) [10]

Ндк, это понятно, что компАнент, а чё за компАнент та?

Спасибо за ответы. Вот оказуется в чем загвоздка: когда создаю обьект png.
Надо поменять TransparentMode. Меняю а компилятор выдает что свойсвто только для чтения read-only property. Вот описание:
In order to have more compability between Windows, TBitmap and TPNGObject features, TPNGObject introduces three different transparency modes:

None - When there are no transparent areas in the image

Bit - Each pixel may be full transparent or opaque against the background

Partial - Pixels may be translucid (semi transparent)

TPNGObject provides a read-only property to obtain the transparency mode for the image, TransparentMode property. Also changing TransparentColor property changes the image to Bit transparency mode always, loose partial transparency information.

Что можна сделать. Никак не выходит

Удалено модератором

Работа с TBitmap Найти похожие ветки