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, de forma similar a este ejemplo:

Código Delphi [-]
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:



Saludos

[[nlsgarcia]]

Daniel,

Empezado por ecfisa

...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).