Форум: "Система";
Поиск по всему сайту: 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.71 MB
Время: 0.011 c
1-90248           Dmitriy_R             2002-01-09 15:18  2002.01.28  
Две кнопки и одна процедура?


7-90394           Windos                2001-10-18 15:18  2002.01.28  
Копирование


14-90380          Искатель              2001-12-02 00:17  2002.01.28  
Кто что использует для создания 3-х мерных элементов интерфейса?


3-90192           g                     2001-12-14 16:00  2002.01.28  
RxDBGrid


1-90320           Lcoder                2002-01-10 05:31  2002.01.28  
InstallShield -> системные ini-файлы