Duplicar pantalla a escala

[sac]

Como podría duplicar el form que estoy corriendo a escala?
La idea es presentar algo y poder ver exactamente lo mismo en un form como si fuera un monitor duplicando todo a una escala 3 veces menor.

Alguna vez vi una manera de hacerlo pero no tengo idea como. Gracias.

[ecfisa]

Hola sac.

No me queda muy claro donde queres presentar ese form a un tercio del tamaño...
Pero creo que podrías usar el procedimiento mostrado en este enlace: How to Capture the Screen Shot of the Active Window (http://delphi.about.com/od/adptips2006/qt/captureactive.htm), de forma similar a este ejemplo:

implementation

uses Unit2;

procedure TForm1.FormCreate(Sender: TObject);
begin
with Series1 do
begin
AddPie( 90, 'Cars', clRed);
AddPie(309, 'Phones', clGreen);
AddPie( 79, 'Monitors', clBlue);
AddPie(607, 'Lamps', clWhite);
AddPie(473, 'Keyboards', clGray);
AddPie(354, 'Bikes', clFuchsia);
AddPIe(830, 'Chairs', clTeal);
end;
end;

procedure ScreenShot(activeWindow: bool; destBitmap : TBitmap) ;
var
w,h: integer;
DC: HDC;
hWin: Cardinal;
r: TRect;
begin
if activeWindow then
begin
hWin := GetForegroundWindow;
dc := GetWindowDC( hWin );
GetWindowRect( hWin, r );
w := r.Right - r.Left;
h := r.Bottom - r.Top;
end
else
begin
hWin := GetDesktopWindow;
dc := GetDC( hWin );
w := GetDeviceCaps( DC, HORZRES );
h := GetDeviceCaps( DC, VERTRES );
end;
try
destBitmap.Width:= w;
destBitmap.Height:= h;
BitBlt( destBitmap.Canvas.Handle, 0, 0,
destBitmap.Width, destBitmap.Height, DC, 0, 0, SRCCOPY );
finally
ReleaseDC( hWin, DC );
end;
end;

procedure TForm1.btnShowClick(Sender: TObject);
var
BM:TBitmap;
begin
BM:= TBitmap.Create;
try
ScreenShot( TRUE, BM );
Form2.Show; // ( Auto-create forms )
Form2.Height := Form1.Height div 3; // 1/3 del alto
Form2.Width := Form1.Width div 3; // 1/3 del ancho
Form2.BorderStyle := bsNone;
Form2.Image1.Picture.Bitmap.Assign( BM );
finally
FreeAndNil( BM );
end;
end;

procedure TForm1.btnCloseClick(Sender: TObject);
begin
Form2.Close;
end;


Salida:

http://s11.postimg.org/p8s3yo7yr/sac.png

Saludos :)

[nlsgarcia]

Daniel,


...este ejemplo...

^\||/

Nelson.

[sac]

Perdón por no saber explicarme. Ese código hace una captura de pantalla.
En realidad lo que yo busco Ecfisa es algo similar pero que en tiempo real reproduzca todo lo que se hace en otro Form a una escala un tercio, un cuarto mas chica.

En el form "original" estoy pasando (por ejemplo) videos al estilo "motion backgrounds" o imágenes fijas de fondo con memos superpuestos con fuentes predeterminadas etc, etc.

Tengo un "monitor" a escala que lo hice como el "original" dividiendo todo por 3 o 4 y funciona pero quisiera saber si hay alguna manera más sencilla que simplemente en un form más chico se represente el original que se ve en otro monitor/proyector a escala porque el problema es que al hacerlo a mi manera dupliqué memos, mediaplayers, archicos de videos, imagenes o lo que sea que esté representando en el original. Me explico?

Subi una imagen en rar (espero que se vea bien)
Abajo a la derecha se ve lo que sería mi monitor (hasta ahi es lo que veo en pantalla) y a la derecha lo que sería lo que llamo el "original" que por la captura no se ve completo (eso es lo que verían los demás).

https://copy.com/T0Uog3UBwVMuBfBE