Estimados Foristas:
Soy relativamente nuevo en el Foro y en la OOP con Delphi. Un cliente me ha pedido una pequeña aplicación para crear las identificaciones personales para nieveles de acceso a su Empresa y he utilizado un truco o mas bien un tutorial publicado de manera fenomenal por "
escafandra" en DelphiAccess, titulado
Transparencias. Mi gratitud por este valioso aporte.
Ahora, he logrado implementar un método OnChange de un TTrackBar con el objetivo de ir incrementando o disminuyendo la Transparencia de la imagen de fondo a gusto del cliente.
Para lograrlo en el Create del Formulario incluí entre otras esta línea:
Image4.Picture.Bitmap.Assign(Image2.Picture.Bitmap);
Con el objetivo de tener la imagen original disponible para aplicar un nivel de transparencia y en el OnChange del TrackBar puse lo siguiente:
Image2.Picture.Bitmap.PixelFormat := pf32bit;
Image2.Picture.Bitmap.Assign(Image4.Picture.Bitmap);
DrawSemiTransparent(Image2.Canvas, Image3.Picture.Bitmap, TrackBar1.Position);
Invalidate;
Esto me funciona bien, aunque no sé si será la más profesional, solo que para terminar con un toque de profesionalismo me gustaría que ustedes me lo evaluaran y me dieran su criterio, pero que además me ayuden a buscar una solución al parpadeo de la imagen mientras le cambio la transparencia:
Esta es la Imagen despues de aplicar la transparencia