Разрешение экрана

← →
S46E (2005-11-10 16:37) [0]

Как поменять принудительно разрешение экрана на 1024x768? Частоту обновления?

Делаю текстовый квест с полноэкранным режимом.

← →
Antonn © (2005-11-10 16:45) [1]

я так делал (передавай хендл окна, герцовку берет из настроек):

function SetFullscreenMode(_handle:HWND): Boolean;
var DeviceMode: TDevMode; DC: THandle; fre: integer;
begin
with DeviceMode do
begin
DC := GetDC(_handle);
fre := GetDeviceCaps(DC, VREFRESH);
ReleaseDC(_handle, DC);
dmSize := SizeOf(DeviceMode);
dmBitsPerPel := 32;
dmDisplayFrequency:=fre;
dmPelsWidth := 640;
dmPelsHeight := 480;
dmFields := DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY;
result := False;
if ChangeDisplaySettings(DeviceMode, CDS_TEST or CDS_FULLSCREEN) <>
DISP_CHANGE_SUCCESSFUL then
Exit;
Result := ChangeDisplaySettings(DeviceMode, CDS_FULLSCREEN) =
DISP_CHANGE_SUCCESSFUL;
end;
end;

procedure RestoreDefaultMode;
var T: TDevMode;
begin
ChangeDisplaySettings(T, CDS_FULLSCREEN);
end;

← →
S46E (2005-11-13 17:01) [2]

Использую вот так:
procedure TForm1.FullScreen; var modes:array [0..255] of TDevMode; dm: TDEVMODE; q:integer; maxF: Cardinal; begin maxF:=0; DefH:=dm.dmPelsHeight; DefW:=dm.dmPelsWidth; DefF:=dm.dmDisplayFrequency; ZeroMemory(@dm, sizeof(TDEVMODE)); dm.dmSize := sizeof(TDEVMODE); dm.dmPelsWidth := 1024; dm.dmPelsHeight := 768; q:=0; while EnumDisplaySettings(nil,q,Modes[q]) do begin if (Modes[q].dmPelsHeight=768) and (Modes[q].dmPelsWidth=1024) then begin if Modes[q].dmDisplayFrequency>maxF then MaxF:=Modes[q].dmDisplayFrequency end; Inc(q); end; dm.dmDisplayFrequency := MaxF; dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_DisplayFrequency; ChangeDisplaySettings(dm, 0); end; procedure TForm1.DefScreen; var dm: TDEVMODE; begin dm.dmPelsWidth := defW; dm.dmPelsHeight := defH; dm.dmDisplayFrequency := defF; ZeroMemory(@dm, sizeof(TDEVMODE)); dm.dmSize := sizeof(TDEVMODE); dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_DisplayFrequency; ChangeDisplaySettings(dm, 0); end;

Что делать с такими вещами как неправильное расположение окон программ при возращении в начальное разрешение( при DefScreen)? Как запустить FullScreen при активации окна после сворачивания?

← →
Anatoly Podgoretsky © (2005-11-13 17:42) [3]

Делать так - пользователю вредить, для этого был изобретен DirectX

← →
S46E (2005-11-13 20:00) [4]

Вечно все сводится к чему-то не к тому к чему шел..на этом примере можно решить проблемы которые я описал?:)

← →
Anatoly Podgoretsky © (2005-11-13 20:09) [5]

На этом примере можно испортить только рабочий стол пользователя как минимум.

Anatoly Podgoretsky, Все части Quake 2, 3; Doom 3 тоже портят? Сильно? Ужас какой... ;)

S46E, ты видимо и не проверял, что тебе насоветовали? А зря...

← →
S46E (2005-11-14 09:40) [7]

Проверил сразу же как написал тот пост..да, действительно круто=)
Остался вопрос как запустить SetFullscreenMode после активации окна после сворачивания.. OnActivate не срабатывает, кажется это не то что я думал..=)

Разрешение экрана Найти похожие ветки