LOADSYMBOLS (загрузка псевдографики)
LOADSYMBOLS([string])
| string | Строковая константа или переменная задающая модифицируемые символы. Если пропущено, то модифицируются символы по умолчанию. |
Процедура LOADSYMBOLS загружает "графические" символы для курсора мышки, RADIO-кнопок и CHECK-боксов, изменяя знакогенератор для текстового режима 25*80. LOADSYMBOLS НЕ влияет на прочие текстовые режимы, устанавливаемые процедурой SETTEXT.
Указанные в STRING символы заменяются на символы, представляющие курсор мышки как стрелку, RADIO-кнопки как "бычьи глаза" (когда кнопка выбрана) и CHECK-боксы как квадраты с буквой "Х" внутри (когда чекбокс активен). Желательно, чтобы символы в STRING не использовались где-либо еще в программе.
Если STRING пропущена, то модифицируется определенный набор символов, которые, обычно, редко используются. "Графические" символы для RADIO-кнопок и чекбоксов используют только два знакоместа, в то время, как обычное представление требует трех знакомест (т.е. (+) и [Х]). Коды символов должны задаваться в следующем порядке:
| Курсор мышки | 1 | Стрелка |
| RADIO выкл | 198, 2, 32 | Кружок |
| RADIO вкл | 207, 5, 32 | Кружок с точкой |
| CHECK выкл 209, 11, 32 | Квадрат | |
| CHECK вкл 211, 19, 32 | Квадрат с "Х" |
(А.С.П. - "1" для мышки это не опечатка, в книге так и стоит...)
При завершении программы, знакогенератор восстанавливается в исходном виде. Также, знакогенератор восстанавливается на время выполнения процедур RUN и RUNSMALL.
Если вы хотите использовать "графику" собственного изготовления, то загрузите свой знакогенератор какой-либо утилитой. После загрузки знакогенератора, используйте функцию USESYMBOLS, чтобы указать, какие именно символы использовать.USESYMBOLS аналогична LOADSYMBOLS, за исключением того, что она не модифицирует знакогенератор.
Пример:
LOADSYMBOLS !Использовать стандартный на-
!бор символов
LOADSYMBOLS('<1,198,2,33,207,5,32,209,11,32,211,19,32>')
!Использовать стандартный на-
!бор символов
LOADSYMBOLS('<170>') !Код ASCII 170 для мышки,
! остальное - стандартно.
LOADSYMBOLS('<228,229,230,231,232,233,234,235,236,237,238,239| ,240>')
!Использовать коды от 228 до 240
См. также:
