Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-09-2003
Forjap Forjap is offline
Registrado
 
Registrado: ago 2003
Posts: 1
Poder: 0
Forjap Va por buen camino
Question Como puedo hacer para obtener la frecuencia de refresco horizontal del monitor??

Pues eso.. mi codigo fuente ( por si alguien se le ocurre algo mejor o alguien lo quiere coger...)
....
Como puedo obtener la frecuencia de refresco horizontal??

Procedure CambioResolucion(X,Y: Word; Frec: Cardinal; Cambiada: Boolean );
var
DevMode: TDeviceMode;
X_Ant, Y_Ant : Integer;
Frec_Ant : Byte;
begin
EnumDisplaySettings(nil, 0, DevMode);
X_Ant := GetSystemMetrics(SM_CXSCREEN);
Y_Ant := GetSystemMetrics(SM_CYSCREEN);

Frec_Ant := (DevMode.dmDisplayFrequency); //esto es lo que se debe mejorar
DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY;
DevMode.dmPelsWidth := X;
DevMode.dmPelsHeight := Y;
DevMode.dmDisplayFrequency := Frec;
Case ChangeDisplaySettings(DevMode, 0) Of
DISP_CHANGE_SUCCESSFUL :
Begin
// Application.MessageBox('Desea conservar esta configuracion?','CA');
If (not Cambiada) Then
If MessageDlg('Desea conservar esta configuración?',mtInformation ,mbOKCancel,0)= mrCancel then CambioResolucion(X_Ant, Y_Ant, Frec_Ant, True);
End;
DISP_CHANGE_FAILED :
Begin
ShowMessage('El controlador de pantalla no soporta ese modo gráfico');
End;
DISP_CHANGE_BADMODE :
Begin
ShowMessage('El modo gráfico no es soportado');
End;
End;

se le llama con ... CambioResolucion(1024,768,60,False);
Responder Con Cita
  #2  
Antiguo 28-03-2004
McKarthY McKarthY is offline
Registrado
 
Registrado: nov 2003
Posts: 5
Poder: 0
McKarthY Va por buen camino
Podrias mandarme el componente????

Hola Forjap, podrias mandarme el TDeviceMode a mi cuenta de correo, es que no lo encuentro x ningun lado, muchas gracias. Saludos
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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 14:07:01.


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