Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
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], [bSetget], [oFont], [lPixel], [bWhen], [bValid], [cLabelText] ,[nLabelPos], [oLabelFont], [nLabelColor]  ) --> 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.).  
bSetGetBloco de códigoIndica o bloco de código, no formato {|u| if( Pcount( )>0, := u, ) }, que será executado
para atualizar a variável (essa variável deve ser do tipo caracter). Desta forma, se a lista
for sequencial, o controle atualizará com o conteúdo do item selecionado, se for indexada,
será atualizada com o valor do índice do item selecionado.
  
oFontObjetoIndica o objeto do tipo TFont utilizado para definir as características da fonte aplicada
na exibição do conteúdo do controle visual.
  
lPixelLógicoIndica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.).  
bWhenBloco de códigoIndica o bloco de código que será executado quando a mudança de foco da entrada
de dados, na janela em que o controle foi criado, estiver sendo efetuada. Observação:
O bloco de código retornará verdadeiro (.T.) se o controle permanecer habilitado; caso
contrário, retornará falso (.F.).
  
bValidBloco de código

Indica o bloco de código de validação que será executado quando o conteúdo do
objeto for modificado. Retorna verdadeiro (.T.), se o conteúdo é válido; caso contrário,
falso (.F.).

  
cLabelTextCaractereindica o texto que será apresentado na Label.  
nLabelPosNuméricoIndica a posição da label, sendo 1=Topo e 2=Esquerda  
oLabelFontObjetoIndica o objeto, do tipo TFont, que será utilizado para definir as características da fonte aplicada na exibição da label.  
nLabelColorNuméricoIndica a cor do texto da Label.  

 

oObjeto
    (objeto)
  • Retorna o objeto criado.
Em versões superiores à 120420A foi implementada a opção para definição de uma label(descrição) do componente visual. Preenchendo os parâmetros cLabelText, nLabelPos, oLabelFont e nLabelColor será disponibilizada, ao topo ou à esquerda, a descrição definida para o componente. Esta característica visa diminuir a quantidade de interações entre o SmartClient e o AppServer na construção de telas, otimizando assim este processo.

 Quando utilizada esta opção não será possível alinhar o componente, sendo a Label um objeto independente ela não será alinhada juntamente com o Controle principal, nesta situação é necessário fazer o posicionamento manualmente.

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"
O formato do texto retornado poderá ser em HTML ou Plain Text dependendo do que foi informado através da chamada ao método TextFormat().

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

TextColor

Aplica uma cor no texto.


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


 

NomeTipoDescriçãoObrigatórioReferência
nColorNumericoIndica a cor do texto. X 

 


oEdit:TextColor(CLR_HRED)
TextFormat

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

GoTop

Posiciona o cursor no início do texto.


TSimpleEditor(): GoTop ( ) -->


Este método está disponível somente em builds superiores à build 7.00.120420A.


oEdit:GoTop()

GoEnd

Posiciona o cursor no fim do texto.


TSimpleEditor(): GoEnd ( ) -->


Este método está disponível somente em builds superiores à build 7.00.120420A.


oEdit:GoEnd()

GoTo

Posiciona o cursor no início da linha especificada.


TSimpleEditor(): GoTo ( < nLine> ) -->


Este método está disponível somente em builds superiores à build 7.00.120420A.

 

 

NomeTipoDescriçãoObrigatórioReferência
nLineNuméricoIndica a linha em que o cursor será posicionado.X 

 


oEdit:GoTo( 5 )

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

 

Bloco de código
linenumberstrue
#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

 

Exemplo da classe TSimpleEditor

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