Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #8  
Antiguo 14-05-2007
carlohg carlohg is offline
Registrado
 
Registrado: may 2007
Ubicación: Medellin - Colombia
Posts: 9
Poder: 0
carlohg Va por buen camino
Realmente quiero hacer ese mdi child para configurar las margenes de un Richedit para imprimir

Alguna otra Sugerencia?

Código Delphi [-]
if PrintDialog1.Execute then
  begin
    PixelsX := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
    PixelsY := GetDeviceCaps(Printer.Handle, LOGPIXELSY);
    LeftSpace := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX);
    TopSpace := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY);
    
   {en este lugar incluiria los valores desde mi formchild}

    R.Left := Round(PixelsX * valor desde MDICHILD) - LeftSpace;
    R.Right := Round(PixelsX * valor desde MDICHILD) - LeftSpace;
    R.Top := Round(PixelsY * valor desde MDICHILD) - TopSpace;
    R.Bottom := Round(PixelsY * valor desde MDICHILD) - TopSpace;
 
{/////}

    RichEdit1.PageRect := R;
    RichEdit1.Lines.Add('');
    RichEdit1.Lines.Add(DateTimeToStr(Now));
    RichEdit1.Print('Reporte'+Edit1.Text);
  end;
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Traer Registros de SQL en lotes sanfer1ec SQL 3 11-04-2007 19:22:39
Traer DBEdit en Blanco. utephi_14 OOP 5 12-03-2005 20:38:47
Form Al frente el_enigma1 OOP 2 20-01-2005 00:28:21
¿Como traer al frente un formulario ? athal Lazarus, FreePascal, Kylix, etc. 2 11-05-2004 15:53:19
Traer mi app a rpimer plano cso2000 Varios 6 25-09-2003 21:16:50


La franja horaria es GMT +2. Ahora son las 12:02:46.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi