TImage con contorno no rectangular

Hommer · #1 21-05-2003

Hola a todos.
¿Alguien conoce algún componente con el que se pueda pintar una imagen cuyo contorno no sea el típico marco de 4 lados rectos con ángulos de 90º? (Espero que se me entienda)
Es decir, yo tengo un dibujo (BMP, GIF o lo que sea) que quiero mostrar como presentación mientras se carga mi aplicación, pero al ponerlo como un TImage sobre un TForm, aunque esté recortado o sea transparente, siempre se ve el fondo del TForm completando la forma rectangular del mismo.
Vamos, es el efecto que hacen, por ejemplo, los programas de reproducción de música, que son carátulas de formas "recortadas", no cuadradas.

Gracias por cualquier contestación,
Hommer.

guillotmarc · #2 21-05-2003

Hola.

Prueba esto, en el Create del Form pones :

Código:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.Brush.Style := bsClear;
  Self.BorderStyle := bsNone
end;

Con esto el formulario ya es transparente. Ahora tienes que poner un TImage en el Formulario, y asignarle una imagen de tipo bitmap. Si asignas la propiedad Transparent a True, ya no saldrán los bordes (todo el borde a recortar tiene que ser de un mismo color)

Saludos.

delphi.com.ar · #3 21-05-2003

Tenés que crear regiones irregulares, te recomiendo leer sobre las WinApis CombineRgn, CreateEllipticRgn, CreatePolygonRgn...
Seguramente en Torry u otro sitio exista algún componente para esto, lamento no poder pasarte los fuentes de lo que tengo hecho, pero voy a ver si puedo armar un paquete.

Saludos!

shaktale · #4 21-05-2003

Hola,

tienes componentes para hacer lo que quieres (alguno gratis) en:

http://www.torry.net/nonrect.htm