Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-08-2003
Avatar de eduarcol
[eduarcol] eduarcol is offline
Miembro Premium
 
Registrado: ago 2003
Ubicación: En los estados Zulia y Merida de Venezuela
Posts: 4.151
Poder: 26
eduarcol Va por buen camino
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???
Responder Con Cita
  #2  
Antiguo 12-08-2003
andres1569 andres1569 is offline
Miembro
 
Registrado: may 2003
Posts: 908
Poder: 22
andres1569 Va por buen camino
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.
__________________
Guía de Estilo
Responder Con Cita
  #3  
Antiguo 21-08-2003
delphi_gama delphi_gama is offline
Registrado
 
Registrado: ago 2003
Posts: 3
Poder: 0
delphi_gama Va por buen camino
Post

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.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 01:39:00.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi