Os comandos apresentados a seguir permitem modificar, de maneira dinâmica, os itens de menus e submenus, habilitando ou desabilitando suas funções.
O Comando EnableMenu permite habilitar ou desabilitar itens de menus e submenus.
Sintaxe
EnableMenu (<pop>,<num>,<tipo>)
Onde:
<pop>
Especifica o "prompt" (ou seja o "caption", ou título) de um menu ou submenu.
<num>
Identifica o item do menu (especificado em <pop>) a ser habilitado ou desabilitado. O parâmetro <num> informa o número seqüencial do item de menu, a partir de 1, na ordem de definição dos itens desse menu.
<tipo>
Especifica o objetivo do comando EnableMenu, podendo ser uma das seguintes opções:
E[nable] para habilitar
D[isable] ou G[rayed] para desabilitar
No exemplo que segue, são desativados (disabled) os itens "Plano de Saúde" e "Acidente de trabalho" do menu rotulado "Alterações".
$nolib
prog
Menu hospub
pad inf1 prompt "Informações" do rot
pad inf2 prompt "Emergência" popup P2
bar 1 prompt "Chefia" do rot
bar 2 separator
bar 3 prompt "Atendente" popup P2B3
bar1 1 prompt "Mov. Pacientes" popup P2B3B1
bar2 4 prompt "Procedimentos" do rot
bar1 2 prompt "Alterações" popup P2B3B2
bar2 1 prompt "Dados Pessoais" do rot
bar2 2 prompt "Entrada" do rot
bar2 3 prompt "Saída" do rot
bar2 4 prompt "Plano de Saúde" do rot
bar2 5 prompt "Acidente de Trabalho" do rot
bar1 3 prompt "Cancela Saída" do rot
bar1 4 prompt "Consultas" do rot
bar1 5 prompt "Emite Documentos" do rot
EndMenu
Activate Menu hospub
proc rot
EnableMenu ("Alterações",4,"G")
EnableMenu ("Alterações",5,"G")
return
Observação
Verifique, na tela produzida pelo exemplo anterior, como os itens desabilitados são exibidos num tom meio "acinzentado".
O Comando CheckMenu permite marcar (check) ou desmarcar (uncheck) itens de menus e submenus.
Sintaxe
CheckMenu (<pop>,<num>,<tipo>)
Onde:
<pop>
Especifica o "prompt" (ou seja o "caption", ou título) de um menu ou submenu.
<num>
Identifica o item do menu (especificado em <pop>) a ser marcado ou desmarcado. O parâmetro <num> informa o número seqüencial do item de menu, a partir de 1, na ordem de definição dos itens desse menu.
<tipo>
Especifica o objetivo do comando CheckMenu, podendo ser uma das seguintes opções:
C[hecked] para marcar
U[nchecked] para desmarcar
No exemplo que segue, são marcados (Checked) os itens "Plano de Saúde" e "Acidente de trabalho" do menu rotulado "Alterações".
$nolib
prog
Menu hospub
pad inf1 prompt "Informações" do rot
pad inf2 prompt "Emergência" popup P2
bar 1 prompt "Chefia" do rot
bar 2 separator
bar 3 prompt "Atendente" popup P2B3
bar1 1 prompt "Mov. Pacientes" popup P2B3B1
bar2 4 prompt "Procedimentos" do rot
bar1 2 prompt "Alterações" popup P2B3B2
bar2 1 prompt "Dados Pessoais" do rot
bar2 2 prompt "Entrada" do rot
bar2 3 prompt "Saída" do rot
bar2 4 prompt "Plano de Saúde" do rot
bar2 5 prompt "Acidente de Trabalho" do rot
bar1 3 prompt "Cancela Saída" do rot
bar1 4 prompt "Consultas" do rot
bar1 5 prompt "Emite Documentos" do rot
EndMenu
Activate Menu hospub
proc rot
CheckMenu ("Alterações",4,"C")
CheckMenu ("Alterações",5,"C")
return