Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 25-03-2008
Avatar de thelibmx
thelibmx thelibmx is offline
Miembro
 
Registrado: mar 2007
Posts: 515
Poder: 18
thelibmx Va por buen camino
Question copiar componente con componentes dentro de el

Hola amigos del foro, se que el titulo esta medio raro, y tal vez la respuesta este dentro de los mismos foros, pero estube buscando y no encontre algo que me pudiera ayudar o tal ves se me paso, estuve viendo varios hilos sobre heredar, clonar, e incluso copiar pero no pude entender muy bien, si alguien puede decirme o explicarme un poco mas pues con mucho gusto les estare agradecido.

veran lo que quiero hacer es copiar un componente que tiene dentro de el otros componentes, los componentes que ocupo son powerpdf, y lo que quiero copiar es un componente que se llama tprpage que dentro de el tiene otro que se llama prlayoutpanel y dentro de este tiene otro que se llama prjimage quedaria algo asi

Código:
 
       tprpage 
           |    
           |-- Prlayoutopanel
                          |                    
                          |--prjpegimage
digamos que es como si tuvieramos un panel3 dentro de otro panel2 que a su ves esta dentro de otro panel1,


Código:
 
       panel1 
           |    
           |-- panel2
                          |                    
                          |--panel3




lo que yo quiero hacer es muchas copias del tprpage con los demas componentes dentro, espero haberme explicado bien,seria como si quisiera copiar panel1 con su panel2 y panel3.
si se preguntan para que quiero hacer esto pues aqui les va. tengo este codigo
Código Delphi [-]
PRJpegImage1.Picture.Assign(imagen);
 
if SaveDialog1.Execute then
        with PReport1 do
          begin
             FileName := SaveDialog1.FileName;
           BeginDoc;
             Print(tprpage1);
          EndDoc;

pues lo que hago es que obtengo imagenes de un escaner y las quiero pasar a un archivo pdf,cuando escaneo una sola imagen me la guarda bien sin problemas con el codigo tal cual como esta arriba, pero si son 2 o mas, planeo hacer un tipo de arreglo de tprpage1,entonces segun las imagenes como vayan saliendo las voy asigando a PRJpegImage2 y PRJpegImage3 y asi... hasta terminar el documento, entonces quedaria algo asi

Código Delphi [-]
if SaveDialog1.Execute then
        with PReport1 do
          begin
             FileName := SaveDialog1.FileName;
           BeginDoc;
             Print(tprpage1);
             Print(tprpage2);
             Print(tprpage3);
                  .
                  .              
             //esto metido en un for o while
          EndDoc;

Pues no se si me explique bien, si alguien tiene una mejor idea o alguna duda, pregunten sin compromiso jeje..

les dejo el codigo de como obtengo la imagen del escaner por si acaso

Código Delphi [-]
 
 while  finalizar=true  //inicio del ciclo
            do begin
              if MessageBox(Handle,PChar('Escanear hoja? ' + #13#10 +
              '' + #13#10 + #13#10 +''),PChar('Inee'), MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON1 + MB_APPLMODAL) = IDYES then
              begin //iniicio del while
              showmessage('Escaneando pagina');
              AcquireImagescaner.loadTwainModule;
              AcquireImagescaner.openSource;
              AcquireImagescaner.acquirejpg(imagen,90);
              finalizar:=true;
             end else
             begin
             finalizar:=false;
             flag:=true;
             if flag then
              begin
            //se le asigna la imagen al campo.
            PRJpegImage1.Picture.Assign(imagen);
uso delphi2006

__________________
En movimiento...

Última edición por thelibmx fecha: 25-03-2008 a las 02:29:06.
Responder Con Cita
  #2  
Antiguo 25-03-2008
keyboy keyboy is offline
Miembro
 
Registrado: oct 2004
Posts: 367
Poder: 20
keyboy Va por buen camino
Yo lo que haría es crear un Frame (File|New|Frame) y colocar ahí el TPrPage junto con todo lo que contiene. Con eso, puedes crear tantas copias como quieras:

Código Delphi [-]
with TFrame1.Create(Self) do
  Parent := Self;

Bye
Responder Con Cita
  #3  
Antiguo 25-03-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.556
Poder: 25
egostar Va camino a la fama
Y no te sirve un TGridPanel con TImages en cada sección

Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #4  
Antiguo 25-03-2008
Avatar de thelibmx
thelibmx thelibmx is offline
Miembro
 
Registrado: mar 2007
Posts: 515
Poder: 18
thelibmx Va por buen camino
Unhappy

Cita:
Empezado por egostar Ver Mensaje
Y no te sirve un TGridPanel con TImages en cada sección

Salud OS
mmm.. creo que no, lo que me interesa es que las imagenes que obtenga del escaner las pase a un archivo pdf, entonces segun entiendo yo, lo que hace el componente del tprpage1 es que todo lo que pongas en el es como si fuera una pagina del documento pdf, es por eso que quiero hacer varias copias de este, para que sea la pagina uno, pagina dos, pagina 3 etc...
__________________
En movimiento...
Responder Con Cita
Respuesta



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
copiar componente con componentes dentro de el thelibmx Varios 0 25-03-2008 02:01:05
Copiar Archivos dentro del mismo FTP Cecil Internet 1 02-09-2007 03:20:04
grafico dentro de un componente elcigarra OOP 6 23-01-2006 17:16:31
copiar columna dentro de la misma tabla gmontes Firebird e Interbase 2 22-09-2005 16:16:54
Componentes dentro de StrinGrid jlsoriam OOP 1 07-11-2004 05:10:29


La franja horaria es GMT +2. Ahora son las 17:57:45.


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