Задают цвет фона и основной цвет символов, используемые при отображении текста и графики в объекте.Доступны на этапе разработки и на этапе выполнения
Object.BackColor[ = nColor] Object.ForeColor[ = nColor] |
Возвращаемое значение
- nColor
- Задает значение конкретного цвета. Если nColor имеет отрицательное значение, Visual FoxPro будет использовать целое число. Например, -1 будет приравнено к 0xFFFFFFFF. В следующей таблице перечисленв основные значения цветов.
Цвет Значения RGB Значение nColor Белый
255, 255, 255
16777215
Черный
0, 0, 0
0
Серый
192, 192, 192
12632256
Темно-серый
128, 128, 128
8421504
Красный
255, 0, 0
255
Темно-красный
128, 0, 0
128
Желтый
255, 255, 0
65535
Темно-желтый
128, 128, 0
32896
Зеленый
0, 255, 0
65280
Темно-зеленый
0, 128, 0
32768
Голубой
0, 255, 255
16776960
Темно-голубой
0, 128, 128
8421376
Синий
0, 0, 255
16711680
Темно-синий
0, 0, 128
8388608
Фиолетовый
255, 0 ,255
16711935
Темно-фиолетовый
128, 0, 128
8388736
Примечание
Применяется к: CheckBox Control | Column Object | ComboBox Control | CommandButton Control | CommandGroup Control | Container Object | Control Object | EditBox Control | Form Object | Grid Control | Header Object | Label Control | OptionButton Control | OptionGroup Control | Page Object | _SCREEN | Shape Control | Spinner Control | TextBox Control | ToolBar Object
В Visual FoxPro используется цветовая схема "красный-зеленый-синий" (RGB). Красный, зеленый и синий компоненты представлены числовыми значениями из диапазона от 0 до 255. С помощью функции RGB( ) можно преобразовать эти три цветовые компонента в один комплексный индикатор nColor.
![]() |
---|
Свойство ForeColor не применяется к элементам управления CommandGroup, OptionGroup и Shape. |
Установки цвета, или Темы, операционной системы задают параметры настройки цвета по умолчанию для BackColor и ForeColor.
Если значение свойства Themes установлено в True (.T.), установка значения свойства BackColor приведет к
появлению 35% прозрачности верхнего слоя на командной кнопки, цвет и форма которой управляются
темами операционной системы. Это произведет эффект подкрашивания.
Свойство Page BackColor игнорируется если Page Themes установлено в True (.T.).
Пример
Следующий пример показывает как с помощью элемента управления Shape можно создать круг, элипс или квадрат на форме и как с помощью свойства BackColor сделать заливку фона для созданных объектов .
В примере на форму помещаются Кнопка и группа Переключателей, с помощью которых выбирается один из созданных объектов Shape. .
![]() | |
---|---|
frmMyForm = CREATEOBJECT('Form') && Create a Form frmMyForm.Closable = .F. && Disable the Control menu box frmMyForm.AddObject('cmdCommand1','cmdMyCmndBtn') && Add Command button frmMyForm.AddObject('opgOptionGroup1','opgMyOptGrp') && Add Option Group frmMyForm.AddObject('shpCircle1','shpMyCircle') && Add Circle Shape frmMyForm.AddObject('shpEllipse1','shpMyEllipse') && Add Ellipse Shape frmMyForm.AddObject('shpSquare','shpMySquare') && Add Box Shape frmMyForm.cmdCommand1.Visible =.T. && "Quit" Command button visible frmMyForm.opgOptionGroup1.Buttons(1).Caption = "\<Circle" frmMyForm.opgOptionGroup1.Buttons(2).Caption = "\<Ellipse" frmMyForm.opgOptionGroup1.Buttons(3).Caption = "\<Square" frmMyForm.opgOptionGroup1.SetAll("Width", 100) && Set Option group width frmMyForm.opgOptionGroup1.Visible = .T. && Option Group visible frmMyForm.opgOptionGroup1.Click && Show the circle frmMyForm.SHOW && Display the form READ EVENTS && Start event processing DEFINE CLASS opgMyOptGrp AS OptionGroup && Create an Option Group ButtonCount = 3 && Three Option buttons Top = 10 Left = 10 Height = 75 Width = 100 PROCEDURE Click ThisForm.shpCircle1.Visible = .F. && Hide the circle ThisForm.shpEllipse1.Visible = .F. && Hide the ellipse ThisForm.shpSquare.Visible = .F. && Hide the square DO CASE CASE ThisForm.opgOptionGroup1.Value = 1 ThisForm.shpCircle1.Visible = .T. && Show the circle CASE ThisForm.opgOptionGroup1.Value = 2 ThisForm.shpEllipse1.Visible = .T. && Show the ellipse CASE ThisForm.opgOptionGroup1.Value = 3 ThisForm.shpSquare.Visible = .T. && Show the square ENDCASE ENDDEFINE DEFINE CLASS cmdMyCmndBtn AS CommandButton && Create Command button Caption = '\<Quit' && Caption on the Command button Cancel = .T. && Default Cancel Command button (Esc) Left = 125 && Command button column Top = 210 && Command button row Height = 25 && Command button height PROCEDURE Click CLEAR EVENTS && Stop event processing, close Form ENDDEFINE DEFINE CLASS shpMyCircle AS SHAPE && Create a circle Top = 10 Left = 200 Width = 100 Height = 100 Curvature = 99 BackColor = RGB(255,0,0) && Red ENDDEFINE DEFINE CLASS shpMyEllipse AS SHAPE && Create an ellipse Top = 35 Left = 200 Width = 100 Height = 50 Curvature = 99 BackColor = RGB(0,128,0) && Green ENDDEFINE DEFINE CLASS shpMySquare AS SHAPE && Create a square Top = 10 Left = 200 Width = 100 Height = 100 Curvature = 0 BackColor = RGB(0,0,255) && Blue ENDDEFINE |
Смотри Также
Прочие ресурсы
Свойство BackStyleСвойство ColorScheme
Свойства DisabledBackColor, DisabledForeColor
Свойство FillColor
Свойство FillStyle
Функция GETCOLOR( )
Функция RGB( )
Свойства
Справочное руководство