BackColor, ForeColor (Propiedades)

Especifica el color del fondo y de primer plano empleado para mostrar texto y gráficos en un objeto. Está disponible en tiempo de diseño y en tiempo de ejecución.

Object.BackColor[ = nColor]
Object.ForeColor[ = nColor]

Valores de la propiedad

• nColor
  Especifica un valor único de color.

  La tabla siguiente indica los valores típicos de color.

  Color	Configuración RGB	Configuración nColor
  Blanco	255, 255, 255	16777215
  Negro	0, 0, 0	0
  Gris	192, 192, 192	12632256
  Gris oscuro	128, 128, 128	8421504
  Rojo	255, 0, 0	255
  Rojo oscuro	128, 0, 0	128
  Amarillo	255, 255, 0	65535
  Amarillo oscuro	128, 128, 0	32896
  Verde	0, 255, 0	65280
  Verde oscuro	0, 128, 0	32768
  Aguamarina	0, 255, 255	16776960
  Verde azulado	0, 128, 128	8421376
  Azul	0, 0, 255	16711680
  Azul marino	0, 0, 128	8388608
  Fucsia	255, 0 ,255	16711935
  Fucsia oscuro	128, 0, 128	8388736

Si nColor es un valor negativo, Visual FoxPro utiliza el entero y pasa por alto los problemas de desbordamiento. Por ejemplo, -1 es el equivalente de 0xFFFFFFFF.

Observaciones

Visual FoxPro utiliza el esquema de colores rojo-verde-azul (RGB) de Windows. Los componentes rojo, verde y azul están representados por un número entre 0 y 255. Utilice la función RGB( ) para convertir los tres colores componentes en un valor nColor compuesto*.*

Nota   La propiedad BackColor no se aplica al control CommandButton. La propiedad ForeColor no se aplica a los controles CommandGroup, OptionGroup ni Shape.

Ejemplo

El ejemplo siguiente demuestra cómo puede utilizarse el control Shape para mostrar un círculo, una elipse o un cuadrado en un formulario, y cómo puede usarse la propiedad BackColor para especificar el color de cada forma.

Se crea un formulario y se incluyen varios botones de opción y un botón de comando. Cuando elija uno de los botones de opción, la forma correspondiente se mostrará en el formulario. La propiedad BackColor se utiliza para especificar el color de cada forma. Las propiedades Height, Width y Curvature de cada forma determinan el tipo de forma creada.

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

Vea también

BackStyle (Propiedad) | ColorScheme (Propiedad) | Introducción a los colores | DisabledBackColor, DisabledForeColor (Propiedades) | FillColor (Propiedad) | FillStyle (Propiedad) | GETCOLOR( ) (Función) | RGB( ) (Función)

Se aplica a: CheckBox (Control) | Column (Objeto) | ComboBox (Control) | CommandButton (Control) | CommandGroup (Control) | Container (Objeto) | Control (Objeto) | EditBox (Control) | Form (Objeto) | Grid (Control) | Header (Objeto) | Label (Control) | OptionButton (Control) | OptionGroup (Control) | Page (Objeto) | _SCREEN | Shape (Control) | Spinner (Control) | TextBox (Control) | ToolBar (Objeto)