In the demo \Demos\Database\DBMultiBitmap_AllRecords, I append images from PNG files with transparency:
fDBMultiBitmap.AppendImage('InTest.PNG');
I set the compression to UNCOMPRESSED:
procedure TForm1.DBMBitmapOnGetSaveParams(Sender: TObject; const Filename: string; Params: TIOParams);
begin
Params.TIFF_Compression := ioTIFF_UNCOMPRESSED;
end;
Then I save the image that is currently selected in ImageEnMView1 with:
fDBMultiBitmap.GetImageToFile(idx, 'OutTest.PNG');
Unfortunately, the transparency in the saved PNG file is lost!
How can the PNG transparency be preserved in this process?
(also PNG_TextKeys should be preserved)
Search
