Pagetitle |
---|
| TSimpleEditor |
---|
| TSimpleEditor |
---|
|
Classe: TSimpleEditorCria um objeto do tipo editor de texto simples.
CreateMé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 ) LoadCarrega 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>" ) RetTextRetorna 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" RetTextSelRetorna 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" TextAlignDefine 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. | | |
TextBoldAplica 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. TextFamilyAplica 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" ) TextFormatDefine 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. TextSizeAplica 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. | | |
TextStatusRetorna 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"} TextStyleDefine 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 Image Removed Image AddedTextUnderline 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 Image Removed Image Added Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server |