#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Aslinks Ico.ico
#AutoIt3Wrapper_Outfile=..\..\Logiciels\HEXColorPicker_Unified_x32-x86.exe
#AutoIt3Wrapper_Outfile_x64=..\..\Logiciels\HEXColorPicker_Unified_x64.exe
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_Res_Comment=HEX Color Picker Unified
#AutoIt3Wrapper_Res_Description=HEX Color Picker Unified
#AutoIt3Wrapper_Res_Fileversion=2.0.4.3
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_ProductName=HEX Color Picker Unified
#AutoIt3Wrapper_Res_ProductVersion=2.0.4.0
#AutoIt3Wrapper_Res_CompanyName=Tyleo Softwares
#AutoIt3Wrapper_Res_LegalCopyright=Tyleo Softwares
#AutoIt3Wrapper_Res_LegalTradeMarks=Tyleo Softwares
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <File.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include "TyleoAboutMe.au3"

; Fixed Color Vars
$FullWhite = "FFFFFF"
$FullBlack = "000000"
$MatrixGreen = "0DFF06"
$MatrixDarkBlue = "040033"
$DiscordDark = "2C2F33"
$Ice = "4ACBE1"
$GoogleGreen = "34A853"
$GoogleDark = "202124"
$GoogleBlue = "4285F4"
$GoogleRed = "EA4335"
$GoogleYellow = "FBBC05"
$Sand = "E3CCBA"
$Buttercup = "e49326"
$MicrosoftYellow = "FEF000"
$BrightPink = "FF06FF"
$Espresso = "784018"
$DiscordGray = "99AAB5"
$DiscordBluev1 = "5865F2"
$DiscordBluev2 = "404EED"
$FacebookClassic = "4267B2"
$FacebookBlue = "1877F2"
$Mint = "ACCCAC"
$MaterialBlue = "0080FF"
$Win11Blue = "0067B8"
$Magenta = "C219BF"

$AltColor1 = "CC0000"
$AltColor2 = "9400EC"

$CodeName = "ASLINKS"
$CurrentVer = FileGetVersion(@AutoItExe) & " " & $CodeName

$Prog = "Color Picker for AutoIT " & $CurrentVer

#Region ### START Koda GUI section ### Form=
Global $GUI = GUICreate($Prog, 460, 125, 295, 325)
Global $PickColor = GUICtrlCreateButton("Pick Color", 8, 55, 209, 41)
GUICtrlSetFont(-1, 12, 400, 0, "Segoe UI")
GUICtrlSetColor(-1,0x000000)
GUICtrlSetBkColor(-1,0xFFFFFF)
Global $HEX = GUICtrlCreateInput("", 8, 8, 209, 41, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$WS_EX_WINDOWEDGE))
GUICtrlSetFont(-1, 20, 400, 0, "Segoe UI")
GUICtrlSetColor(-1,0x000000)
GUICtrlSetBkColor(-1,0xFFFFFF)
Global $GUI_Menu_File = GUICtrlCreateMenu("File")
Global $GUI_Menu_File_Save = GUICtrlCreateMenuItem("Save Color to Base",$GUI_Menu_File)
Global $GUI_Menu_File_OpenBase = GUICtrlCreateMenuItem("Open Color Base",$GUI_Menu_File)
Global $GUI_Menu_File_Refresh = GUICtrlCreateMenuItem("Refresh Color List",$GUI_Menu_File)
GUICtrlCreateMenuItem("",$GUI_Menu_File)
Global $GUI_Menu_File_Remove = GUICtrlCreateMenuItem("Delete this color",$GUI_Menu_File)

Global $GUI_Menu_Color = GUICtrlCreateMenu("Color")
Global $GUI_Menu_Color_ExportNoAutoIT = GUICtrlCreateMenuItem("Copy Non AutoIT Color Code (Without '0x')",$GUI_Menu_Color)

Global $GUI_Menu_Options = GUICtrlCreateMenu("Options")
Global $GUI_Menu_Options_EditCfg = GUICtrlCreateMenuItem("Edit Color Base Location",$GUI_Menu_Options)

Global $GUI_Menu_About = GUICtrlCreateMenu("About")
Global $GUI_Menu_About_Dev = GUICtrlCreateMenuItem("Developers",$GUI_Menu_About)
Global $GUI_Menu_About_Ver = GUICtrlCreateMenuItem("Color Picker " & $CurrentVer,$GUI_Menu_About)
GUICtrlSetState($GUI_Menu_About_Ver,$GUI_DISABLE)

; Color Fixed Set
Global $CFS_1 = GUICtrlCreateButton("", 380, 7, 15, 15)
DefineBkFromHex(-1, $GoogleDark)
GUICtrlSetTip(-1, "Google Dark")
GUICtrlSetCursor(-1, 0)
Global $CFS_2 = GUICtrlCreateButton("", 395, 7, 15, 15)
DefineBkFromHex(-1, $GoogleGreen)
GUICtrlSetTip(-1, "Google Green")
GUICtrlSetCursor(-1, 0)
Global $CFS_3 = GUICtrlCreateButton("", 410, 7, 15, 15)
DefineBkFromHex(-1, $GoogleRed)
GUICtrlSetTip(-1, "Google Red")
GUICtrlSetCursor(-1, 0)
Global $CFS_4 = GUICtrlCreateButton("", 425, 7, 15, 15)
DefineBkFromHex(-1, $GoogleYellow)
GUICtrlSetTip(-1, "Google Yellow")
GUICtrlSetCursor(-1, 0)
Global $CFS_5 = GUICtrlCreateButton("", 440, 7, 15, 15)
DefineBkFromHex(-1, $FacebookBlue)
GUICtrlSetTip(-1, "Facebook Blue")
GUICtrlSetCursor(-1, 0)
Global $CFS_6 = GUICtrlCreateButton("", 380, 25, 15, 15)
DefineBkFromHex(-1, $FacebookClassic)
GUICtrlSetTip(-1, "Facebook Classic Blue")
GUICtrlSetCursor(-1, 0)
Global $CFS_7 = GUICtrlCreateButton("", 395, 25, 15, 15)
DefineBkFromHex(-1, $DiscordBluev1)
GUICtrlSetTip(-1, "Discord Blue v1")
GUICtrlSetCursor(-1, 0)
Global $CFS_8 = GUICtrlCreateButton("", 410, 25, 15, 15)
DefineBkFromHex(-1, $DiscordBluev2)
GUICtrlSetTip(-1, "Discord Blue v2")
GUICtrlSetCursor(-1, 0)
Global $CFS_9 = GUICtrlCreateButton("", 425, 25, 15, 15)
DefineBkFromHex(-1, $DiscordDark)
GUICtrlSetTip(-1, "Discord Dark")
GUICtrlSetCursor(-1, 0)
Global $CFS_10 = GUICtrlCreateButton("", 440, 25, 15, 15)
DefineBkFromHex(-1, $DiscordGray)
GUICtrlSetTip(-1, "Discord Gray")
GUICtrlSetCursor(-1, 0)
Global $CFS_11 = GUICtrlCreateButton("", 380, 25 + 18, 15, 15)
DefineBkFromHex(-1, $Buttercup)
GUICtrlSetTip(-1, "Buttercup")
GUICtrlSetCursor(-1, 0)
Global $CFS_12 = GUICtrlCreateButton("", 395, 25 + 18, 15, 15)
DefineBkFromHex(-1, $Ice)
GUICtrlSetTip(-1, "Ice")
GUICtrlSetCursor(-1, 0)
Global $CFS_13 = GUICtrlCreateButton("", 410, 25 + 18, 15, 15)
DefineBkFromHex(-1, $MaterialBlue)
GUICtrlSetTip(-1, "Material Blue")
GUICtrlSetCursor(-1, 0)
Global $CFS_14 = GUICtrlCreateButton("", 425, 25 + 18, 15, 15)
DefineBkFromHex(-1, $Win11Blue)
GUICtrlSetTip(-1, "Windows 11 Blue")
GUICtrlSetCursor(-1, 0)
Global $CFS_15 = GUICtrlCreateButton("", 440, 25 + 18, 15, 15)
DefineBkFromHex(-1, $MatrixGreen)
GUICtrlSetTip(-1, "MATRIX Green")
GUICtrlSetCursor(-1, 0)
Global $CFS_16 = GUICtrlCreateButton("", 380, 25 + 36, 15, 15)
DefineBkFromHex(-1, $MatrixDarkBlue)
GUICtrlSetTip(-1, "MATRIX Dark Blue")
GUICtrlSetCursor(-1, 0)
Global $CFS_17 = GUICtrlCreateButton("", 395, 25 + 36, 15, 15)
DefineBkFromHex(-1, $Espresso)
GUICtrlSetTip(-1, "Espresso What Else")
GUICtrlSetCursor(-1, 0)
Global $CFS_18 = GUICtrlCreateButton("", 410, 25 + 36, 15, 15)
DefineBkFromHex(-1, $Sand)
GUICtrlSetTip(-1, "Sand")
GUICtrlSetCursor(-1, 0)
Global $CFS_19 = GUICtrlCreateButton("", 425, 25 + 36, 15, 15)
DefineBkFromHex(-1, $Mint)
GUICtrlSetTip(-1, "Mint")
GUICtrlSetCursor(-1, 0)
Global $CFS_20 = GUICtrlCreateButton("", 440, 25 + 36, 15, 15)
DefineBkFromHex(-1, $Magenta)
GUICtrlSetTip(-1, "Magenta")
GUICtrlSetCursor(-1, 0)
Global $CFS_21 = GUICtrlCreateButton("", 380, 25 + 54, 15, 15)
DefineBkFromHex(-1, $BrightPink)
GUICtrlSetTip(-1, "Bright Pink")
GUICtrlSetCursor(-1, 0)
Global $CFS_22 = GUICtrlCreateButton("", 395, 25 + 54, 15, 15)
DefineBkFromHex(-1, $AltColor1)
GUICtrlSetTip(-1, "Dev Choice #1")
GUICtrlSetCursor(-1, 0)
Global $CFS_23 = GUICtrlCreateButton("", 410, 25 + 54, 15, 15)
DefineBkFromHex(-1, $AltColor2)
GUICtrlSetTip(-1, "Dev Choice #2")
GUICtrlSetCursor(-1, 0)
Global $CFS_24 = GUICtrlCreateButton("", 425, 25 + 54, 15, 15)
DefineBkFromHex(-1, $FullBlack)
GUICtrlSetTip(-1, "Perfect Black (PitchBlack)")
GUICtrlSetCursor(-1, 0)
Global $CFS_25 = GUICtrlCreateButton("", 440, 25 + 54, 15, 15)
DefineBkFromHex(-1, $FullWhite)
GUICtrlSetTip(-1, "Perfect White (FluxWhite)")
GUICtrlSetCursor(-1, 0)

; File List
Global $GUI_ColorBase_List = GUICtrlCreateList("0x000000",220,8,155,97, -1, $WS_EX_WINDOWEDGE)
GUICtrlSetFont(-1,8,900,"","Segoe UI")
GUICtrlSetData($GUI_ColorBase_List,"0xFFFFFF")
;

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

if Not FileExists(@ScriptDir & "\ColorsLocation_AutoIT.ini") Then
    IniWrite(@ScriptDir & "\ColorsLocation_AutoIT.ini","Colors Location","Dir",@ScriptDir & "\Color Base (AutoIT Version)")
EndIf

$ColorBase = IniRead(@ScriptDir & "\ColorsLocation_AutoIT.ini","Colors Location","Dir",@ScriptDir & "\Color Base (AutoIT Version)")

if Not FileExists($ColorBase) Then
  DirCreate($ColorBase)
EndIf

ColorBaseRefresh()

$NextLiveColor = GUICtrlRead($HEX)
    if StringInStr($NextLiveColor,"0x","",1) Then
      GUICtrlSetColor($HEX,$NextLiveColor)
      GUISetBkColor($NextLiveColor)
    EndIf

While 1
 $nMsg = GUIGetMsg()
 LiveColor()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

  Case $CFS_1
    GUICtrlSetData($HEX, "0x" & $GoogleDark)
  Case $CFS_2
    GUICtrlSetData($HEX, "0x" & $GoogleGreen)
  Case $CFS_3
    GUICtrlSetData($HEX, "0x" & $GoogleRed)
  Case $CFS_4
    GUICtrlSetData($HEX, "0x" & $GoogleYellow)
  Case $CFS_5
    GUICtrlSetData($HEX, "0x" & $FacebookBlue)
  Case $CFS_6
    GUICtrlSetData($HEX, "0x" & $FacebookClassic)
  Case $CFS_7
    GUICtrlSetData($HEX, "0x" & $DiscordBluev1)
  Case $CFS_8
    GUICtrlSetData($HEX, "0x" & $DiscordBluev2)
  Case $CFS_9
    GUICtrlSetData($HEX, "0x" & $DiscordDark)
  Case $CFS_10
    GUICtrlSetData($HEX, "0x" & $DiscordGray)
  Case $CFS_11
    GUICtrlSetData($HEX, "0x" & $Buttercup)
  Case $CFS_12
    GUICtrlSetData($HEX, "0x" & $Ice)
  Case $CFS_13
    GUICtrlSetData($HEX, "0x" & $MaterialBlue)
  Case $CFS_14
    GUICtrlSetData($HEX, "0x" & $Win11Blue)
  Case $CFS_15
    GUICtrlSetData($HEX, "0x" & $MatrixGreen)
  Case $CFS_16
    GUICtrlSetData($HEX, "0x" & $MatrixDarkBlue)
  Case $CFS_17
    GUICtrlSetData($HEX, "0x" & $Espresso)
  Case $CFS_18
    GUICtrlSetData($HEX, "0x" & $Sand)
  Case $CFS_19
    GUICtrlSetData($HEX, "0x" & $Mint)
  Case $CFS_20
    GUICtrlSetData($HEX, "0x" & $Magenta)
  Case $CFS_21
    GUICtrlSetData($HEX, "0x" & $BrightPink)
  Case $CFS_22
    GUICtrlSetData($HEX, "0x" & $AltColor1)
  Case $CFS_23
    GUICtrlSetData($HEX, "0x" & $AltColor2)
  Case $CFS_24
    GUICtrlSetData($HEX, "0x" & $FullBlack)
  Case $CFS_25
    GUICtrlSetData($HEX, "0x" & $FullWhite)

  Case $GUI_Menu_Options_EditCfg
    $nLocation = FileSelectFolder("Select a new location for your Color Base",$ColorBase)
    if $nLocation = "" Then
    ColorBaseRefresh()
    Else
    IniWrite(@ScriptDir & "\ColorsLocation_AutoIT.ini","Colors Location","Dir",$nLocation)
    $ColorBase = $nLocation
    ColorBaseRefresh()
    EndIf

  Case $GUI_Menu_File_Remove
    $tFile = GUICtrlRead($GUI_ColorBase_List)
    if $tFile = "" Then
    ; Nothing
    Else
      $confirm = InputBox("Confirmation Dialog","Please confirm the deletion of this color" & @CRLF & "Target : " & $tFile & @CRLF & "Enter 'YES' to confirm and enter !","","","",150)
      if $confirm = "YES" Then
      FileDelete($ColorBase & "\" & $tFile)
      ColorBaseRefresh()
      EndIf
    EndIf

  Case $GUI_Menu_File_Refresh
    ColorBaseRefresh()

  Case $GUI_Menu_About_Dev
    TyleoAbout($Prog & " Unified Edition")

  Case $GUI_Menu_Color_ExportNoAutoIT
    $NoITClip = GUICtrlRead($HEX)
    $NoITClip = StringTrimLeft($NoITClip,2)
    ClipPut($NoITClip)
  
  Case $PickColor
    $hColor = _ChooseColor(2)
  if $hColor = "-1" Then
    ; Nothing
  Else
    GUISetBkColor($hColor)
    GUICtrlSetBkColor($HEX,$hColor)
    GUICtrlSetBkColor($GUI_ColorBase_List,$hColor)
    GUICtrlSetBkColor($PickColor,$hColor)
    GUICtrlSetData($HEX,$hColor)
    ClipPut($hColor)
  EndIf

  Case $GUI_ColorBase_List
    $iFileColor = GUICtrlRead($GUI_ColorBase_List)
    $oFileOpen = FileOpen($ColorBase & "\" & $iFileColor & ".aucolor")
    $iColor = FileRead($oFileOpen)
    FileClose($oFileOpen)
    GUISetBkColor($iColor)
    GUICtrlSetBkColor($HEX,$iColor)
    GUICtrlSetColor($HEX,0xFFFFFF)
    GUICtrlSetBkColor($GUI_ColorBase_List,$iColor)
    GUICtrlSetBkColor($PickColor,$iColor)
    GUICtrlSetData($HEX,$iColor)
    ClipPut($iColor)
    
  
  Case $GUI_Menu_File_Save
    $sName = InputBox("Color Human Readable Name","Enter the name of your color, You can" & @CRLF & "Choose anything.","","","",140)
    
    $sColor = GUICtrlRead($HEX)
    if $sName = "" Then
    $sFileName = $sColor & ".aucolor"
    Else
    $sFileName = $sName & "-" & $sColor & ".aucolor"
    EndIf
    $sFileOpen = FileOpen($ColorBase & "\" & $sFileName,2)
    FileWrite($sFileOpen,$sColor)
    FileClose($sFileOpen)
    ColorBaseRefresh()
    

  Case $GUI_Menu_File_OpenBase
    ShellExecute($ColorBase)

 EndSwitch
WEnd

Func ColorBaseRefresh()
    GUICtrlSetData($GUI_ColorBase_List,"")    
    $cColorFiles = _FileListToArray($ColorBase,"*.aucolor",$FLTA_FILES,False)
    _ArrayDelete($cColorFiles, 0)
    _ArrayTrim($cColorFiles,8,1)
    $cFiles = _ArrayToString($cColorFiles)
    GUICtrlSetData($GUI_ColorBase_List,$cFiles)   
    $cCheck = GUICtrlRead($GUI_ColorBase_List)
    if $cCheck = "-1" Then
      GUICtrlSetData($GUI_ColorBase_List,"") 
    EndIf
EndFunc

Func LiveColor()
    $LiveColor = GUICtrlRead($HEX)
    if $LiveColor = $NextLiveColor Then
    ; Nothing
    Else
    $NextLiveColor = GUICtrlRead($HEX)
    if StringInStr($NextLiveColor,"0x","",1) Then
      GUICtrlSetBkColor($HEX,$NextLiveColor)
      GUICtrlSetBkColor($GUI_ColorBase_List,$NextLiveColor)
      GUICtrlSetBkColor($PickColor,$NextLiveColor)
      GUISetBkColor($NextLiveColor)
    EndIf
    EndIf
EndFunc

Func DefineBkFromHex($Target, $ColorCode)
  $ColorCode = "0x" & $ColorCode
  GUICtrlSetBkColor($Target, $ColorCode)
EndFunc