Cambiar el modo de la Pantalla

[JOSE NARANJO]

Hola todos.

Tengo la siguiente función para cambiar el modo de video de 800 x 600 a otra resolución. En este caso la cambio a 1024x 768. en windows XP, funciona pefectamente, pero en un windows 2000 ó 98, la barra de inicio se ubica en la mitad la pantalla y se ve mas pequeña de lo normal.

QUE PUEDO HACER.

LA FUNCION ES LA SIGUIENTE


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(1024,768);
end;

[dec]

Hola,

No respondo a tu pregunta. Sin embargo, me parece que sería bueno conocer las resoluciones de pantalla disponibles, por si acaso tuviera algo que ver el problema conque tratemos de cambiar a una resolución, sencillamente, no disponible.

El siguiente código lo recogí "por ahí",... de veras no apunté de dónde y ahora no lo recuerdo. Necesitas un formulario, un botón, un "listbox" y un "edit".


procedure TForm1.Button1Click(Sender: TObject);
var
DC: THandle; // display context
Bits: Integer; // bits per pixel
HRes: Integer; // horizontal resolution
VRes: Integer; // vertical resolution
DM: TDevMode; // to Save EnumDisplaySettings
ModeNum: Longint; // video mode number
Ok: Bool;
fre: Integer; // refresh rate
begin
DC := GetDC(Handle);
Bits := GetDeviceCaps(DC, BITSPIXEL);
HRes := GetDeviceCaps(DC, HORZRES);
VRes := GetDeviceCaps(DC, VERTRES);
fre := GetDeviceCaps(DC, VREFRESH);
// Show Current Resolution
Edit1.Text := Format('%d bit, %d x %d', [Bits, HRes, VRes]);
ReleaseDC(Handle, DC); // Show all modes available ModeNum := 0; // The 1st one
ModeNum := 0;
EnumDisplaySettings(nil, ModeNum, DM);
ListBox1.Items.Add(Format('%d bit, %d x %d bei %d Hz', [DM.dmBitsPerPel,
DM.dmPelsWidth, DM.dmPelsHeight, Dm.dmDisplayFrequency]));
Ok := True;
while Ok do
begin
Inc(ModeNum); // Get next one
Ok := EnumDisplaySettings(nil, ModeNum, DM);
ListBox1.Items.Add(Format('%d bit, %d x %d bei %d Hz', [DM.dmBitsPerPel,
DM.dmPelsWidth, DM.dmPelsHeight, Dm.dmDisplayFrequency]));
end;
end;


En el "listbox" te aparecerá una lista con las resoluciones soportadas (o eso creo) y en el "edit" la que esté en uso. Siempre puedes adaptar el código más o menos según tus necesidades.

[JOSE NARANJO]

Hola,

Estuve implementado la rutina, pero desafortunadamente solo sirve para saber que resoluciones soporta el computador en donde se instala el programa.

Sigo con el problema que la barra de herramientas se ubica en la mitad de la pantalla. pareciera un problema de refrech.