CA-Visual Objects - Color p/ una celda especifica de un datagrid

Necesito darle un formato de color a una celda especifica de un datagrid
por favor necesito el codigo gracias

espero te sirva esta direccion es muy buena , a mi me ayudo muchisimo
nota:
va con el codigo fuente , algun problemilla estamos en contacto

STATIC GLOBAL oMaxPre1 AS Brush

METHOD PostInit(oWindow,iCtlID,oServer,uExtra) CLASS SubAcum
LOCAL oDC AS DataColumn
//Put your PostInit additions here

oMaxPre1 := Brush{Color{COLORRED}}

SELF:Browser := SubBrowse{SELF, 7000} //SubBrowse{SELF, 7000}

SELF:Use(ARRAYServer{ SELF:aStruct, SELF:aPremios})
SELF:Server:GOTOP()
SELF:ViewAs(#BrowseView)

oDC := SELF:Browser:GetColumn(1)
oDC:Width := 12
oDC:ChangeBackGround(Brush{Color{COLORGREEN}}, GBLCOLCAPTION)
oDC:SetCaption("MI TITULO",GBAALIGNCENTER)
oDC:ChangeBackground(SELF:Browser:oBrushBackLF,GBLTEXT)
oDC:EnableCellDraw( #MaxPreDraw )

SELF:Browser:Show()
oDC := SELF:Browser:GetColumn(1)
SELF:Browser:SetColumnFocus(oDC)

RETURN

METHOD MaxPreDraw( uValue ) CLASS DataColumn
IF uValue = premiotope1/100
SELF:CellBackground := oMaxPre1
ENDIF
RETURN NIL

Espero que te sirva y lo puedas interpretar bien.