Emular widescreen en VirtualPC

[MAXIUM]

Bueno, tras meditarlo mientras jugaba ajedrez con Zarko Gajic, el código que me funciona medianamente bien (en realidad bien), me quedo así:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
Const Proporcion = 4/3;
Begin
  // Redimensiona la aplicación en base a la resolución de la pantalla.
     If (Screen.Width/Screen.Height) = Proporcion Then
         Begin
         ScaleBy(Screen.WorkAreaHeight, Height);
         WindowState:= wsMaximized;
         End
     Else
         Begin
         ScaleBy(Trunc(Screen.WorkAreaHeight*Proporcion), Width);
         Height:= Screen.WorkAreaHeight;
         Top:= 0;
         Left:= (Screen.Width - Width) Div 2;
         BorderIcons:= BorderIcons - [biMaximize];
         End;
End;

¿Alguien se atreve a testearlo?, el formulario en diseño esta en formato 4:3 y WindowState:= wsNormal.

[[Lepe]]

(si hacen clic en la imagen para ver la original, asegúrense de que imageshack no le cambia el tamaño para que quepa en su monitor. Asi podrán ver la diferencia real de ambos.

En tiempo de diseño:


En tiempo de ejecución obtienes esto:


En un monitor 16:10 de 24'' pantalla ancha a resolución 1920x1200 sólo con la barra de tareas de windows (sin barras de herramientas en el escritorio)

Detalles:
- Aparece el scrollbar horizontal aún cuando no sería necesario.
-Es una aplicación para gente con problemas de visión. Si quisiera ver así de grande las ventanas, usaría una resolución de 800x600 en el 24 pulgosos.

No sé que tipo de aplicación estás haciendo, pero deberías usar los Anchors, wsMaximized y punto pelota.

Saludos

[MAXIUM]

Algún día dare con el código. Lepe, en tiempo de diseño la forma a de estar en proporción 4:3 . Gracias por tu interes y ayuda.