Skærmopløsning

Hvordan ændrer man skærmens opløsning, fra fx 800x600 til 640x480, i Delphi.

nlf :-)

Hej

Fandt følgende kode i min gemmer. Har ikke selv prøvet det.

uses Windows;

function SetScreenResolution(Width, Height: integer): Longint;
var
DeviceMode: TDeviceMode;
begin
with DeviceMode do begin
dmSize := SizeOf(TDeviceMode);
dmPelsWidth := Width;
dmPelsHeight := Height;
dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
end;
Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY);
end;


Rednex

Hvordan ændrer man skærmens opløsning, fra fx 800x600 til 640x480, i Delphi.

nlf :-)

Hej

Fandt følgende kode i min gemmer. Har ikke selv prøvet det.

uses Windows;

function SetScreenResolution(Width, Height: integer): Longint;
var
DeviceMode: TDeviceMode;
begin
with DeviceMode do begin
dmSize := SizeOf(TDeviceMode);
dmPelsWidth := Width;
dmPelsHeight := Height;
dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
end;
Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY);
end;


Rednex

Det virker det med opløsningen, men samtidig ændrer den også opdateringshastighed, hvordan ændrer man det?

nlf :-)

Det virker det med opløsningen, men samtidig ændrer den også opdateringshastighed, hvordan ændrer man det?

nlf :-)

TDevMode har også en variable der hedder dmDisplayFrequency som så vidt jeg ved anvendes til dette. Check evt. TDevMode i online hjælp jeg har ikke Delphi installeret på den PC jeg sidder ved i øjeblikket så jeg har ikke selv haft mulighed for at checke.

Rednex