Eigenschaften, Methoden und Ereignisse des Header-Objekts

Artikel
04/01/2008

Eigenschaften

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

Ereignisse

Click	DblClick	MiddleClick-Ereignis
MouseDown	MouseEnter	MouseLeave
MouseMove	MouseUp	MouseWheel
RightClick

Methoden

AddProperty	ReadExpression	ReadMethod
Refresh	ResetToDefault	SaveAsClass
WriteExpression	WriteMethod

Beispiel

Das folgende Beispiel verwendet das Header-Objekt und dessen Caption-Eigenschaft, um die Überschrift des ersten Spaltenkopfs eines Datenrasters zu ändern.

Zunächst wird in einem Formular ein Datenraster-Steuerelement (Grid) positioniert; anschließend wird die Tabelle customer geöffnet und ihr Inhalt im Datenraster angezeigt. Zur Angabe einer anderen Spaltenkopfüberschrift (Kundennr.) für den ersten Spaltenkopf des Datenrasters werden das Header-Objekt und dessen Caption-Eigenschaft eingesetzt.

Die SetAll-Methode wird zusammen mit der DynamicBackColor-Eigenschaft verwendet, um die Hintergrundfarben für die Datensätze anzugeben. Wenn die Nummer des im Datenraster dargestellten Datensatzes gerade ist, dann ist DynamicBackColor für diesen Datensatz Weiß, ansonsten Grün. Zum Schließen des Formulars wird eine Befehlsschaltfläche auf dem Formular eingefügt.

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

Siehe auch

Header-Objekt | HEADER( )-Funktion | HeaderHeight-Eigenschaft

Freigeben über