Cria um objeto do tipo editor de texto simples.
#include "totvs.ch" user function exemplo() local oDlg := nil, oEdit := nil DEFINE DIALOG oDlg TITLE "tSimpleEditor" FROM 180, 180 TO 550, 700 PIXEL oEdit := tSimpleEditor():New(0, 0, oDlg, 260, 184) oEdit:Load("Novo texto <b>Negrito</b>" + ; "<font color=red> Texto em Vermelho</font>" + ; "<font size=14> Texto com tamanho grande</font>") ACTIVATE DIALOG oDlg CENTERED return |