|
From: Itamar M. L. J. L. <ita...@gm...> - 2014-12-29 07:57:51
|
METHOD Refresh() CLASS HEdit
LOCAL vari
IF hb_isBlock(::bSetGet) //::bSetGet != Nil
vari := Eval( ::bSetGet, , self )
If hb_IsNil(vari)
vari:=""
ENDIF
IF !Empty( ::cPicFunc ) .OR. !Empty( ::cPicMask )
vari := Transform( vari, ::cPicFunc + iif( Empty(::cPicFunc ),"","
" ) + ::cPicMask )
ELSE
vari := iif( ::cType == "D", Dtoc( vari ), iif( ::cType ==
"N",Str(vari ),iif(::cType == "C",vari,"" ) ) )
ENDIF
::title := vari
hwg_Setdlgitemtext( ::oParent:handle, ::id, vari )
ELSE
hwg_Setdlgitemtext( ::oParent:handle, ::id, ::title )
ENDIF
RETURN Nil
Is because the line below
vari := Eval( ::bSetGet, , self )
Is returning valtype = U if ::bSetGet not object and get error
Error BASE/1122 Erro nos parâmetros: TRANSFORM
Called from ->TRANSFORM(0)
Called from ->HEDIT:REFRESH(345)
Called from ->HEDIT:INIT(119)
And change all Valtype() by hb_is* increase speed of check hwgui variables.
Best regards,
Itamar M. Lins Jr.
|