AVSpeak

#Include "PROTHEUS.ch"#Include "FWMVCDEF.CH"User Function ACV_Tst2()Local oGet,cGet:="Meu Nome",oCombo,nCombo:=1,oCheck,lCheck:=.T.,oList,nList:=1Local aItems:={"1=Sexo Masculino","2=Sexo Feminino"}Local cTitle := "Customizações para Acessibilidade Visual"AVSpeak(cTitle,.T.) // Reproduz o titulo da JanelaDEFINE MSDIALOG oDlg TITLE cTitle FROM 0,0 TO 150,500 PIXEL  // --------------------------------------------------  // Cria Formulário Manualmente  // --------------------------------------------------  @ 006, 002 MSGET oGet VAR cGet SIZE 060, 010 OF oDlg PIXEL  oGet:lFocusOnFirst := .T. // Força bGotFocus na abertura da Janela  @ 006, 080 MSCOMBOBOX oCombo VAR nCombo ITEMS aItems SIZE 061, 010 OF oDlg PIXEL  @ 006, 160 CHECKBOX oCheck VAR lCheck PROMPT "Ativo" SIZE 060, 008 OF oDlg PIXEL  @ 20,02 LISTBOX oList VAR nList ITEMS aItems SIZE 100,50 OF oDlg PIXEL  // --------------------------------------------------  // Aplica Acessibilidade Visual  // --------------------------------------------------  oGet:bGotFocus   := {|| AVSpeak(AVField2Speak(.T.,"C","Nome",Len(cGet),cGet)) }  oCombo:bGotFocus := {|oCombo| AVCombo2List(oCombo, "Sexo") }  oCheck:bLClicked := {|| AVSpeak(AVField2Speak(,"L","Ativo",0,AVValue2Speak("L", lCheck))) }  oCheck:bGotFocus := {|| Eval(oCheck:bLClicked) }  oList:bChange    := {|| AVSpeak(AVField2Speak(,"C","Sexo",0,AVValue2Speak("N", nList))) }  oList:bGotFocus  := {|| Eval(oList:bChange) }ACTIVATE MSDIALOG oDlg CENTEREDReturn