Compartir a través de

SetAll (Método)

  • Artículo

Asigna un valor de propiedad a todos o a cierta clase de controles en un objeto Container.

Container.SetAll(cProperty, Value [, cClass])

Parámetros

  • cProperty
    Especifica la propiedad que se va a configurar.
  • Valor
    Especifica el nuevo valor de propiedad. El tipo de datos Value depende de la propiedad que se esté configurando.
  • cClass
    Especifica el nombre de la clase en la que se basa el objeto, no la clase de base de Visual FoxPro para el objeto.

Observaciones

Utilice el método SetAll para establecer una propiedad para todos o para cierta clase de controles en un contenedor. Por ejemplo, para establecer la propiedad BackColor en rojo para todos los objetos Column de un control Grid, haga lo siguiente:

Form1.Grid1.SetAll("BackColor", RGB(255, 0, 0), "Column")

También puede establecer las propiedades de los objetos contenidos en otros objetos del contenedor. Para establecer en verde la propiedad ForeColor de los encabezados contenidos en cada objeto Column de un control Grid, ejecute lo siguiente:

Form1.Grid1.SetAll("ForeColor", RGB(0, 255, 0), "Header")

Ejemplo

El ejemplo siguiente utiliza el método SetAll con la propiedad DynamicBackColor para especificar los colores de fondo para 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 su contenido se muestra en la cuadrícula. 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 window pop-up menu

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

SaveAs (Método) | SaveAsClass (Método)

Se aplica a: Column | CommandGroup | Container (Objeto) | Form | FormSet | Grid | OptionGroup | Page | PageFrame | _SCREEN | ToolBar