SETSTYLES (установить Коды Цветовых Стилей)
SETSTYLES(program array)
| Массив из 256 элементов типа BYTE, или STRING(256). |
SETSTYLES присваивает значения, содержащиеся в PROGRAM ARRAY внутреннему массиву кодов цветовых стилей. Это дает возможность "на лету" изменять цветовую гамму программы.
Внутренний массив кодов цветовых стилей - 256-байтный массив, хранящий текущие коды цветовых стилей. Его элементы нумеруются от 0 до 255. Каждый элемент, изначально, имеет значение, равное его номеру (эл-т[0]=0, эл-т[1]=1..эл-т[255]=255). Каждый атрибут и оператор, использующий коды цветовых стилей, обращается к этому массиву и определяет цвета для конкретного кода цветового стиля.
Но, поскольку, массивы Кларион нумеруются с единицы, то SETSTYLES присваивает первый элемент PROGRAM ARRAY нулевому элементу внутреннего массива кодов цветовых стилей, второй - первому...
Пример:
StyleCodes STRING(256) !Программный массив
StyleArray BYTE,DIM(256),OVER(StyleCodes)
Screen SCREEN,COLOR(0) !По умолчанию - цвет черный на черном
ROW(2,3) ENTRY(@N4),USE(Fieldl),COLOR(0,1,2)
ROW(3,3) ENTRY(@N4),USE(Field2),COLOR(0,1,2)
.
CODE
StyleCodes = STYLES() !Получаем текущие стили
StyleArray[1] = 31 !ЯркоБелый на Синем
StyleArray[2] = 48 !Черный на Салатном
StyleArray[3] = 23 !Белый на Синем
SETSTYLES(StyleArray) !Установить новые стили
OPEN(Screen) !Экран теперь ЯркоБелый на Синем
! Field1 - Черный на Салатном (активное)
DISABLE(?Field2) !Field2 - Белый на Синем (затененное)
См. также: , ,
