Hola,
Tengo una imágen de 128x640 pixels (donde se encuentra dibujado una Letra cada 64 pixels en 2 filas [10 letras encima y 10 letras abajo] c/64 pixels) que lo cargo con una TImageList (cual si fuera una matriz de 10x10), el código de abajo dibujándolo en un TPaintBox :
ImageList1.Draw(PaintBox1.Canvas,0,0,0)
me muestra el elemento [0,0] (primero de la fila 1); lo que intento es mostrar en este PaintBox el elemento [1,1] es decir por ejemplo, el SEGUNDO elemento de la Segunda Fila de mi imagen. No sé como realizarlo ya que el ImageList no tiene la propiedad TOP, entonces no avanzo.... ¿Existe alguna forma de reducir por código el tamaño de una TImageList o en su defecto del TPaintBox por encima para que me muestre los elementos de la parte inferior de mi Imagen?
Código Delphi
[-]var
Bitmap: TBitmap;
begin
Bitmap:= TBitmap.Create;
try
BitMap.LoadFromFile(getcurrentdir+'/Doble.bmp');
ImageList1.Width:= Bitmap.Width div 10;
ImageList1.Height:= Bitmap.Height div 2; ImageList1.Masked:= FALSE;
ImageList1.Add(Bitmap,nil);
finally
Bitmap.Free;
end;
end;