Club Builder

[jeloguin]

Buenas tardes.
Lo que quiero hacer es copuar una parte de un formulario en un TBitmap, para luego guardarlo en disco. El codigo que utilizo es :

Graphics::TBitmap *imagen = new Graphics::TBitmap;
imagen = Form1->Canvas->Brush->Bitmap;
imagen->Canvas->CopyRect(Rect(1,1,50,50),Form1->Canvas,Rect(1,1,50,50));
imagen->Canvas->FillRect(Rect(0,0,100,100));

imagen->SaveToFile("C:\\joder.bmp");

pero no funciona, me da error cuando lo ejecuto.
Alguien tiene alguna idea de como hacerlo ?

Muchas gracias.

[_Leo]

Buenas, ibas bien, pero te has liado un poquillo. La cosa podría quedar así:

Graphics::TBitmap *imagen = new Graphics::TBitmap;

    // Antes de usar el nuevo bitmap tenemos que
    // indicarle el ancho y alto en pixels:
imagen->Width = 50;
imagen->Height = 50;

    // La línea siguiente sobra, aquí has hecho algo raro, intentas
    // sobreescribir el puntero a la imagen con la que vas a trabajar
    //imagen = Form1->Canvas->Brush->Bitmap;

imagen->Canvas->CopyRect(Rect(1,1,50,50),Form1->Canvas,Rect(1,1,50,50));

    // Esta línea también sobra, ya que con ella vas a dibujar
    // encima de la imagen que acabas de capturar, ocultandola...
    //imagen->Canvas->FillRect(Rect(0,0,100,100));

imagen->SaveToFile("C:\\joder.bmp");

delete imagen;