Histórico da Página
...
Portuguese | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Classe: TSimpleEditorCria um objeto do tipo editor de texto simples. TSrvObject -> TControl -> TSimpleEditor CreateMétodo construtor da classe.TSimpleEditor(): Create ( [ oWnd] ) --> oObjeto
oObjeto
oEdit := TSimpleEditor():Create( oDlg ) NewMétodo construtor da classe.TSimpleEditor(): New ( [ nRow], [ nCol], [ oWnd], [ nWidth], [ nHeight], [ cText], [ lReadOnly], [bSetget], [oFont], [lPixel], [bWhen], [bValid] ) --> oObjeto
oObjeto
oEdit := TSimpleEditor():New( 0,0,oDlg,260,184 ) LoadCarrega um texto para o editor.TSimpleEditor(): Load ( [ cTexto] ) -->
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
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
oEdit:RetTextSel() // Result: "Texto selecionado" TextAlignDefine o tipo de alinhamento do texto.TSimpleEditor(): TextAlign ( [ nAlign] ) -->
oEdit:TextAlign( 3 ) 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. oEdit:TextBold() TextFamilyAplica um tipo de fonte no texto.TSimpleEditor(): TextFamily ( [ cFamily] ) -->
oEdit:TextFamily( "Courier New" ) TextColorAplica uma cor no texto.TSimpleEditor(): TextColor ( [ nColor] ) -->
oEdit:TextColor(CLR_HRED) TextFormatDefine o formato do texto.TSimpleEditor(): TextFormat ( [ nFormat] ) -->
oEdit:TextFormat( 1 ) TextItalicAplica 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() TextSizeAplica o tamanho da fonte no texto.TSimpleEditor(): TextSize ( [ nSize] ) -->
oEdit:TextSize( 26 ) TextStatusRetorna um array com as propriedades do texto posicionado.TSimpleEditor(): TextStatus ( ) --> aRet aRet
oEdit:TextStatus() // Result: {.F., .F., .F., 0, -1, "Arial"} TextStyleDefine o estilo do parágrafo.TSimpleEditor(): TextStyle ( [ nStyle] ) -->
oEdit:TextStyle( 4 ) Exemplo do método TextStyle TextUnderlineAplica 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
|