Timage con bordes redondeados

[ecfisa]

Hola Jars.

Una posibilidad es usar un TImage con su propiedad Align = alClient, dentro de un TPanel y redondear los bordes de este último.

Revisá este enlace de about.com: Rounding control corners.

Aumentá los valores de la siguiente línea si deseas obtener mayor curvatura de las esquinas, ejemplo:

Código Delphi [-]
  rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 70, 70); // 80, 80 o 100, 100 , etc.

Tendrías que llamar a la función de este modo:

Código Delphi [-]
  DrawRounded(Panel1);

Saludos.