Caso en la barra de message no pinta bien. Le muestro en la imagen
http://imageshack.us/photo/my-images/560/errorbe.jpg/
" alt="" loading="lazy">
" alt="" loading="lazy">
Hice el cambio que indica Lineares.
METHOD SetText( cMsg ) INLINE ::cMsg := cValToChar( cMsg ), If( IsWindowVisible( ::oMsgBar:hWnd ), ::Paint(),)
Pero solamente Pinta el Num los demas como la fecha , Hora , Ins y Caps quedan igual.
Saludos
El Cambio lo hice tmsgitem.prg , lo otro que tu dices no la he cojido.
Solamente hice este cambio
METHOD SetText( cMsg ) INLINE ::cMsg := cValToChar( cMsg ), If( IsWindowVisible( ::oMsgBar:hWnd ), ::Paint(),)
Me podrias especificar el que linea. me imagino que te refireres al tmsgitem.prg
Saludos
Yo tengo la fwh 11.08
METHOD Refresh() CLASS TMsgItem
local cMsg
if ::bMsg != nil
cMsg = cValToChar( Eval( ::bMsg ) )
if cMsg != ::cMsg .or. ::lActive != ::lWasActive
::cMsg = cMsg
::Paint() //<----- cambiar esto
::lWasActive = ::lActive
endif
endif
return nilMETHOD Refresh() CLASS TMsgItem
local cMsg
if ::bMsg != nil
cMsg = cValToChar( Eval( ::bMsg ) )
if cMsg != ::cMsg .or. ::lActive != ::lWasActive
::cMsg = cMsg
If( IsWindowVisible( ::oMsgBar:hWnd ), ::Paint(),) //<---- cambiar por esto
::lWasActive = ::lActive
endif
endif
return nilGracias, Compañero, Voy Hacerlo y te cuento.
Gracias compañrpo , Funciono