when using
Code: Select all
#xtranslate XbpGET => HX_FlatEdit
here it is
Code: Select all
METHOD HX_FlatEdit:setMarked(xValue)
LOCAL nMax := ::GetProperty("MaxLength")
IF NIL = xValue
ELSE
IF VALTYPE(xValue) = "A"
::SelStart := IF(xValue[1] > nMax, nMax, xValue[1] )
::SelLength := IF(xValue[2] > nMax, nMax, xValue[2] )
ENDIF
ENDIF
RETURN self