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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 09-08-2007
Avatar de ingabraham
ingabraham ingabraham is offline
Miembro
 
Registrado: ago 2007
Posts: 589
Poder: 11
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
  #2  
Antiguo 09-08-2007
Avatar de ingabraham
ingabraham ingabraham is offline
Miembro
 
Registrado: ago 2007
Posts: 589
Poder: 11
ingabraham Va por buen camino
ha, me disculpan por el resalto de codigo delphi, esq no se activo.

para llamarlo lo sgte:
configurar_pantalla;
Responder Con Cita
  #3  
Antiguo 09-08-2007
Avatar de vtdeleon
vtdeleon vtdeleon is offline
Registrado
 
Registrado: abr 2004
Ubicación: RD & USA
Posts: 3.236
Poder: 17
vtdeleon Va por buen camino
Si colocas el cogido dentro de [delphi] [/delphi ], se activará la etiqueta.
Responder Con Cita
  #4  
Antiguo 09-08-2007
Avatar de vtdeleon
vtdeleon vtdeleon is offline
Registrado
 
Registrado: abr 2004
Ubicación: RD & USA
Posts: 3.236
Poder: 17
vtdeleon Va por buen camino
Si colocas el codigo dentro de [ delphi ] tu codigo aquí [ /delphi ] (sin los espacios), se activara la etiqueta.
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 20:58:35.


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