Zoom tipo lupa

[[seoane]]

Efectivamente, solo se pueden manipular imágenes bmp dentro de un TImage. Tenemos 2 opciones, convertir la imagen de jpg a bmp en el momento de cargarla en el TImage, operación sencilla y que no supone ningún problema, o volver a usar el DC de la pantalla como al principio pero ahora dentro del evento OnMouseMove y no dentro de un Timer. Yo casi prefiero la primera opción, pero eso depende de como realices la carga de la imagen, si en tiempo de diseño o durante el funcionamiento del programa, en ambos casos la forma de hacerlo es diferente pero igual de sencilla.

[oregon]

Gracias Seoane,

Lo que pretendo es que el usuario final introduzca una imagen para trabajar con ella, y que la cambie cuantas veces considere. Por ello, habría que cargar la imagen en tiempo de ejecuación.

Otra cosilla. No se si es problema mío, o que el ejemplo lo hiciste así, pero el zoom sobre el rayado de ejemplo sólo podía verse en el área de zoom cuando hacía click con el ratón y luego lo movía sobre la imagen. ¿no es posible ver el zoom sin necesidad de "clickear", sino simplemente moviendo el ratón por encima de la image?

Gracias!!

[[seoane]]

Empezado por oregon

Otra cosilla. No se si es problema mío, o que el ejemplo lo hiciste así, pero el zoom sobre el rayado de ejemplo sólo podía verse en el área de zoom cuando hacía click con el ratón y luego lo movía sobre la imagen. ¿no es posible ver el zoom sin necesidad de "clickear", sino simplemente moviendo el ratón por encima de la image?

El titulo del formulario es "Ejemplo de Zoom - Mueve el raton sobre la imagen con el boton pulsado", asi que puede que lo hiciera de forma intencionada .

Para cambiar eso, en el evento OnMouseMove:

Código Delphi [-]
procedure TfrmMain.imgMainMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  Seleccion: TRect;
  Bitmap: TBitmap;
begin
  if ssLeft in Shift then // <-- Eliminar esta linea
  begin
    Seleccion.Left:= X - 20;
    Seleccion.Right:= X + 20;
    Seleccion.Top:= Y - 20;
    Seleccion.Bottom:= Y + 20;

    if btnCopiar.Checked then
    begin
      Copiar(imgMain.Canvas.Handle,pbZoom.Canvas.Handle,Seleccion,tbZoom.Position);
    end;

    if btnBorrar.Checked then
    begin
      pbZoom.Canvas.FillRect(pbZoom.Canvas.ClipRect);
      Copiar(imgMain.Canvas.Handle,pbZoom.Canvas.Handle,Seleccion,tbZoom.Position);
    end;

    if btnBuffer.Checked then
    begin
      Bitmap:= TBitmap.Create;
      try
        Bitmap.Canvas.Brush.Color:= pbZoom.Canvas.Brush.Color;
        Bitmap.Width:= pbZoom.Width;
        Bitmap.Height:= pbZoom.Height;
        Bitmap.Canvas.FillRect(pbZoom.Canvas.ClipRect);
        Copiar(Canvas.Handle,Bitmap.Canvas.Handle,Seleccion,tbZoom.Position);
        pbZoom.Canvas.Draw(0,0,Bitmap);
      finally
        Bitmap.Free;
      end;
    end;
  end; // <-- Y esta otra
end;

[oregon]

Perdona. Estoy avergonzado.

Esto de ir acelerado no es nada bueno. Seguro que si me lo hubiese mirado todo con más detenimiento estas cosas no me pasarían.
Procuraré leer más detenidament la próxima vez.

Muchas gracias por tu paciencia!

Ciao!

[esublim]

alguien tiene idea de como hacerlo en firemonkey=?

[Casimiro Noteví]

Por favor, crea un hilo con tu problema, este es de hace 17 años, y no has dicho nada relevante para que se te pueda ayudar.