Reducir una TImageList por encima

[[seoane]]

Empezado por Deiv

Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin 
  Bitmap.Free; 
  tempBmp.Free; 
end;

No veo ningún problema en ese código. Aunque yo no cargaría las imágenes cada vez que quieras dibujar una de las imágenes, lo cargaría todo al principio. Me explico:

Código Delphi [-]
// Aqui dibujamos las imagenes en 2 filas y 9 columnas
procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: integer;
begin
  for i:= 0 to 9 do
    for j:= 0 to 1 do
      Imagelist1.Draw(PaintBox1.Canvas,i*50,j*50,i+(j*10));
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Bitmap, Recorte: TBitmap;
begin
  Bitmap:= TBitmap.Create;
  Recorte:= TBitmap.Create;
  try
    Bitmap.LoadFromFile('d:\dibujo.bmp');
    ImageList1.Clear;
    ImageList1.Width:= Bitmap.Width div 10;
    ImageList1.Height:= Bitmap.Height div 2;
    Recorte.Width:= Bitmap.Width;
    Recorte.Height:= Bitmap.Height div 2;
    Recorte.Canvas.CopyRect(Recorte.Canvas.ClipRect,
      Bitmap.Canvas,Rect(0,0,Bitmap.Width,Bitmap.Height div 2));
    Imagelist1.AddMasked(Recorte, Recorte.Canvas.Pixels[0,0]);
    Recorte.Canvas.CopyRect(Recorte.Canvas.ClipRect,
      Bitmap.Canvas,Rect(0,Bitmap.Height div 2,Bitmap.Width,Bitmap.Height));
    Imagelist1.AddMasked(Recorte, Recorte.Canvas.Pixels[0,0]);
  finally
    Bitmap.Free;
    Recorte.Free;
  end;
end;

Si te fijas al cargar las imágenes en el TImagelist, primero añadimos una fila y la otra a continuación. A la hora de dibujar solo tenemos que utilizar como índice el numero de columna + el numero de fila * 10, por ejemplo el elemento [5,1] tendría como índice 5+(1*10)=15.

[Deiv]

Acabo de observar algo interesante, que si cargamos un BitMap de resolución 256 colores o 24 Bits con Bitmap.LoadFromFile('Archivo.BMP'); carga muy bien, pero este mismo archivo lo he modificado y regrabado en Photoshop con una resolución de 32 bits, y al correr el programa me lanza error en la línea de: Bitmap.LoadFromFile('Archivo.BMP') devolviendome un error:

"Project Transparente.exe raised exception class EReadError with message 'Stream read error'. Process stopped. Used Step or Run to continue ."

¿Debo limitarme a resoluciones menores que 32 bits?

[Deiv]

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]; //Tiene fondo blanco
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.

[Deiv]

Pues lo he resuelto de esta manera:

Código Delphi [-]
    Image1.Transparent:= True;
    Image1.Picture.Bitmap.TransparentMode:= tmFixed;
   
    Image1.Picture.Bitmap.PixelFormat:= pf32bit;  
    Image1.Picture.Bitmap.Transparent := True;
    Image1.Picture.Bitmap.TransparentColor:= clWhite;
    Form1.DoubleBuffered:= True

Y lo dibujo en:

Código Delphi [-]
    Image1.picture.bitmap.PixelFormat:= pf32bit;
    Image1.picture.bitmap.canvas;
    ImageList1.GetBitmap(0,Image1.Picture.Bitmap);

Para mis conocimientos me costó mucho e inclusive aún dudo si más adelante lo implemento me trabaje bien.