|
From: Itamar M. L. J. L. <ita...@gm...> - 2015-02-11 18:00:32
|
Please add this is lines:
...Method New line 102
...
::bChange := bChange
::aColorOld[1] := iif( tcolor = Nil, 0, ::tcolor )
::aColorOld[2] := ::bcolor
RETURN Self
...Method OnEvent line 256
IF lColorinFocus
IF msg == WM_SETFOCUS
//::aColorOld[1] := ::tcolor //coment out this line
//::aColorOld[2] := ::bcolor //coment out this line
::Setcolor( tColorinFocus , bColorinFocus, .T. )
ELSEIF msg == WM_KILLFOCUS
::Setcolor( ::aColorOld[1], ::aColorOld[2], .T. )
::tcolor := ::aColorOld[1]
::bcolor := ::aColorOld[2]
ENDIF
ENDIF
----->8----
Best regads,
Itamar M. Lins Jr.
|