FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#4
|
|||
|
|||
Encontre esto, creen que me sirva? enseguida lo provare.
Para cambiar la resolución de la pantalla puede usar la siguiente función que envuelve la función API de Windows ChangeDisplaySettings. La función toma el ancho y altura deseados como parámetros y devuelve el valor de retorno de ChangeDisplaySettings (vea la documentación para más detalles). uses Windows; function SetScreenResolution(Ancho, Altura: integer): Longint; var DeviceMode: TDeviceMode; begin with DeviceMode do begin dmSize := SizeOf(TDeviceMode); dmPelsWidth := Ancho; dmPelsHeight := Altura; dmFields := DM_PELSWIDTH or DM_PELSHEIGHT; end; Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY); end; Puede usar ChangeDisplaySettings para cambiar otras propiedades de la pantalla como la profundidad color y la tasa de refresco. Llamada de ejemplo En el siguiente ejemplo primero obtenemos la resolución actual antes de establecerla en 800x600, y luego la restauramos llamando nuevamente a SetScreenResolution. var AnchoViejo, AlturaVieja: integer; procedure TForm1.Button1Click(Sender: TObject); begin AnchoViejo := GetSystemMetrics(SM_CXSCREEN); AlturaVieja := GetSystemMetrics(SM_CYSCREEN); SetScreenResolution(800, 600); end; procedure TForm1.Button2Click(Sender: TObject); begin SetScreenResolution(AnchoViejo, AlturaVieja); end; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Cambiar el modo de la Pantalla | JOSE NARANJO | Varios | 2 | 10-11-2006 18:10:03 |
Configurar la pantalla | El_Chava | API de Windows | 2 | 30-09-2005 21:46:46 |
problema al cambiar fondo de pantalla | JaMFrY | Varios | 5 | 14-06-2004 16:29:59 |
Como cambiar la configuración de pantalla??? | Bird15 | Gráficos | 2 | 25-09-2003 14:03:28 |
pantalla dockeable | dosena | OOP | 2 | 05-08-2003 18:55:51 |
|