Home

Page 60
Page 60
background image

Простые шутки 53

Прежде чем написать код, надо объявить массив из переменных типа

 в котором мы будем сохранять параметры найденных видеорежи-

мов. Для этого найдите раздел

 и запишите в нем:

private

( Private declarations }

 of TDevMode;

public

{ Public declarations }

Таким образом мы объявили массив из 255 элементов типа TDevMode.

Для начала создадим обработчик события onclick для кнопки считывания

возможных видеорежимов и напишем в нем следующий текст:

procedure

 TObject);

var

i: Integer;

begin

i

 0;

while

 i,

 do

begin

 '

Inc(i);

end;

end;

В первой строке кода очищается содержимое списка

 с помощью

вызова метода ListBoxl.

 В следующей строке обнуляется пе-

ременная i, которая будет использоваться в качестве простого счетчика и
указывать, какой по счету видеорежим нам нужен.
Дальше вызывается функция

 которая перечисляет

доступные системе видеорежимы. У этой функции три параметра:

1. Устройство, для которого надо перечислять режимы. Здесь нужно что-то

указывать только если в системе несколько мониторов. Если вы простой
смертный и пользуетесь одним монитором, то можно смело указывать nil.

2. Здесь указывается индекс режима, который нам нужен. В приведенном

коде указана переменная i, которая перед каждым вызовом будет увели-

чиваться на 1, а значит мы будет каждый раз получать следующий по
счету режим.


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.