Boa tarde, tenho uma ferramenta que utiliza como Copia e Cola de lista de itens para processamento recursivo, na versão 2410 o método RetText não está retornando o conteúdo digitado quando o TextFormat = 2 (txt) somente está retornando o conteudo quando o TextFormat está como = 1 (Html).
Exemplo de fonte:
User Function testeCC()
Private _oDlgCC
Private _oCCarea
Private _cRet := " "
DEFINE MSDIALOG _oDlgCC TITLE "Captura de Dados" From 0,0 TO 280,410 PIXEL
_oCCarea := TSimpleEditor():New( 1,1,_oDlgCC,192,100)
_oCCarea:Load(_cRet)
TButton():New( 120, 100, "OK" , _oDlgCC,{|| _oCCarea:TextFormat(2), _cRet := _oCCarea:RetText(), IIF(Empty(_cRet)," ",_cRet),_oDlgCC:End()},40,010,,,.F.,.T.,.F.,,.F.,,,.F. )
TButton():New( 120, 150, "Fechar", _oDlgCC,{|| _cRet := " ",_oDlgCC:End()},40,010,,,.F.,.T.,.F.,,.F.,,,.F. )
ACTIVATE MSDIALOG _oDlgCC CENTER
Return _cRet