|
METHOD PostInit()
CLASS myDataWindow
LOCAL odbsCUSTOMER AS bDBServer
LOCAL oColorCondition AS bColorCondition
odbsCUSTOMER := bDBServer{"CUSTOMER.DBF"}
IF odbsCUSTOMER:Used
self:oDCBrowser:Use(odbsCUSTOMER)
oColorCondition := bColorCondition{"Server:CheckCondition()",;
self,;
Color{COLORYELLOW}}
self:oDCBrowser:ColorCondition:Add(oColorCondition)
self:oDCBrowser:Refresh()
self:oDCBrowser:Redraw()
ENDIF
METHOD CheckCondition() CLASS myDataWindow
LOCAL auColorSpec AS
ARRAY
LOCAL odbsCUSTOMER AS OBJECT
LOCAL iAge AS
INT
odbsCUSTOMER := self:oDCBrowser:Server
iAge := Year(Today())-Year(odbsCUSTOMER:BIRTHDAY)
IF iAge>=40
auColorSpec := ArrayCreate(BCS_ITEMS)
auColorSpec[BCS_BACKGROUND] := Brush{Color{COLORRED}}
RETURN auColorSpec
ELSEIF iAge>=30
auColorSpec := ArrayCreate(BCS_ITEMS)
auColorSpec[BCS_BACKGROUND] := Brush{Color{COLORBLUE}}
RETURN auColorSpec
ELSE
RETURN FALSE
ENDIF
|