Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Configurar resolucion de pantalla (https://www.clubdelphi.com/foros/showthread.php?t=80826)

ingabraham 09-08-2007 01:48:19

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;
//[][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][]

ingabraham 09-08-2007 01:48:20

ha, me disculpan por el resalto de codigo delphi, esq no se activo.

para llamarlo lo sgte:
configurar_pantalla;

vtdeleon 09-08-2007 02:12:39

Si colocas el cogido dentro de [delphi] [/delphi ], se activará la etiqueta.

vtdeleon 09-08-2007 02:13:47

Si colocas el codigo dentro de [ delphi ] tu codigo aquí [ /delphi ] (sin los espacios), se activara la etiqueta.


La franja horaria es GMT +2. Ahora son las 12:46:38.

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