#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include "MetroGUI-UDF\MetroGUI_UDF.au3"
#include <WindowsConstants.au3>

; Color Accent
$theMWTitleBarColor = Hex(RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\DWM", "AccentColor"))
$theMWTitleBarColor = StringRight($theMWTitleBarColor, 6)
$theMWTitleBarColor = "0x" & StringRight($theMWTitleBarColor, 2) & StringMid($theMWTitleBarColor, 3, 2) & StringLeft($theMWTitleBarColor, 2)

$CurrentAccent = $theMWTitleBarColor

; Software Base Details
Func GetSoftDetails($Exe,$Stage)
    Global $CurrentVersion,$CurrentName,$CurrentBaseVersion
    $CurrentVersion = FileGetVersion($Exe,$FV_FILEVERSION)
    $CurrentBaseVersion = FileGetVersion($Exe,$FV_PRODUCTVERSION)
    $CurrentName = FileGetVersion($Exe,$FV_PRODUCTNAME)
    if $Stage = "BETA" Then
        $CurrentVersion = $CurrentVersion & "-beta"
    Elseif $Stage = "RELEASE" or $Stage = "STABLE" Then
        $CurrentVersion = $CurrentVersion & "-rel"
    Else
        $CurrentVersion = $CurrentVersion & "-dev"
    EndIf
    Return True
EndFunc

; About Us
Func TyleoAbout($SoftName)
    _Metro_MsgBox(8,"About / A propos",$SoftName & @CRLF & "Tyleo Softwares @ 2021" & @CRLF & "    " & @CRLF & "BUILDING TOMORROW" & @CRLF & "   " & @CRLF & "This Software is free and Open Source." & @CRLF & "tyleo.dev@outlook.com",400,15)
    Return True
EndFunc