IGxSystemFontNames.Item

Синтаксис Fore

Item(Index: Integer): String;

Синтаксис Fore.NET

Item[Index: integer]: string;

Параметры

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

Описание

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

Комментарии

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

Пример Fore

Добавьте ссылку на системную сборку 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;

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

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Drawing;
…

Public Shared Sub Main(Params: StartParams);
Var
    font: GxSystemFontNames = New GxSystemFontNames();
    n: integer;
    names: string;
    i: integer;
Begin
    // Получим количество системных шрифтов
    n := font.Count - 1;
    // Получим и выведем в окно консоли названия и количество всех системных шрифтов
    For i := 1 To n Do
        names := font.Item[i - 1];
        System.Diagnostics.Debug.WriteLine("Название системного шрифта №" + i.ToString() + " = " + names);
    End For;
    System.Diagnostics.Debug.WriteLine("Количество системных шрифтов = " + n.ToString());
End Sub;

См. также:

IGxSystemFontNames