Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 6 Próxima »

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

  

 

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

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

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

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

 

  • Sem rótulos