Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-09-2012
Gerson12 Gerson12 is offline
Miembro
NULL
 
Registrado: abr 2012
Ubicación: Peru-Lima
Posts: 138
Poder: 15
Gerson12 Va por buen camino
disculpa es que estaba en un celular ^^ ahora si te explico ,bueno lo que quiero es hacer abrir 2 imagenes en un form usando Timage1 y Timage2 pero quiero que al darle el boton guardar estas dos imagenes se guarden(se guarden en la computadora no en una base de datos) como una sola imagen.

Pd:buscando encontre una posible solución
Código Delphi [-]
   jpg := TJPEGImage.Create;
        jpg.Assign(imgAvatar.Picture.Bitmap);
        jpg.SaveToFile(dlg.FileName);
pero aca solo indica 1 Timage :=imageAvatar pero yo quiero 2 imagenes formen 1 sola y que el formato sea PNG.

por eso es mi pregunta como puedo instalar y de donde saco dichos componentes que lei en algunos hilos que se necesita para dar el formato Png

gracias de antemano
__________________
Gracias a todos por apoyarme ^^
Responder Con Cita
  #2  
Antiguo 22-09-2012
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.669
Poder: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
¿Guardar juntas?, ¿te refieres a crear una imagen con las otra dos?
¿Unidas en horizonal o en vertical?
Responder Con Cita
  #3  
Antiguo 22-09-2012
Gerson12 Gerson12 is offline
Miembro
NULL
 
Registrado: abr 2012
Ubicación: Peru-Lima
Posts: 138
Poder: 15
Gerson12 Va por buen camino
vertical amigo
Cita:
¿te refieres a crear una imagen con las otra dos?
si me refiero a esa
__________________
Gracias a todos por apoyarme ^^
Responder Con Cita
  #4  
Antiguo 22-09-2012
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 27
Caral Va por buen camino
Hola
Aqui hay un ejemplo.
Saludos
__________________
Siempre Novato
Responder Con Cita
  #5  
Antiguo 22-09-2012
Gerson12 Gerson12 is offline
Miembro
NULL
 
Registrado: abr 2012
Ubicación: Peru-Lima
Posts: 138
Poder: 15
Gerson12 Va por buen camino
gracias Caral y Casimiro provare y si me funciona les imformo Gracias
__________________
Gracias a todos por apoyarme ^^
Responder Con Cita
  #6  
Antiguo 22-09-2012
Gerson12 Gerson12 is offline
Miembro
NULL
 
Registrado: abr 2012
Ubicación: Peru-Lima
Posts: 138
Poder: 15
Gerson12 Va por buen camino
hola
[Caral] bueno prove el ejemplo pero la verdad no entiendo mucho estas lineas(disculpa es que lo unico que se es que aca se guia mediante cordenadas )
Código Delphi [-]
ARect.Left := 0;  ARect.Top := 0; ARect.Right := 48; ARect.Bottom := 48;
  imgDestino.Canvas.CopyRect(ARect, img1.Canvas, img1.ClientRect);

  ARect.Left := 48;  ARect.Top := 0; ARect.Right := 92; ARect.Bottom := 48;
  imgDestino.Canvas.CopyRect(ARect, img2.Canvas, img2.ClientRect);

  ARect.Left := 0;  ARect.Top := 48; ARect.Right := 48; ARect.Bottom := 92;
  imgDestino.Canvas.CopyRect(ARect, img3.Canvas, img3.ClientRect);

  ARect.Left := 48;  ARect.Top := 48; ARect.Right := 92; ARect.Bottom := 92;
  imgDestino.Canvas.CopyRect(ARect, img4.Canvas, img4.ClientRect);

El codigo que eh encontrado en google ah sido esto
Código Delphi [-]
try
    if dlg.Execute then
    begin
      jpg := TJPEGImage.Create;
      try
        jpg.Assign(imgAvatar.Picture.Bitmap);
        jpg.SaveToFile(dlg.FileName);
      finally
        jpg.Free;
      end;

bueno dejo una imagen de lo que quiero hacer por si puede ayudar
__________________
Gracias a todos por apoyarme ^^
Responder Con Cita
  #7  
Antiguo 22-09-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Gerson12.

Revisa si te resulta útil este enlace: Combinar 2 imagenes en una

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
Respuesta


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
como instalar el componente Glscene vs 0.82 en delphi 7 kurono Varios 2 11-03-2008 03:50:39
como instalar un componente? ebeltete OOP 2 04-05-2005 19:30:00
Como Instalar Componente expack12 BlueSteel Varios 0 29-03-2005 16:54:37
Cómo instalar un componente sin el .dpk Jan_polero OOP 6 11-05-2004 19:24:49
Como instalar el componente QReport Sonia Impresión 2 10-01-2004 15:18:24


La franja horaria es GMT +2. Ahora son las 13:28:54.


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