Classe de campo Memo de edição.
Hierarquia
tSrvObject -> tControl -> tMultiGet
Descrição
Utilize a classe tMultiget para criar controle de edição de texto de múltiplas linhas.
Propriedades
lWordWrap | Lógico. Se .T., faz quebra automática de linhas. |
Métodos
New
Descrição
Construtor da classe.
Sintaxe
New([anRow], [anCol], [abSetGet], [aoWnd], [anWidth], [anHeight], [aoFont], [alHScroll], [anClrFore], [anClrBack], [oPar11], [alPixel], [cPar13], [lPar14], [abWhen], [lPar16], [lPar17], [alReadOnly], [abValid], [bPar20], [lPar21], [alNoBorder], [alNoVScroll])
Parâmetros
anRow | Numérico, opcional. Coordenada vertical em pixels ou caracteres. |
AnCol | Numérico, opcional. Coordenada horizontal em pixels ou caracteres. |
AbSetGet | Bloco de código, opcional. Bloco de código no formato {|u| if( Pcount( )>0, <var>:= u, <var> ) } que o controle utiliza para atualizar a variável <var>. <var> deve ser tipo caracter. |
aoWnd | Objeto, opcional. Janela ou controle onde o controle será criado. |
anWidth | Numérico, opcional. Largura do controle em pixels. |
anHeight | Numérico, opcional. Altura do controle em pixels. |
aoFont | Objeto, opcional. Objeto tipo tFont utilizado para definir as características da fonte utilizada para exibir o conteúdo do controle. |
alHScroll | Lógico, opcional. Se .T., habilita barra de rolagem horizontal. |
anClrFore | Numérico, opcional. Cor de fundo do controle. |
anClrBack | Numérico, opcional. Cor do texto do controle. |
oPar11 | Reservado. |
alPixel | Lógico, opcional. Se .T. as coordenadas informadas são em pixels, se .F. são em caracteres. |
cPar13 | Reservado. |
lPar14 | Reservado. |
abWhen | Bloco de código, opcional. Executado quando mudança de foco de entrada de dados está sendo efetuada na janela onde o controle foi criado. O bloco deve retornar .T. se o controle deve permanecer habilitado ou .F. se não. |
lPar16 | Reservado. |
lPar17 | Reservado. |
alReadOnly | Lógico, opcional. Se .T. o controle so permitira leitura. |
abValid | Bloco de código, opcional. Executado quando o conteúdo do controle deve ser validado, deve retornar .T. se o conteúdo for válido e .F. quando o conteúdo for inválido. |
bPar20 | Reservado. |
lPar21 | Reservado. |
alNoBorder | Lógico, opcional. Se .T. cria controle sem borda. |
alNoVScroll | Lógico, opcional. Se .T., habilita barra de rolagem vertical. |
Retorno
O objeto construído.
EnableVScroll
Descrição
Habilita a barra de rolagem vertical.
Sintaxe
EnableVScroll( lEnable )
Parâmetros
lEnable | Lógico, obrigatório. Se .T. habilita se .F. desabilita a barra de rolagem. |
Retorno
NIL
EnableHScroll
Descrição
Habilita a barra de rolagem horizontal.
Sintaxe
EnableHScroll( lEnable )
Parâmetros
lEnable | Lógico, obrigatório. Se .T. habilita se .F. desabilita a barra de rolagem. |
Retorno
NIL
Exemplo
#include “protheus.ch”
User Function Teste()
Local oDlg, oMemo, cMemo:= space(50)
DEFINE MSDIALOG oDlg FROM 0,0 TO 400,400 PIXEL TITLE “My test”
oMemo:= tMultiget():New(10,10,{|u|if(Pcount()>0,cMemo:=u,cMemo)};
,oDlg,100,100,,,,,,.T.)
@ 200,10 BUTTON oBtn PROMPT “Fecha” OF oDlg PIXEL ACTION oDlg:End()
ACTIVATE MSDIALOG oDlg CENTERED
MsgStop(cMemo)
Return Nil