www.FiveTechSoft.com
http://forums.fivetechsoft.com/
Code: Select all
****************************************************************************
STATIC FUNCTION ClrPaneBrw()
****************************************************************************
*
* Trocar cor da linha do listbox
* Parametros:
* Retorno: Nenhum
*
* Autor: Anderson
* 05/04/2008 - 09:32:59
*
****************************************************************************
LOCAL Result := nRgb(255,255,255)
IF oAnticipos:cConcepto = "10"
IF Val(Right(Time(),2)) % 2 == 0
Result := nRgb( 200, 200, 223 )
else
Result := CLR_RED
ENDIF
else
IF oAnticipos:Recno() % 2 == 0
Result := nRGB( 193, 221, 255 )
else
Result := nRGB( 221, 245, 255 )
ENDIF
ENDIF
RETURN Result
****************************************************************************
STATIC procedure f_IniciaTimer(oDlg)
****************************************************************************
*
* Executar tarefa ao iniciar o dialog
* Parametros: nenhum
* Retorno: Nenhum
*
* Autor: Anderson
* 05/04/2008 - 09:38:53
*
****************************************************************************
Define Timer oTimer ;
Interval 1000 ;
Of oDlg ;
Action ( aoBrowse[2]:Paint(), aoBrowse[2]:refresh() )
Activate Timer oTimer
RETURN Nil