Pages

Friday 23 November 2012

How to make Rounded Corners of Controls and Components in Delphi XE2?

How to make Rounded Corners of Controls and Components in Delphi XE2?

We will show here how can you make rounded corners of various delphi components and controls. We will take an example of delphi panel component. We will drag 4 delphi panels on a delphi form. We have to make the corners of these delphi panels rounded.

Just call a function RoundTheCorners on the OnShow event of the delphi form. RoundTheCorners function again calls MakeRounded function by passing the name of components (panels here) as an argument. MakeRounded  does all the calculations of rounding the corners of delphi components.

procedure TMyForm.RoundTheCorners;
begin
  MakeRounded(Panel1);
  MakeRounded(Panel2);
  MakeRounded(Panel3);
  MakeRounded(Panel4);
end;

procedure TMyForm.MakeRounded(Control: TWinControl);
var
  R: TRect;
  Rgn: HRGN;
begin
  with Control do
  begin
    R := ClientRect;
    rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20);
    Perform(EM_GETRECT, 0, lParam(@r));
    InflateRect(r, - 5, - 5);
    Perform(EM_SETRECTNP, 0, lParam(@r));
    SetWindowRgn(Handle, rgn, True);
    Invalidate;
  end;
end;

No comments:

Post a Comment

About the Author

I have more than 10 years of experience in IT industry. Linkedin Profile

I am currently messing up with neural networks in deep learning. I am learning Python, TensorFlow and Keras.

Author: I am an author of a book on deep learning.

Quiz: I run an online quiz on machine learning and deep learning.