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

Люди добрые!!! Как правильно менять разрешение экрана????   Найти похожие ветки 

← →
VEG ©   (2001-10-13 21:40) [0]

Функция:
function SetFullscreenMode:Boolean;
var DeviceMode : TDevMode;
begin
with DeviceMode do
begin dmSize:=SizeOf(DeviceMode);
dmBitsPerPel:=16;
dmPelsWidth:=640;
dmPelsHeight:=480;
dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
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 absolute 0;
begin
ChangeDisplaySettings(T,CDS_FULLSCREEN);
end;
На некоторых компах не работает!! (точнее при возвращении назад частота обновления экрана съезжает на 60 гц).

---

← →
Anatoly Podgoretsky ©   (2001-10-14 14:04) [1]

Правильно менять с помощью мышки, пользовательскими функциями или ты выше его Пользователя?

---

← →
Ray ©   (2001-10-14 14:10) [2]

у меня на сайте есть мой компонент с исходником для смены разрешения экрана
http://rayadams.r2.ru

---

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

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



Память: 0.45 MB
Время: 0.008 c