New version of BGRABitmap

[circular]

Exactly. BGRABitmap was and is one of the best libraries I worked with.

I am very much touched by your kind words. <3

[circular]

BGRABitmap v11.5.5

- pixel resolution support for BMP, TIFF, JPEG, PCX, PNG, PSD
- add YCbCr colorspace family based on sRGB
- compatibility with older/newer Lazarus
- BGRABitmap4NoLCL package completely independant from LCL

https://github.com/bgrabitmap/bgrabitmap/releases

[lainz]

Thanks for the new version.

What are the main differences with BGRABitmap4nogui and BGRABitmap4nolcl? Who are the target applications for each one?

[circular]

BGRABitmap4nogui is in fact related to the LCL, but without graphic user interface (no GUI). So one can use for example LazFreeType with it.

BGRABitmap4nolcl is completely independant from the LCL. There is no more font rendering (neither system rendering nor from TrueType files). Though with another program that has the LCL, you could prepare a TBGRAVectorizedFont, compute necessary glyphs, save it to a file with SaveGlyphsToFile. Then in the program without LCL, load the file with LoadGlyphsFromFile.

Note that MSEgui provides system rendering of fonts, so this incorporated into an MSEgui program, you have the usual font rendering:
https://github.com/bgrabitmap/bgrabitmap/issues/139#issuecomment-1672184739

[qk]

Thanks for the new version!
When will it be available on OPM?

Regards

[KodeZwerg]

When I try to display Images, I just getting a black screen, what am I missing or do wrong?

Code: Pascal  [Select][+][-]

1. procedure AssignBase64ToImage(const ABase64String: AnsiString; const AImage: TImage);
2. var
3.   bytes: TBytes;
4.   graphic: TBGRABitmap;
5.   stream: TStream;
6.   bmp: TBitmap;
7. begin
8.   AImage.Picture.Clear;
9.   bytes := Base64ToBytes(ABase64String);
10.   if IsBRGACompatible(bytes) then
11.     begin
12.       graphic := TBGRABitmap.Create;
13.       try
14.         stream := TBytesStream.Create(bytes);
15.         try
16.           graphic.LoadFromStream(stream);
17.           bmp := TBitmap.Create;
18.           try
19.             bmp.Assign(graphic.Bitmap);
20.             AImage.Picture.Assign(bmp);
21.           finally
22.             bmp.Free;
23.           end;
24.         finally
25.           stream.Free;
26.         end;
27.       finally
28.         graphic.Free;
29.       end;
30.     end;
31. end;

[phoenix27]

Circular, can BGRABitmap be used in Delphi?

[lainz]

Circular, can BGRABitmap be used in Delphi?

Yes both bgrabitmap and bgracontrols

You need to use bgrabitmap 4 Delphi repository

[lainz]

When I try to display Images, I just getting a black screen, what am I missing or do wrong?

Code: Pascal  [Select][+][-]

1. procedure AssignBase64ToImage(const ABase64String: AnsiString; const AImage: TImage);
2. var
3.   bytes: TBytes;
4.   graphic: TBGRABitmap;
5.   stream: TStream;
6.   bmp: TBitmap;
7. begin
8.   AImage.Picture.Clear;
9.   bytes := Base64ToBytes(ABase64String);
10.   if IsBRGACompatible(bytes) then
11.     begin
12.       graphic := TBGRABitmap.Create;
13.       try
14.         stream := TBytesStream.Create(bytes);
15.         try
16.           graphic.LoadFromStream(stream);
17.           bmp := TBitmap.Create;
18.           try
19.             bmp.Assign(graphic.Bitmap);
20.             AImage.Picture.Assign(bmp);
21.           finally
22.             bmp.Free;
23.           end;
24.         finally
25.           stream.Free;
26.         end;
27.       finally
28.         graphic.Free;
29.       end;
30.     end;
31. end;

Create a tbgrabitmap and load from stream. Then assign to picture bitmap the bgrabitmap.bitmap, no need to use a temporary tbitmap. Also notice that you're freeing the bgrabitmap, that causes the tbitmap to don't be available anymore...

Or search the forums this was discussed already

[KodeZwerg]

Create a tbgrabitmap and load from stream. Then assign to picture bitmap the bgrabitmap.bitmap, no need to use a temporary tbitmap. Also notice that you're freeing the bgrabitmap, that causes the tbitmap to don't be available anymore...

Or search the forums this was discussed already

Same result. I try search forum okay.

I've overread your "free and it's gone", yes that is my problem, without free it display but thats somehow not what I wanted to have, a memoryleak.
I need to rethink ...

[lainz]

If I remember correctly there is a function called makeBitmapCopy that you can use to avoid this problem.

[KodeZwerg]

If I remember correctly there is a function called makeBitmapCopy that you can use to avoid this problem.

Thank you lainz, later I try to investigate it deeper.
ATM I am fine by doing it like this:

Code: Pascal  [Select][+][-]

1.           graphic.LoadFromStream(stream);
2.           bmp := TBitmap.Create;
3.           try
4.             bmp.PixelFormat := pf32bit;
5.             bmp.Transparent := True;
6.             bmp.SetSize(graphic.Width, graphic.Height);
7.             bmp.Canvas.Lock;
8.             try
9.               bmp.Canvas.Draw(0, 0, graphic.Bitmap);
10.             finally
11.               bmp.Canvas.Unlock;
12.             end;
13.             AImage.Picture.Assign(bmp);

Regards, KodeZwerg
BGRABitmap rocks!

[paweld]

@circular: Thank you very much.

[circular]

You're welcome 

Hi KodeZwerg!

Indeed, what happens here is that the raster data of the bitmap is shared when assigning it.

In the end, it seems you've written something a bit similar to MakeBitmapCopy, except maybe with transparent background. It is probably not portable to other systems, but if that works for you that's all good.

[KodeZwerg]

You're welcome 

Hi KodeZwerg!

Indeed, what happens here is that the raster data of the bitmap is shared when assigning it.

In the end, it seems you've written something a bit similar to MakeBitmapCopy, except maybe with transparent background. It is probably not portable to other systems, but if that works for you that's all good.

Yeah, I didnt knew it better to help myself.
Maby you having a solution for me by calling the MakeBitmapCopy() method correct?

Code: Pascal  [Select][+][-]

1.             bmp.PixelFormat := graphic.Bitmap.PixelFormat;
2.             bmp.Transparent := graphic.HasTransparentPixels;

This is how I currently do with my old way of doing but I having no idea about the arguments to put into MakeBitmapCopy() so it would work with whatever the transparency might be to work for all cases, like Icons or PNG's etc....
I am not that deep into graphics to find out on my own.
I've cloned current repo of your wonderful package but did not found any example usage for MakeBitmapCopy().
I guess in the end I just could "TImage.Picture.Bitmap := TBGRABitmap.MakeBitmapCopy(missing arguments...);"