Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: binary and image files updated

...

Portuguese

Pagetitle
TSimpleEditor
TSimpleEditor

Classe: TSimpleEditor

Cria um objeto do tipo editor de texto simples.


TSrvObject -> TControl -> TSimpleEditor


Create

Método construtor da classe.


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


NomeTipoDescriçãoObrigatórioReferência
oWndObjetoIndica 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


NomeTipoDescriçãoObrigatórioReferência
nRowNuméricoIndica a coordenada vertical em pixels ou caracteres.
nColNuméricoIndica a coordenada horizontal em pixels ou caracteres.
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.
nWidthNuméricoIndica a largura em pixels do objeto.
nHeightNuméricoIndica a altura em pixels do objeto.
cTextCaracterIndica o texto que será apresentado na inicialização do objeto.
lReadOnlyLógicoIndica 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] ) -->


NomeTipoDescriçãoObrigatórioReferência
cTextoCaracterIndica 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] ) -->


NomeTipoDescriçãoObrigatórioReferência
nAlignNuméricoIndica 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 ( ) -->


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


NomeTipoDescriçãoObrigatórioReferência
cFamilyCaracterIndica 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] ) -->


NomeTipoDescriçãoObrigatórioReferência
nFormatNuméricoIndica o formato do texto, sendo: 1 = Html e 2 = Plain Text.

oEdit:TextFormat( 1 )

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.


oEdit:TextItalic()

TextSize

Aplica o tamanho da fonte no texto.


TSimpleEditor(): TextSize ( [ nSize] ) -->


NomeTipoDescriçãoObrigatórioReferência
nSizeNuméricoIndica o tamanho da fonte que será utilizada na seção do texto.

oEdit:TextSize( 26 )

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


NomeTipoDescriçãoObrigatórioReferência
nStyleNuméricoIndica 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 )

Exemplo do método TextStyle
Image Removed Image Added

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.


oEdit:TextUnderline()

#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
Image Removed Image Added

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