IGxSystemFontNames.Item

Синтаксис

Item(Index: Integer): String;

Параметры

Index. Индекс системного шрифта.

Описание

Свойство Item возвращает название системного шрифта по его порядковому номеру.

Комментарии

Для определения количества системных шрифтов используйте IGxSystemFontNames.Count.

Пример

Добавьте ссылку на системную сборку Drawing.

Sub UserProc;
Var
    font: IGxSystemFontNames;
    n: integer;
    names: string;
    i: integer;
Begin
    // Создадим объект для работы с системными шрифтами
    font := New GxSystemFontNames.Create;
    // Получим количество системных шрифтов
    n := font.Count - 1;
    // Получим и выведем в окно консоли названия и количество всех системных шрифтов
    For i := 1 To n Do
        names := font.Item(i - 1);
        Debug.WriteLine("Название системного шрифта №" + i.ToString + " = " + names);
    End For;
    Debug.WriteLine("Количество системных шрифтов = " + n.ToString);
End Sub UserProc;

После выполнения примера в окно консоли будут выведены названия и количество всех системных шрифтов.

См. также:

IGxSystemFontNames