Classe de radio group.
Hierarquia
tSrvObject -> tControl -> tRadMenu
Descrição
Utilize a classe tRadMenu para criar um controle que possibilita escolha de item através de uma lista.
Propriedades
| nOption | Numérico. Item selecionado. |
| aItems | Array de caracteres. Lista de items selecionáveis. |
Métodos
New
Descrição
Construtor do objeto.
Sintaxe
New([anRow], [anCol], [aacItems], [abSetGet], [aoWnd], [aPar6], [abChange], [anClrText], [anClrPan], [cPar10], [lPar11], [abWhen], [anWidth], [anHeight], [abValid], [lPar16], [lPar17], [alPixel])
Parâmetros
| anRow | Numérico, opcional. Coordenada vertical em pixels ou caracteres. |
| anCol | Numérico, opcional. Coordenada horizontal em pixels ou caracteres. |
| aacItems | Array de caracteres, opcional. Lista de opções. |
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 numérico. |
aoWnd | Objeto, opcional. Janela ou controle onde o controle será criado. |
aPar6 | Reservado. |
abChange | Bloco de código, opcional. Executado quando o item selecionado é alterado. |
anClrText | Numérico, opcional. Cor do texto do controle |
anClrPan | Numérico, opcional. Cor de fundo do controle. |
cPar10 | Reservado. |
lPar11 | 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. para que o controle permaneça habilitado, ou .F. se não. |
anWidth | Numérico, opcional. Largura do controle em pixels. |
anHeight | Numérico, opcional. Altura do controle em pixels. |
| abValid | Bloco de código, opcional. Executado quando o conteúdo do controle deva ser validado, retornando .T. se o conteúdo for válido, e .F. quando inválido. |
lPar16 | Reservado. |
| Lpar17 | Reservado. |
alPixel | Lógico, opcional. Se .T. as coordenadas informadas são em pixels, se .F. são em caracteres. |
Retorno
O objeto construído.
EnableItem
Descrição
Habilita ou desabilita item.
Sintaxe
EnableItem( [nItem], [lEnable])
Parâmetros
| NItem | Numérico, opcional. Item selecionado. |
| LEnable | Lógico, opcional. Se .T. habilita o item se .F. desabilita o item. |
Retorno
NIL
Exemplo
#include “protheus.ch”
User Function Teste()
Local oDlg, oButton, oRadio, nRadio:=1,;
aOptions:={“escolha1”,”escolha2”}
DEFINE MSDIALOG oDlg FROM 0,0 TO 300,300 PIXEL TITLE “Meu Get”
oRadio:= tRadMenu():New(10,10,aOptions,;
{|u|if(PCount()>0,nRadio:=u,nRadio)},;
oDlg,,,,,,,,100,20,,,,.T.)
@ 40,10 BUTTON oButton PROMPT “Fechar” OF oDlg PIXEL ACTION oDlg:End()
ACTIVATE MSDIALOG oDlg CENTERED
MsgStop(“Escolheu “+aOptions[nRadio] )
Return nil