Форум по Delphi программированию

 



Вернуться   Форум по Delphi программированию > Разное > Исходники и статьи
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 02.04.2011, 17:40
Аватар для Admin
Admin Admin вне форума
Администратор
 
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,464
Версия Delphi: 7
Репутация: выкл
По умолчанию Код - Список видеорежимов

Отображение списка поддерживаемых видеорежимов монитора с возможностью програмной установки нужного режима.

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
 d: _devicemodeA;
 i: integer;
begin
 i:=0;
 while EnumDisplaySettings(nil,i,d)<>false do
  begin
   ListBox1.Items.Add('Mode: '+IntToStr(i+1)+' - '+FloatToStr(D.dmPelsWidth)+'x'+FloatToStr(D.dmPelsHeight)+'x'+FloatToStr(D.dmBitsPerPel)+' - '+FloatToStr(D.dmDisplayFrequency)+' Hz');
   inc(i,1);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 d: _devicemodeA;
begin
 EnumDisplaySettings(nil, ListBox1.ItemIndex, D);
 ChangeDisplaySettings(D, CDS_UPDATEREGISTRY);
end;
Ответить с цитированием
Ответ



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:47.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2020

ВКонтакте   Facebook   Twitter