VOTools for Visual Objects  
and Vulcan.NET  

bBrowser => Tips & Tricks => How to creates color conditions    




 from bBrowser
1.4
  bBrowser 1.4 (Limited)
yes
 

How to creates color conditions

With the class bColorCondition color conditions can be defined in the bBrowser. A color condition consists of a condition and one or more foreground and/or background colours. For a color condition a data server can be specified, whose fields in the condition can be accessed. Color conditions can be added either to the bBrowser or to each column. If the color condition is added to the bBrowser, then it refers to all columns. If the color condition is added to a column, then it refers only to this column. The number of color conditions are subject to none restriction.

With the instruction bBrowser:ColorCondition:Add() a color condition can be added to a bBrowser. With the instruction bDataColumn:ColorCondition:Add() a color condition can be added to a column. In both cases the methods bBrowser:Refresh() and bBrowser:Redraw() must be called afterwards.

The following code fragment defines a color condition for all columns in the bBrowser.

  METHOD PostInit() CLASS myDataWindow
  LOCAL odbsCUSTOMER     AS bDBServer
  LOCAL oColorCondition  AS bColorCondition
  LOCAL cCondition       AS STRING

  odbsCUSTOMER := bDBServer{"CUSTOMER.DBF"}
  IF odbsCUSTOMER:Used
    self:oDCBrowser:Use(odbsCUSTOMER)

    cCondition := "Year(Today())-Year(Server:BIRTHDAY)>=40"
    oColorCondition := bColorCondition{cCondition,;
                                       odbsCUSTOMER,;
                                       Color{COLORYELLOW},;
                                       Brush{Color{COLORRED}}}
    self:oDCBrowser:ColorCondition:Add(oColorCondition)

    self:oDCBrowser:Refresh()
    self:oDCBrowser:Redraw()
  ENDIF

Copyright © 2003-2015 BEFO GmbH