Mala Resolucion
 

Buenas tardes mis queridos amigos, tengo un problema debido a que tengo una aplicacion desarrollada para trabajar en una resolucion de 800*600, el problema es que un usuario tiene un computador donde la aplicacion se muestra a un resolucion menor a la que aparece configurado el video, razon por la cual salen cortadas las pantallas, el s.o. es windows 98 se y la tarjeta es una sis680... ¿¿que se puede hacer en este caso habra una dll especial???

Hola:

Aquí tiene 3 links a hilos que tratan el asunto:

http://www.clubdelphi.com/foros/show...p?threadid=220

http://www.clubdelphi.com/foros/show...p?threadid=429

http://www.clubdelphi.com/foros/show...?threadid=1331

No sé si esta tarjeta tendrá menos de 1 MByte de memoria (esto ya permite verse a 800x600 aunque no a true color), pero quizás, si le cobras la faena de adaptarle la interfaz, te resulte más rentable venderle una tarjeta nueva que soporte esa resolución.

este pequeño programita, cambia la resolucion de tu pantalla,

function DynamicResolution(X, Y: word): BOOL;
var lpDevMode: TDeviceMode;
begin
Result := EnumDisplaySettings(nil, 0, lpDevMode);
if Result then
begin
lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth := X; lpDevMode.dmPelsHeight := Y;
Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if DynamicResolution(800, 600) then ShowMessage('Resolución a: 800*600');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if DynamicResolution(640, 480) then ShowMessage('Resolución a: 640*480');
end;

solo titnes que adaptarlo a tus necesidades...
ok..

Espero que te sea de utiidad...
bye.