|
From: Itamar M. L. J. L. <ita...@gm...> - 2015-02-06 18:18:02
|
Hi!
I use this:
hwg_SetColorinFocus(.T.,00000879,49999999)
Version 2.17
FUNCTION hwg_SetColorinFocus( lDef, tcolor, bcolor, lFixed, lPersist )
IF ValType( lDef ) <> "L"
lDef := ( ValType( lDef ) = "C" .AND. Upper( lDef ) = "ON" )
ENDIF
lColorinFocus := lDef
IF ! lDef
RETURN .F.
ENDIF
lFixedColor := iif( lFixed != Nil, ! lFixed, lFixedColor )
tcolorselect := iif( tcolor != Nil, tcolor, tcolorselect )
bcolorselect := iif( bcolor != Nil, bcolor, bcolorselect )
lPersistColorSelect := iif( lPersist != Nil, lPersist,
lPersistColorSelect )
RETURN .T.
Version 2.19
FUNCTION hwg_SetColorinFocus( lDef )
IF ValType( lDef ) <> "L"
RETURN .F.
ENDIF
lColorinFocus := lDef
RETURN .T.
No efect, not working :-(
Best regards,
Itamar M. Lins Jr.
|