Club Builder - Foros de discusión Club Builder
Foro de C++Builder en español
 
 FAQFAQ   BuscarBuscar   MiembrosMiembros   Grupos de UsuariosGrupos de Usuarios   RegistrarseRegistrarse 
 PerfilPerfil   Entra para ver tus mensajes privadosEntra para ver tus mensajes privados   EntrarEntrar 

Imprimir una imagen hecha desde un canvas

 
Publicar nuevo tema   Responder al tema    Foros de discusión -> Consultas
Ver tema anterior :: Ver tema siguiente  
Autor Mensaje
WaKo13
Ens
Ens


Registrado: 12 Mar 2004Mensajes: 34Ubicación: Campeche, Campeche, México
MensajePublicado: Jue 06 May, 2004 3:56 pm    Asunto: Imprimir una imagen hecha desde un canvas Responder citando
Hola!
Aun no he buscado la forma de imprimir una figura hecha con el canvas sobre un image por favor ayuda
Volver arriba
Ver perfil de usuario Enviar mensaje privado MSN Messenger
_Leo
Site Admin


Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
MensajePublicado: Mie 12 May, 2004 10:44 pm    Asunto: Responder citando
Hola, a ver si te sirve este ejemplo:
Código:
// Dibujamos algo en el TImage
Image1->Canvas->Pen->Color = clRed;
Image1->Canvas->Pen->Width = 5;
Image1->Canvas->MoveTo(0, 0);
Image1->Canvas->LineTo(Image1->Width, Image1->Height);
Image1->Canvas->MoveTo(Image1->Width, 0);
Image1->Canvas->LineTo(0, Image1->Height);

// Finalmente convertimos el bitmap interno al formato adecuado
// (esto es importante, ya que sino tendremos problemas para imprimirlo)
Image1->Picture->Bitmap->HandleType = bmDIB;


//--- Lo imprimimos ---//

TPrinter* prn = Printer();
prn->BeginDoc();

// Pixels por pulgada horizontal y vertical de la impresora
int pppWidth  = GetDeviceCaps(prn->Canvas->Handle, LOGPIXELSX);
int pppHeight = GetDeviceCaps(prn->Canvas->Handle, LOGPIXELSY);

// Ajustamos las dimensiones de la imagen en pantalla a la impresora
TRect rect(0, 0,
    MulDiv(Image1->Picture->Width,  pppWidth,  PixelsPerInch),
    MulDiv(Image1->Picture->Height, pppHeight, PixelsPerInch));

// Copiamos el TImage en el Canvas de la impresora
prn->Canvas->StretchDraw(rect, Image1->Picture->Graphic);

prn->EndDoc();
Volver arriba
Ver perfil de usuario Enviar mensaje privado
Invitado
MensajePublicado: Jue 13 May, 2004 6:07 am    Asunto: Responder citando
Muchas Gracias a Leo por responder a la pregunta!
Volver arriba
Mostrar mensajes de anteriores:   
Publicar nuevo tema   Responder al tema Foros de discusión -> Consultas Todas las horas son GMT + 1 Hora
Página 1 de 1
Cambiar a:  
No puedes publicar temas nuevos en este foro
No puedes responder a temas en este foro
No puedes editar tus mensajes en este foro
No puedes borrar tus mensajes en este foro
No puedes votar en las encuestas de este foro


Hosting WordPress Indedmedia desde 3,99 €
© 2002–2026 Club Builder · Funciona con phpBB.