Wie können für Farbbedingungen die Selektionsfarben definiert werden?

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