#include "TOTVS.CH"
user function exemplo()
CreateMétodo construtor da classe.TMultiGet(): Create ( [ oWnd], [ bSetGet], [ nRow], [ nCol], [ nWidth], [ nHeight], [ oFont], [ lHScroll], [ nClrFore], [ nClrBack], [ uParam11], [ lPixel], [ uParam13], [ uParam14], [ bWhen], [ uParam16], [ uParam17], [ lReadOnly], [ bValid], [ uParam20], [ uParam21], [ lNoBorder], [ lNoVScroll] ) --> oObjeto Nome | Tipo | Descrição | Obrigatório | Referência | oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. | | | bSetGet | Bloco de código | Indica 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. | | | nRow | Numérico | Indica a coordenada vertical em pixels ou caracteres. | | | nCol | Numérico | Indica a coordenada horizontal em pixels ou caracteres. | | | nWidth | Numérico | Indica a largura em pixels do objeto. | | | nHeight | Numérico | Indica a altura em pixels do objeto. | | | oFont | Objeto | Indica o objeto do tipo TFont utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual. | | | lHScroll | Lógico | Indica se habilita(.T.)/desabilita(.F.) a barra de rolagem horizontal. | | | nClrFore | Numérico | Indica a cor de fundo do objeto. | | | nClrBack | Numérico | Indica a cor do texto objeto. | | | uParam11 | Objeto | Compatibilidade. | | | lPixel | Lógico | Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.). | | | uParam13 | Caracter | Compatibilidade. | | | uParam14 | Lógico | Compatibilidade. | | | bWhen | Bloco de código | Indica 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.). | | | uParam16 | Lógico | Compatibilidade. | | | uParam17 | Lógico | Compatibilidade. | | | lReadOnly | Lógico | Indica se o conteúdo da variável associada ao objeto permanecerá apenas para leitura. | | | bValid | Bloco 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.). | | | uParam20 | Bloco de código | Compatibilidade. | | | uParam21 | Lógico | Compatibilidade. | | | lNoBorder | Lógico | Indica se habilita(.T.)/desabilita(.F.) a apresentação da borda no objeto. | | | lNoVScroll | Lógico | Indica se habilita(.T.)/desabilita(.F.) a barra de rolagem vertical. | | |
oObjeto(objeto)- Retorna o objeto criado.
cTexto2 := "Linha 01 Multiget 2"oTMultiget2 := TMultiget():Create(oDlg,{|u|if(Pcount()>0,cTexto2:=u,cTexto2)},92,01,; 260,92,,,,,,.T.) NewMétodo construtor da classe.TMultiGet(): New ( [ nRow], [ nCol], [ bSetGet], [ oWnd], [ nWidth], [ nHeight], [ oFont], [ lHScroll], [ uParam9], [ uParam10], [ uParam11], [ lPixel], [ uParam13], [ uParam14], [ bWhen], [ uParam16], [ uParam17], [ lReadOnly], [ bValid], [ uParam20], [ uParam21], [ lNoBorder], [ lNoVScroll] ) --> 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. | | | bSetGet | Bloco de código | Indica 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. | | | 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. | | | oFont | Objeto | Indica o objeto do tipo TFont utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual. | | | lHScroll | Lógico | Indica se habilita(.T.)/desabilita (.F.) a barra de rolagem horizontal. | | | uParam9 | Numérico | Compatibilidade | | | uParam10 | Numérico | Compatibilidade | | | uParam11 | Objeto | Compatibilidade. | | | lPixel | Lógico | Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.). | | | uParam13 | Caracter | Compatibilidade. | | | uParam14 | Lógico | Compatibilidade. | | | bWhen | Bloco de código | Indica 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.). | | | uParam16 | Lógico | Compatibilidade. | | | uParam17 | Lógico | Compatibilidade. | | | lReadOnly | Lógico | Indica se o conteúdo da variável associada ao objeto permanecerá apenas para leitura. | | | bValid | Bloco 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.). | | | uParam20 | Bloco de código | Compatibilidade. | | | uParam21 | Lógico | Compatibilidade. | | | lNoBorder | Lógico | Indica se habilita(.T.)/desabilita(.F.) a apresentação da borda no objeto. | | | lNoVScroll | Lógico | Indica se habilita(.T.)/desabilita(.F.) a barra de rolagem vertical. | | |
oObjeto()- Retorna o objeto criado.
cTexto1 := "Linha 01 Multiget 1"oTMultiget1 := TMultiget():New(01,01,{|u|if(Pcount()>0,cTexto1:=u,cTexto1)},; oDlg,260,92,,,,,,.T.) AppendTextAdiciona um texto no fim do texto já existente.TMultiGet(): AppendText ( ) --> cTexto cTexto(caracter)- Indica o texto que será incluído.
oTMultiget:AppendText( "Novo Texto" ) Habilita/desabilita a barra de rolagem horizontal.TMultiGet(): EnableHScroll ( < lEnable> ) --> Nome | Tipo | Descrição | Obrigatório | Referência | lEnable | Lógico | Indica se habilita(.T.)/desabilita(.F.) a barra de rolagem horizontal. | X | |
oTMultiget:EnableHScroll( .T. ) Habilita/desabilita a barra de rolagem vertical.TMultiGet(): EnableVScroll ( < lEnable> ) --> Nome | Tipo | Descrição | Obrigatório | Referência | lEnable | Lógico | Indica se habilita(.T.)/desabilita(.F.) a barra de rolagem vertical. | X | |
oTMultiget:EnableVScroll( .T. ) GoTopPosiciona o cursor no início do texto.TSimpleEditor(): GoTop ( ) --> Este método está disponível somente em builds superiores à build 7.00.120420A. GoToPosiciona 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. Nome | Tipo | Descrição | Obrigatório | Referência | nLine | Numérico | Indica a linha em que o cursor será posicionado. | X | |
GoEndPosiciona o cursor no fim do texto.TMultiGet(): GoEnd ( ) --> Propriedade | Descrição | Tipo | lWordWrap | Indica se, verdadeiro (.T.), realizará a quebra automática de linhas; caso contrário, falso (.F.). | Lógico | nPos | Indica a posição do cursor. | Numérico |
Esse objeto permite editar texto de múltiplas linhas. #include "TOTVS.CH"User Function TMultiget() DEFINE DIALOG oDlg TITLE "Exemplo TMultiget" FROM 180, 180 TO 550, 700 PIXEL
// Usando o New
cTexto1 := "Linha 01 Multiget 1"
oTMultiget1 := TMultigettMultiget(): Newnew( 01, 01, {| u | if( Pcount pCount() >0 > 0, cTexto1 := u, cTexto1 ) }, ; ;
oDlg, 260, 92, , , , , , .T. ) )
// Usando o Create
cTexto2 := "Linha 01 Multiget 2"
oTMultiget2 := TMultigettMultiget(): Createcreate( oDlg, {| u | if( Pcount pCount() >0 > 0, cTexto2 := u, cTexto2 ) }, 92, 01, ; ;
260, 92, , , , , , .T. )
ACTIVATE DIALOG oDlg CENTERED ReturnExemplo da classe TMultiGet
return
|