Закруглить углы image

[mitiay]

Собственно сабж.в гугле ничего не нашел

[SQLPowerUser]

Image бросаем на Панель, далее стандартная функция Windows по закруглению углов

procedure MakeRounded(MyControl: TWinControl);
var
  R: TRect;
  Rgn: HRGN;
begin
  R := MyControl.ClientRect;
  Rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 16, 16); //эти параметры определяют эллипс скругления
  MyControl.Perform(EM_GETRECT, 0, lParam(@R));
  InflateRect(R, -2, -2);
  MyControl.Perform(EM_SETRECTNP, 0, lParam(@R));
  SetWindowRgn(MyControl.Handle, Rgn, True);
  MyControl.Invalidate;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Panel1.BevelOuter := bvNone;
  Image1.Left := 0; Image1.Top := 0;
  Panel1.Width := Image1.Width; Panel1.Height := Image1.Height;
  MakeRounded(Panel1);
end;

[mitiay]

Спасибо большое!

[FaTaL]

Но это же закругление самой TPanel, а не картинки.

[SQLPowerUser]

У image нет Handle... Здесь панель подгоняется под размер картинки и получаем результат. Я привел наименее затратное решение

Кстати, кому интересно, здесь, как рисовать гладкие круги без зазубрин, под спойлером переделал (с TCanvas.Pixels) на TBitmap.Scanline