Cómo utilizar el método CopyRect en Delphi

Question

Estoy cargando una imagen de disco y quiere copiar (parte de) a un segundo TImage:

Image1.Picture.LoadFromFile(S); 
with Image1.Picture.Bitmap do 
    Image2.Canvas.CopyRect(Image2.Canvas.ClipRect, Canvas, Canvas.ClipRect); 

Image2 simplemente muestra un rectángulo blanco, y Image1 doesn' t mostrar el archivo desde el disco. Si elimino la segunda declaración, Image1 muestra la imagen. (Lo más curioso: si solo comento la instrucción CopyRect y dejo la línea "con" (instrucción vacía) ¡La imagen 1 tampoco aparece!)

¿Cómo uso CopyRect para copiar parte de una imagen?

edición
Cuando me separé de los dos estados en dos acciones separadas (botones) ocurre lo siguiente:

1. imagen se carga y espectáculos en Image1
2. Image1 desaparece, y muestra Image2 (!) un rectángulo blanco.

Por cierto, estoy usando Delphi 2009.

Answer 1

TCanvas.CopyRect copias del rectángulo utilizando StretchBlt. StretchBlt requiere un mapa de bits. Si está cargando cualquier otro tipo de gráfico a su imagen, entonces su Picture.Bitmap está vacío. De hecho, el mapa de bits se crea justo cuando se refiere a él: with Image1.Picture.Bitmap do.

Puede utilizar un mapa de bits temporal para la causa:

var 
    Bmp: TBitmap; 
begin 
    Image1.Picture.LoadFromFile(S); 

    Bmp := TBitmap.Create; 
    try 
    Bmp.Assign(Image1.Picture.Graphic); 

    with Bmp do 
     Image2.Canvas.CopyRect(Image2.Canvas.ClipRect, Canvas, Canvas.ClipRect); 
    finally 
    Bmp.Free; 
    ..