#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <Excel.au3>
#include <File.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>

_Main()

Func _Main()
	Local $idFileMenu, $idFileItem, $idRecentFilesMenu, $idSeparator1, $idSeparator2
	Local $idExitItem, $idHelpMenu, $idAboutItem, $idOkButton, $idCancelButton, $idAboutProgram, $idPartNo, $idQty, $idPrice, $idCOO
	Local $iMsg, $sFile
	#forceref $idSeparator1, $idSeparator2

	GUICreate(" Ghost Typer v1", 510, 300)

	$idFileMenu = GUICtrlCreateMenu("File")
	$idFileItem = GUICtrlCreateMenuItem("Open...", $idFileMenu)
	$idRecentFilesMenu = GUICtrlCreateMenu("Recent Files", $idFileMenu)
	$idSeparator1 = GUICtrlCreateMenuItem("", $idFileMenu)
	$idExitItem = GUICtrlCreateMenuItem("Exit", $idFileMenu)
	$idHelpMenu = GUICtrlCreateMenu("Help")
	$idAboutProgram = GUICtrlCreateMenuItem("How-To", $idHelpMenu)
	$idSeparator2 = GUICtrlCreateMenuItem("", $idHelpMenu)
	$idAboutItem = GUICtrlCreateMenuItem("About", $idHelpMenu)
	$idOkButton = GUICtrlCreateButton("Execute", 150, 220, 70, 20)
	$idCancelButton = GUICtrlCreateButton("Exit", 270, 220, 70, 20)

	GUICtrlCreateGroup("Part No. Column", 5, 60, 125, 50)
	Local $idPartNo = GUICtrlCreateCombo("", 20, 80, 90, 20, $CBS_DROPDOWNLIST)
		GUICtrlSetData($idPartNo, "A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z", "")
	GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group

	GUICtrlCreateGroup("Quantity Column", 125, 60, 125, 50)
	Local $idQty = GUICtrlCreateCombo("", 140, 80, 90, 20, $CBS_DROPDOWNLIST)
		GUICtrlSetData($idQty, "A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z", "")
	GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group


	GUICtrlCreateGroup("Unit Price Column", 245, 60, 125, 50)
	Local $idPrice = GUICtrlCreateCombo("", 260, 80, 90, 20, $CBS_DROPDOWNLIST)
		GUICtrlSetData($idPrice, "A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z", "")
	GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group

	GUICtrlCreateGroup("Origin Column",375, 60, 125, 50)
	Local $idCOO = GUICtrlCreateCombo("", 395, 80, 90, 20, $CBS_DROPDOWNLIST)
		GUICtrlSetData($idCOO, "A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z", "")
	GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group


	GUISetState()

	While 1
		$iMsg = GUIGetMsg()

		Select
			Case $iMsg = $GUI_EVENT_CLOSE Or $iMsg = $idCancelButton
				ExitLoop

			Case $iMsg = $idFileItem
				$sFile = FileOpenDialog("Choose file to load...", @TempDir, "All (*.xls;*.xlsm;*xlsx)")
				If @error <> 1 Then GUICtrlCreateMenuItem($sFile, $idRecentFilesMenu)

			Case $iMsg = $idExitItem
				ExitLoop

			Case $iMsg = $idOkButton
				MsgBox($MB_SYSTEMMODAL, "Click", "You clicked OK!")

			Case $iMsg = $idAboutProgram
				MsgBox($MB_SYSTEMMODAL, "Instructions", "This program will load an excel file into X." & @CRLF & @CRLF & "Part Number must be entered, as well as Quantity and Unit Price." & @CRLF & "Then enter the row number your data begins and ends." & @CRLF & @CRLF &"Click Begin to start the script. Do not interrupt the Ghost while typing!")

			Case $iMsg = $idAboutItem
				MsgBox($MB_SYSTEMMODAL, "About", "about info" & @CRLF &"Written by ME")
		EndSelect
	WEnd

	GUIDelete()

	Exit
EndFunc   ;==>_Main