Classe: TSimpleEditor
Cria um objeto do tipo editor de texto simples.
Create
Método construtor da classe.
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(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
| 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(objeto) - Retorna o objeto criado.
oEdit := TSimpleEditor():New( 0,0,oDlg,260,184 )
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(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] ) -->
| 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. | | |
TextBold
Aplica o estilo negrito no texto.
TSimpleEditor(): TextBold (
) -->
Este método inverte o status do texto selecionado. Se o negrito estiver ligado, a chamada do método o desligará e vice-versa.
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" )
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. | | |
TextItalic
Aplica o estilo itálico no texto.
TSimpleEditor(): TextItalic (
) -->
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.
TextSize
Aplica o tamanho da fonte no texto.
TSimpleEditor(): TextSize (
[ nSize] ) -->
| Nome | Tipo | Descrição | Obrigatório | Referência |
| nSize | Numérico | Indica o tamanho da fonte que será utilizada na seção do texto. | | |
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. | | |
Exemplo do método TextStyle
TextUnderline
Aplica o estilo sublinhado no texto.
TSimpleEditor(): TextUnderline (
) -->
Este método inverte o status do texto selecionado. Se o sublinhado estiver ligado, a chamada do método o desligará e vice-versa.
#include "TOTVS.CH"User Function TSimpleEditor() DEFINE DIALOG oDlg TITLE "Exemplo 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
Exemplo da classe TSimpleEditor
Microsiga Protheus 8.11
,
Microsiga Protheus 11
,
Protheus 10
,
TOTVS Application Server 10
,
ByYou Application Server
|