Zoom de pantalla
 

Hola a tod@s, necesito hacer un programa que haga un zoom de la pantalla (parecido a lo que hace la accesibilidad de Windows)y me lo saque por la segunda salida VGA de la tarjeta gráfica, para poder ver el zoom que hago a la pantalla en otro monitor.Nunca he programado algo parecido y no se por donde empezar.

Os pregunto las dudas que tengo haber si me podeis hechar un cable;) .

En primer lugar no tengo ni idea de como hacer que me salga una aplicación en la segunda pantalla.Y en la principal ver el escritorio normal de windows sin estirar.

Pero el problema que tengo es que quiero que en la segunda pantalla (la insatalaré en otra habitación diferente a donde esta la principal)me muestre en grande un reloj digital(quiero que se vea en grande por eso quiero hacer un zoom) que tiene la aplicación que se estará viendo en la primera pantalla.Por que asi el trabajador que esta en la segunda habitación vera el tiempo que tiene para realizar una determinada tarea.

No se si existe alguna aplicación que te haga esto, o en su defecto algún componente para que yo la pueda programar.

Espero haberme explicado bien y podais ayudarme.

Un saludo y gracias.

Hola,

Bueno. Para lo primero me atrevo a recomendarte el artículo Zoom firmado por Zarko Gajic, a ver si sacas algo en claro. Para lo segundo... lo siento, pero, creo que tendré que dejar paso a algún otro compañero. ;)

Lo de mandar un formulario al monitor secundario ya lo tratamos aqui.

En cuanto a lo del zoom, me gustaria saber un par de cosas mas: ¿El reloj que quieres ampliar esta en una aplicacion tuya? ¿podrias modificar su codigo?, de no ser asi, ¿como quieres determinar el area a ampliar? ¿usando el raton como en el ampliador de windows?

al "ampliar" se pierde calidad en el reloj, con un simple Timer y un label con fuente a 48 puntos, ya tienes un "peaso" reloj digital.

Al hacer tú mismo el reloj puedes mostrar más información relevante, además la ventana no le pones bordes ni botones de Maximizar y que ella sola se maximice para ocupar todo el área del segundo monitor. (no tienes nada que hacer sobre esto, simplemente lo mandas al segundo monitor y le pones el WindowsState = wsmaximized).

Con esta configuración de monitores, es posible que haya problemas, es decir, si el segundo monitor es una ampliación de escritorio, el usuario del primer monitor pasa el ratón por el lado derecho de su pantalla y el ratón aparece en la otra sala :D. Creo recordar que las tarjetas NVidia daban más posiblidades que las ATI, al menos por el Software que traían.

Si le quitas la opción de "extender escritorio" el monitor se apaga :( (al menos en una ATI RADEON x550/600.

Saludos

Hola, gracias por responderme, en primer lugar contestaros las preguntas:

La aplicación no la he echo yo por lo tanto lo de modificar el código, lo descartó.

Lo que quiero hacer no es un simple reloj y mostrarlo en el segundo monitor, sino el reloj que tiene esta aplicación (es una cuenta atras), mostrarlo en el segundo monitor, para que los trabajadores de la otra sala sepan cuanto tiempo les queda para hacer sus tareas.

Lo de como quiero determinar el área a ampliar, me gustaria poder seleccionar el area de pantalla a ampliaR y que el área seleccionada (reloj) se viera en el otro monitor.Lo del ratón lo descarto por que los usuarios del monitor principal lo estaran moviendo constantemente.

Lepe no me importa que pierda calidad, con que puedan ver el reloj me sobra, de todas formas gracias por la idea.

Un saludo a todos mirare los hilos que me habéis recomendado a ver si saco algo en claro.

Bueno, si no queda mas remedio que usar el zoom, usemoslo :)

Una primera aproximacion podria ser esta:
Esto colocado dentro de un Timer nos copiaria el area que deseamos, ajustada al tamaño del form.

Pero seria mas adecuado definir las coordenadas con respecto a la esquina superior izquierda de la aplicacion a vigilar y no con respecto a la esquina de la pantalla, asi que podriamos usar algo como esto:

Y si le queremos dar otra vuelta de tuerca, habras notado que el codigo anterior muestra un desgradable parpadeo. Pues podemos solucionando usando un bitmap en un paso intermedio

Algo asi:
Ahora solo te queda poner el codigo que mas te guste en el evento de un timer, con un intervalo de 200 milisegundos por ejemplo, y acertar con las coordenadas correctas y ya esta.

Espero que te sirva

Hola de nuevo, perdonar que reabra el hilo despues de tres semanas, pero, es que me ha surjido un problema.

He hecho el programa de la siguiente manera:

1º) Me sale un formulario con una captura de pantalla en la cual puedo seleccionar la parte de la pantalla que quiera hacerle zoom.(Gracias Seoane)

2º) Tengo un TtrackBar para saber que tamaño de zoom quiero hacer, 2x 4x etc...

3º) Un Botón para hacer el zoom.Cuando yo pulso el botón me abre un formulario en el cual hay un timer con el siguiente código:

Código Delphi [-]
   procedure TFzoom.Timer1Timer(Sender: TObject);
var
  Srect,Drect:TRect;
  iWidth,iHeight:Integer;
  iTmpX,iTmpY:Real;
  C:TCanvas;
  hDesktop: Hwnd;
begin
 If not IsIconic(Application.Handle) then begin
  hDesktop:= GetDesktopWindow;
   iWidth:=Image1.Width;
   iHeight:=Image1.Height;
   Drect:=Rect(0,0,iWidth,iHeight);
    iTmpX:=iWidth / (Fprincipal.Slider.Position * 4);
    iTmpY:=iHeight / (Fprincipal.Slider.Position * 4);
    Srect:=Rect(Fprincipal.Left,Fprincipal.Top,Fprincipal.Right,Fprincipal.Bottom);
    InflateRect(Srect,Round(iTmpX),Round(iTmpY));
   
    If Srect.Left<0 then OffsetRect(Srect,-Srect.Left,0);
    If Srect.Top<0 then OffsetRect(Srect,0,-Srect.Top);
    If Srect.Right>Screen.Width then OffsetRect(Srect,-(Srect.Right-Screen.Width),0);
    If Srect.Bottom>Screen.Height then OffsetRect(Srect,0,-(Srect.Bottom-Screen.Height));
   C:=TCanvas.Create;
   try
     C.Handle:=GetDC(GetDesktopWindow);
     Image1.Canvas.CopyRect(Drect,C,Srect);
    finally
      ReleaseDC(hDesktop, C.Handle);
      C.Free;
    end;
   Application.ProcessMessages;
 end;

El problema es que cada segundo me amplia más la pantalla y al final no se ve nada mas que la pantalla negra.

Y yo lo que quiero es que me la amplie una vez y que cada segundo me refresque la imagen seleccionada en el form anterior para poder ver el reloj.

Otra cosa que me pasa es que no me amplia el programa que hay detras del mio, sino que me amplia el mio, y yo lo que necesito es que me amplie el programa donde esta el reloj de cuenta atrás.

Por cierto he provado con el código de arriba de seoane y no consigo que no me parpadee.

Tampoco entiendo esta sentencia del código de seoane:

Código Delphi [-]
StretchBlt(Bmp.Canvas.Handle,0,0,Width,Height,SrcDC,0,0,100,100,SRCCOPY);

¿Para que sirve StretchBlt?
Tengo las coordenadas Top,Left,Bottom y Right del reloj que quiero capturar¿Donde meto mis coordenadas en esa sentencia?

Gracias por vuestra ayuda.
Un Saludo.

Vamos por partes, como dijo Jack el destripador :D

Primero, para que veas los diferentes metodos que se pueden usar para hacer un zoom aqui te dejo un ejemplo. En el encontraras 3 formas de hacer lo mismo, el primero copia un zona de la pantalla directamente, el segundo borra primero antes de copiar (produciendo el parpadeo) y el tercero utiliza un buffer para evitar el parpadeo.

Segundo, no se porque en tu ejemplo la imagen se va agrandando (yo lo probe y me funciona bien) pero puede que estes intentando hacer zoom sobre la propia imagen del zoom, lo que provocaria ese efecto.

Tercero, StretchBlt es una funcion de la API de windows, mira la ayuda para saber como funciona, pero basicamente hace algo muy parecido a copyRect (de echo internamente creo que CopyRect llama a la funcion StretchBlt).

Y por ultimo, no se puede ampliar el contenido de un formulario que esta tapado por otro, lo que se ve es lo que hay, si no lo puedes ver no lo puedes copiar, ni ampliar, etc ... Echale un vistazo al ejemplo haber si te sirve para algo.

Muchas gracias Seoane, por fin lo consegui, me ha costado pero lo he conseguido y todo gracias a ti.

Lo que me pasaba es lo que tu me dijiste hacia zoom sobre mi propio formulario, por eso me pasaba ese efecto.

Ya me funciona.Gracias de nuevo.;)

Un saludo.

y alguien tiene idea de como hacerlo en firemonhkey?

Por favor, deja de repetir lo mismo en distintos hilos, lee nuestra guía de estilo, gracias.