Club Delphi  
    Paypal   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

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 13-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 steelha.

Para tu primera pregunta,
Cita:
necesito poder selecionar una parte de la imagen cualquiera y esa seleccion será mi nueva imagen
te hice un ejemplo muy sencillo para darte una idea de como podrías seleccionar con el mouse parte de una imágen (o toda) y copiar la selección en otra.

El ejemplo utiliza dos TImages y un TShape:
Código Delphi [-]
...
implementation

var
  P: TPoint;
  InSelect: Boolean = False;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Shape1.Pen.Color := clWhite;
  Shape1.Pen.Style := psDot;
  Shape1.Visible   := False;
  InSelect         := False;
end;

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

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  R: TRect;
begin
  if InSelect then
  begin
    R := Rect(Image1.Left+P.X,Image1.Top+P.Y,Image1.Left+X,Image1.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);
begin
  Image2.Picture := nil;
  Image2.Canvas.CopyRect(Rect(0,0,X-P.X,Y-P.Y),Image1.Canvas,Rect(P.X,P.Y,X,Y));
  Shape1.Visible := False;
  InSelect       := False;
end;

...
El resto de tus consultas podés agregarlas en nuevos hilos en este mismo foro.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 13-09-2012 a las 21:36:56. Razón: corregir identación
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
Tratamiento de imagen BLOB y redimensionado. papulo PHP 3 18-09-2008 17:26:31
Tratamiento de tablas DBF Jesús Pena Conexión con bases de datos 0 12-06-2007 13:20:34
Tratamiento de Errores jsc Varios 2 15-09-2005 16:20:01
Tratamiento de archivos OLB!!! DB-ADO API de Windows 1 02-03-2005 14:32:38
Tratamiento de la Voz muli Varios 0 03-11-2003 19:46:53


La franja horaria es GMT +2. Ahora son las 06:08:50.


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