Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Вниз

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


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




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.032 c
3-90189           AlexeyV               2001-12-21 01:51  2002.01.28  
Events on ADO & MSSQL 2000


1-90286           Ig                    2002-01-08 22:43  2002.01.28  
Внешние компоненты в 1С


4-90432           Анатолий              2001-11-29 17:48  2002.01.28  
Список процессов.


4-90417           ogu                   2001-11-25 22:23  2002.01.28  
ProgressBar на API


4-90435           wHammer               2001-11-30 11:50  2002.01.28  
Звук