EQ APO GUI

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=noun_project_2807.ico
#AutoIt3Wrapper_Outfile=eq-config.exe
#AutoIt3Wrapper_Outfile_x64=eq-config_x64.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Res_Comment=EQ
#AutoIt3Wrapper_Res_Fileversion=0.1.0.1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
#AutoIt3Wrapper_Res_Language=1033
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiSlider.au3>
#include <GuiToolTip.au3>
#include <File.au3>
#include <Array.au3>
#include <Constants.au3>


$title = "Egalizatoru' lu' troo"
$Form1 = GUICreate("Egalizatoru' lu' troo", 490, 345, 494, 390, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU))

Opt("TrayMenuMode", 11)
Opt("TrayAutoPause", 0)
Opt("TrayOnEventMode", 1)

TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "_TrayClick")
TraySetClick(16)
TraySetToolTip($title)

Local $showitem = TrayCreateItem("Show EQ");
TrayItemSetOnEvent(-1, "_TrayClick")
Local $exititem = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "_TrayExit")

Global $WinState

$state = WinGetState($Form1, "")

If BitAND($state, 16) Then
	$WinState = True
Else
	$WinState = False
EndIf

Func _TrayClick()
	$WinState = Not $WinState
	If $WinState Then
		WinSetState($Form1, "", @SW_MINIMIZE)
		WinSetState($Form1, "", @SW_HIDE)
	Else
		WinSetState($Form1, "", @SW_SHOW)
		WinSetState($Form1, "", @SW_RESTORE)
	EndIf
	Sleep(100)
EndFunc   ;==>_TrayClick

Func _TrayExit()
	Exit 0
EndFunc   ;==>_TrayExit

Global $cFile = "eq.txt"

Global $aArray = StringSplit("0|32|64|125|250|500|1000|2000|4000|8000|16000|", "|", 3)
Global $iCount = UBound($aArray) - 1

Global $dbLimit = "120"

Global $aConfig
Global $aSlider[$iCount]
Global $aLabel[$iCount]
Global $aLegend[$iCount]
Global $aLine[$iCount]
Global $aSlider_hold[$iCount]
Global $aSlider_value[$iCount]

_ReadFile($cFile)

Func CreateSliders()
	For $i = 0 To $iCount - 1
		$Position = ($i * 40) + 32;
		$aSlider[$i] = GUICtrlCreateSlider($Position, 32, 32, 240, BitOR($TBS_VERT, $TBS_AUTOTICKS, $TBS_BOTH))
		GUICtrlSetLimit($aSlider[$i], $dbLimit, -$dbLimit)

		GUICtrlSetData($aSlider[$i], $aSlider_value[$i])

		If $aArray[$i] = 0 Then
			$aLabeltext = "PRE"
		ElseIf $aArray[$i] >= 1000 Then
			$nValue = $aArray[$i] / 1000
			$aLabeltext = $nValue & " KHz"
		Else
			$aLabeltext = $aArray[$i] & " Hz"
		EndIf

		$aLabel[$i] = GUICtrlCreateLabel($aLabeltext, $Position, 16, 36, 16, $SS_CENTER)
		$aLegend[$i] = GUICtrlCreateLabel(0, $Position, 280, 28, 16, $SS_CENTER)

	Next
EndFunc   ;==>CreateSliders

CreateSliders()

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Reset = GUICtrlCreateButton("Reset", 5, 312, 75, 25)
GUISetState(@SW_SHOW)

; Get a time stamp
$nBegin = TimerInit()

_UpdateAllSliders()

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Reset
			_ResetSliders()
		Case $GUI_EVENT_MINIMIZE
			_TrayClick()
		Case $GUI_EVENT_RESTORE
			_TrayClick()
	EndSwitch

	; Checkif a slider has been moved
	For $i = 0 To $iCount - 1
		If - 1 * (GUICtrlRead($aSlider[$i]) / 10) <> GUICtrlRead($aLegend[$i]) Then
			_Slider_Update($i)
			; Only one can move at a time so no point in looking further
			ExitLoop
		EndIf
	Next

	; Hide the ToolTip every second
	If TimerDiff($nBegin) > 1000 Then
		_HideToolTip()
		$nBegin = TimerInit()
	EndIf


WEnd

Func _UpdateAllSliders()
	For $i = 0 To $iCount - 1
		_Slider_Update($i)
	Next
EndFunc   ;==>_UpdateAllSliders

Func _Slider_Update($Index)
	$nValue = -1 * (GUICtrlRead($aSlider[$Index]) / 10)
	GUICtrlSetData($aLegend[$Index], $nValue) ; No ned to check as we know it must be different or we would not be here

	$aSlider_value[$Index] = $nValue;

	; Show the tootip
	ToolTip($nValue & " dB")

	If $Index = 0 Then
		$aLine[$Index] = "Preamp: " & $nValue & " dB"
	Else
		$aLine[$Index] = "Filter " & $Index & ": ON PK Fc " & $aArray[$Index] & " Hz Gain " & $nValue & " dB Q 1,00"
	EndIf
	_WriteFile($cFile)
EndFunc   ;==>_Slider_Update

Func _WriteFile($cFile)
	$hFile = FileOpen($cFile, 2)

	FileWriteLine($hFile, "Equaliser: Generic")

	If $hFile = -1 Then
		MsgBox(0, "Error", "Unable to open file.")
		Exit
	EndIf

	_FileWriteFromArray($hFile, $aLine)

	FileFlush($hFile)
	FileClose($hFile)
EndFunc   ;==>_WriteFile

Func _ReadFile($cFile)

	If _FileReadToArray($cFile, $aConfig) Then
		Global $cLine[$aConfig[0] + 1]

		For $i = 0 To $aConfig[0]
			$cLine = StringSplit($aConfig[$i], " ", 3)

			If StringInStr(StringStripWS($cLine[0], 8), "Preamp", 2) Then
				$aSlider_value[0] = -1 * $cLine[1] * 10
			ElseIf StringInStr(StringStripWS($cLine[0], 8), "Filter", 2) Then
				Local $sliderNumber = StringTrimRight($cLine[1], 1)
				$aSlider_value[$sliderNumber] = -1 * $cLine[8] * 10
			EndIf

		Next
	EndIf

EndFunc   ;==>_ReadFile

Func _ResetSliders()
	For $i = 0 To $iCount - 1
		$aSlider_value[$i] = 0
		GUICtrlSetData($aSlider[$i], $aSlider_value[$i])
	Next
	_UpdateAllSliders()
EndFunc   ;==>_ResetSliders

Func _HideToolTip()
	; Hide ToolTip
	ToolTip("")
EndFunc   ;==>_HideToolTip