Voraussetzung: bBrowser 1.4
In der Klasse bColorCondition sind die folgenden Zugriffe definiert:
- SelectedBackground
- SelectedForeground
- InactiveSelectedBackground
- InactiveSelectedForeground
Mit diesen Zugriffen können die Vorder- und Hintergrundfarben definiert werden, die verwendet werden sollen, wenn die Farbbedingung für eine Datenzelle zutrifft und die Datenzelle selektiert ist.
Das folgende Codefragment demonstriert die Vorgehensweise:
METHOD PostInit() CLASS myDataWindow
LOCAL odbsCUSTOMER AS bDBServer
LOCAL oCC AS bColorCondition
LOCAL cCondition AS STRING
odbsCUSTOMER := bDBServer{"CUSTOMER.DBF"}
IF odbsCUSTOMER:Used
self:oDCBrowser:Use(odbsCUSTOMER)
cCondition := "Year(Today())-Year(Server:BIRTHDAY)>=40"
oCC := bColorCondition{cCondition,;
odbsCUSTOMER,;
Color{COLORYELLOW},;
Brush{Color{COLORRED}}}
oCC:SelectedForeground := Color{COLORYELLOW}
oCC:InactiveSelectedForeground := Color{COLORYELLOW}
self:oDCBrowser:ColorCondition:Add(oCC)
self:oDCBrowser:Refresh()
self:oDCBrowser:Redraw()
ENDIF