Новости



Visual FoxPro 9 позволяет создавать ещё более производительные приложения баз данных.
Двадцатиление FoxPro! Microsoft принимает поздравления.
Visual FoxPro Toolkit for .NET - более 225 функций VFP 7.0, для языков .NET (подробнее)

fox00020.gif

* В следующем примере функция AFONT( ) создает массив, содержащий
* имена всех имеющихся шрифтов. Функция ALLTRIM( ) используется для
* удаления начальных и концевых пробелов из имен шрифтов. На экран
* выводится усеченное имя каждого шрифта в сопровождении образца
* этого шрифта. Если в системе установлено более 10 шрифтов, на экране
* отображаются только первые десять.

CLEAR

=AFONT(gaFontArray) && Array containing font names

gnNumFonts= ALEN(gaFontArray) && Number of fonts

IF gnNumFonts > 10

gnNumFonts = 10 && Display first 10 fonts

ENDIF

FOR nCount = 1 TO gnNumFonts

? ALLTRIM(gaFontArray(nCount)) && Display font name

?? ' This is an example of ' ;

+ ALLTRIM(gaFontArray(nCount)) FONT gaFontArray(nCount), 8

ENDFOR



Новое на сайте

  • Обновлен портфель программиста

    Добавлены: Установка HTML Help (Создание справочной системы), Imagedit.zip - Графический редактор ( ico и bmp), Библиотека локализации HTML Help (Русский)

  • Новые примеры программ

    Установка библиотек, Игровая программа "Охота на лис", Установка библиотек "Охота на лис", plastic -"Платежки", Библиотеки (на FPD26), platan -"Платежки" (на Clipper 5.2)

  • Обновленна справка

    Подсказки, технология программирования и использование Visual FoxPro. Команды, функции, операторы, объекты, свойства, события и методы.