Home

Tecnologia TOTVS

Skip to end of metadata
Go to start of metadata

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], [bChanged]  ) --> 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.  
bChangedBloco de código

Indica o bloco de código que será disparado no método Load e no Recortar (CTRL+X) e Colar (CTRL+V)

Parâmetro disponível em builds superiores à 131227A.

  

 

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 )

 

PropriedadeDescriçãoTipo
bChanged

Indica o bloco de código que será disparado no método Load e no Recortar (CTRL+X) e Colar (CTRL+V)

Propriedade disponível em builds superiores à 131227A.

Bloco de código

 

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

SaveToPDF

Salva o conteúdo do editor em um arquivo PDF.


TSimpleEditor(): SaveToPDF( [ cPDFFile] ) -->


 

NomeTipoDescriçãoObrigatórioReferência
cPDFFileCaracterIndica o caminho e nome do arquivo PDF para salvamento. X 

*Este método estará disponível em builds superiores à 131227A.

DEFINE DIALOG oDlg TITLE "tSimpleEditor" FROM 180, 180 TO 550, 700 PIXEL
oEdit := tSimpleEditor():New(0, 0, oDlg, 260, 184)
oEdit:TextFormat(1)
oEdit:Load("<html><body>"+;
'<span style="font-size:20pt; font-weight:600;">Teste do método SaveToPDF</span>'+;
'<br><span style="font-size:14pt; color: red;"> Lorem ipsum dolor sit amet, consectetuer adipiscing elit. </span>'+;
'<br><img src="c:\garbage\LOGOTOTVS.png">'+;
'<br><span style="font-size:14pt; color: blue;"> Etiam eget ligula eu lectus lobortis condimentum. Aliquam nonummy auctor massa </body></html>')

oEdit:SaveToPDF("c:\garbage\saveToPdf.pdf")
ACTIVATE DIALOG oDlg CENTERED
Preview

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

O componente TSimpleEditor permite a exibição e edição de textos planos ou formatados em HTML que podem ser carregados com o método LoadText() e recuperados através do método RetText(). O componente não trabalha com gerenciamento de arquivos (txt, rtf, doc, etc).

 

 

 

Exemplo da classe TSimpleEditor

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

 

  • No labels