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

Posted by obzor under Delphi

Как в Delphi закруглить углы image?

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;

тема на форуме

Похожие статьи

• Заливка замкнутого контура, как в Paint
• Рисование эллипса удержанием кнопки на любом месте TImage
• Вращение шестиугольника в Делфи 7
• Нарисовать стрелку на Делфи
• Нарисовать флаг Дании и Швейцарии
• Движение обьекта на заданный угол
• Соединить 2 edit линией
• Крестики нолики исходник
• Как нарисовать стрелку в конце эллиптической дуги?
• Как сделать выделение кнопки как в delphi?