VPF::разрешение и частота - Форум программистов

Siv

Дата 16.3.2006, 23:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 4.10.2003
Где: zp.ua

Репутация: нет
Всего: нет

Нужно вывести в список поддерживаемые монитором разрешения и частоту. Глядел в разные FAQ_и, кроме разреения и кол - во цветов ниче не наюзал((( есть идеи?

teplotaya

Дата 17.3.2006, 01:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 46
Регистрация: 10.3.2006

Репутация: нет
Всего: 2

EnumDisplaySettings(...)

Siv

Дата 17.3.2006, 02:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 4.10.2003
Где: zp.ua

Репутация: нет
Всего: нет

teplotaya, эта функция получает частоту установленную в данный момент, а нужен список smile

Alexeis

Дата 17.3.2006, 11:25 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Siv, у меня есть программа которая это делает
Добавлено @ 11:29
Лови вот ссылка
Добавлено @ 11:33
Она не только получает список но и позволяет запускать программы и файлы вообще (при помощи ярлыков) при любых параметрах и гибко меняет размеры и положение чтоб оставаться в поле видимости. При аварийном завершении возврващает все как было
Добавлено @ 11:39

Вот фрагмент который делает то что надо

Код


type
  sp = ^dsp;
  dsp = Record
          DeviceMode : TDevMode;
          next : sp;
        end;

var
    pstart,pend,pn : sp;

............
 var
     a,i : Integer;
     d   : TDevMode;
     p   : pansichar;
     b   : boolean;
begin
  p := nil;
  a := 0;
  New(pstart);
  pend := pstart;
  Repeat
    b := EnumDisplaySettings(p,a,d);
    inc(a);
    Combobox1.Items.Add(
                    inttostr(d.dmPelsWidth) + 'x' +
                    inttostr(d.dmPelsHeight) + '   Color - ' +
                    inttostr(d.dmBitsPerPel) + ' bit ' +
                    inttostr(d.dmDisplayFrequency)+ 'Hz');
     pend^.DeviceMode := d;
     New(pn);
     pend^.next := pn;
     pend := pn;
    until not b;
  pend.next := Nil;
  Combobox1.MaxLength := a;

Это сообщение отредактировал(а) alexeis1 - 17.3.2006, 11:40

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Siv

Дата 17.3.2006, 22:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 4.10.2003
Где: zp.ua

Репутация: нет
Всего: нет

alexeis1, а можно, если не трудно примерчик в rar_e иль zip_e выложить, а то распаковать не получается, а с кодом фигня какая - то((((

Alexeis

Дата 21.3.2006, 11:57 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Siv, это архив rar

Поясняю пример
код

Код


type    
  sp = ^dsp;    
  dsp = Record    
          DeviceMode : TDevMode;    
          next : sp;    
        end;    
var    
    pstart,pend,pn : sp;

пишется вне функции (глобальное объявление)

код

Код


 var    
     a,i : Integer;    
     d   : TDevMode;    
     p   : pansichar;    
     b   : boolean;    
begin    
  p := nil;    
  a := 0;    
  New(pstart);    
  pend := pstart;    
  Repeat    
    b := EnumDisplaySettings(p,a,d);    
    inc(a);    
    Combobox1.Items.Add(    
                    inttostr(d.dmPelsWidth) + 'x' +    
                    inttostr(d.dmPelsHeight) + '   Color - ' +    
                    inttostr(d.dmBitsPerPel) + ' bit ' +    
                    inttostr(d.dmDisplayFrequency)+ 'Hz');    
     pend^.DeviceMode := d;    
     New(pn);    
     pend^.next := pn;    
     pend := pn;    
    until not b;    
  pend.next := Nil;    
  Combobox1.MaxLength := a;

помещается в функцию (или метод)

pstart указатель на начало односвязного списка(хотел же список)
можно конечно переделать в массив

каждый элемент списка содержит запись
типа TDevMode.

В ней описан один из возможных режимов подержанных как монитором так и видиокартой(некоторые режимы рабочие но не прописанные в мониторе здесь могут отсутствовать(но их использование все равно не желательно smile

)).

Все элементы полностью все режимы.

Combobox1 у меня также отображает список (не забудьте бросить на форму smile

) , но его данные не годятся для установки режимов, поэтому и дублировал данные списком.

Вроде все.

пишите что конкретно непонятно smile

Добавлено @ 11:58

ps. первая ссылка (на *.7z уже не действительна)

--------------------

Siv

Дата 8.5.2006, 15:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 4.10.2003
Где: zp.ua

Репутация: нет
Всего: нет

огромное спасибо, извини что так долго smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »