Resolución del monitor
Radaalvaro:
Me gustaría saber cómo hago para tener en cuenta la resolución del monitor dónde se está corriendo una aplicación creada en Delphi. Esto te lo pregunto porque estoy trabajando en 600x800 y cuando veo la aplicación en un monitor de 640x480 se ve realmente desastrosa.
Muchas gracias por tu respuesta,
Mariano.
Me gustaría saber cómo hago para tener en cuenta la resolución del monitor dónde se está corriendo una aplicación creada en Delphi. Esto te lo pregunto porque estoy trabajando en 600x800 y cuando veo la aplicación en un monitor de 640x480 se ve realmente desastrosa.
Muchas gracias por tu respuesta,
Mariano.
1 Respuesta
Respuesta de radaalvaro
1
Este es el modo más sencillo de saber en que resolución estamos trabajando
screen.Width; {Ancho}
screen.Height; {Alto}
y este es el modo de cambiarlo dentro de nuestro programa.
procedure TForm1.Button1Click(Sender: TObject);
function NuevaRes(XRes, YRes: DWord):integer;
var
lpDevMode : TDeviceMode;
begin
EnumDisplaySettings(nil, 0, lpDevMode);
lpDevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth:=XRes;
lpDevMode.dmPelsHeight:=YRes;
NuevaRes:=ChangeDisplaySettings(lpDevMode, 0);
end;
begin
NuevaRes(800,600);
end;
screen.Width; {Ancho}
screen.Height; {Alto}
y este es el modo de cambiarlo dentro de nuestro programa.
procedure TForm1.Button1Click(Sender: TObject);
function NuevaRes(XRes, YRes: DWord):integer;
var
lpDevMode : TDeviceMode;
begin
EnumDisplaySettings(nil, 0, lpDevMode);
lpDevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth:=XRes;
lpDevMode.dmPelsHeight:=YRes;
NuevaRes:=ChangeDisplaySettings(lpDevMode, 0);
end;
begin
NuevaRes(800,600);
end;
