Ver Mensaje Individual
  #1  
Antiguo 14-10-2006
Deiv Deiv is offline
Miembro
 
Registrado: jul 2005
Ubicación: La Paz - Bolivia
Posts: 364
Reputación: 19
Deiv Va por buen camino
Unhappy Reducir una TImageList por encima

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;  //Le indico mostrar la primera fila
    ImageList1.Masked:= FALSE;
    ImageList1.Add(Bitmap,nil);
  finally
    Bitmap.Free;
  end;
end;
Responder Con Cita