TSimpleEditor

TSimpleEditor(): Create ( [ oWnd] ) --> oObjeto

Nome	Tipo	Descrição	Obrigatório	Referência
oWnd	Objeto	Indica a janela ou controle visual onde o objeto será criado.

oObjeto

Retorna o objeto criado.

oEdit := TSimpleEditor():Create( oDlg )

New

Método construtor da classe.

TSimpleEditor(): New ( [ nRow], [ nCol], [ oWnd], [ nWidth], [ nHeight], [ cText], [ lReadOnly] ) --> oObjeto

Nome	Tipo	Descrição	Obrigatório	Referência
nRow	Numérico	Indica a coordenada vertical em pixels ou caracteres.
nCol	Numérico	Indica a coordenada horizontal em pixels ou caracteres.
oWnd	Objeto	Indica a janela ou controle visual onde o objeto será criado.
nWidth	Numérico	Indica a largura em pixels do objeto.
nHeight	Numérico	Indica a altura em pixels do objeto.
cText	Caracter	Indica o texto que será apresentado na inicialização do objeto.
lReadOnly	Lógico	Indica se, verdadeiro (.T.), o texto não pode ser editado; caso contrário, falso (.F.).

oObjeto

Retorna o objeto criado.

oEdit := TSimpleEditor():New( 0,0,oDlg,260,184 )

Métodos

Load

Carrega um texto para o editor.

TSimpleEditor(): Load ( [ cTexto] ) -->

Nome	Tipo	Descrição	Obrigatório	Referência
cTexto	Caracter	Indica o texto que inicializará o editor.

oEdit:Load( "Novo texto <b>Negrito</b>"+;            "<font color=red> Texto em Vermelho</font>" +;            "<font size=14> Texto com tamanho grande</font>" )

RetText

Retorna uma string com o conteúdo do editor.

TSimpleEditor(): RetText ( ) --> cRet

cRet

Retorna uma string com o conteúdo do editor.

oEdit:RetText()     // Result: "Teste de texto, teste de texto, teste de texto"

RetTextSel

Retorna uma string com o conteúdo selecionado do editor.

TSimpleEditor(): RetTextSel ( ) --> cRet

cRet

Retorna uma string com o conteúdo selecionado do editor.

oEdit:RetTextSel()   // Result: "Texto selecionado"

TextAlign

Define o tipo de alinhamento do texto.

TSimpleEditor(): TextAlign ( [ nAlign] ) -->

Nome	Tipo	Descrição	Obrigatório	Referência
nAlign	Numérico	Indica o tipo de alinhamento do texto, sendo: 1-À esquerda, 2-À direita, 3-Centralizado e 4-Justificado.

oEdit:TextAlign( 3 )

TextBold

Aplica o estilo negrito no texto.

TSimpleEditor(): TextBold ( ) -->

Observações

Este método inverte o status do texto selecionado. Se o negrito estiver ligado, a chamada do método o desligará e vice-versa.

oEdit:TextBold()

TextFamily

Aplica um tipo de fonte no texto.

TSimpleEditor(): TextFamily ( [ cFamily] ) -->

Nome	Tipo	Descrição	Obrigatório	Referência
cFamily	Caracter	Indica o nome da fonte que será utilizada na seção do texto.

oEdit:TextFamily( "Courier New" )

TextColor

Aplica uma cor no texto.

TSimpleEditor(): TextColor ( [ nColor] ) -->

Nome	Tipo	Descrição	Obrigatório	Referência
nColor	Numerico	Indica a cor do texto.	X

oEdit:TextColor(CLR_HRED)

TextFormat

Define o formato do texto.

TSimpleEditor(): TextFormat ( [ nFormat] ) -->

Nome	Tipo	Descrição	Obrigatório	Referência
nFormat	Numérico	Indica o formato do texto, sendo: 1 = Html e 2 = Plain Text.

oEdit:TextFormat( 1 )

TextItalic

Aplica o estilo itálico no texto.

TSimpleEditor(): TextItalic ( ) -->

Observações

Este método inverte o status do texto selecionado. Se o itálico estiver ligado, a chamada do método o desligará e vice-versa.

oEdit:TextItalic()

TextSize

TextStatus

Retorna um array com as propriedades do texto posicionado.

TSimpleEditor(): TextStatus ( ) --> aRet

aRet

Retorna um array com as propriedades do texto, sendo: 1-Lógico negrito, 2-Lógico itálico, 3-Lógico sublinhado, 4-Caracter RGB da cor, 5-Caracter tamanho da fonte e 6-Caracter fonte.

oEdit:TextStatus()   // Result: {.F., .F., .F., 0, -1, "Arial"}

TextStyle

Define o estilo do parágrafo.

TSimpleEditor(): TextStyle ( [ nStyle] ) -->

Nome	Tipo	Descrição	Obrigatório	Referência
nStyle	Numérico	Indica o estilo do parágrafo que será utilizado na seção do texto, sendo: 1-Normal, 2-Disco (Bullet), 3-Círculo (Bullet), 4-Quadrado (Bullet), 5-Ordem decimal, 6-Ordem alfanumérica minúsculo e 7-Ordem alfanumérica maiúsculo.

oEdit:TextStyle( 4 )

Preview

Exemplo do método TextStyle

TextUnderline

Aplica o estilo sublinhado no texto.

TSimpleEditor(): TextUnderline ( ) -->

Observações

Este método inverte o status do texto selecionado. Se o sublinhado estiver ligado, a chamada do método o desligará e vice-versa.

oEdit:TextUnderline()