Copiar Parte de un BMP a otro

[craven]

Hola amigos. Supongamos que tenemos un bitmap cuyas dimensiones son 100 x 100. Quisiera copiar un fragmento de ese bitmap , por ejemplo, la region comprendida entre el (20,20) y el (40,40) en un nuevo bitmap. He utilizado la funcion BitBlt pero el resultado no es el que deseo. He escrito lo siguiente:

BitBlt (dest.Handle,1,1,20,20,ori.Handle,20,20,SRCCOPY) ;

donde dest y ori son dos TBitmap, tal que ori contiene la imagen de la que deseo copiar el fragmento. ¿He hecho algo mal? ¿Como puedo arreglarlo? Un saludo y gracias.

[andres1569]

Hola:

Si el Bitmap Destino es de 20 x 20, te fallará porque la coordenada más pequeña es 0 y la mayor es 19, si el Bitmap fuera mayor no te fallaría pero el resultado estaría un pixel adelantado.

Debería ser:

BitBlt (dest.Handle, 0, 0, 20, 20, ori.Handle, 20, 20, SRCCOPY);