Seoane,
En varios de mis post me estuve haciendo mucho lío con el TPaintBox (y la neta verdad ya totalmente me confundí, no sé
¿cuando darle una utilidad efectiva a un TPaintBox y cuando a una TIMage en Delphi?) por ello quise cambiar todo el código que me orientaste aquí a una TImage, y pensé que solo era cambiar (digamos en un botón) con ImageList1.Draw(Image1.Canvas,0,0,15) para mostrar ese pedazo [15]
Si bien el código no tiene error, me nacieron las siguientes dudas:
a) ¿Como transparentar en el TImage mi BitMap de la TImageList?, pues intenté colocando con las líneas:
Código Delphi
[-]ImageList1.BkColor:=clNone;
ImageList1.BlendColor:= clNone;
ImageList1.DrawingStyle:= dsTransparent;
ImageList1.Masked:= True;
y NO TUVE ÉXITO
Lo propio con:
Código Delphi
[-]Image1.Transparent:=true;
BitMap.TransparentColor:=BitMap.Canvas.Pixels[0,0]; BitMap.Transparent:= True;
BitMap.TransparentMode:= tmFixed;
TAMPOCO
b) ¿
Qué diferencia hay si coloco BitMap.TransparentColor:=BitMap.Canvas.Pixels[1,1];?
Así parece que no transparenta cuando intenté en otra Aplicación de prueba cargando solo una imagen y transparentando como mencioné arriba y nada, pero con [0,0] si funcionaba.
Bueno en fin: entonces a la hora de dibujar
¿Cómo muestro digamos el índice 15 TRANSPARENTADO del TImageList en una TImage?
Mis agradecimientos anticipados por vuestros consejos.