Convertir un form junto con sus controles en una imagen

[Pernorak]

Hola me preguntaba si es posible convertir una form junto con sus controles TLabel, TEdit, ... etc.. en una imagen, de manera que en esa imagen tengamos la "foto" de la Form.

¿Se puede generalizar para cualquier control? Es decir, se puede tener la imagen (Bitmap ó similar) de un control cualquiera.

1 Saludo

[Pernorak]

Ya lo he conseguido. Aqui dejo el código que permite obtener una imagen de una form y pegarla en otra form dentro de un control TImage:



void __fastcall TForm1::Button1Click(TObject *Sender)
{
//Obtenemos la imagen de la Form1
Graphics::TBitmap *BitmpPrueba = Form1->GetFormImage();


//Pegamos el Bitmap en una nueva form a través del Clipboard
Clipboard()->Assign(BitmpPrueba);
Form2->ImgForm1->Picture->Assign(Clipboard());
//La mostramos
Form2->Show();


delete BitmpPrueba;
}



Todo esto lo hace al pulsar un botón que hay en la Form1, en la Form2 he colocado un TImage que ocupa todo el área de la Form, cuando pulsas el botón en la Form1, aparece la Form2 igual, en apariencia que la Form1, pero sus controles no se pueden usar, ya que son una foto.



De todas maneras sigue sin servirme para imprimir mi Expediente, porque misteriosamente, el texto d los RichEdit no aparece, si el del resto de controles... a pesar de que se supone que es una captura de la imagen de la form.

[Pernorak]

Bien, ahora si lo he conseguido , con esta función se guardaría una imagen de la Form en un archivo.bmp. NO es preciso guardarla en fichero, si lo deseas puedes manejar dicho Bitmap, aunque debes recordar en liberar el Bitmap (delete) sólo cuando hayas acabado de usarlo. Aqui tenéis el código. 1 Saludo.

void TForm1::SaveControlImage(TWinControl *Control, AnsiString FileName){

HDC DC; //Para manejar el Handle
Graphics::TBitmap *BitmpPrueba = new Graphics::TBitma();
try{
BitmpPrueba->Width = Control->Width;
BitmpPrueba->Height = Control->Height;

DC = GetWindowDC(Control->Handle); //ASi muestra toda la ventana
BitBlt(BitmpPrueba->Canvas->Handle, 0, 0, Control->Width, Control->Height, DC, 0, 0, SRCCOPY);
ReleaseDC(Control->Handle, DC); //para que devuelva el control al programa BitmpPrueba->SaveToFile(FileName);
}
__finally{
delete BitmpPrueba;
}
}