"Cortar" un bitmap
 

Supongamos que en una DLL tengo un bitmap de 32x16 pixeles. Creo un objeto TBitmap y cargo en él la imagen mediante la función del API "loadBitmap".
Supongamos que una vez cargada la imagen en ese primer TBitmap, creo un segundo objeto TBitmap en el que quiero mostrar la mitad del ancho de la imagen cargada desde la DLL. ¿Sé que esto podría realizarse del siguiente modo?

var
Bitmap1, Bitmap2 : TBitmap;
x, y : integer;
begin
Bitmap1 := TBitmap1.create;
try
Bitmap1.handle := loadBitmap(El_Handle_de_la_DLL, 'LA_IMAGEN');
Bitmap2 := TBitmap2.create;
try
Bitmap2.width := 16;
Bitmap2.height := 16;
for x := 1 to 16 do // ancho
for y := 1 to 16 do // alto
bitmap2.canvas.pixels[x, y] := bitmap1.canvas.pixels[x, y];
finally
Bitmap2.Free;
end;
finally
Bitmap1.Free;
end;
end;

Bueno, creo recordar que hace años esta tarea la realizaba sin la necesidad de recurrir a la claúsula FOR. ¿Estoy confundido o, en efecto, existe otra forma de realizarlo? He revisado la ayuda del objeto TCANVAS y en principio no he encontrado nada al respecto.

Un saludo

Creo que seria mas fácil usando:

Código Delphi [-]
procedure TCanvas.CopyRect(const Dest: TRect; Canvas: TCanvas;
  const Source: TRect);

Te he hecho un ejemplo sencillo, para que veas su funcionamiento:

Código Delphi [-]
var
  Dest, Source: TRect;

begin
  // posición dónde se copiará la imagen
  Dest.Left:=0;
  Dest.Top:=0;
  Dest.Right:=Image1.Width div 2;
  Dest.Bottom:=Image1.Height;

  // que región debe copiar? (o puedes sustituir todo este tocho por:  Source:=Dest; )
  Source.Left:=0;
  Source.Top:=0;
  Source.Right:=Image1.Width div 2;
  Source.Bottom:=Image1.Height;

  // dibuja la región copiada
  Image2.Canvas.CopyRect(dest, image1.Canvas, Source);

¡Muchas gracias, xEsk; esa es la solución (CopyRect) que buscaba y que no recordaba! Un saludo