Histórico da Página

oObjeto

(objeto)

Retorna o objeto criado.

oEdit := TSimpleEditor():Create( oDlg )

New

Método construtor da classe.

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

oObjeto

(objeto)

Retorna o objeto criado.

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

Métodos

Load

Carrega um texto para o editor.

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

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

(caracter)

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

(caracter)

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] ) -->

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] ) -->

oEdit:TextFamily( "Courier New" )

TextFormat

Define o formato do texto.

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

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] ) -->

oEdit:TextStyle( 4 )

Preview

Exemplo do método TextStyle

Image Removed

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()

#include "TOTVS.CH"User Function TSimpleEditor()

DEFINE DIALOG oDlg TITLE "

Exemplo TSimpleEditor

tSimpleEditor" FROM 180, 180 TO 550, 700 PIXEL


		oEdit :=

TSimpleEditor

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

Preview

Exemplo da classe TSimpleEditor

Image Removed

Abrangência

Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server


	return

Bloco de código

language	cpp
theme	Eclipse
linenumbers	true
collapse	false

	#include "totvs.ch"
	user function exemplo()
		local oDlg := nil, oEdit := nil

Create

Método construtor da classe.

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