Club Builder

[Cerúleo]

Hola a todos.

Tengo un TForm y unos componentes en él: TEdit's, TListView's, TLabel's, etc.

Necesito que me imprima el TForm completo, tal y como está en pantalla, con su barra de títulos y los datos que figuran en los controles. He probado TForm->Print() pero no me imprime ni los datos ni la barra de la ventana.

Gracias de antemano.

Nos vemos en la gira del próximo milenio (H.d.S.)

[Cerúleo]

Hola.

Necesito alguna respuesta con urgencia. ¡Por favor!

Gracias.

[_Leo]

Aquí va una respuesta "urgente". Funciona en todas las versiones de BCB excepto la 1:

code:

---

    Graphics::TBitmap *bmp = new Graphics::TBitmap;
    bmp->PixelFormat = pf24bit;
    // Capturamos la imagen del form completa en 'bmp'
    TCanvas *canvas = new TCanvas;
    canvas->Handle = GetWindowDC(Handle);
    bmp->Width = canvas->ClipRect.Width();
    bmp->Height = canvas->ClipRect.Height();
    bmp->Canvas->CopyRect(canvas->ClipRect, canvas, canvas->ClipRect);
    ReleaseDC(Handle, canvas->Handle);
    delete canvas;
    //--- Impresion
    Printer()->BeginDoc();
    // Ajustamos las dimensiones de la imagen en pantalla a la impresora
    TRect rect;
    rect.Left = rect.top = 0;
    rect.Right = MulDiv(bmp->Width,
        GetDeviceCaps(Printer()->Canvas->Handle,LOGPIXELSX), PixelsPerInch);
    rect.Bottom = MulDiv(bmp->Height,
        GetDeviceCaps(Printer()->Canvas->Handle,LOGPIXELSY), PixelsPerInch);
    // La copiamos en el Canvas de la impresora
    Printer()->Canvas->StretchDraw(rect, bmp);
    Printer()->EndDoc();
    // Liberamos la memoria del bitmap
    delete bmp;

---