Func opciones()
Opt("GUIOnEventMode",1)
$directorio = "c:\users\" &@username &"\AppData\Roaming\Microsoft\Windows\Start Menu\Programs"
local $rutadelarchivo = $directorio & "\Mini Calendar.nlk"
Select
case $sLanguage ="es"
$mensaje0="Menú de opciones"
$mensaje1="Iniciar Mini Calendario y agenda Con Windows (beta)"
$mensaje2="Guardar opciones (recomendado)"
$mensaje2a="Buscar actualizaciones (recomendado)"
$mensaje2b="Mover el mini calendario a la bandeja del sistema"
$mensaje3="Selecciona la salida de voz:"
$mensaje4="&Aplicar"
$mensaje5="&Cerrar"
$mensaje6="No se ha podido crear el acceso directo... Puedes intentar lo siguiente: " &@crlf &"Método 1: Ejecuta el programa como administrador, abre el menú, vé a opciones y marca la casilla que acavas de marcar." &@crlf &"Método 2: Puede que hayan otras acciones en curso que hacen necesario reiniciar el pc. Deberías reiniciarlo, abrir este programa y volver a marcar esta casilla."
$mensaje7="Selecciona la salida de texto a voz"
$mensaje8="Esta es una prueba de síntesis de voz"
$mensaje9="Inicio creado"
$mensaje9a="Por favor, reinicia tu pc para que estos cambios surtan efecto. Cierra todas las ventanas de esta aplicación que estés usando y procede con el reinicio."
case $sLanguage ="eng"
$mensaje0="Options menu"
$mensaje1="Start Mini Calendar and scheduler With Windows (beta)"
$mensaje2="Save options (recommended)"
$mensaje2a="Check for updates (recommended)"
$mensaje2b="Move the mini calendar to the system tray"
$mensaje3="Select the voice output:"
$mensaje4="&Aply"
$mensaje5="&Close"
$mensaje6="The shortcut could not be created... You can try the following: " &@crlf &"Method 1: Run the program as administrator, open the menu, go to options and check the box you just checked . " &@crlf &"Method 2: There may be other actions in progress that make it necessary to restart the pc. You should restart it, open this program and check this box again."
$mensaje7="Select text-to-speech output"
$mensaje8="This is a speech synthesis test"
$mensaje9="Start created"
$mensaje9a="Please restart your pc for the changes to take effect. Close the windows of this application that you are using and then proceed to restart."
EndSelect
$guioptions2 = GuiCreate($mensaje0)
$idStartWindows = GUICtrlCreateCheckbox($mensaje1, 50, 100, 20, 25)
GUICtrlSetOnEvent($idStartWindows, "iniciarconwindows")
$idSabesettings = GUICtrlCreateCheckbox($mensaje2, 85, 100, 20, 25)
GUICtrlSetOnEvent($idSabesettings, "guardaropciones")
$idCheckUpds = GUICtrlCreateCheckbox($mensaje2a, 120, 100, 20, 25)
GUICtrlSetOnEvent($idCheckUpds, "buscaractualizaciones")
$idMinimize = GUICtrlCreateCheckbox($mensaje2b, 145, 100, 20, 25)
GUICtrlSetOnEvent($idMinimize, "minimizar")
$voice_Label = GUICtrlCreateLabel($mensaje7, 130, 100, 20, 25)
$idChangevoice1 = GUICtrlCreateCombo("Sapi", 130, 120, 20, 30, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData($idChangevoice1, "NVDA|JAWS")
;GUICtrlSetOnEvent($idChangevoice1, "Cambiarvoz")
$idBTN_Close = GUICtrlCreateButton($mensaje5, 150, 100, 50, 25)
GUICtrlSetOnEvent($idBTN_Close, "eliminar")
GUISetState(@SW_SHOW)
Local $sComboRead = ""
;while 1

;Wend
EndFunc
func iniciarconwindows()
If _IsChecked_audio($idStartWindows) Then
FileCreateShortcut(@ScriptFullPath, $rutadelarchivo, "", "", "", "", "")
If Not @error Then
Msgbox(48, $mensaje9, $mensaje9a)
Else
MSGBox(0, "Error", $mensaje6)
EndIf
Else
SoundPlay(@TempDir &"\sounds\soundsdata.dat\CHECKBOX_unchecked.MP3",0)
FileDelete($rutadelarchivo)
EndIf
EndFunc
func guardaropciones()
If _IsChecked_audio($idSabesettings) Then
IniWrite("config\config.st", "General settings", "Sabe settings", "Yes")
Else
SoundPlay(@TempDir &"\sounds\soundsdata.dat\CHECKBOX_unchecked.MP3",0)
IniWrite("config\config.st", "General settings", "Sabe settings", "No")
EndIf
EndFunc
func buscaractualizaciones()
If _IsChecked_audio($idCheckUpds) Then
IniWrite("config\config.st", "General settings", "Check updates", "Yes")
Else
SoundPlay(@TempDir &"\sounds\soundsdata.dat\CHECKBOX_unchecked.MP3",0)
IniWrite("config\config.st", "General settings", "Check updates", "No")
EndIf
EndFunc
func minimizaralabandeja()
If _IsChecked_audio($idCheckMinimize) Then
IniWrite("config\config.st", "General settings", "Minimize", "Yes")
Else
SoundPlay(@TempDir &"\sounds\soundsdata.dat\CHECKBOX_unchecked.MP3",0)
IniWrite("config\config.st", "General settings", "Minimize", "No")
EndIf
EndFunc
func cambiarvoz()
;NO DISPONIBLE.
$sComboRead = GUICtrlRead($idchangevoice1)
IniWrite("Config\config.st", "Accessibility", "Speak Whit", $sComboRead)
SoundPlay(@TempDir &"\sounds\soundsdata.dat\scroll.mp3",0)
speaking($mensaje8)
EndFunc
func eliminar()
guiDelete($guioptions2)
EndFunc
Func _IsChecked_audio($idControlID)
SoundPlay(@TempDir &"\sounds\soundsdata.dat\CHECKBOX.MP3",0)
Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED
EndFunc