Ayuda Con tratamiento de imagen

[steelha]

Buenas, haber si me pueden ayudar no se si es tratamiento de imagen o algo parecido pero es lo siguiente. tengo una imagen necesito poder selecionar una parte de la imagen cualquiera y esa seleccion será mi nueva imagen, poder rotar, recotar parte que no quiera y dibujar puntos(color, circulo, raya, etc...) si pudieran darme una ayuda les agradecere

[ecfisa]

necesito poder selecionar una parte de la imagen cualquiera y esa seleccion será mi nueva imagen, poder rotar, recotar parte que no quiera y dibujar puntos(color, circulo, raya, etc...)

Hola.

Por favor steelha, realiza una pregunta por hilo. Lee el punto [ 8 ] de la guía de estilo.

Saludos y gracias por tu colaboración

[ecfisa]

Hola steelha.

Para tu primera pregunta,

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.

[ecfisa]

Hola.

Como en el ejemplo anterior sólo permitía trabajar con bmp, te amplio el código de pegado de la selección:

Código Delphi [-]
...
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  BM: TBitmap;
begin
  Image2.Picture := nil;
  BM := TBitmap.Create;
  try
    BM.Height  := Image1.Picture.Height;
    BM.Width   := Image1.Picture.Width;
    BM.Canvas.Draw(0,0,Image1.Picture.Graphic);
    Image2.Canvas.CopyRect(Rect(0,0,X-P.X,Y-P.Y), BM.Canvas,Rect(P.X,P.Y,X,Y));
    Shape1.Visible := False;
    InSelect       := False;
  finally
   BM.Free;
  end;
end;

Saludos.

[steelha]

gracias ya lei y entendi el punto ocho. .
Muchas gracias por la ayuda.

[steelha]

Lo demás de dibujar sobre la imagen, ya encontré un hilo donde explica.