Leonel,
Se for dinamicamente entendo, que o seu método está correto.
Se não for dinamicamente entendo, que o melhor seria:
Particularmente, prefiro a troca da cor no texto, que controlo via propriedades.
Em complemento de seu código:
Code:
Function piFocusCellForeColor Returns Integer
Handle hoDataSource hoColumn
Integer iQtdSin iRow
Get phoDataSource to hoDataSource
Get SelectedRow of hoDataSource;
to iRow
Get RowValue of oAPOLICE_SINISTRO;
iRow to iQtdSin
Get SelectedColumnObject to hoColumn
Set piHighlightForeColor to (If( (iQtdSin>0), (piMyTextColorWarning(Self)) , clNone))
Set piSelectedRowForeColor to (If( (iQtdSin>0), (piMyTextColorWarning(Self)) , (piMySelectedRowForeColor(Self)) ))
Function_Return (If( (iQtdSin>0), (piMyTextColorWarning(Self)) , (piMyFocusCellForeColor(Self)) ))
End_Function
At.;
Edgard