Classe de lista de items.
Hierarquia
tSrvObject -> tControl -> tListbox
Descrição
Utilize a classe tListbox para criar uma janela com itens selecionáveis e barra de rolagem. Ao selecionar um item, uma variável é atualizada com o conteúdo do item selecionado.
Parâmetros
| Nat | Numérico. Indica ou modifica o item selecionado. |
| AItems | Array de items caracteres. Lista do itens selecionáveis. |
Métodos
New
Descrição
Contrutor da classe
Sintaxe
New([anRow], [anCol], [abSetGet], [aaItems], [anWidth], [anHeigth], [abChange], [aoWnd], [abValid], [anClrFore], [anClrBack], [alPixel], [lPar13], [abLDBLClick], [aoFont], [cPar16], [lPar17], [abWhen], [aPar19], [bPar20], [lPar21], [lPar22], [abRightClick] )
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 ou numérica. |
AaItems | Array de items caracteres, opcional. Lista de items selecionáveis. |
AnWidth | Numérico, opcional. Largura do controle em pixels. |
anHeight | Numérico, opcional. Altura do controle em pixels. |
abChange | Bloco de código, opcional. Executado quando o item selecionado é alterado. |
aoWnd | Objeto, opcional. Janela ou controle onde o controle será criado. |
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. |
anClrFore | Numérico, opcional. Cor de fundo do controle. |
anClrBack | Numérico, opcional. Cor do texto do controle. |
alPixel | Lógico, opcional. Se .T. as coordenadas informadas são em pixels, se .F. são em caracteres. |
lPar13 | Reservado. |
abLDBLClick | Bloco de código, opcional. Executado quando acionado duplo click do botão esquerdo do mouse sobre o controle. |
| aoFont | Objeto, opcional. Objeto tipo tFont utilizado para definir as características da fonte utilizada para exibir o conteúdo do controle. |
cPar16 | Reservado. |
| lPar17 | 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. |
aPar19 | Reservado. |
bPar20 | Reservado. |
lPar21 | Reservado. |
lPar22 | Reservado. |
abRightClick | Bloco de código, opcional. Executado quando acionado click do botão direito do mouse sobre o controle. |
Select
Descrição
Força a seleção de um item.
Sintaxe
Select( [nItem] )
Parâmetros
| NItem | Numérico, opcional. Item a ser selecionado. |
Retorno
NIL
Add
Descrição
Insere ou adiciona novo item.
Sintaxe
Add( cText, nPos )
Parâmetros
cText | Caractere, obrigatório. Texto do item. |
nPos | Numérico, obrigatório. Se 0 ou maior que o número de itens, insere o item no final da lista. Se valor entre 1 e número de itens, insere o item na posição informada, empurrando o item anterior para baixo. |
Retorno
NIL
Modify
Descrição
Modifica o texto de um item.
Sintaxe
Modify( cText, nPos )
Parâmetros
| cText | Caractere, obrigatório. Texto novo. |
| nPos | Numérico, obrigatório. Posição a ser modificada deve ser maior que 0 e menor ou igual que o número de itens. |
Retorno
NIL
Del
Descrição
Apaga um item.
Sintaxe
Del( nPos )
Parâmetros
nPos | Numérico, obrigatório. Posição a ser excluida, deve ser maior que 0 e menor ou igual que o número de itens. |
Retorno
NIL
Len
Descrição
Retorna o número de itens.
Sintaxe
Len( )
Retorno
Numérico. Número de itens.
Reset
Descrição
Apaga todos os itens.
Sintaxe
Reset( )
Retorno
NIL
Exemplo
#include “protheus.ch”
User Funcion Teste()
Local oDlg, oList, nList:= 1, aItems:={}
Aadd(aItems,”Item 1”)
Aadd(aItems,”Item 2”)
Aadd(aItems,”Item 3”)
Aadd(aItems,”Item 4”)
DEFINE MSDIALOG oDlg FROM 0,0 TO 400,400 PIXEL TITLE “Teste”
oList:= tListBox():New(10,10,{|u|if(Pcount()>0,nList:=u,nList)};
,aItems,100,100,,oDlg,,,,.T.)
ACTIVATE MSDIALOG oDlg CENTERED
Return nil