Foros Club Delphi - TImage con contorno no rectangular

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - TImage con contorno no rectangular (https://www.clubdelphi.com/foros/showthread.php?t=676)

Hommer

21-05-2003 12:26:00

TImage con contorno no rectangular

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

21-05-2003 12:42:32

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

21-05-2003 15:44:46

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

21-05-2003 15:55:46

Hola,

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

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

La franja horaria es GMT +2. Ahora son las 12:18:14.