Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Los mejores trucos

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 09-08-2007
Avatar de ingabraham
ingabraham ingabraham is offline
Miembro
 
Registrado: ago 2007
Posts: 614
Poder: 17
ingabraham Va por buen camino
Configurar resolucion de pantalla

ok. tengo bien redactado un codigo para efectuar una resolucion, preguntando al usuario.
Estos codigos ya tienen autores, asi q disculpen, respeto mucho los derechos de autores. esta bien formulado 100%
Código Delphi [-]
//[][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][]
function PonResolucion(x, y:word ):boolean;
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 configurar_pantalla;
Var ModoOriginal: TDevMode;
begin
     EnumDisplaySettings('\\.\Display1', Cardinal(-1), ModoOriginal);

     if(ModoOriginal.dmPelsWidth<>1280)then
     begin
        messagedlg('Su Configuración actual es de: '+IntToStr(ModoOriginal.dmPelsWidth)+'',mtInformation,[mbok],0);
        IF Application.MessageBox ('Para una mejor Resolución, se Configurará a 1280 x 800' + Chr(13)+'¿Desea que se efectue esta configuración?',      'Información',mb_YesNo+MB_ICONQUESTION) = idYes Then
        PonResolucion(1280,800);
     end;
end;
//[][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][]
Responder Con Cita
 


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 10:45:41.


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