Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 2488
  • Last Modified:

Image with round corner - Graphics32

I would like to know the best way to create smooth round corners in one image (with different radius; from small up to half width/height) and make this corner transparent.

I found one procedure to draw a rectangle with rounded corners from Kieran Foster (December 7th, 2007), but as explained I need to cut the corners from image in a way that they are smooth and with a rounded shape. The part removed to create the round corner should be transparent.
Thx
0
andrefm
Asked:
andrefm
  • 2
1 Solution
 
epasquierCommented:
On which kind of canvas do you want to draw ?
In a Timage ? a custom component ? Maybe the form itself ?

I ask this because of the "transparency" which is not achieved the same way in all cases. Forms shapes, for example, can have transparent zones thanks to "regions" that are cut out from the normal form rectangle.
For images, it is merely a specific color that is stated as the transparent color, so it is just a matter of painting the outside of the rounded corner with that color.
0
 
epasquierCommented:
Here is an example with TImage :
put a TImage and trackbar. The trackbar have a Min property of 0, and a Max of 100. It will change the percentage of the width/height taken by the rounded corners. 0 = perfect rectangle, 100=ellipse

Add the following code to draw a rounded rectangle, fill it with white, and the corners are transparent (filled with a constant color that is not likely going to be used for the drawing.
To better view the transparency, add a Timage with a loaded image and set it behind the first TImage


type
  TForm1 = class(TForm)
    trckbr1: TTrackBar;
    img1: TImage;
    img2: TImage;
    procedure FormCreate(Sender: TObject);
    procedure trckbr1Change(Sender: TObject);
  private
    procedure PaintCorner;
  public

var
  Form1: TForm1;

implementation

Const
 clTransp=$111213; // transparent color

procedure TForm1.FormCreate(Sender: TObject);
begin
 img1.Picture.Bitmap:=TBitmap.Create;
 img1.Picture.Bitmap.Width:=img1.Width;
 img1.Picture.Bitmap.Height:=img1.Height;
 img1.Picture.Bitmap.TransparentColor:=clTransp;
 img1.Transparent:=True;
 PaintCorner;
end;


procedure TForm1.trckbr1Change(Sender: TObject);
begin
 PaintCorner;
end;

procedure TForm1.PaintCorner;
Var
 W,H,RW,RH:Integer;
begin
 With img1.Picture.Bitmap,Canvas do
  begin
   Pen.Color:=clRed;
   Brush.Color:=clTransp;
   FillRect(ClipRect);
   RW:=Width-1;
   RH:=Height-1;
   W:=Width*trckbr1.Position Div 200;
   H:=Height*trckbr1.Position Div 200;
   Arc(0,0,2*W,2*H,W,0,0,H+1);
   MoveTo(W,0);
   LineTo(RW-W,0);
   Arc(RW,0,RW-2*W,2*H,RW,H,RW-W-1,0);
   MoveTo(RW,H);
   LineTo(RW,RH-H);
   Arc(RW,RH-2*H,RW-2*W,RH,RW-W,RH,RW,RH-H-1);
   MoveTo(W,RH);
   LineTo(RW-W,RH);
   Arc(0,RH,2*W,RH-2*H,0,RH-H,W+2,RH);
   MoveTo(0,H);
   LineTo(0,RH-H);
   Brush.Color:=clWhite;
   FloodFill(RW Div 2, RH Div 2,clRed, fsBorder);
  end;
end;

end.

Open in new window

0
 
andrefmAuthor Commented:
Expected solution using Graphics32, but could easily adapt.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now