;~ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
;~ Program Name:  AUProducer
;~ Author:        GUIMish
;~ Version:       1.2
;~ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Global $1, $2, $3, $4, $5, $6, $7, $8, $9, $0
Global $hWnd, $MsgiCode, $Msi, $Mss, $MsCo, $MsCod, $MsC, $MsTime, $MsC1, $sText, $asMsgText, $inCL
Global $inWnd, $InCo, $InSet, $InGiCode, $Msn, $Mssn, $Nac, $inCod, $incCod, $inCodL, $inCodR, $inCoeL, $inCoeR, $iPL
Global $TtCo, $tTit, $tTxt, $tIc, $TtWnd, $TtGiCode, $tTimeaut, $tI
Global $i

; Онко -------------------------------------------------------------------
$Window = GUICreate('AUProducer', 350, 420, -1, -1)

; Порамерты -------------------------------------------------------------------
AdlibRegister("ClockScript", 1000) ; Обновление скрипта Clock
HotKeySet ("{F1}", "winfo") ; информационная рамка
; Вкладки -------------------------------------------------------------------
$Tabi = GUICtrlCreateTab(3, 3, 345, 415) ; Размер окна для вкладок

; Вкладка Msgbox
GUICtrlCreateTabItem("Msgbox")
GUICtrlSetState(-1, 16) ; будет отображаться выбранной
GUICtrlCreateLabel("Название:", 15, 30, -1, -1)
   $MsTitle = GUICtrlCreateInput("", 15, 45, 320, 20)
	  GUICtrlSetState(-1, 256)
GUICtrlCreateLabel("Текст:", 15, 70, -1, -1)
   $MsTxt = GUICtrlCreateEdit ("", 15, 85, 320, 100)
GUICtrlCreateGroup ("Иконка:", 15, 190, 320, 50)
   $MsiNo = GUICtrlCreateRadio("Нет", 20, 209, -1, 20)
   GUICtrlSetState(-1, 1)
   $MsiInfo = GUICtrlCreateRadio("Информационная", 72, 201, 50, 35, 0x0040)
   GUICtrlSetImage(-1, "user32.dll", -5)
   $MsiQuestion = GUICtrlCreateRadio("Вопрос", 141, 200, 50, 35, 0x0040)
   GUICtrlSetImage(-1, "user32.dll", -3)
   $MsiCritical = GUICtrlCreateRadio("Критическая", 210, 201, 50, 35, 0x0040)
   GUICtrlSetImage(-1, "user32.dll", -4)
   $MsiWarning = GUICtrlCreateRadio("Предупреждение", 280, 201, 50, 35, 0x0040)
   GUICtrlSetImage(-1, "user32.dll", -2)
GUICtrlCreateGroup ("Тайм-аут:", 220, 335, 115, 45)
   $MsTimeout = GUICtrlCreateInput("", 225, 352, 100, 20, 0x2000)
GUICtrlCreateGroup("Кнопочный состав:", 15, 240, 200, 40)
   $MsKnS = GUICtrlCreateCombo ('', 20, 255, 190, 20)
   GUICtrlSetData (-1, 'OK|OK, Отмена|Да, Нет|Да, Нет, Отмена|Повтор, Отмена|Прервать, Повтор, Пропустить|Отмена, Повторить, Продолжить|', 'OK')
GUICtrlCreateGroup("Станд. кнопка:", 220, 240, 115, 40)
   $MsIten = GUICtrlCreateCombo ('Первая кнопка', 225, 255, 100, 20)
GUICtrlCreateGroup("Модальность диалога:", 15, 280, 200, 100)
   $MsPri = GUICtrlCreateRadio ('Приложение', 20, 295, 194, -1)
   GUICtrlSetState(-1, 1)
   $MsSis = GUICtrlCreateRadio ('Система', 20, 312, 194, -1)
   GUICtrlSetTip(-1, "(диалог имеет индикатор)")
   $MsOpe = GUICtrlCreateRadio ('Операция', 20, 330, 194, -1)
GUICtrlCreateGroup("Другие опции:", 220, 280, 115, 55)
   $MsPvO = GUICtrlCreateCheckbox ('Пов. всех окон', 225, 294, 100, 20)
   $MsVnu = GUICtrlCreateCheckbox ('С право на лево', 225, 311, 104, 20)
   
$MsPreview = GUICtrlCreateButton("Пред... просмотр", 15, 390, 100, 20)
$MsCopy = GUICtrlCreateButton("Получить код", 123, 390, 100, 20)
$MsExit = GUICtrlCreateButton("Выход", 230, 390, 100, 20)

; Вкладка InputBox 
GUICtrlCreateTabItem("InputBox")
GUICtrlCreateLabel("Название:", 15, 30, -1, -1)
   $InTitle = GUICtrlCreateInput("", 15, 45, 320, 20)
		 GUICtrlSetState(-1, 256)
GUICtrlCreateLabel("Поясняющее сообщение:", 15, 70, -1, -1)
   $InPrompt = GUICtrlCreateEdit ("", 15, 85, 320, 100)
GUICtrlCreateLabel("Текст в строке ввода:", 15, 190, -1, -1)
   $InText = GUICtrlCreateInput("", 15, 205, 320, 20)
GUICtrlCreateLabel("Пароль:", 15, 230, -1, -1)
   $InPasv = GUICtrlCreateInput("", 15, 245, 320, 20)
GUICtrlCreateGroup("При вводе текста:", 15, 270, 115, 110)
   $InNoc = GUICtrlCreateRadio ('Стандарно', 20, 285, -1, 20)
	  GUICtrlSetState(-1, 1)
   $InVtc = GUICtrlCreateRadio ('Звездочки (*)', 20, 305, -1, 20)
   $InVtcs = GUICtrlCreateRadio ('Символ', 20, 325, -1, 20)
   $InPasvi = GUICtrlCreateInput("", 80, 325, 20, 20)
   GUICtrlSetLimit(-1, 1)
   GUICtrlSetState($InPasvi, 128)
GUICtrlCreateGroup("Размер:", 253, 270, 83, 50)
   GUISetFont(6.5)
   GUICtrlCreateLabel("X", 259, 285, -1, -1)
   GUICtrlCreateLabel("L", 297, 285, -1, -1)
   GUISetFont(8.5)
   $InRpL = GUICtrlCreateInput("", 258, 295, 35, 17, 0x2000, -1)
	  GUICtrlSetLimit(-1, 4)
   $InRpR = GUICtrlCreateInput("", 295, 295, 35, 17, 0x2000, -1)
	  GUICtrlSetLimit(-1, 4)
GUICtrlCreateGroup("Количество знаков:", 135, 270, 115, 50)
   $InKoZ = GUICtrlCreateInput("", 145, 290, 80, 20, 0x2000, -1)

GUISetFont(8.5)
$InPreview = GUICtrlCreateButton("Пред... просмотр", 15, 390, 100, 20)
$InCopy = GUICtrlCreateButton("Получить код", 123, 390, 100, 20)
$InExit = GUICtrlCreateButton("Выход", 230, 390, 100, 20)

; Вкладка Tray
GUICtrlCreateTabItem("Tray")
GUICtrlCreateGroup("TrayTip:", 15, 30, 320, 190)
   GUICtrlCreateLabel("Текст заголовка:", 20, 46, -1, 15)
	  $TtTitle = GUICtrlCreateInput("", 20, 60, 120, 20)
		 GUICtrlSetState(-1, 256)
   GUICtrlCreateLabel("*Текст сообщения:", 20, 85, -1, 15)
	  $TtTxt = GUICtrlCreateEdit ("", 20, 100, 310, 100)
	  GUICtrlSetLimit(-1, 255)
   $TtNo = GUICtrlCreateRadio("Нет", 165, 80, 35, 20, 0x0040)
	  GUICtrlSetState(-1, 1)
   $TtCritical = GUICtrlCreateRadio("Критическя", 295, 80, 35, 20, 0x0040)
	  GUICtrlSetImage(-1, "user32.dll", -4, 0)
   $TtInfo = GUICtrlCreateRadio("Информационная", 250, 80, 35, 20, 0x0040)
	  GUICtrlSetImage(-1, "user32.dll", -2, 0)
   $TtWarning = GUICtrlCreateRadio("Внимание", 205, 80, 35, 20, 0x0040)
	  GUICtrlSetImage(-1, "user32.dll", -5, 0)
	  
   GUICtrlCreateLabel("Тайм-аут:", 120, 201, -1, 15)
	  $TtTimeaut = GUICtrlCreateInput("", 175, 201, 50, 16, 0x2000)
		 GUICtrlSetFont(-1, 7)
   
   $TtPreview = GUICtrlCreateButton("Пред... просмотр", 20, 200, 90, 18)
	  GUICtrlSetFont(-1, 7)
   $TtCopy = GUICtrlCreateButton("Получить код", 240, 200, 90, 18)
     GUICtrlSetFont(-1, 7)

GUICtrlCreateTabItem("") ; определяет конец вкладок

; Часы
$Clock = GUICtrlCreateLabel(@HOUR & ":" & @MIN & ":" & @SEC, 300, 6, -1, 15)
GUISetState()
$Prig = True
While 1
   Switch GUIGetMsg()
	  Case -3, $MsExit, $InExit
		 Exit
	  Case $MsCopy
		 $asMsgText = StringSplit(GUICtrlRead($MsTxt), @CRLF, 1)
				If $asMsgText[0] = 1 Then
					$sText = GUICtrlRead($MsTxt)
				Else
					$sText = $asMsgText[1]

					For $iCtr = 2 To $asMsgText[0]
						$sText = $sText & Chr(34) & " & @CRLF & " & Chr(34) & $asMsgText[$iCtr]
					Next
				EndIf
		 _MsGeniCode($hWnd)
		 
	  Case $MsPreview
		 _MsPrev($MsCo)
	  Case $MsKnS
		 _lis($5)
	  
	  Case $InPreview
		 _InPrev($InCo)
	  Case $InCopy
		 $InMsgText = StringSplit(GUICtrlRead($InPrompt), @CRLF, 1)
				If $InMsgText[0] = 1 Then
					$inTxt = GUICtrlRead($InPrompt)
				Else
					$inTxt = $InMsgText[1]

					For $iCtr = 2 To $InMsgText[0]
						$inTxt = $inTxt & Chr(34) & " & @CRLF & " & Chr(34) & $InMsgText[$iCtr]
					Next
				 EndIf
		 _InGeniCode($inWnd)
		 
	  Case $InVtcs
		 GUICtrlSetState($InPasvi, 64)
	  Case $InVtc
		 GUICtrlSetState($InPasvi, 128)
	  Case $InNoc
		 GUICtrlSetState($InPasvi, 128)
	  Case $TtPreview
		 TrayTip(tTitle($tTit), GUICtrlRead($TtTxt), GUICtrlRead($TtTimeaut), tIco($tI))
	  Case $TtCopy
		 $TtMsgText = StringSplit(GUICtrlRead($TtTxt), @CRLF, 1)
				If $TtMsgText[0] = 1 Then
					$TtsTxt = GUICtrlRead($TtTxt)
				Else
					$TtsTxt = $TtMsgText[1]

					For $iCtr = 2 To $TtMsgText[0]
						$TtsTxt = $TtsTxt & Chr(34) & " & @CRLF & " & Chr(34) & $TtMsgText[$iCtr]
					Next
				 EndIf
		 _TtGeniCode($TtWnd)
   EndSwitch
WEnd

Func winfo()
   $IWin = GUICreate("Info", 300, 170, -1, -1, -2147221505, 384, $Window)
	  GUISetBkColor (0x2F56BE)
   $IEx = GUICtrlCreateButton ("OK", 130, 140, 50, 20)
   GUICtrlCreateLabel ("Autoit", 10, -5, 200, 70)
	  GUICtrlSetColor (-1, 0xcfffff)
	  GUICtrlSetFont (-1, 60, 400, 1, "Giddyup Std")
   GUICtrlCreateLabel ("AUProducer", 12, 67, 200, 50)
	  GUICtrlSetColor (-1, 0xffffff)
	  GUICtrlSetFont (-1, 12, 1000)
   GUICtrlCreateLabel ("Version: 1.2", 12, 93, 200, 50)
	  GUICtrlSetColor (-1, 0xffffff)
	  GUICtrlSetFont (-1, 7.5)
   GUICtrlCreateLabel ("© 2013 GUIMish. All Rights are NOT reserved.", 12, 120, 200, 20)
	  GUICtrlSetColor (-1, 0xffffff)
	  GUICtrlSetFont (-1, 7)
   GUISetState()
   Do
   Until GUIGetMsg() = $IEx
	  GUIDelete()
EndFunc

;~ Сверение часов с компьютером!
Func ClockScript()
    GUICtrlSetData($Clock, @HOUR & ":" & @MIN & ":" & @SEC)
 EndFunc
 ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
Func _MsGeniCode($hWnd = 0)
   
    $MsChild = GUICreate('Generating code', 430, 150, -1, -1, -1, -1)
    $Code = GUICtrlCreateEdit (_MsCode($MsgiCode), 5, 5, 420, 140)

    GUISetState()
   
    While 1
        Switch GUIGetMsg()
            Case -3
                ExitLoop
        EndSwitch
    WEnd
   
    GUISetState(@SW_ENABLE, $hWnd)
    GUIDelete($MsChild)
 EndFunc
 
 Func _InGeniCode($inWnd = 0)
   
    $InChild = GUICreate('Generating code', 430, 150, -1, -1, -1, -1)
    $Code = GUICtrlCreateEdit (_InCode($InGiCode), 5, 5, 420, 140)

    GUISetState()
   
    While 1
        Switch GUIGetMsg()
            Case -3
                ExitLoop
        EndSwitch
    WEnd
   
    GUISetState(@SW_ENABLE, $inWnd)
    GUIDelete($InChild)
 EndFunc
 

 
 Func _lis($5)
   Switch GUICtrlRead($MsKnS)
	  Case "OK"
		 GUICtrlSetData ($MsIten, '')
		 GUICtrlSetData ($MsIten, 'Первая кнопка', 'Первая кнопка')
	  Case "OK, Отмена"
		 GUICtrlSetData ($MsIten, '')
		 GUICtrlSetData ($MsIten, 'Первая кнопка|Вторая кнопка', 'Первая кнопка')
	  Case "Да, Нет"
		GUICtrlSetData ($MsIten, '')
		 GUICtrlSetData ($MsIten, 'Первая кнопка|Вторая кнопка', 'Первая кнопка')
	  Case "Да, Нет, Отмена"
		GUICtrlSetData ($MsIten, '')
		 GUICtrlSetData ($MsIten, 'Первая кнопка|Вторая кнопка|Третья кнопка', 'Первая кнопка')
	  Case "Повтор, Отмена"
		GUICtrlSetData ($MsIten, '')
		 GUICtrlSetData ($MsIten, 'Первая кнопка|Вторая кнопка', 'Первая кнопка')
	  Case "Прервать, Повтор, Пропустить"
		GUICtrlSetData ($MsIten, '')
		 GUICtrlSetData ($MsIten, 'Первая кнопка|Вторая кнопка|Третья кнопка', 'Первая кнопка')
	  Case "Отмена, Повторить, Продолжить"
		GUICtrlSetData ($MsIten, '')
		 GUICtrlSetData ($MsIten, 'Первая кнопка|Вторая кнопка|Третья кнопка', 'Первая кнопка')
   EndSwitch
   Return $5
EndFunc
 
 Func _MsPrev($MsCo) 
	  $MsCo = MsgBox (_MsCod($MsCod) + _MsCo($MsC) + _list($1) + _li($2), GUICtrlRead ($MsTitle), GUICtrlRead ($MsTxt), GUICtrlRead ($MsTimeout))
	Return $MsCo
 EndFunc
 
 Func _MsCode($MsgiCode) 
	  $MsgiCode = _Ms($Msi) & "MsgBox (" & _MsCod($MsCod) + _MsCo($MsC) + _list($1) + _li($2) & "," & '"' & GUICtrlRead ($MsTitle)& '"' & ","& '"' &  $sText &  '"' & _MsTime($MsTime)  & ")" & @CRLF & _Msi($Mss)
	Return $MsgiCode
 EndFunc
 
   Func _Msi($Mss)
   Switch GUICtrlRead($MsKnS)
	  Case "OK, Отмена"
		$Mss = "Select" & @CRLF & _
			"	Case $iMsgBox = 1 ;Ок" & @CRLF & _
			"		; Внесите вот сюда то что хотите при нажатии Ок" & @CRLF & _
			"	Case $iMsgBox = 2 ;Отмена" & @CRLF & _
			"		; Внесите вот сюда то что хотите при нажатии Отмена" & @CRLF & _
			"EndSelect"
	  Case "Да, Нет"
		$Mss = "Select" & @CRLF & _
			"	Case $iMsgBox = 6 ;Да" & @CRLF & _
			"		; Внесите вот сюда то что хотите при нажатии Да" & @CRLF & _
			"	Case $iMsgBox = 7 ;Нет" & @CRLF & _
			"		; Внесите вот сюда то что хотите при нажатии Нет" & @CRLF & _
			"EndSelect"
	  Case "Да, Нет, Отмена"
		$Mss = "Select" & @CRLF & _
			"	Case $iMsgBox = 6 ;Да" & @CRLF & _
			"		; Внесите вот сюда то что хотите при нажатии Да" & @CRLF & _
			"	Case $iMsgBox = 7 ;Нет" & @CRLF & _
			"		; Внесите вот сюда то что хотите при нажатии Нет" & @CRLF & _
			"	Case $iMsgBox = 2 ;Отмена" & @CRLF & _
			"		; Внесите вот сюда то что хотите при нажатии Отмена" & @CRLF & _
			"EndSelect"
	  Case "Повтор, Отмена"
		$Mss = "Select" & @CRLF & _
			"	Case $iMsgBox = 4 ;Повтор" & @CRLF & _
			"		; Внесите вот сюда то что хотите при нажатии Повтор" & @CRLF & _
			"	Case $iMsgBox = 2 ;Отмена" & @CRLF & _
			"		; Внесите вот сюда то что хотите при нажатии Отмена" & @CRLF & _
			"EndSelect"
	  Case "Прервать, Повтор, Пропустить"
		$Mss = "Select" & @CRLF & _
			"	Case $iMsgBox = 3 ;Прервать" & @CRLF & _
			"		; Внесите вот сюда то что хотите при нажатии Прервать" & @CRLF & _
			"	Case $iMsgBox = 4 ;Повтор" & @CRLF & _
			"		; Внесите вот сюда то что хотите при нажатии Повтор" & @CRLF & _
			"	Case $iMsgBox = 2 ;Пропустить" & @CRLF & _
			"		; Внесите вот сюда то что хотите при нажатии Пропустить" & @CRLF & _
			"EndSelect"
	  Case "Отмена, Повторить, Продолжить"
		$Mss = "Select" & @CRLF & _
			"	Case $iMsgBox = 2 ;Отмена" & @CRLF & _
			"		; Внесите вот сюда то что хотите при нажатии Отмена" & @CRLF & _
			"	Case $iMsgBox = 10 ;Повторить" & @CRLF & _
			"		; Внесите вот сюда то что хотите при нажатии Повторить" & @CRLF & _
			"	Case $iMsgBox = 11 ;Продолжить" & @CRLF & _
			"		; Внесите вот сюда то что хотите при нажатии Продолжить" & @CRLF & _
			"EndSelect"
   EndSwitch
   Return $Mss
 EndFunc
 
  Func _Ms($Msi)
   Switch GUICtrlRead($MsKnS)
	  Case "OK, Отмена"
		$Msi = "$iMsgBox = "
	  Case "Да, Нет"
		$Msi = "$iMsgBox = "
	  Case "Да, Нет, Отмена"
		$Msi = "$iMsgBox = "
	  Case "Повтор, Отмена"
		$Msi = "$iMsgBox = "
	  Case "Прервать, Повтор, Пропустить"
		$Msi = "$iMsgBox = "
	  Case "Отмена, Повторить, Продолжить"
		$Msi = "$iMsgBox = "
   EndSwitch
   Return $Msi
 EndFunc
 
 Func _list($1)
   Switch GUICtrlRead($MsKnS)
	  Case "OK, Отмена"
		$1 = 1
	  Case "Да, Нет"
		$1 = 4
	  Case "Да, Нет, Отмена"
		$1 = 3
	  Case "Повтор, Отмена"
		$1 = 5
	  Case "Прервать, Повтор, Пропустить"
		$1 = 2
	  Case "Отмена, Повторить, Продолжить"
		$1 = 6
   EndSwitch
   Return $1
EndFunc

 Func _li($2)
   Switch GUICtrlRead($MsIten)
	  Case "Первая кнопка"
		$1 = 0
	  Case "Вторая кнопка"
		$1 = 256
	  Case "Третья кнопка"
		$1 = 512
	  Case "Четвертая кнопка"
		$1 = 768
   EndSwitch
   Return $1
EndFunc
 
 Func _MsCod($iCod) 
	  Select
		 Case GUICtrlRead ($MsiNo) = 1
			$iCod = 0x0
		 Case GUICtrlRead ($MsiInfo) = 1
			$iCod = 0x40
		 Case GUICtrlRead ($MsiQuestion) = 1
			$iCod = 0x20
		 Case GUICtrlRead ($MsiCritical) = 1
			$iCod = 0x10
		 Case GUICtrlRead ($MsiWarning) = 1
 			$iCod = 0x30
	  EndSelect
	Return $iCod
 EndFunc
 
Func _MsCo($MsC)
   Select
		 Case GUICtrlRead ($MsPvO) = 1
 			$MsC = 0x40000
   EndSelect
   Select
		 Case GUICtrlRead ($MsVnu) = 1
 			$MsC = $MsC + 0x100000
   EndSelect
   Select
		 Case GUICtrlRead ($MsSis) = 1
 			$MsC = $MsC + 4096
   EndSelect
   Select
		 Case GUICtrlRead ($MsOpe) = 1
 			$MsC = $MsC + 8192
   EndSelect
	Return $MsC
 EndFunc
 
 Func _MsTime($MsTime) 
   Select
	  Case $MsCopy
		 If GUICtrlRead ($MsTimeout) = "" Then
		 $MsCo = ''
		 Else
		 $MsCo = ',' & GUICtrlRead ($MsTimeout)
		 EndIf
   EndSelect
   Return $MsCo
EndFunc

 Func _InCode($InGiCode) 
	  $InGiCode = _Nach($Nac) & @CRLF & "$iInputBox = " & 'InputBox ("' & GUICtrlRead($InTitle) & '"' & ","& '"' &  $inTxt  & '"' & ","& '"' & GUICtrlRead($InText) & _IncCod($inCod) & GUICtrlRead($InKoZ) & '"' & _IncCodL($inCodL) & _IncCodR($inCodR) & ")" & @CRLF & _Msin($Mssn)
	Return $InGiCode
 EndFunc

Func _Nach($Nac)
	  $Nac = "Local $bLoop = 1" & @CRLF & _
			 "While $bLoop = 1"
   Return $Nac
EndFunc


Func _Msin($Mssn)
		$Mssn = "	If @error Then" & @CRLF &  _
			    "		Exit" & @CRLF & _
			    "	Else" & @CRLF & _
				"		If $iInputBox <> " & '"' & GUICtrlRead ($InPasv) & '"' & " Then" & @CRLF & _
				"			; Внесите вот сюда при неправельном ответе" & @CRLF & _
				"		Else" & @CRLF & _
			    "			; Внесите вот сюда при правельном ответе" & @CRLF & _
				"			Exit" & @CRLF & _
				"		EndIf" & @CRLF & _
			    "	EndIf" & @CRLF & _
				"WEnd"
   Return $Mssn
EndFunc


 Func _InPrev($InCo) 
   Local $bLoop = 1
   While $bLoop = 1
	  $Prv = InputBox (GUICtrlRead ($InTitle), GUICtrlRead ($InPrompt), GUICtrlRead ($InText), _IncCod($inCod) & GUICtrlRead($InKoZ), GUICtrlRead($InRpL), GUICtrlRead($InRpR))
	  If @error = 1 Then
		 ExitLoop
	  Else
		 If $Prv <> GUICtrlRead ($InPasv) Then
            MsgBox(16, "Error", "Неверно!")
		 Else
			MsgBox (64, "Сообщение", "Верно!" )
			ExitLoop
		 EndIf
	  EndIf
   WEnd
	Return $InCo
 EndFunc
 
Func _IncCod($inCod) 
   $inCod = " "
	  Select
		 Case GUICtrlRead ($InVtc) = 1
			$inCod = "*"
		 Case GUICtrlRead ($InVtcs) = 1
			$inCod = GUICtrlRead($InPasvi)
	  EndSelect
	Return $inCod
 EndFunc
 

Func _IncCodL($inCodL) 
	  For $i = 999 to 1 Step -1
		 If GUICtrlRead ($InRpL) = $i Then
			For $i = 999 to 1 Step -1
			   If GUICtrlRead ($InRpR) = $i Then
				  $inCodL = ", " & GUICtrlRead($InRpL)
				  
			   EndIf
			Next
			   If GUICtrlRead ($InRpR) = "" Then
				  $inCodL = ", " & GUICtrlRead($InRpL) & ", -1"
			   EndIf
		 EndIf
	  Next
	Return $inCodL
EndFunc
 
Func _IncCodR($inCodR) 
	  For $i = 999 to 1 Step -1
		 If GUICtrlRead($InRpR) = $i Then
			For $i = 999 to 1 Step -1
			   If GUICtrlRead ($InRpL) = $i Then
				  $inCodR = ", " & GUICtrlRead($InRpR)
			   EndIf
			Next
			   If GUICtrlRead ($InRpL) = "" Then
				  $inCodR = ", -1, " & GUICtrlRead($InRpR)
			   EndIf
		 EndIf
	  Next
	Return $inCodR
 EndFunc
 
 Func _TtGeniCode($TtWnd)
   
    $TtChild = GUICreate('Generating code', 430, 150, -1, -1, -1, -1)
    $Code = GUICtrlCreateEdit (_TtCode($TtGiCode), 5, 5, 420, 140)

    GUISetState()
   
    While 1
        Switch GUIGetMsg()
            Case -3
                ExitLoop
        EndSwitch
    WEnd
   
    GUISetState(@SW_ENABLE, $hWnd)
    GUIDelete($TtChild)
 EndFunc
 
   Func _TtCode($TtGiCode) 
	  $TtGiCode = 'TrayTip ("' & tTitle($tTit) & ", " & '"' & $TtsTxt & '"' & tTimeaut($tTimeaut) & tIcon($tIc) & ")"
	Return $TtGiCode
 EndFunc
 
 Func tTitle($tTit)
   Select
	  Case $TtPreview
		 If GUICtrlRead ($TtTitle) = "" Then
		 $tTit = ""
		 Else
		 $tTit = GUICtrlRead ($TtTitle)
		 EndIf
   EndSelect
   Return $tTit
 EndFunc

 Func tTimeaut($tTimeaut)
   Select
	  Case $TtPreview
		 If GUICtrlRead($TtTimeaut) = "" Then
		 $tTimeaut = ""
		 Else
		 $tTimeaut = ", " & GUICtrlRead($TtTimeaut)
		 EndIf
   EndSelect
	Return $tTimeaut
 EndFunc
 
  Func tIco($tI)
   Select
		 Case GUICtrlRead ($TtWarning) = 1
			$tI = 1
		 Case GUICtrlRead ($TtInfo) = 1
			$tI = 2
		 Case GUICtrlRead ($TtCritical) = 1
			$tI = 3
	  EndSelect
Return $tI
 EndFunc

 Func tIcon($tIc)
		 If GUICtrlRead($TtWarning) = 1 Then
			For $i = 9999 to 1 Step -1
			   If GUICtrlRead ($TtTimeaut) = $i Then
				  $tIc = ", " & 1
			   EndIf
			Next
			   If GUICtrlRead ($TtTimeaut) = "" Then
				  $tIc = ", -1, 1" 
			   EndIf
		 EndIf
		 If GUICtrlRead($TtInfo) = 1 Then
			For $i = 9999 to 1 Step -1
			   If GUICtrlRead ($TtTimeaut) = $i Then
				  $tIc = ", " & 2
			   EndIf
			Next
			   If GUICtrlRead ($TtTimeaut) = "" Then
				  $tIc = ", -1, 2" 
			   EndIf
		 EndIf
		 If GUICtrlRead($TtCritical) = 1 Then
			For $i = 9999 to 1 Step -1
			   If GUICtrlRead ($TtTimeaut) = $i Then
				  $tIc = ", " & 3
			   EndIf
			Next
			   If GUICtrlRead ($TtTimeaut) = "" Then
				  $tIc = ", -1, 3" 
			   EndIf
		 EndIf
	Return $tIc
 EndFunc