Ver Mensaje Individual
  #2  
Antiguo 14-06-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita