Share via

DynamicBackColor, DynamicForeColor (Propiedades)

  • Artículo

Especifica los colores de fondo y primer plano de un objeto Column. Los colores se vuelven a evaluar en tiempo de ejecución cada vez que se actualiza el control Grid. Disponible en tiempo de diseño; es de lectura y escritura en tiempo de ejecución.

Column.DynamicBackColor[ = cExpression]Column.DynamicForeColor
[ = cExpression]

Valores de la propiedad

  • cExpression
    Especifica una expresión entre comillas que se vuelve a evaluar en tiempo de ejecución cada vez que se actualiza el control Grid. La evaluación en tiempo de ejecución debe producir un solo valor de color.

Observaciones

Es posible utilizar las propiedades DynamicBackColor y DynamicForeColor para crear efectos especiales, como mostrar las filas impares en verde y las pares en gris.

Ejemplo

El ejemplo siguiente utiliza la propiedad DynamicBackColor y el método SetAll para especificar los colores de fondo de los registros de un control Grid. Si el número de un registro mostrado en la cuadrícula es par, la propiedad DynamicBackColor del registro será blanca, de lo contrario DynamicBackColor será verde.

Se coloca un control Grid en un formulario, se abre la tabla customer y sus contenidos se muestran en el control Grid. La propiedad Caption se utiliza para especificar otro título de encabezado (Id. de cliente) para el campo CUST_ID. Se incluye un botón de comando en el formulario para cerrarlo.

CLOSE ALL  && Close tables and databases
OPEN DATABASE (HOME(2) + 'Data\testdata')

USE customer  IN 0  && Opens Customer table

frmMyForm = CREATEOBJECT('Form')  && Create a Form
frmMyForm.Closable = .f.  && Disable the Control menu box 

frmMyForm.AddObject('cmdCommand1','cmdMyCmdBtn')  && Add Command button
frmMyForm.AddObject('grdGrid1','Grid')  && Add Grid control

frmMyForm.grdGrid1.Left = 25  && Adjust Grid position

frmMyForm.grdGrid1.SetAll("DynamicBackColor", ;
   "IIF(MOD(RECNO( ), 2)=0, RGB(255,255,255) ;
   , RGB(0,255,0))", "Column")  && Alternate white and green records

frmMyForm.grdGrid1.Visible = .T.  && Grid control visible
frmMyForm.cmdCommand1.Visible =.T.  && "Quit" Command button visible
frmMyForm.grdGrid1.Column1.Header1.Caption = 'Customer ID'

frmMyForm.SHOW  && Display the form
READ EVENTS  && Start event processing

DEFINE CLASS cmdMyCmdBtn 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
      CLOSE ALL  && Close table and database
ENDDEFINE

Vea también

BackColor, ForeColor (Propiedades)

Se aplica a: Column