Header (Objeto: propiedades, métodos y eventos)

Artículo
04/11/2008

Propiedades

Alignment	Application	BackColor
BaseClass	Caption	Class
ClassLibrary	Comment	FontBold
FontCondense	FontExtend	FontItalic
FontName	FontOutline	FontShadow
FontSize	FontStrikeThru	FontUnderline
ForeColor	Name	Parent
ParentClass	Tag	WordWrap

Eventos

Click	DblClick	MiddleClick (Evento)
MouseDown	MouseEnter	MouseLeave
MouseMove	MouseUp	MouseWheel
RightClick

Métodos

AddProperty	ReadExpression	ReadMethod
Refresh	ResetToDefault	SaveAsClass
WriteExpression	WriteMethod

Ejemplo

El ejemplo siguiente utiliza el objeto Header con la propiedad Caption para cambiar el título del primer Header de un control Grid.

Se incluye un control Grid en un formulario, se abre la tabla customer y su contenido se muestra en la cuadrícula. El objeto Header y la propiedad Caption se utilizan para especificar otro título de encabezado (Id. cliente) para el primer encabezado de la cuadrícula.

El método SetAll se emplea con la propiedad DynamicBackColor para especificar los colores de fondo para los registros. Si el número de un registro mostrado en el Grid es par, el valor de DynamicBackColor del registro será blanco. En caso contrario, el valor de DynamicBackColor será verde. 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

Header (Objeto) | HEADER( ) (Función) | HeaderHeight (Propiedad)

Share via