Help - Buttons.

ExcrementSniffer · November 8, 2019

Hellooo,

This is my first time posting on this & far from being any good at programming.

Can anyone help me with my problem I never realised I was even having...

So I made all my gui look pretty etc but I started linking my buttons to functions and all hell broke loose.

Why is my $MainEdit button spamming even though im not pressing the button?

& Why does my $WorkshopComplete button only work once?

I've been trying to get my head round it for a couple of days now and I cant work it out...

The $WorkshopComplete button logs my inputs IF I go straight onto my workshop menu.

if I got from the main menu and then to workshop it doesn't even log at all...

The main menu log works all the time...

My heads blown and this probably doesn't make much sense...

This Is The New Notepad.au3

Nine · November 8, 2019

I tried running your code from Scite, and it gets multiple errors. To start with, resolve the errors.

Also, when posting code, do not attach code (ppl don't like it much), instead use this tool.

ExcrementSniffer · November 9, 2019

What errors? when I run it I don't get any error messages? I've I missed something?

I know there's a fair bit of unnecessary code in there at the moment, I haven't cleaned it up..

#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() ; 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

Nine · November 9, 2019

Still the same errors on line 359 to 363, 372, 389 to 393...

Jos · November 9, 2019

3 hours ago, ExcrementSniffer said:

What errors?

Most people run au3check when doing Run or Compile by installing the Full SciTE4AutoIt3 version.
This way your source gets pre-checked and avoids syntax errors.

Jos

ExcrementSniffer · November 11, 2019

Okay 've fixed them errors you found Didn't know about the SciTE thing, pretty useful will defiantly carry on using that now! thanks

I'm still having my initial problem with my buttons, I added a testing file when it does a function to see if it does everything correctly. but when you first load up, for some reason it logs as if im spamming the main edit button "Main Edit Clicked Before - Dummy =0"

As well as my workshop complete button only working once...

Thanks for all the advice so far, big help!

#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
Global $TextBox
Opt("TrayMenuMode", 1)
TraySetClick(1)
Opt('MustDeclareVars', 1)
Update()
MainGui()

Func MainGui() ; 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
            FileWrite($TestingFile, "Settings Apply Clicked Before - Dummy =" & $Dummy & @CRLF)
                If $Dummy = 3 Then
                    ;ApplySettings()
                    FileWrite($TestingFile, "Settings Apply Clicked After - Dummy =" & $Dummy & @CRLF)
                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

Nine · November 11, 2019

Ok, let's start with the problem you are having with the spam of the main edit button "Main Edit Clicked Before - Dummy =0". When first started, some variables has not been set yet. It means they equal 0 which is the value returned by GUIGetMsg () when nothing is happening. This is the reason of the spam.

Look at those variables : $MainEdit and $MainComplete for examples (but there are more) They are not set when you start your script.

When developing a software, I always program it in scalable iterations. You first script with a few lines of code and test it. If everything works fine you add some more. and so on. You should consider using this kind of approach. It is harder to debug 500 lines of code instead of the last 10 you just added...

Block all input without UAC	Save/Retrieve Images to/from Text	Monitor Management (VCP commands)
Tool to search in text (au3) files	Date Range Picker	Virtual Desktop Manager
Sudoku Game 2020	Overlapped Named Pipe IPC	HotString 2.0 - Hot keys with string
x64 Bitwise Operations	Multi-keyboards HotKeySet	Recursive Array Display
Fast and simple WCD IPC	Multiple Folders Selector	Printer Manager
GIF Animation (cached)	Screen Scraping	Multi-Threading Made Easy

Block all input without UAC	Save/Retrieve Images to/from Text	Monitor Management (VCP commands)
Tool to search in text (au3) files	Date Range Picker	Virtual Desktop Manager
Sudoku Game 2020	Overlapped Named Pipe IPC	HotString 2.0 - Hot keys with string
x64 Bitwise Operations	Multi-keyboards HotKeySet	Recursive Array Display
Fast and simple WCD IPC	Multiple Folders Selector	Printer Manager
GIF Animation (cached)	Screen Scraping	Multi-Threading Made Easy

Block all input without UAC	Save/Retrieve Images to/from Text	Monitor Management (VCP commands)
Tool to search in text (au3) files	Date Range Picker	Virtual Desktop Manager
Sudoku Game 2020	Overlapped Named Pipe IPC	HotString 2.0 - Hot keys with string
x64 Bitwise Operations	Multi-keyboards HotKeySet	Recursive Array Display
Fast and simple WCD IPC	Multiple Folders Selector	Printer Manager
GIF Animation (cached)	Screen Scraping	Multi-Threading Made Easy

Sign In

Help - Buttons.

Recommended Posts

ExcrementSniffer

Link to comment

Share on other sites

Nine

Link to comment

Share on other sites

ExcrementSniffer

Link to comment

Share on other sites

Nine

Link to comment

Share on other sites

Jos

Link to comment

Share on other sites

ExcrementSniffer

Link to comment

Share on other sites

Nine

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta