Classe: TComboBox
Cria um objeto do tipo caixa de seleção (ComboBox).
Este controle permite a entrada de dados de múltipla escolha através dos itens definidos em uma lista vertical. Essa lista pode ser acessada ao pressionar a tecla F4 ou pelo botão à direita do controle.
Create
Método construtor da classe.
TComboBox(): Create (
[ oWnd], [ bSetGet], [ nRow], [ nCol], [ aItems], [ nWidth], [ nHeight], [ uParam8], [ bChange], [ bValid], [ nClrText], [ nClrBack], [ lPixel], [ oFont], [ uParam15], [ uParam16], [ bWhen], [ uParam18], [ uParam19], [ uParam20], [ uParam21], [ cReadVar] ) -->
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 seqüencial, 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. | | |
| aItems | Vetor | Indica uma lista de itens e caracteres que serão apresentados. Essa lista pode ter os seguintes formatos: Seqüencial (Exemplo: {"item1","item2",...,"itemN"}) ou Indexada (Exemplo: {"a=item1","b=item2",...,"n=itemN"}). | | |
| nWidth | Vetor | Indica a largura do controle em pixels. | | |
| nHeight | Numérico | Indica a altura do controle em pixels. | | |
| uParam8 | Numérico | Compatibilidade | | |
| bChange | Bloco de código | Indica o bloco de código que será executado ao mudar o item selecionado. | | |
| 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.). | | |
| nClrText | Numérico | Indica a cor de texto do objeto. | | |
| nClrBack | Numérico | Indica a cor de fundo objeto. | | |
| lPixel | Lógico | Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.). | | |
| 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. | | |
| uParam15 | Caracter | Compatibilidade. | | |
| uParam16 | 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.). | | |
| uParam18 | Lógico | Compatibilidade. | | |
| uParam19 | Array of Record | Compatibilidade. | | |
| uParam20 | Bloco de código | Compatibilidade. | | |
| uParam21 | Caracter | Compatibilidade. | | |
| cReadVar | Array of Record | Indica o nome da variável, configurada no parâmetro bSetGet, que será manipulada pelo objeto. Além disso, esse parâmetro será o retorno da função ReadVar(). | | |
oObjeto() - Retorna o objeto criado.
aItems:= {'Item1','Item2','Item3'}cCombo:= aItems[1]oCombo:=TComboBox():Create(oDlg,{|u|if(PCount()>0,cCombo:=u,cCombo)},22,02,aItems,100,20,; ,{||Alert('Mudou item da combo')},,,,.T.,,,,,,,,,'cCombo')
New
Método construtor da classe.
TComboBox(): New (
[ nRow], [ nCol], [ bSetGet], [ nItens], [ nWidth], [ nHeight], [ oWnd], [ uParam8], [ bChange], [ bValid], [ nClrBack], [ nClrText], [ lPixel], [ oFont], [ uParam15], [ uParam16], [ bWhen], [ uParam18], [ uParam19], [ uParam20], [ uParam21], [ cReadVar] ) --> 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 seqüencial, o controle atualizará com o conteúdo do item selecionado, se for indexada, será atualizada com o valor do índice do item selecionado. | | |
| nItens | Vetor | Indica uma lista de itens e caracteres que serão apresentados. Essa lista pode ter os seguintes formatos: Seqüencial (Exemplo: {"item1","item2",...,"itemN"}) ou Indexada (Exemplo: {"a=item1","b=item2",...,"n=itemN"}). | | |
| nWidth | Numérico | Indica a largura em pixels do objeto. | | |
| nHeight | Numérico | Indica a altura em pixels do objeto. | | |
| oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. | | |
| uParam8 | Numérico | Compatibilidade. | | |
| bChange | Bloco de código | Indica o bloco de código que será executado quando o item selecionado é alterado. | | |
| 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.). | | |
| nClrBack | Numérico | Indica a cor de fundo do objeto. | | |
| nClrText | Numérico | Indica a cor de texto do objeto. | | |
| lPixel | Lógico | Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.). | | |
| 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. | | |
| uParam15 | Caracter | Compatibilidade. | | |
| uParam16 | 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.). | | |
| uParam18 | Lógico | Compatibilidade. | | |
| uParam19 | Array of Record | Compatibilidade. | | |
| uParam20 | Bloco de código | Compatibilidade. | | |
| uParam21 | Caracter | Compatibilidade. | | |
| cReadVar | Caracter | Indica o nome da variável, configurada no parâmetro bSetGet, que será manipulada pelo objeto. Além disso, esse parâmetro será o retorno da função ReadVar(). | | |
oObjeto() - Retorna o objeto criado.
aItems:= {'Item1','Item2','Item3'}cCombo:= aItems[1]oCombo := TComboBox():New(02,02,{|u|if(PCount()>0,cCombo:=u,cCombo)},; aItems,100,20,oDlg,,{||Alert('Mudou item da combo')}; ,,,,.T.,,,,,,,,,'cCombo')
Select
Altera o item selecionado, da caixa de seleção, e executa o bloco de código <bChange> definido para o objeto.
TComboBox(): Select (
[ nItem] ) -->
| Nome | Tipo | Descrição | Obrigatório | Referência |
| nItem | Numérico | Indica a posição do item que será selecionado. | | |
SetHeight
Altera a altura do componente.
TComboBox(): SetHeight (
< nHeight> ) -->
| Nome | Tipo | Descrição | Obrigatório | Referência |
| nHeight | Numérico | Altura do component. | X | |
O componente TComboBox não permite definir sua altura no método construtor, por este motivo foi criado o método SetHeight.
Este método está disponivel em builds superiores à 120420A.
SetItems
Altera os itens da caixa de seleção (ComboBox).
TComboBox(): SetItems (
< aItens> ) -->
| Nome | Tipo | Descrição | Obrigatório | Referência |
| aItens | Vetor | Indica o array que contêm novos itens para a caixa de seleção (ComboBox). | X | |
oCombo:SetItems( {"Novo Item1","Novo Item2","Novo Item3"} )
| Propriedade | Descrição | Tipo |
| aItems | Indica uma lista de itens e caracteres que serão apresentados. Essa lista pode ter os seguintes formatos: Seqüencial (Exemplo: {"item1","item2",...,"itemN"}) ou Indexada (Exemplo:{"a=item1","b=item2",...,"n=itemN"}). | Vetor |
| nAt | Indica a posição do item selecionado. | Numérico |
A variável associada a caixa de seleção (ComboBox) pode ter o valor de um dos itens selecionados ou o índice de uma lista indexada.
#include "TOTVS.CH"User Function TComboBox()Local aItems:= {'Item1','Item2','Item3'} DEFINE DIALOG oDlg TITLE "Exemplo TComboBox" FROM 180,180 TO 550,700 PIXEL // Usando New cCombo1:= aItems[1] oCombo1 := TComboBox():New(02,02,{|u|if(PCount()>0,cCombo1:=u,cCombo1)},; aItems,100,20,oDlg,,{||Alert('Mudou item da combo')}; ,,,,.T.,,,,,,,,,'cCombo1') // Usando Create cCombo2:= aItems[2] oCombo2 := TComboBox():Create(oDlg,{|u|if(PCount()>0,cCombo2:=u,cCombo2)},22,02,; aItems,100,20,,{||Alert('Mudou item da combo')},,,,.T.,; ,,,,,,,,'cCombo2') ACTIVATE DIALOG oDlg CENTERED Return
Exemplo da classe TComboBox
Advanced Protheus 6.09
,
Advanced Protheus 7.10
,
Microsiga Protheus 8.11
,
Microsiga Protheus 11
,
Protheus 10
,
TOTVS Application Server 10
,
ByYou Application Server
|