#include <GUIConstantsEx.au3>
#include <SendMessage.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <ColorConstantS.au3>
#include <StaticConstants.au3>
#include <FileConstants.au3>
#include <GuiEdit.au3>
#include <Date.au3>
#include <ButtonConstants.au3>
#include <Array.au3>
#include <Constants.au3>
#include <Word.au3>

Global Const $SC_DRAGMOVE = 0xF012
Global $LevelSet = 0
Global Const $iWidth = 500
Global Const $iHeight = 250
Global $Trans = 0
Global $Dummy = 0

Global $MsgG, $tmsg, $Day, $Today, $Month, $Year, $Hour, $Min, $Sec, $dw, $rdw, $my, $dm, $ay, $hh, $mm, $ss
Global $RestoreTray = TrayCreateItem("Restore")
Global $ExitTray = TrayCreateItem("Exit")
Global $File = @ScriptDir & "\NewLog.txt" 
Global $TestingFile = @ScriptDir & "\Testing.txt"
Global $TempSave = @ScriptDir & "\TempSaves.ini"
Global $TitleMain, $MainInput, $MainCustomerLabel, $MainCustomerInput, $MainRegChasLabel, $MainRegChasInput, $MainOrderLabel, $MainOrderInput, $MainWipLabel, $MainCollectionCheckBox, $MainReminderCheckBox, $MainWipInput, $MainComplete, $MainEdit, $MainClear, $MainReminder, $MainLast
Global $TitleWorkshop, $WorkshopInput, $WorkshopWipLabel, $WorkshopWipInput, $WorkshopTechnicianLabel, $WorkshopTechnicianInput, $WorkshopCustomerLabel, $WorkshopCustomerInput, $WorkshopRegChasLabel, $WorkshopRegChasInput, $WorkshopComplete, $WorkshopEdit, $WorkshopClear, $WorkshopAddNewTechnician, $WorkshopLast
Global $SettingsTextColourLabel,$SettingsTextColourInput,$SettingsInputboxColourLabel,$SettingsInputboxTextColourLabel,$SettingsInputboxColourInput, $SettingsInputboxTextColourInput,$SettingsApplyButton, $SettingsTextColourExample, $SettingsInputColourExample, $SettingsInputTextColourExample, $SettingsButtonColourLabel, $SettingsButtonColourInput, $SettingsButtonColourExample, $SettingsBackgroundColourLabel, $SettingsBackgroundColourInput, $SettingsBackgroundColourExample

Opt("TrayMenuMode", 1)
TraySetClick(1)
Opt('MustDeclareVars', 1)
Update()
MainGui()

Func MainGui() ; Josh's Notepad Gui
	Global $aGui = GUICreate('Notepad',$iWidth,$iHeight,Default,Default, BitOR($WS_POPUP, $WS_BORDER), $WS_EX_TOPMOST)
	
	Global $MenuBarFile = GUICtrlCreateMenu("&File")
	Global $MenuBarMain = GUICtrlCreateMenuItem("Main", $MenuBarFile)
	Global $MenuBarWorkshop = GUICtrlCreateMenuItem("Workshop", $MenuBarFile)
	
	Global $MenuBarTools = GuiCtrlCreateMenu("Tools")
	Global $MenuBarContacts = GUICtrlCreateMenuItem("Contacts", $MenuBarTools)
	Global $MenuBarNotepadPlus = GUICtrlCreateMenuItem("Notepad+", $MenuBarTools)
	Global $MenuBarNotepadlog = GUICtrlCreateMenuItem("Notepad Log", $MenuBarTools)
	Global $MenuBarV5 = GUICtrlCreateMenuItem("V5 Documentation", $MenuBarTools)
	Global $MenuBarClutch = GUICtrlCreateMenuItem("Clutch Kits", $MenuBarTools)
	Global $MenuBarFilter = GUICtrlCreateMenuItem("Filter Kits", $MenuBarTools)
	Global $MenuBarAxleConfig = GUICtrlCreateMenuItem("Axle Configerations", $MenuBarTools)
	Global $MenuBarCalculator = GUICtrlCreateMenuItem("Calculator", $MenuBarTools)
	Global $MenuBarPartNumbers = GUICtrlCreateMenuItem("Part Numbers", $MenuBarTools)
	
	Global $MenuBarAbout = GuiCtrlCreateMenu("About")
	Global $MenuBarInfo = GUICtrlCreateMenuItem("Info", $MenuBarAbout)
	
	Global $MenuBarSystem = GuiCtrlCreateMenu("System")
	Global $MenuBarSettings = GUICtrlCreateMenuItem("Settings", $MenuBarSystem)
	Global $MenuBarMinimize = GUICtrlCreateMenuItem("Minimize", $MenuBarSystem)
	Global $MenuBarClose = GUICtrlCreateMenuItem("Close", $MenuBarSystem)
	
	Global $Day = GuiCtrlCreateLabel("DD/", 255, $iHeight - 38, 20)
	Global $Month = GuiCtrlCreateLabel("MM/", 280, $iHeight - 38, 20)
	Global $Year = GuiCtrlCreateLabel("YYYY", 305, $iHeight - 38, 30)
	Global $Hour = GuiCtrlCreateLabel("HH/", 350, $iHeight - 38, 20)
	Global $Min = GuiCtrlCreateLabel("MM/", 372.5, $iHeight - 38, 20)
	Global $Sec = GuiCtrlCreateLabel("SS", 395, $iHeight - 38, 20)
	Global $Today = GuiCtrlCreateLabel("Today", 425, $iHeight - 38, 75)
		
	GUICtrlSetState($MenuBarMain, $GUI_DEFBUTTON)
	GUICtrlSetState($MenuBarClose, $GUI_DEFBUTTON)
	GUICtrlSetState($MenuBarInfo, $GUI_DEFBUTTON)

	FileWrite($TestingFile, "Loading Gui - Dummy =" & $Dummy & @CRLF)

	GUISetState(@SW_SHOW, $aGui)
	
	Local $MsgG = 0

While 1
		
	$MsgG = GUIGetMsg()
	
	Select
		Case $MsgG = $GUI_EVENT_CLOSE
			SaveAll()
			ExitLoop
		
		Case $MsgG = $MenuBarMain
			FileWrite($TestingFile, "You've Press Main On Menu Bar" & @CRLF)
				If $Dummy = 1 Then
					Sleep(25)
					FileWrite($TestingFile, "You're Already On Main GUI! - Dummy =" & $Dummy & @CRLF)
				Else
					DeleteGUI()
					GuiMain()
				EndIf
		
		Case $MsgG = $MainEdit
			FileWrite($TestingFile, "Main Edit Clicked Before - Dummy =" & $Dummy & @CRLF)
				If $Dummy = 1 Then
					Run("notepad.exe " & $File)
					FileWrite($TestingFile, "Main Edit Clicked After - Dummy =" & $Dummy & @CRLF)
				EndIf
		
		Case $MsgG = $MainComplete
			FileWrite($TestingFile, "Main Complete Clicked Before- Dummy =" & $Dummy & @CRLF)
				If $Dummy = 1 Then
					MainCompleteLogger()
					FileWrite($TestingFile, "Main Complete Clicked After - Dummy =" & $Dummy & @CRLF)
				EndIf


		Case $MsgG = $MenuBarWorkshop
			FileWrite($TestingFile, "You've Press Workshop On Menu Bar" & @CRLF)
				If $Dummy = 2 Then
					Sleep(25)
					FileWrite($TestingFile, "You're Already On Workshop GUI! - Dummy =" & $Dummy & @CRLF)
				Else
					DeleteGUI()
					GuiWorkshop()
				EndIf
		
		Case $MsgG = $WorkshopAddNewTechnician
			If $Dummy = 2 Then
				AddNewTechnicianGui()
			EndIf
		
		Case $MsgG = $WorkshopEdit
			FileWrite($TestingFile, "Workshop Edit Clicked Before - Dummy =" & $Dummy & @CRLF)
				If $Dummy = 2 Then
					Run("notepad.exe " & $File)
					FileWrite($TestingFile, "Workshop Edit Clicked After - Dummy =" & $Dummy & @CRLF)
				EndIf
		
		Case $MsgG = $WorkshopComplete
			FileWrite($TestingFile, "Workshop Complete Clicked Before - Dummy =" & $Dummy & @CRLF)
				If $Dummy = 2 Then
					WorkshopCompleteLogger()
					FileWrite($TestingFile, "Workshop Complete Clicked After - Dummy =" & $Dummy & @CRLF)
				EndIf


		Case $MsgG = $MenuBarSettings
			If $Dummy = 3 Then
				Sleep(25)
				FileWrite($TestingFile, "You're Already On Settings GUI! - Dummy =" & $Dummy & @CRLF)
			Else
				DeleteGUI()
				GuiSettings()
			EndIf
		
		Case $MsgG = $SettingsApplyButton
			If $Dummy = 3 Then
				ApplySettings()
			EndIf


		Case $MsgG = $MenuBarNotepadPlus
			NotePadGui()

		Case $MsgG = $MenuBarClose
			SaveAll()
			ExitLoop
		
		Case $MsgG = $MenuBarNotepadlog
			Run("notepad.exe " & $File)
		
		Case $MsgG = $MenuBarCalculator
			Run("Calc.exe ")

		Case $MsgG = $GUI_EVENT_PRIMARYDOWN
			_SendMessage($aGui, $WM_SYSCOMMAND, $SC_DRAGMOVE, 0)
		
		Case $MsgG = $MenuBarMinimize
			_GuiMinimizeToTray($aGui)

	EndSelect

	$tmsg = TrayGetMsg()
	Switch $tmsg

		Case $RestoreTray
		WinSetState($aGui, "New Notepad", @SW_SHOW)

		Case $ExitTray
		SaveAll()
		GUIDelete($aGui)
		ExitLoop

		Case 0
		GUICtrlSetData($Today, _DaysOfWeek())
		GUICtrlSetData($Month, _MonthsOfYear())
		GUICtrlSetData($Day, _DaysOfMonth())
		GUICtrlSetData($Year, _Years())
		GUICtrlSetData($Hour, _Hours())
		GUICtrlSetData($Min, _Minites())
		GUICtrlSetData($Sec, _Seconds())

	EndSwitch

WEnd
	GUIDelete($aGui)
EndFunc

Func DeleteGUI()
	SaveAll()
	GuiCtrlDelete($TitleMain)
	GuiCtrlDelete($MainInput);
	GuiCtrlDelete($MainCustomerLabel)
	GuiCtrlDelete($MainCustomerInput);
	GuiCtrlDelete($MainRegChasLabel)
	GuiCtrlDelete($MainRegChasInput);
	GuiCtrlDelete($MainOrderLabel)
	GuiCtrlDelete($MainOrderInput);
	GuiCtrlDelete($MainWipLabel)
	GuiCtrlDelete($MainCollectionCheckBox);
	GuiCtrlDelete($MainReminderCheckBox);
	GuiCtrlDelete($MainWipInput);
	GuiCtrlDelete($MainComplete)
	GuiCtrlDelete($MainEdit)
	GuiCtrlDelete($MainClear)
	GuiCtrlDelete($MainReminder)
	GuiCtrlDelete($MainLast)
	
	GuiCtrlDelete($TitleWorkshop)
	GuiCtrlDelete($WorkshopInput);
	GuiCtrlDelete($WorkshopWipLabel)
	GuiCtrlDelete($WorkshopWipInput);
	GuiCtrlDelete($WorkshopTechnicianLabel)
	GuiCtrlDelete($WorkshopTechnicianInput);
	GuiCtrlDelete($WorkshopCustomerLabel)
	GuiCtrlDelete($WorkshopCustomerInput);
	GuiCtrlDelete($WorkshopRegChasLabel)
	GuiCtrlDelete($WorkshopRegChasInput);
	GuiCtrlDelete($WorkshopAddNewTechnician)
	GuiCtrlDelete($WorkshopComplete)
	GuiCtrlDelete($WorkshopEdit)
	GuiCtrlDelete($WorkshopClear)
	GuiCtrlDelete($WorkshopLast)
	
	GuiCtrlDelete($SettingsTextColourLabel)
	GuiCtrlDelete($SettingsTextColourInput);
	GuiCtrlDelete($SettingsInputboxColourLabel)
	GuiCtrlDelete($SettingsInputboxColourInput);
	GuiCtrlDelete($SettingsInputboxTextColourLabel)
	GuiCtrlDelete($SettingsInputboxTextColourInput);
	GuiCtrlDelete($SettingsTextColourExample)
	GuiCtrlDelete($SettingsInputColourExample)
	GuiCtrlDelete($SettingsInputTextColourExample)
	GuiCtrlDelete($SettingsApplyButton)
	GuiCtrlDelete($SettingsButtonColourLabel)
	GuiCtrlDelete($SettingsButtonColourInput);
	GuiCtrlDelete($SettingsButtonColourExample)
	GuiCtrlDelete($SettingsBackgroundColourLabel);
	GuiCtrlDelete($SettingsBackgroundColourInput);
	GuiCtrlDelete($SettingsBackgroundColourExample)

	Global $Dummy = 0
	
	FileWrite($TestingFile, "Delete Gui - Dummy =" & $Dummy & @CRLF)
	
EndFunc

Func _GuiMinimizeToTray($h_wnd) ; Minimize Gui To Tray Icon
	If BitAND(WinGetState($h_wnd), 1) Or Not BitAND(WinGetState($h_wnd), 16) Then
		WinSetState($h_wnd, "", @SW_HIDE)
	EndIf
EndFunc

Func SaveMain()
	Local $OriginalMainText = GuiCtrlRead($MainInput)
	GuiCtrlSetData($MainInput, "")
	Local $ConvertedMainText = StringReplace($OriginalMainText, @CRLF, "{ENTER}")
	Local $CollectionState = GuiCtrlRead($MainCollectionCheckBox)
	Local $ReminderState = GuiCtrlRead($MainReminderCheckBox)
	
	IniWrite($TempSave,"Main","Main Input",$ConvertedMainText)
	IniWrite($TempSave,"Main","Main Customer Input",GuiCtrlRead($MainCustomerInput))
	IniWrite($TempSave,"Main","Main Registration & Chassis Input",GuiCtrlRead($MainRegChasInput))
	IniWrite($TempSave,"Main","Main Order Input",GuiCtrlRead($MainOrderInput))
	IniWrite($TempSave,"Main","Main Collection Checkbox",$CollectionState)
	IniWrite($TempSave,"Main","Main Reminder Checkbox",$ReminderState)
	IniWrite($TempSave,"Main","Main Wip Input",GuiCtrlRead($MainWipInput))
EndFunc
Func LoadMain()
	Local $OriginalMainText = IniRead($TempSave,"Main", "Main Input","")
	Global $ConvertedMainText = StringReplace($OriginalMainText, "{ENTER}", @CRLF)
	
	Global $ReadMainCustomerInput = IniRead($TempSave,"Main","Main Customer Input","")
	Global $ReadMainRegChasInput = IniRead($TempSave,"Main","Main Registration & Chassis Input","")
	Global $ReadMainOrderInput = IniRead($TempSave,"Main","Main Order Input","")
	Global $ReadMainCollectionCheckbox = IniRead($TempSave,"Main","Main Collection Checkbox","")
	Global $ReadMainReminderCheckbox = IniRead($TempSave,"Main","Main Reminder Checkbox","")
	Global $ReadMainWipInput = IniRead($TempSave,"Main","Main Wip Input","")
EndFunc

Func SaveWorkshop()
	Local $OriginalWorkshopText = GuiCtrlRead($WorkshopInput)
	GuiCtrlSetData($WorkshopInput, "")
	Local $ConvertedWorkshopText = StringReplace($OriginalWorkshopText, @CRLF, "{ENTER}")
	
	IniWrite($TempSave,"Workshop","Workshop Input",$ConvertedWorkshopText)
	IniWrite($TempSave,"Workshop","Workshop Wip Input",GuiCtrlRead($WorkshopWipInput))
	IniWrite($TempSave,"Workshop","Workshop Technician Input",GuiCtrlRead($WorkshopTechnicianInput))
	IniWrite($TempSave,"Workshop","Workshop Customer Input",GuiCtrlRead($WorkshopCustomerInput))
	IniWrite($TempSave,"Workshop","Workshop Registration & Chassis Input",GuiCtrlRead($WorkshopRegChasInput))
EndFunc
Func LoadWorkshop()
	Local $OriginalWorkshopText = IniRead($TempSave,"Workshop", "Workshop Input","")
	Global $ConvertedWorkshopText = StringReplace($OriginalWorkshopText, "{ENTER}", @CRLF)

	Global $ReadWorkshopWipInput = IniRead($TempSave,"Workshop","Workshop Wip Input","")
	Global $ReadWorkshopTechnicianInput = IniRead($TempSave,"Workshop","Workshop Technician Input","")
	Global $ReadWorkshopCustomerInput = IniRead($TempSave,"Workshop","Workshop Customer Input","")
	Global $ReadWorkshopRegChasInput = IniRead($TempSave,"Workshop","Workshop Registration & Chassis Input","")
	
	Global $ReadTechnicianDropDown = IniRead($TempSave,"Technicians","Technician Name","Select Technician...")
EndFunc

Func SaveSettings()
	IniWrite($TempSave,"Settings","Settings Text Colour Input",GuiCtrlRead($SettingsTextColourInput))
	IniWrite($TempSave,"Settings","Settings Inputbox Colour Input",GuiCtrlRead($SettingsInputboxColourInput))
	IniWrite($TempSave,"Settings","Settings Inputbox Text Colour Input",GuiCtrlRead($SettingsInputboxTextColourInput))
	IniWrite($TempSave,"Settings","Settings Button Colour Input",GuiCtrlRead($SettingsButtonColourInput))
	IniWrite($TempSave,"Settings","Settings Background Colour Input",GuiCtrlRead($SettingsBackgroundColourInput))
EndFunc
Func LoadSettings()
	Global $ReadSettingsTextColour = IniRead($TempSave,"Settings","Settings Text Colour Input","000000")
	Global $ReadSettingsInputboxColout = IniRead($TempSave,"Settings","Settings Inputbox Colour Input","FFFFFF")
	Global $ReadSettingsInputboxTextColour = IniRead($TempSave,"Settings","Settings Inputbox Text Colour Input","000000")
	Global $ReadSettingsButtonColour = IniRead($TempSave,"Settings","Settings Button Colour Input","000000")
	Global $ReadSettingsBackgroundColour = IniRead($TempSave,"Settings","Settings Background Colour Input","FFFFFF")
EndFunc

Func SaveAll()
	
	FileWrite($TestingFile, "Save All - Dummy =" & $Dummy & @CRLF)
	
	If $Dummy = 1 Then
	SaveMain()
	ElseIf $Dummy = 2 Then
	SaveWorkshop()
	Elseif $Dummy = 3 Then
	SaveSettings()
	EndIf
	
EndFunc

Func ApplySettings()
	Local $ReadTextColour = GuiCtrlRead($SettingsTextColourInput)
	Local $ReadInputColour = GuiCtrlRead($SettingsInputboxColourInput)
	local $ReadInputTextColour = GuiCtrlRead($SettingsInputboxTextColourInput)
	Local $ReadInputButtonColour = GuiCtrlRead($SettingsButtonColourInput)
	Local $ReadBackgroundColour = GuiCtrlRead($SettingsBackgroundColourInput)
	
	$UpdatedTextColour = "0x" & $ReadTextColour
	$UpdatedInputColour = "0x" & $ReadInputColour
	$UpdatedInputTextColour = "0x" & $ReadInputTextColour
	$UpdatedButtonColour = "0x" & $ReadInputButtonColour
	$UpdatedBackgroundColour = "0x" & $ReadBackgroundColour
	
	GuiCtrlSetBkColor($SettingsTextColourExample,$UpdatedTextColour)
	GuiCtrlSetBkColor($SettingsInputColourExample,$UpdatedInputColour)
	GuiCtrlSetBkColor($SettingsInputTextColourExample,$UpdatedInputTextColour)
	GuiCtrlSetBkColor($SettingsButtonColourExample,$UpdatedButtonColour)
	GuiCtrlSetBkColor($SettingsBackgroundColourExample,$UpdatedBackgroundColour)
EndFunc
Func SaveNotepadPlus()
	Local $OriginalNotepadPlusText = GuiCtrlRead($TextBox)
	GuiCtrlSetData($TextBox, "")
	Local $ConvertedNotepadPlusText = StringReplace($OriginalNotepadPlusText, @CRLF, "{ENTER}")

	IniWrite($TempSave,"NotePadPlus","Notepad Plus",$ConvertedNotepadPlusText)
EndFunc
Func LoadNotepadPlus()
	Local $OriginalNotepadPlusText = IniRead($TempSave,"NotePadPlus", "Notepad Plus","")
	Global $ConvertedNotepadPlusText = StringReplace($OriginalNotepadPlusText, "{ENTER}", @CRLF)
EndFunc
Func Update()
Global $ReadUpdateText = IniRead($TempSave,"Settings","Settings Text Colour Input","000000")
Global $ReadUpdateInput = IniRead($TempSave,"Settings","Settings Inputbox Colour Input","FFFFFF")
Global $ReadUpdateInputText = IniRead($TempSave,"Settings","Settings Inputbox Text Colour Input","000000")
Global $ReadUpdateButtonColour = IniRead($TempSave,"Settings","Settings Button Colour Input","000000")
Global $ReadUpdateBackgroundColour = IniRead($TempSave,"Settings","Settings Background Colour Input","FFFFFF")

Global $UpdatedTextColour = 0x & $ReadUpdateText
Global $UpdatedInputColour = 0x & $ReadUpdateInput
Global $UpdatedInputTextColour = 0x & $ReadUpdateInputText
Global $UpdatedButtonColour = 0x & $ReadUpdateButtonColour
Global $UpdatedBackgroundColour = 0x & $ReadUpdateBackgroundColour
EndFunc

Func MainCompleteLogger()
	Local $ReadMainInputLog = GuiCtrlRead($MainInput)
	Local $ReadMainCustomer = GuiCtrlRead($MainCustomerInput)
	Local $ReadMainRegChas = GuiCtrlRead($MainRegChasInput)
	Local $ReadMainOrder = GuiCtrlRead($MainOrderInput)
	Local $ReadMainWip = GuiCtrlRead($MainWipInput)
	Local $ReadMainCollectionState = GuiCtrlRead($MainCollectionCheckBox)
	Local $ReadMainReminderState = GuiCtrlRead($MainReminderCheckBox)
	Local $ReadToday = GuiCtrlRead($Today)
	Local $DeliveryOrCollection = "N/a"
	
	If $ReadMainCollectionState = $GUI_Checked Then
		Local $DeliveryOrCollection = "Collection."
	EndIf
	
	If $ReadMainCollectionState = $GUI_Unchecked Then
		Local $DeliveryOrCollection = "Delivery."
	EndIf

	Local $DateTime = @MDAY & " / " & @MON & " / " & @YEAR & "  -  " & @HOUR & " : " & @MIN & " : " & @SEC & "  -  " & $ReadToday & "  -  " & $DeliveryOrCollection
	Local $Updater = "Wip: " & $ReadMainWip & " - Customer: " & $ReadMainCustomer & " - Reg/Chassis: " & $ReadMainRegChas & " - Order Number: " & $ReadMainOrder

	FileWrite($File,$DateTime & @CRLF & $Updater & @CRLF & "	" & @CRLF & $ReadMainInputLog & @CRLF)
	Sleep(10)
	FileWrite($File,"========================================================================")
	Sleep(10)
	FileWrite($File, @CRLF)
EndFunc
Func WorkshopCompleteLogger()
	Local $ReadWorkshopInputLog = GuiCtrlRead($WorkshopInput)
	Local $ReadWorkshopCustomer = GuiCtrlRead($WorkshopCustomerInput)
	Local $ReadWorkshopRegChas = GuiCtrlRead($WorkshopRegChasInput)
	Local $ReadWorkshopTechnician = GuiCtrlRead($WorkshopTechnicianInput)
	Local $ReadWorkshopWip = GuiCtrlRead($WorkshopWipInput)
	Local $ReadToday = GuiCtrlRead($Today)
	
	Local $DateTime = @MDAY & " / " & @MON & " / " & @YEAR & "  -  " & @HOUR & " : " & @MIN & " : " & @SEC & "  -  " & $ReadToday & "  -  Workshop"
	Local $Updater = "Wip: " & $ReadWorkshopWip & " - Customer: " & $ReadWorkshopCustomer & " - Reg/Chassis: " & $ReadWorkshopRegChas & " - Technician: " & $ReadWorkshopTechnician

	FileWrite($File,$DateTime & @CRLF & $Updater & @CRLF & "	" & @CRLF & $ReadWorkshopInputLog & @CRLF)
	Sleep(10)
	FileWrite($File,"========================================================================")
	Sleep(10)
	FileWrite($File, @CRLF)
EndFunc

;===== Gui's =====
Func GuiMain()
	LoadMain()
	
	Global $TitleMain = GuiCtrlCreateLabel("Main",435,5,75,20)
		Global $MainInput = GuiCtrlCreateEdit($ConvertedMainText, 5, 5, 245, 220, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN+$ES_UPPERCASE+$WS_VSCROLL))
		Global $MainCustomerLabel = GuiCtrlCreateLabel("Customer :", 255, 5, 170, 20)
		Global $MainCustomerInput = GuiCtrlCreateInput($ReadMainCustomerInput, 255, 25, 240,20,$SS_CENTER+$ES_UPPERCASE)	
		Global $MainRegChasLabel = GuiCtrlCreateLabel("Registration / Chassis Number :", 255, 50, 174, 20)
		Global $MainRegChasInput = GuiCtrlCreateInput($ReadMainRegChasInput, 255, 70, 240, 20,$SS_CENTER+$ES_UPPERCASE)
		Global $MainOrderLabel = GuiCtrlCreateLabel("Order Number :", 255, 95, 170, 20)
		Global $MainOrderInput = GuiCtrlCreateInput($ReadMainOrderInput, 255, 115, 240,20,$SS_CENTER+$ES_UPPERCASE)
		Global $MainWipLabel = GuiCtrlCreateLabel("Wip :", 255, 140, 30, 20)
		Global $MainWipInput = GuiCtrlCreateInput($ReadMainWipInput, 255, 160, 240,20,$SS_CENTER+$ES_NUMBER)
		Global $MainCollectionCheckBox = GUICtrlCreateCheckbox("Collection.", 315, 138, 74, 20)
		Global $MainReminderCheckBox = GUICtrlCreateCheckbox("Reminder.", 400, 138, 74, 20)
		Global $MainReminder = GuiCtrlCreateButton("!", $iWidth - 25, 185, 20, 20) ;255
		Global $MainLast = GuiCtrlCreateButton("←", $iWidth - 245, 185, 20, 20)
		Global $MainEdit = GuiCtrlCreateButton("Edit", $iWidth - 210, 185, 50, 20)
		Global $MainClear = GuiCtrlCreateButton("Clear", $iWidth - 150, 185, 50, 20)
		Global $MainComplete = GuiCtrlCreateButton("Complete", $iWidth - 90, 185, 50, 20)
		
		Global $Dummy = 1
		
		FileWrite($TestingFile, "Loading Main Gui - Dummy =" & $Dummy & @CRLF)

		GuiCtrlSetFont($TitleMain,8.5,700,4)
		GUICtrlSetFont($MainRegChasLabel, 8.5, 700)
		GUICtrlSetFont($MainCustomerLabel, 8.5, 700)
		GUICtrlSetFont($MainOrderLabel, 8.5, 700)
		GUICtrlSetFont($MainWipLabel, 8.5, 700)
		GUICtrlSetFont($MainCollectionCheckBox, 8.5, 700)
		GUICtrlSetFont($MainReminderCheckBox, 8.5, 700)
		GUICtrlSetFont($MainReminder, 8.5, 900)
		GUICtrlSetFont($MainLast, 8.5, 900)
		GUICtrlSetLimit($MainWipInput, 5)
	
		If $ReadMainCollectionCheckbox = 1 Then
		GuiCtrlSetState($MainCollectionCheckBox, $GUI_Checked)
		ElseIf $ReadMainCollectionCheckbox = 4 Then
		GuiCtrlSetState($MainCollectionCheckBox, $GUI_Unchecked)
		EndIf
	
		If $ReadMainReminderCheckbox = 1 Then
		GuiCtrlSetState($MainReminderCheckBox, $GUI_Checked)
		ElseIf $ReadMainReminderCheckbox = 4 Then
		GuiCtrlSetState($MainReminderCheckBox, $GUI_Unchecked)
		EndIf
		
		GuiCtrlSetBkColor($MainReminder, 0xD8FF8A)
EndFunc
Func GuiWorkshop()
	LoadWorkshop()
		Global $TitleWorkshop = GuiCtrlCreateLabel("Workshop",435,5,75,20)
		Global $WorkshopInput = GuiCtrlCreateEdit($ConvertedWorkshopText, 5, 5, 245, 220, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN+$ES_UPPERCASE+$WS_VSCROLL))
		Global $WorkshopWipLabel = GuiCtrlCreateLabel("Wip :", 255, 5, 170, 20) 
		Global $WorkshopWipInput = GuiCtrlCreateInput($ReadWorkshopWipInput, 255, 25, 240,20,$SS_CENTER+$ES_NUMBER)
		Global $WorkshopTechnicianLabel = GuiCtrlCreateLabel("Technician :", 255, 50, 170, 20)
		Global $WorkshopTechnicianInput = GuiCtrlCreateCombo($ReadWorkshopTechnicianInput, 255, 70, 215,20);,$SS_CENTER+$ES_UPPERCASE)
		Global $WorkshopCustomerLabel = GuiCtrlCreateLabel("Customer :", 255, 95, 170, 20)
		Global $WorkshopCustomerInput = GuiCtrlCreateInput($ReadWorkshopCustomerInput, 255, 115, 240,20,$SS_CENTER+$ES_UPPERCASE)
		Global $WorkshopRegChasLabel = GuiCtrlCreateLabel("Registration / Chassis Number :", 255, 140, 174, 20)
		Global $WorkshopRegChasInput = GuiCtrlCreateInput($ReadWorkshopRegChasInput, 255, 160, 240, 20,$SS_CENTER+$ES_UPPERCASE)
		Global $WorkshopAddNewTechnician = GuiCtrlCreateButton("+", 475, 70, 20, 20)
		Global $WorkshopLast = GuiCtrlCreateButton("←", $iWidth - 245, 185, 20, 20) ;255
		Global $WorkshopEdit = GuiCtrlCreateButton("Edit", $iWidth - 210, 185, 50, 20)
		Global $WorkshopClear = GuiCtrlCreateButton("Clear", $iWidth - 150, 185, 50, 20)
		Global $WorkshopComplete = GuiCtrlCreateButton("Complete", $iWidth - 90, 185, 50, 20)
		
		Global $Dummy = 2
		
		FileWrite($TestingFile, "Loading Workshop Gui - Dummy =" & $Dummy & @CRLF)

		GUICtrlSetData($WorkshopTechnicianInput, $ReadTechnicianDropDown, $ReadWorkshopTechnicianInput)
		GuiCtrlSetFont($TitleWorkshop,8.5,700,4)
		GUICtrlSetFont($WorkshopRegChasLabel, 8.5, 700)
		GUICtrlSetFont($WorkshopCustomerLabel, 8.5, 700)
		GUICtrlSetFont($WorkshopTechnicianLabel, 8.5, 700)
		GUICtrlSetFont($WorkshopWipLabel, 8.5, 700)
		GUICtrlSetFont($WorkshopLast, 8.5, 900)
		GUICtrlSetLimit($WorkshopWipInput, 5)
	
EndFunc
Func GuiSettings()
	LoadSettings()
		Global $SettingsTextColourLabel = GuiCtrlCreateLabel("Text Colour:", 5, 5, 160, 20)
		Global $SettingsTextColourInput = GuiCtrlCreateInput($ReadSettingsTextColour, 5, 25, 160, 20,$SS_CENTER+$ES_UPPERCASE)
		Global $SettingsTextColourExample = GuiCtrlCreateEdit("", 170, 25, 20, 20, $ES_AUTOVSCROLL+$ES_READONLY)
		Global $SettingsInputboxColourLabel = GuiCtrlCreateLabel("Inputbox Colour:", 5, 50, 160, 20)
		Global $SettingsInputboxColourInput = GuiCtrlCreateInput($ReadSettingsInputboxColout, 5, 70, 160, 20,$SS_CENTER+$ES_UPPERCASE)
		Global $SettingsInputColourExample = GuiCtrlCreateEdit("", 170, 70, 20, 20, $ES_AUTOVSCROLL+$ES_READONLY)
		Global $SettingsInputboxTextColourLabel = GuiCtrlCreateLabel("Inputbox Text Colour:", 5, 95, 160, 20)
		Global $SettingsInputboxTextColourInput = GuiCtrlCreateInput($ReadSettingsInputboxTextColour, 5, 115, 160, 20,$SS_CENTER+$ES_UPPERCASE) 
		Global $SettingsInputTextColourExample = GuiCtrlCreateEdit("", 170, 115, 20, 20, $ES_AUTOVSCROLL+$ES_READONLY)
		Global $SettingsButtonColourLabel = GuiCtrlCreateLabel("Button Colour:",5,140,160,20)
		Global $SettingsButtonColourInput = GuiCtrlCreateInput($ReadUpdateButtonColour,5,160,160,20,$SS_CENTER+$ES_UPPERCASE);ReadSettingsButtonColour
		Global $SettingsButtonColourExample = GuiCtrlCreateEdit("", 170, 160, 20, 20, $ES_AUTOVSCROLL+$ES_READONLY)
		Global $SettingsBackgroundColourLabel = GuiCtrlCreateLabel("Background Colour", 5, 185, 160, 20)
		Global $SettingsBackgroundColourInput = GuiCtrlCreateInput($ReadUpdateBackgroundColour, 5, 205, 160, 20,$SS_CENTER+$ES_UPPERCASE);ReadSettingsBackgroundColour
		Global $SettingsBackgroundColourExample = GuiCtrlCreateEdit("", 170, 205, 20, 20, $ES_AUTOVSCROLL+$ES_READONLY)
		Global $SettingsApplyButton = GuiCtrlCreateButton("Apply",445,5,50,20)
		
		Global $Dummy = 3
		
		FileWrite($TestingFile, "Loading Settings Gui - Dummy =" & $Dummy & @CRLF)

		GuiCtrlSetBkColor($SettingsTextColourExample,$UpdatedTextColour)
		GuiCtrlSetBkColor($SettingsInputColourExample,$UpdatedInputColour)
		GuiCtrlSetBkColor($SettingsInputTextColourExample,$UpdatedInputTextColour)
		GuiCtrlSetBkColor($SettingsButtonColourExample,$ReadUpdateButtonColour)
		GuiCtrlSetBkColor($SettingsBackgroundColourExample,GuiCtrlRead($ReadUpdateBackgroundColour))

EndFunc
Func NotePadGui()
	LoadNotepadPlus()
	
	Local $aPos = WinGetPos($aGui)

	Local $nGui = GUICreate('Notepad+',$iWidth, 200,$aPos[0], $aPos[1] - 205, BitOR($WS_POPUP, $WS_BORDER), $WS_EX_TOPMOST)

	Global $TextBox = GuiCtrlCreateEdit($ConvertedNotepadPlusText, 5, 5, 490, 190, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN+$ES_UPPERCASE+$WS_VSCROLL))

	GUISetState(@SW_SHOW, $nGui)

	While 1

		Switch GUIGetMsg()

			Case $GUI_EVENT_CLOSE
			SaveNotepadPlus()
			ExitLoop

			Case $GUI_EVENT_PRIMARYDOWN
			_SendMessage($nGui, $WM_SYSCOMMAND, $SC_DRAGMOVE, 0)
			
			Case $MenuBarNotepadPlus
			SaveNotepadPlus()
			ExitLoop

		EndSwitch

	WEnd

	GuiDelete($nGui)

EndFunc
Func AddNewTechnicianGui()

	Local $aPos = WinGetPos($aGui)
	
	Local $tGui= GuiCreate('New Technician', 420, 30, $aPos[0], $aPos[1] - 35, BitOR($WS_POPUP, $WS_BORDER), $WS_EX_TOPMOST)
	Local $TechnicianLabel = GuiCtrlCreateLabel("Enter New Technician Name :",5,8,150,20)
	Global $TechnicianInput = GuiCtrlCreateInput("", 155,5,150,20)
	Local $AddButton = GuiCtrlCreateButton("Add", 310,5,50,20)
	Local $CancelButton = GuiCtrlCreateButton("Cancel", 365,5,50,20)
	
	GuiSetState(@SW_Show, $tGui)
	
	While 1 
		
		Switch GuiGetMsg()
			
			Case $Gui_Event_Close
			ExitLoop
			
			Case $CancelButton
			ExitLoop
			
			Case $AddButton
			AddTechnician()
			ExitLoop
			
		EndSwitch
	WEnd
	
	GuiDelete($tGui)
	
EndFunc
Func AddTechnician()

	local $TempReadDropDown = IniRead($TempSave,"Technicians","Technician Name","")

	Local $ReadTechnicianInput = GuiCtrlRead($TechnicianInput)
	
	Local $NewTechnicianDropDownList = $TempReadDropDown & "|" & $ReadTechnicianInput
	
	If $ReadTechnicianInput = "" Then
		MsgBox($MB_Systemmodal, "Add New Technician", "No Name Input!")
		Sleep (25)
	Else
		IniWrite($TempSave, "Technicians", "Technician Name", $NewTechnicianDropDownList)
		MsgBox($MB_Systemmodal, "Add New Technician", "New Technician Has Been Added!" & @CRLF & $ReadTechnicianInput)
		GuiCtrlSetData($TechnicianInput,"","")
		GUICtrlSetData($WorkshopTechnicianInput, $NewTechnicianDropDownList,$ReadTechnicianInput)
	EndIf
	

	
EndFunc

;===== Date & Time =====

Func _DaysOfWeek() ; Today
    $dw = (@WDAY)
    Switch $dw
        Case 1
            $rdw = 'SUNDAY'
        Case 2
            $rdw = 'MONDAY'
        Case 3
            $rdw = 'TUESDAY'
        Case 4
            $rdw = 'WEDNESDAY'
        Case 5
            $rdw = 'THURSDAY'
        Case 6
            $rdw = 'FRIDAY'
        Case 7
            $rdw = 'SATURDAY'
    EndSwitch
    Return $rdw
EndFunc

Func _MonthsOfYear() ; Month
    $my = (@MON)
    Return $my & " /"
EndFunc

Func _DaysOfMonth() ; Day
	$dm = (@MDAY)
	Return $dm & " /"
EndFunc

Func _Years() ; Year
	$ay = (@YEAR)
	Return $ay
EndFunc

Func _Hours() ; Hour
	$hh = (@HOUR)
	Return $hh & " :"
EndFunc

Func _Minites() ; Min
	$mm = (@MIN)
	Return $mm & " :"
EndFunc

Func _Seconds() ; Sec
	$ss = (@SEC)
	Return $ss
EndFunc