TImage with rounded corners

[codeman]

Hi ALL

How can i display a picture from file with rounded cornders?
I want to display img1 (see on attachments) like img2 with rounded corners, i cant find the way, any help is appreciated, thanks!

I get rounded image but its empty..

Code: [Select]

     img2.Picture.LoadFromFile('..');
     img2.Picture.Bitmap.SetSize(img2.Width, img2.Height);
     img2.Transparent:= True;
     img2.Picture.Bitmap.TransparentColor:=$FFFEFD;
     img2.Canvas.Brush.Color:=$FFFEFD;
     img2.Canvas.FillRect(0, 0, img2.Width, img2.Height);
     //img2.Canvas.Brush.Color:=clBlack;
     //img2.Canvas.Pen.Color:=clBlack;
     img2.Canvas.RoundRect(0, 0, img2.Width, img2.Height, 50, 50);


[jamie]

I think what you are looking for is a region applied to the canvas.

First look here
https://lazarus-ccr.sourceforge.io/docs/lcl/lclintf/createroundrectrgn.html

Create the surface area you wish and then apply it to the canvas you are drawing on, then draw the image to it.

The corners will be excluded from the drawing and give you a rounded corner results.

but then again, I maybe off on another planet.

[paweld]

try BGRABitmap: https://github.com/bgrabitmap/bgrabitmap/releases
tutorials: https://wiki.freepascal.org/BGRABitmap_tutorial
Sample code:

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

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   image, bmp: TBGRABitmap;
4. begin
5.   image := TBGRABitmap.Create('d:\bear.jpg');
6.   bmp := TBGRABitmap.Create(image.Width + 1, image.Height + 1, panel1.Color);
7.   bmp.FillRoundRectAntialias(0, 0, image.Width, image.Height, 15, 15, image);
8.   bmp.RoundRectAntialias(1, 1, image.Width - 1, image.Height - 1, 15, 15, clBlack, 2);
9.   image.Free;
10.   bmp.Draw(panel1.Canvas, (panel1.Width - bmp.Width) div 2, (panel1.Height - bmp.Height) div 2, True);
11.   bmp.Free;
12. end;

[lainz]

There's a component in BGRAControls, TBCRoundedImage.