Видео режимы

← →
!Trinix © (2005-09-19 18:11) [0]

Уважаемые, мастера.
Помогите мне с кодом:
1) Мне необходимо определить возможные режимы работы монитора по вертикали и горизонтали отдельно, например так Edit1.Text := 1024; Edit2.Text := 800;
2) Так же помогите применить эти режимы к монитору, а после выключения программы вернуть старый режим.
Я вас очень прошу - помогите.

← →
Delphi_is_cool © (2005-09-20 03:35) [1]

Для определения ширины и высоты:
Screen.Heigth
Screen.Width

Поищи в поисковике, там много найдёшь, хотя бы вот:
http://phorum.key.ru/viewtopic.php?p=224547

← →
Delphi_is (2005-09-20 03:37) [2]

Прошу прощенья, не Heigth а Height

← →
Delphi_is_cool © (2005-09-20 03:37) [3]

Прошу прощенья, не Heigth а Height

← →
Eraser © (2005-09-20 17:24) [4]

> !Trinix © (19.09.05 18:11)

EnumDisplaySettings

чтоб выставить разрешение и вернуть обратно - OpenGL и DirectX в помощь. Первое вродебы проще...

Grief, OpenGL ни о существовании монитора, ни о его разрешении понятия не имеет...
function glDisplay(Width, Height, BPP, Freq: integer): boolean; var dev : TDeviceMode; res : DWORD; bool : boolean; begin Result := false; FillChar(dev, SizeOf(dev), 0); dev.dmSize := sizeof(dev); EnumDisplaySettings(nil, 0, dev); with dev do begin dmPelsWidth := Width; dmPelsHeight := Height; dmBitsPerPel := BPP; dmDisplayFrequency := Freq; dmFields := DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY; res := ChangeDisplaySettings(dev, CDS_TEST or CDS_FULLSCREEN); if res = DISP_CHANGE_SUCCESSFUL then ChangeDisplaySettings(dev, CDS_FULLSCREEN); end; // случай с нуль-герцовкой для ЖК мониторов if res <> DISP_CHANGE_SUCCESSFUL then begin bool := false; if Freq > 0 then bool := glDisplay(Width, Height, BPP, 0); if not bool then begin ChangeDisplaySettings(_devicemodeA(nil^), CDS_FULLSCREEN); Exit; end; end; Result := true; end;

Видео режимы Найти похожие ветки