Скачать: CL | DM;

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

← →
!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

---

← →
Grief ©   (2005-09-20 21:17) [5]

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

---

← →
XProger ©   (2005-09-20 22:07) [6]

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;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c