Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата

Character           facename – имя шрифта.

Выгрузка шрифта.

Выгрузка зарегистрированных шрифтов из памяти осуществляется п/п UnRegisterFonts ()

Пример программы деления экрана на 4 области.

!              File: geomshar.for

$DEBUG         ! Производит дополнительные проверки при компиляции

$STORAGE:2  ! Переменные и константы целого типа:2-х байтовые (integer*2)

$DECLARE      ! Генерация предупреждающих сообщений для необъявленных переменных

      include 'fgraph.fi'      ! Включение интерфейсов графических функций в начале каждого файла

      interface to function getch()      ! Объявление ф-ции getch, ее

      integer getch [C, alias:'_getch'] ! атрибутов, типов формальных

      end                                            ! параметров

      program    Demonstr_devide_screen ! Объявление головной программы

      implicit   NONE          ! Запретить неявное объявление типов

      integer *2 i2               ! Фиктивная переменная

      integer  getch [EXTERN]

      include 'fgraph.fd' ! Объявление типов графических функций, объявление и задание параметров, определение структур (STRUCTURE) в каждой графической п/п

      i2=setvideomode($MAXRESMODE)  ! Установить видеорежим с max разрешением

      call devide_graph_area()

      i2=getch()                   ! Задержка до нажатия клавиши

      i2=setvideomode($DEFAULTMODE) ! Установить предыдущий видеорежим

      end

 ! п/п деления экрана на 4 области

      subroutine devide_graph_area()

      include    'fgraph.fd'

Рекомендуем скачать другие рефераты по теме: 1 класс контрольная работа, диплом школа.



Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки