Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.31;
Скачать: [xml.tar.bz2];

Вниз

Как программно изменить разрешение монитора?   Найти похожие ветки 

 
Andrey007   (2003-03-20 14:04) [0]

Помимо этого, нужно изменять разрешение монитора при переключении между программами - то есть, когда вызывается разрабатываемая программа, надо устанавливать разрешение 1024x768, а когда пользователь переключается на другую программу, разрешение должно изменяться на исходное. То есть, надо ещё отлавливать событие переключения между приложениями. Как это сделать?


 
CAMOBAP   (2003-03-20 14:19) [1]

var
dm : TDEVMODE;
begin
ZeroMemory(@dm, sizeof(TDEVMODE));
dm.dmSize := sizeof(TDEVMODE);
dm.dmPelsWidth := 1024;
dm.dmPelsHeight := 768;
dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
ChangeDisplaySettings(dm, 0);
end;


 
Andrey007   (2003-03-20 14:51) [2]

Спасибо, САМОВАР!
Ваш вариант страдает тем недостатком, что при установке таким способом нужного разрешения и возврата к исходному, сбиваются настройки монитора (трапецевидность, подушкообразность, растянутость изображения по вертикали и горизонтали). Как этого можно избежать?


 
Andrey007   (2003-03-20 15:14) [3]

Небольшое уточнение. Настройки монитора сбиваются только если программу запускать из-под Delphi, а если запускать exe-файл, то всё нормально. Так что вопрос об изменении разрешения монитора закрыт.
Остался вопрос о перехвате сообщений о переключении между приложениями.



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

Форум: "Основная";
Текущий архив: 2003.03.31;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.006 c
7-100470
Александр К
2003-02-01 23:06
2003.03.31
Самомодифицирующийся код


14-100463
Vovchik_A
2003-03-14 23:27
2003.03.31
Пьем водку !!!


1-100237
dm37
2003-03-18 12:08
2003.03.31
Работа с файлами


1-100285
OlegM
2003-03-18 13:52
2003.03.31
case и string


7-100471
KPV-10k
2003-02-02 20:31
2003.03.31
Как узнать все DeviceID CD-DRIVE s для команды mciSendCommand





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский