BackColor-, ForeColor-Eigenschaften

Artikel
04/01/2008

Gibt die zur Anzeige von Text und Grafiken in einem Objekt verwendete Vordergrund- bzw. Hintergrundfarbe an. Diese Eigenschaft ist zur Entwurfs- und zur Laufzeit verfügbar.

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

Eigenschaftswerte

nColor
Gibt einen Farbwert an.

In der folgenden Tabelle sind häufig verwendete Farbwerte zusammengestellt.

Farbe	RGB-Werte	nColor-Wert
Weiß	255, 255, 255	16777215
Schwarz	0, 0, 0	0
Grau	192, 192, 192	12632256
Dunkelgrau	128, 128, 128	8421504
Rot	255, 0, 0	255
Dunkelrot	128, 0, 0	128
Gelb	255, 255, 0	65535
Dunkelgelb	128, 128, 0	32896
Grün	0, 255, 0	65280
Dunkelgrün	0, 128, 0	32768
Zyan	0, 255, 255	16776960
Blaugrün	0, 128, 128	8421376
Blau	0, 0, 255	16711680
Dunkelblau	0, 0, 128	8388608
Magenta	255, 0 ,255	16711935
Violett	128, 0, 128	8388736

Wenn nColor einen negativen Wert aufweist, verwendet Visual FoxPro die ganze Zahl und ignoriert alle Rolloverprobleme. Beispielsweise ist der Wert -1 das Äquivalent zu 0xFFFFFFFF.

Hinweise

Visual FoxPro verwendet für Farben das RGB-Farbschema (RGB = Rot-Grün-Blau). Die Rot-, Grün- und Blaukomponenten werden jeweils durch eine Zahl zwischen 0 und 255 dargestellt. Mit der RGB( )-Funktion können Sie die drei Komponenten zur Farbe nColor zusammensetzen.

Anmerkung Die BackColor-Eigenschaft gilt nicht für Befehlsschaltflächen-Steuerelemente (CommandButton). Die ForeColor-Eigenschaft gilt nicht für Schaltflächengruppen-Steuerelemente (CommandGroup), Optionsgruppen-Steuerelemente (OptionGroup) oder Form-Steuerelemente (Shape).

Beispiel

Das folgende Beispiel zeigt, wie mit Hilfe eines Form-Steuerelements (Shape) auf einem Formular Kreise, Ellipsen oder Quadrate gezeichnet werden können, und wie die Farbe der einzelnen Steuerelemente mit Hilfe der BackColor-Eigenschaft festgelegt werden kann.

Es wird zunächst ein Formular erstellt und dann auf diesem eine Anzahl von Optionsfeldern sowie eine Befehlsschaltfläche platziert. Wenn Sie eines der Optionsfelder wählen, wird auf dem Formular die entsprechende Form angezeigt. Mit Hilfe der BackColor-Eigenschaft wird die Farbe der einzelnen Formen festgelegt. Die Eigenschaften Height, Width und Curvature der einzelnen Formen legen den Typ der erstellten Form fest.

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

Siehe auch

Freigeben über

BackColor-, ForeColor-Eigenschaften

Eigenschaftswerte

Hinweise

Beispiel

Siehe auch

Zusätzliche Ressourcen