Classe: TMultiGetCria um objeto do tipo campo memo. 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], [ lVScroll], [cLabelText] ,[nLabelPos], [oLabelFont], [nLabelColor] ) --> 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. | | | lVScroll | Lógico | Indica se habilita(.T.)/desabilita(.F.) a barra de rolagem vertical. O valor default é Desabilitado. | | | cLabelText | Caractere | indica o texto que será apresentado na Label. | | | nLabelPos | Numérico | Indica a posição da label, sendo 1=Topo e 2=Esquerda | | | oLabelFont | Objeto | Indica o objeto, do tipo TFont, que será utilizado para definir as características da fonte aplicada na exibição da label. | | | nLabelColor | Numérico | Indica a cor do texto da Label. | | |
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. 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], [ lVScroll], [cLabelText] ,[nLabelPos], [oLabelFont], [nLabelColor] ) --> 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. | | | lVScroll | Lógico | Indica se habilita(.T.)/desabilita(.F.) a barra de rolagem vertical. Obs.: O valor default é Desabilitado. | | | cLabelText | Caractere | indica o texto que será apresentado na Label. | | | nLabelPos | Numérico | Indica a posição da label, sendo 1=Topo e 2=Esquerda | | | oLabelFont | Objeto | Indica o objeto, do tipo TFont, que será utilizado para definir as características da fonte aplicada na exibição da label. | | | nLabelColor | Numérico | Indica a cor do texto da Label. | | |
oObjeto()- 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. 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. Bloco de código |
---|
| #include "TOTVS.CH"
user function exemplo()
DEFINE DIALOG oDlg TITLE "Exemplo TMultiget" FROM 180, 180 TO 550, 700 PIXEL
// Usando o New
cTexto1 := "Linha 01 Multiget 1"
oTMultiget1 := tMultiget():new( 01, 01, {| u | if( pCount() > 0, cTexto1 := u, cTexto1 ) }, ;
oDlg, 260, 92, , , , , , .T. )
// Usando o Create
cTexto2 := "Linha 01 Multiget 2"
oTMultiget2 := tMultiget():create( oDlg, {| u | if( pCount() > 0, cTexto2 := u, cTexto2 ) }, 92, 01, ;
260, 92, , , , , , .T. )
ACTIVATE DIALOG oDlg CENTERED
return |
Exemplo da classe TMultiGet ![](https://tdn.totvs.com/download/attachments/6063269/Mon+May+21+15%3A39%3A34+BRT+2012temp?version=1&modificationDate=1337625574954) Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server |