Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-09-2014
Jose Roman Jose Roman is offline
Miembro
 
Registrado: jul 2006
Ubicación: Colombia
Posts: 361
Poder: 18
Jose Roman Va por buen camino
Recortar Una Imagen

Hola a todos,

Bueno resulta que deseo cargar una foto (como la de un pasaporte), pero deseo que el usuario pueda seleccionar la parte de la foto que desea que se grabe, es decir recortar la imagen en la que se selecciona con un recuadro punteado sobre la imagen, para que no quede foto desproporcionada cuando sea cargada en el TImagen. Parece que habia algo el LatiumSoftware pero ya no se puede consultar. Alguien tiene alguna idea de como hacerlo?
Responder Con Cita
  #2  
Antiguo 10-09-2014
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: nov 2005
Posts: 1.232
Poder: 20
ElKurgan Va camino a la fama
En este mismo foro se habló del tema

Saludos
Responder Con Cita
  #3  
Antiguo 10-09-2014
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Aquí tienes otro hilo con ejemplo incluído.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.

Última edición por Neftali [Germán.Estévez] fecha: 10-09-2014 a las 19:15:19. Razón: Añadir el link
Responder Con Cita
  #4  
Antiguo 10-09-2014
Avatar de radenf
radenf radenf is offline
Miembro
 
Registrado: oct 2007
Ubicación: Viña del Mar,Chile
Posts: 608
Poder: 17
radenf Va por buen camino
Estimado Jose Roman:

Los componentes SizeComps, que son gratuitos, te permiten modificar el área seleccionada de una imagen.
Los puedes descargar desde este link
Ojalá te sirvan

Salu2
Responder Con Cita
  #5  
Antiguo 10-09-2014
Jose Roman Jose Roman is offline
Miembro
 
Registrado: jul 2006
Ubicación: Colombia
Posts: 361
Poder: 18
Jose Roman Va por buen camino
Gracias a todos, empezare a ensayar, Neftali no veo el link que mencionas....??
Responder Con Cita
  #6  
Antiguo 10-09-2014
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por Jose Roman Ver Mensaje
Gracias a todos, empezare a ensayar, Neftali no veo el link que mencionas....??
Porque no lo he puesto...

Este es al que me refería, aunque si buscas hay más.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #7  
Antiguo 10-09-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
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 Jose Roman.

Te hice un ejemplo que usa sólo componentes estándar de Delphi, dos Timage, un TShape y dos TButton :
Código Delphi [-]
...

implementation

var
  P: TPoint;
  inSelect: Boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Shape1.Pen.Color := clWhite;
  Shape1.Pen.Style := psDot;
  Shape1.Visible   := False;
  inSelect         := False;
  with Image1 do
  begin
    OnMouseDown:= nil;
    OnMouseMove:= nil;
    OnMouseUp  := nil;
  end;
end;

procedure TForm1.btnLoadImageClick(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
    with Image1 do
    begin
      Picture.LoadFromFile(OpenPictureDialog1.FileName);
      OnMouseDown:= Image1MouseDown;
      OnMouseMove:= Image1MouseMove;
      OnMouseUp  := Image1MouseUp;
    end;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  InSelect:= ssCtrl in Shift;
  if InSelect then
  begin
    P.X:= X;
    P.Y:= Y;
  end
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  R: TRect;
begin
  if inSelect then
  begin
    with TImage(Sender) do
      R:= Rect(Left+P.X, Top+P.Y, Left+X, Top+Y);
    Shape1.BoundsRect := R;
    Shape1.Brush.Style:= bsClear;
    Shape1.Visible    := True;
  end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  pic: TPicture;
  bmp: TBitmap;
  img: TImage;
begin
  if inSelect and ( P.X < X )and( P.Y < Y ) then
  begin
    img:= TImage(Sender);
    pic:= TPicture.Create;
    try
      pic.Assign(img.Picture);
      bmp:= TBitmap.Create;
      try
        bmp.Height:= img.Picture.Height;
        bmp.Width := img.Picture.Width;
        bmp.Canvas.Draw(0, 0, Pic.Graphic);
        bmp.Canvas.CopyRect(Rect(0, 0, X-P.X, Y-P.Y),
          bmp.Canvas, Rect(P.X, P.Y, X, Y));
        bmp.Width := Abs(X-P.X);
        bmp.Height:= Abs(Y-P.Y);
        Image2.Picture.Bitmap.Assign(bmp);
      finally
        bmp.Free;
      end;
    finally
      pic.Free;
    end;
  end;
  Shape1.Visible:= False;
  InSelect:= False;
end;

procedure TForm1.btnCleanSelectionClick(Sender: TObject);
begin
  Image2.Picture:= nil;
end;

Para comenzar a realizar la selección debes tener la tecla Ctrl presionada (una vez comenzada la podes soltar):


Cuando levantas el botón izquierda del mouse se copia la seleccion a Image2:


Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #8  
Antiguo 11-09-2014
Avatar de pacopenin
pacopenin pacopenin is offline
Miembro
 
Registrado: sep 2010
Ubicación: Asturias
Posts: 382
Poder: 14
pacopenin Va por buen camino
Gracias, ecfisa. Algo muy parecido tengo que hacer en breve y me va a resultar muy útil tu código.
__________________
http://www.gestionportable.com
Responder Con Cita
  #9  
Antiguo 11-09-2014
Jose Roman Jose Roman is offline
Miembro
 
Registrado: jul 2006
Ubicación: Colombia
Posts: 361
Poder: 18
Jose Roman Va por buen camino
Gracias ecfisa, no se si es mucha molestia pero de antemano me disculpas por molestar, el ejemplo me parece genial, pero te comento, en donde trabajo hay un sofware para realizar carnetizacion, en el se selecciona la ubicacion de la imagen y la muestra asi:



y si el usuario con clic sostenido izquierdo redimenciona el cuadro, este conserva la proporcion, asi:



Asi se carga la imagen dependiendo de la seleccion del usuario pero en proporcion al cuadro punteado (si la aumento o la disminuyo) y lo puede posicionar en cualquier lugar, no se que tan dificil sea realizar esto, gracias de antemano por la ayuda que me puedas brindar.

Última edición por Jose Roman fecha: 11-09-2014 a las 18:06:19.
Responder Con Cita
  #10  
Antiguo 11-09-2014
Avatar de radenf
radenf radenf is offline
Miembro
 
Registrado: oct 2007
Ubicación: Viña del Mar,Chile
Posts: 608
Poder: 17
radenf Va por buen camino
Estimado Jose Roman:

El componente que te sugerí en el post anterior hace exactamente eso y trae todo el código.
Salu2
Responder Con Cita
  #11  
Antiguo 26-08-2015
Jose Roman Jose Roman is offline
Miembro
 
Registrado: jul 2006
Ubicación: Colombia
Posts: 361
Poder: 18
Jose Roman Va por buen camino
Un Ejemplo radenf

Hola radenf,

De casualidad tienes un ejemplo de este componente con un TImage. He tratao de implementarlo pero no logro que sea transparente el TSizeRect, unido a que no se como cortar esa parte seleccionada. Gracias.
Responder Con Cita
  #12  
Antiguo 29-08-2015
Avatar de radenf
radenf radenf is offline
Miembro
 
Registrado: oct 2007
Ubicación: Viña del Mar,Chile
Posts: 608
Poder: 17
radenf Va por buen camino
Estimado Jose Roman:

Para que el componente TSizeRect sea transparente debes colocar su propiedad NormalBrush>Style=bsClear.
Para dibujar el cuadradito de selección debes poner su propiedad NormalPen>Style=psDot.

Para realizar la acción de cortar la parte seleccionada el siguiente código:

Código Delphi [-]
procedure TFormPrincipal.ButtonCropClick(Sender: TObject);
Var New, Old : TRect;
Wic1:TWicImage;
ImageM: TImage;
Begin
ImageM:= TImage.Create(Self);
Wic1:= TWicImage.Create;
Wic1.LoadFromFile(ImageList[TImage(Sender).Tag]);
New.Left:=SizeRect1.ClientRect.Left;
New.Top:=SizeRect1.ClientRect.Top;
New.Right:=SizeRect1.ClientRect.Right;
New.Bottom:=SizeRect1.ClientRect.Bottom;
Old := New;
try
ImageM.Left:=SizeRect1.Left;
ImageM.Top:=SizeRect1.Top;
ImageM.Height:=SizeRect1.Height;
ImageM.Width:=SizeRect1.Width;
ImageM.Canvas.CopyRect(Old,SizeRect1.Canvas,New);
ImageM.Picture.SaveToFile(ExtractFilePath(Application.ExeName) + 'Foto.bmp');
Wic1.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Foto.bmp');
Image1.Picture.Bitmap.Assign(Wic1);
finally
Wic1.Free;
ImageM.Free;
end;
end;

En este ejemplo utilizo TWicImage que lo soporta Delphi XE3 para cargar no sólo .bmp y .jpg, sino también .png y .tiff, pero lo puedes reemplazar por un TBitmap o utilizar el código que te envié por mensaje privado.

Ojalá te sirva
Saludos

PD: Te sugiero que también revises el demo que traen los componentes TSizeComps, ya que ahí están los ejemplos para hacerlo funcionar.

Última edición por radenf fecha: 29-08-2015 a las 19:11:34.
Responder Con Cita
  #13  
Antiguo 02-09-2015
Jose Roman Jose Roman is offline
Miembro
 
Registrado: jul 2006
Ubicación: Colombia
Posts: 361
Poder: 18
Jose Roman Va por buen camino
Gracias por tu ayuda radenf, hasta ahora me logro parte del cometido, solo tengo el inconveniente de que me copia los bordes punteados:


Al igual que si abro el archivo guardado (foto.bmp) tambien se nota el borde punteado que se ve en la imagen derecha, te adjunto el código para ver si me ayudas donde esta el error:

Código Delphi [-]
procedure TwLoadImg.btReloadClick(Sender: TObject);
Var
  New : TRect;
  Wic:TWicImage;
  ImageM: TImage;
begin
  // Oculto bordes de TSizeRect
  srImg.NormalPen.Mode  := pmXor;
  srImg.NormalPen.Style := psClear;
  ImageM     := TImage.Create(Self);
  Wic        := TWICImage.Create;
  New.Left   := srImg.ClientRect.Left;
  New.Top    := srImg.ClientRect.Top;
  New.Right  := srImg.ClientRect.Right;
  New.Bottom := srImg.ClientRect.Bottom;
  try
    ImageM.Visible        := False;
    ImageM.Left           := srImg.Left;
    ImageM.Top            := srImg.Top;
    ImageM.Height         := srImg.Height;
    ImageM.Width          := srImg.Width;
    ImageM.Canvas.CopyRect(New,srImg.Canvas,New);
    ImageM.Picture.SaveToFile(ExtractFilePath(Application.ExeName)+'Foto.bmp');
    Wic.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Foto.bmp');
    imPrel.Picture.Bitmap.Assign(Wic);
  finally
    Wic.Free;
    ImageM.Free;
    // Enseño bordes del TSizeRect
    srImg.NormalPen.Mode  := pmCopy;
    srImg.NormalPen.Style := psDot;
  end;
end;
Responder Con Cita
  #14  
Antiguo 03-09-2015
Jose Roman Jose Roman is offline
Miembro
 
Registrado: jul 2006
Ubicación: Colombia
Posts: 361
Poder: 18
Jose Roman Va por buen camino
Problema solucionado, coloque un Repaint. Gracias por tu ayuda.
Responder Con Cita
  #15  
Antiguo 05-09-2015
Avatar de radenf
radenf radenf is offline
Miembro
 
Registrado: oct 2007
Ubicación: Viña del Mar,Chile
Posts: 608
Poder: 17
radenf Va por buen camino
Me alegra que te haya funcionado.
Salu2
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
recortar imagen kapullok_2006 Gráficos 3 12-11-2007 19:39:29
"Recortar" una imagen jplj HTML, Javascript y otros 0 11-04-2007 19:27:47
recortar una foto kapullok_2006 Gráficos 1 27-03-2007 13:45:25
Recortar Imagen fmtidona Gráficos 2 26-09-2005 20:18:20
Rectángulo para recortar imagen JAV Gráficos 3 05-07-2005 11:08:23


La franja horaria es GMT +2. Ahora son las 03:19:50.


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