Emular widescreen en VirtualPC

[[Lepe]]

Pues VirtualBox (opino igual que donald).

Lo que yo usé (y me mareó un poco) fue el "spanning". Al poner un tamaño de escritorio mayor a tu monitor, sólo puede visualizar parte del escritorio, (es algo así como si tuvieses puesto el ampliador de windows), no tienes scrollbar; conforme mueves el ratón hacia los bordes del monitor, el escritorio se centra en ese área.

Opino que con esta opción no te harás la idea real de lo que verá un usuario en su monitor WideScreen, pero ojo, es mi opinión después de haberlo usado, puede que a tí si te ayude.

Siento no poder ayudar más. Saludos

[MAXIUM]

Bien gracias, he solucionado el asunto en parte utilizando programas que me permiten resoluciones de este tipo como MultiRes o ResChanger.

Ahora me surge un inconveniente en este código. De partida, mi aplicación trabaja maximizada. Lo que hace es determinar si mi monitor o resolución es 4:3, si lo es, escala en base al área de trabajo (resolución de la pantalla excluyendo la barra de tareas).

Sino, quita la propiedad maximizada y la cambia a normal para luego proporcionar en base a las dimensiones de diseño.

Este es el punto donde topo, al dejar WindowState:= wsNormal, cada vez que intento darle una dimensión a la forma o escalarlo, este se maximiza.

Dicho de otro modo, mi programa debiera mantener su proporción 4:3 (como fue diseñado) y centrado horizontalmente en la pantalla.

Si hay dudas, me avisan y les hago un dibujo

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
Const Proporcion = 4/3;
Var Area: TRect;
Begin
  // Redimensiona la aplicación en base a la resolución de la pantalla.
     SystemParametersInfo(SPI_GETWORKAREA, 0, @Area, 0);
     If (Screen.Width/Screen.Height) = Proporcion Then
         ScaleBy(Area.Bottom, Form1.Height)
     Else
     Begin
         Form1.WindowState:= wsNormal;
         Form1.Height:= Area.Bottom;
         ScaleBy(Area.Bottom, Form1.Height);
     End;

A todo esto, que es mas optimo, usar la API para determinar el área de trabajo o utilizar por ejemplo Screen.WorkAreaWidth

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