DueClick

Opt("TrayIconHide", 1) ; nessuna tray icon

HotKeySet("+{F9}", "chiudi" )

#include <editconstants.au3>
#include <buttonconstants.au3>
#include <guiconstantsex.au3>
#include <tabconstants.au3>
#include <windowsconstants.au3>
#Include <misc.au3>
#Include <guilistview.au3>

Opt("GUIOnEventMode", 1)

Global $Form,$dll,$PosMouse,$Lista1,$Lista2,$Lista3,$Lista4,$Tab,$TabSelezionato,$Selezione,$SelezioneT1,$SelezioneT2,$SelezioneT3,$SelezioneT4
Global $t1[2],$t2[2],$t3[2],$t4[2],$RigheTab_1,$RigheTab_2,$RigheTab_3,$RigheTab_4,$FormPulsanti,$FinestraInserimento=0
Global $Pos_Finestra_O,$Pos_Finestra_V,$Funzione,$IconaPulsante,$InputPercorsoFunzione,$InputPercorsoIcona
Global $ItemContextMenu[100],$Sheet1ContextMenu[100],$Sheet1item[100],$Sheet2ContextMenu[100],$Sheet2item[100],$Sheet3ContextMenu[100],$Sheet3item[100],$Sheet4ContextMenu[100],$Sheet4item[100]
Global $Button1,$Button2,$Button3,$Button4,$Button5,$Button6,$Button7,$Pulsante,$TestoModifica,$IDModifica,$InputModificaTesto, $TestoModifica,$FormModificaTesto,$TabContextitem

$dll = DllOpen("user32.dll") ; necesario per il controllo del mouse

ApriFile()
ControlloClick()

Func ApriFile()

$File = FileOpen(@ScriptDir &"\Config.ini", 0)

If $File = -1 Then
IniWriteSection (@ScriptDir &"\Config.ini", "UltimoTabAttivo", "Tab=1")
IniWriteSection (@ScriptDir &"\Config.ini", "Tab1", "0=0"&@CRLF&"TestoTab=Pag.1") ;indice 0 indica la quantità di righe Tab1 nel file .ini
IniWriteSection (@ScriptDir &"\Config.ini", "Tab2", "0=0"&@CRLF&"TestoTab=Pag.2") ;indice 0 indica la quantità di righe Tab2 nel file .ini
IniWriteSection (@ScriptDir &"\Config.ini", "Tab3", "0=0"&@CRLF&"TestoTab=Pag.3") ;indice 0 indica la quantità di righe Tab3 nel file .ini
IniWriteSection (@ScriptDir &"\Config.ini", "Tab4", "0=0"&@CRLF&"TestoTab=Pag.4") ;indice 0 indica la quantità di righe Tab4 nel file .ini
IniWriteSection (@ScriptDir &"\Config.ini", "Pulsante1", "Impostato=no"&@CRLF&"Funzione="&@CRLF&"Icona=")
IniWriteSection (@ScriptDir &"\Config.ini", "Pulsante2", "Impostato=no"&@CRLF&"Funzione="&@CRLF&"Icona=")
IniWriteSection (@ScriptDir &"\Config.ini", "Pulsante3", "Impostato=no"&@CRLF&"Funzione="&@CRLF&"Icona=")
IniWriteSection (@ScriptDir &"\Config.ini", "Pulsante4", "Impostato=no"&@CRLF&"Funzione="&@CRLF&"Icona=")
IniWriteSection (@ScriptDir &"\Config.ini", "Pulsante5", "Impostato=no"&@CRLF&"Funzione="&@CRLF&"Icona=")
IniWriteSection (@ScriptDir &"\Config.ini", "Pulsante6", "Impostato=no"&@CRLF&"Funzione="&@CRLF&"Icona=")
IniWriteSection (@ScriptDir &"\Config.ini", "Pulsante7", "Impostato=no"&@CRLF&"Funzione="&@CRLF&"Icona=")
EndIf

FileClose($File)

ControlloClick()

EndFunc

Func ControlloClick()


While 1
Sleep(300)
If _IsPressed("01", $dll) Then ;tasto sx del mouse
Sleep(300)
if _IsPressed("01", $dll) Then ;tasto sx del mouse
if _IsPressed("02", $dll) Then ;tasto dx del mouse
ApriFinestra()
EndIf
EndIf
EndIf
WEnd

EndFunc

Func ApriFinestra()

$TestoTab1 = IniRead(@ScriptDir &"\Config.ini", "Tab1", "TestoTab","")
$TestoTab2 = IniRead(@ScriptDir &"\Config.ini", "Tab2", "TestoTab","")
$TestoTab3 = IniRead(@ScriptDir &"\Config.ini", "Tab3", "TestoTab","")
$TestoTab4 = IniRead(@ScriptDir &"\Config.ini", "Tab4", "TestoTab","")

$PosMouse = MouseGetPos()
$Form = GUICreate("DueClick", 246, 364, $PosMouse[0]-20, $PosMouse[1]-20 ,$WS_EX_TOPMOST)
$Tab = GUICtrlCreateTab(1, 1, 191, 333)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabContextmenu = GUICtrlCreateContextMenu ($Tab)
$TabContextitem = GUICtrlCreateMenuItem ( "Modifica", $TabContextmenu)
GUICtrlSetOnEvent(-1, "ModificaTestoTab")

$TabSheet1 = GUICtrlCreateTabItem($TestoTab1)
$TabSheet2 = GUICtrlCreateTabItem($TestoTab2)
$TabSheet3 = GUICtrlCreateTabItem($TestoTab3)
$TabSheet4 = GUICtrlCreateTabItem($TestoTab4)
GUICtrlCreateTabItem("")
Do ;----------------------------------------pulsanti-----------------------------------------------------
$Button1 = GUICtrlCreateButton("1", 191, 0, 48, 48, $BS_ICON)
GUICtrlSetImage(-1,IniRead(@ScriptDir &"\Config.ini", "Pulsante1", "Icona",""))
If IniRead(@ScriptDir &"\Config.ini", "Pulsante1", "Impostato","no") = "no" Then
GUICtrlSetOnEvent(-1, "FinestraSetPulsanti")
Else
GUICtrlSetOnEvent(-1,"FunzionePulsante1")
EndIf
$Button1ContextMenu = GUICtrlCreateContextMenu($Button1)
$Button1item = GUICtrlCreateMenuItem("Modifica", $Button1)
GUICtrlSetOnEvent(-1,"FinestraSetPulsanti")
$Button2 = GUICtrlCreateButton("2", 191, 47, 48, 48, $BS_ICON)
GUICtrlSetImage(-1,IniRead(@ScriptDir &"\Config.ini", "Pulsante2", "Icona",""))
If IniRead(@ScriptDir &"\Config.ini", "Pulsante2", "Impostato","no") = "no" Then
GUICtrlSetOnEvent(-1, "FinestraSetPulsanti")
Else
GUICtrlSetOnEvent(-1,"FunzionePulsante2")
EndIf
$Button2ContextMenu = GUICtrlCreateContextMenu($Button2)
$Button2item = GUICtrlCreateMenuItem("Modifica", $Button2)
GUICtrlSetOnEvent(-1,"FinestraSetPulsanti")
$Button3 = GUICtrlCreateButton("3", 191, 94, 48, 48, $BS_ICON)
GUICtrlSetImage(-1,IniRead(@ScriptDir &"\Config.ini", "Pulsante3", "Icona",""))
If IniRead(@ScriptDir &"\Config.ini", "Pulsante3", "Impostato","no") = "no" Then
GUICtrlSetOnEvent(-1, "FinestraSetPulsanti")
Else
GUICtrlSetOnEvent(-1,"FunzionePulsante3")
EndIf
$Button3ContextMenu = GUICtrlCreateContextMenu($Button3)
$Button3item = GUICtrlCreateMenuItem("Modifica", $Button3)
GUICtrlSetOnEvent(-1,"FinestraSetPulsanti")
$Button4 = GUICtrlCreateButton("4", 191, 142, 48, 48, $BS_ICON)
GUICtrlSetImage(-1,IniRead(@ScriptDir &"\Config.ini", "Pulsante4", "Icona",""))
If IniRead(@ScriptDir &"\Config.ini", "Pulsante4", "Impostato","no") = "no" Then
GUICtrlSetOnEvent(-1, "FinestraSetPulsanti")
Else
GUICtrlSetOnEvent(-1,"FunzionePulsante4")
EndIf
$Button4ContextMenu = GUICtrlCreateContextMenu($Button4)
$Button4item = GUICtrlCreateMenuItem("Modifica", $Button4)
GUICtrlSetOnEvent(-1,"FinestraSetPulsanti")
$Button5 = GUICtrlCreateButton("5", 191, 189, 48, 48, $BS_ICON)
GUICtrlSetImage(-1,IniRead(@ScriptDir &"\Config.ini", "Pulsante5", "Icona",""))
If IniRead(@ScriptDir &"\Config.ini", "Pulsante5", "Impostato","no") = "no" Then
GUICtrlSetOnEvent(-1, "FinestraSetPulsanti")
Else
GUICtrlSetOnEvent(-1,"FunzionePulsante5")
EndIf
$Button5ContextMenu = GUICtrlCreateContextMenu($Button5)
$Button5item = GUICtrlCreateMenuItem("Modifica", $Button5)
GUICtrlSetOnEvent(-1,"FinestraSetPulsanti")
$Button6 = GUICtrlCreateButton("6", 191, 237, 48, 48, $BS_ICON)
GUICtrlSetImage(-1,IniRead(@ScriptDir &"\Config.ini", "Pulsante6", "Icona",""))
If IniRead(@ScriptDir &"\Config.ini", "Pulsante6", "Impostato","no") = "no" Then
GUICtrlSetOnEvent(-1, "FinestraSetPulsanti")
Else
GUICtrlSetOnEvent(-1,"FunzionePulsante6")
EndIf
$Button6ContextMenu = GUICtrlCreateContextMenu($Button6)
$Button6item = GUICtrlCreateMenuItem("Modifica", $Button6)
GUICtrlSetOnEvent(-1,"FinestraSetPulsanti")
$Button7 = GUICtrlCreateButton("7", 191, 284, 48, 48, $BS_ICON)
GUICtrlSetImage(-1,IniRead(@ScriptDir &"\Config.ini", "Pulsante7", "Icona",""))
If IniRead(@ScriptDir &"\Config.ini", "Pulsante7", "Impostato","no") = "no" Then
GUICtrlSetOnEvent(-1, "FinestraSetPulsanti")
Else
GUICtrlSetOnEvent(-1,"FunzionePulsante7")
EndIf
$Button7ContextMenu = GUICtrlCreateContextMenu($Button7)
$Button7item = GUICtrlCreateMenuItem("Modifica", $Button7)
GUICtrlSetOnEvent(-1,"FinestraSetPulsanti")
GUISetState(@SW_SHOW)
Until 1
If IniRead(@ScriptDir &"\Config.ini", "UltimoTabAttivo", "Tab","")=1 Then
GUICtrlSetState($TabSheet1,$GUI_SHOW)
ElseIf IniRead(@ScriptDir &"\Config.ini", "UltimoTabAttivo", "Tab","")=2 Then
GUICtrlSetState($TabSheet2,$GUI_SHOW)
ElseIf IniRead(@ScriptDir &"\Config.ini", "UltimoTabAttivo", "Tab","")=3 Then
GUICtrlSetState($TabSheet3,$GUI_SHOW)
ElseIf IniRead(@ScriptDir &"\Config.ini", "UltimoTabAttivo", "Tab","")=4 Then
GUICtrlSetState($TabSheet4,$GUI_SHOW)
EndIf


Do

;-----------------------------------chiude la finestra quando il moue esce da essa----------------------
ControlloPosizioneMouse()
;------------------------------------------controlla quale tab è attivo e ne dimensiona le colonne------
$TabSelezionato = GUICtrlRead($Tab)

If $TabSelezionato = 0 Then
$Lista1 = GUICtrlCreateListView("ID| Testo ", 2, 23, 187, 362)
_GUICtrlListView_SetColumn($Lista1, 0,"ID",28,2)
_GUICtrlListView_SetColumn($Lista1, 1," Testo da copiare ", 155)
Tab_1()
EndIf
If $TabSelezionato = 1 Then
$Lista2 = GUICtrlCreateListView("ID| Testo ", 2, 23, 187, 362)
_GUICtrlListView_SetColumn($Lista2, 0,"ID",28,2)
_GUICtrlListView_SetColumn($Lista2, 1," Testo da copiare ", 155)
Tab_2()
EndIf
If $TabSelezionato = 2 Then
$Lista3 = GUICtrlCreateListView("ID| Testo ", 2, 23, 187, 362)
_GUICtrlListView_SetColumn($Lista3, 0,"ID",28,2)
_GUICtrlListView_SetColumn($Lista3, 1," Testo da copiare ", 155)
Tab_3()
EndIf
If $TabSelezionato = 3 Then
$Lista4 = GUICtrlCreateListView("ID| Testo ", 2, 23, 187, 362)
_GUICtrlListView_SetColumn($Lista4, 0,"ID",28,2)
_GUICtrlListView_SetColumn($Lista4, 1," Testo da copiare ", 155)
Tab_4()
EndIf

;-------------------------------------------------------------------------------------------------------

Until 0

EndFunc

Func Tab_1()

$RigheTab_1 = IniRead(@ScriptDir &"\Config.ini", "Tab1", "0","")

If $RigheTab_1>0 Then
For $RigaTab_1 = 1 To $RigheTab_1
$TestoTab_1 = IniRead(@ScriptDir &"\Config.ini", "Tab1", $RigaTab_1,"")
$ItemContextMenu[$RigaTab_1] = GUICtrlCreateListViewItem($RigaTab_1&"|"&$TestoTab_1, $Lista1)
$Sheet1ContextMenu[$RigaTab_1] = GUICtrlCreateContextMenu($ItemContextMenu[$RigaTab_1])
$Sheet1item[$RigaTab_1] = GUICtrlCreateMenuItem("Modifica", $Sheet1ContextMenu[$RigaTab_1])

GUICtrlSetOnEvent(-1,"ModificaItemTab1")
Next
EndIf

$ItemSheet1= GUICtrlCreateListViewItem($RigheTab_1+1 &"|", $Lista1)

Do
ControlloPosizioneMouse()
$TabSelezionato = GUICtrlRead($Tab)
Until $TabSelezionato <> 0
EndFunc

Func Tab_2()

$RigheTab_2 = IniRead(@ScriptDir &"\Config.ini", "Tab2", "0","")

If $RigheTab_2>0 Then
For $RigaTab_2 = 1 To $RigheTab_2
$TestoTab_2 = IniRead(@ScriptDir &"\Config.ini", "Tab2", $RigaTab_2,"")
$ItemContextMenu[$RigaTab_2] = GUICtrlCreateListViewItem($RigaTab_2&"|"&$TestoTab_2, $Lista2)
$Sheet2ContextMenu[$RigaTab_2] = GUICtrlCreateContextMenu($ItemContextMenu[$RigaTab_2])
$Sheet2item[$RigaTab_2] = GUICtrlCreateMenuItem("Modifica", $Sheet2ContextMenu[$RigaTab_2])
GUICtrlSetOnEvent(-1,"ModificaItemTab2")
Next
EndIf

GUICtrlCreateListViewItem($RigheTab_2+1 &"|", $Lista2)

Do
ControlloPosizioneMouse()
$TabSelezionato = GUICtrlRead($Tab)
Until $TabSelezionato <> 1
EndFunc

Func Tab_3()

$RigheTab_3 = IniRead(@ScriptDir &"\Config.ini", "Tab3", "0","")

If $RigheTab_3>0 Then
For $RigaTab_3 = 1 To $RigheTab_3
$TestoTab_3 = IniRead(@ScriptDir &"\Config.ini", "Tab3", $RigaTab_3,"")
$ItemContextMenu[$RigaTab_3] = GUICtrlCreateListViewItem($RigaTab_3&"|"&$TestoTab_3, $Lista3)
$Sheet3ContextMenu[$RigaTab_3] = GUICtrlCreateContextMenu($ItemContextMenu[$RigaTab_3])
$Sheet3item[$RigaTab_3] = GUICtrlCreateMenuItem("Modifica", $Sheet3ContextMenu[$RigaTab_3])
GUICtrlSetOnEvent(-1,"ModificaItemTab3")
Next
EndIf

GUICtrlCreateListViewItem($RigheTab_3+1 &"|", $Lista3)

Do
ControlloPosizioneMouse()
$TabSelezionato = GUICtrlRead($Tab)
Until $TabSelezionato <> 2
EndFunc

Func Tab_4()

$RigheTab_4 = IniRead(@ScriptDir &"\Config.ini", "Tab4", "0","")

If $RigheTab_4>0 Then
For $RigaTab_4 = 1 To $RigheTab_4
$TestoTab_4 = IniRead(@ScriptDir &"\Config.ini", "Tab4", $RigaTab_4,"")
$ItemContextMenu[$RigaTab_4] = GUICtrlCreateListViewItem($RigaTab_4&"|"&$TestoTab_4, $Lista4)
$Sheet4ContextMenu[$RigaTab_4] = GUICtrlCreateContextMenu($ItemContextMenu[$RigaTab_4])
$Sheet4item[$RigaTab_4] = GUICtrlCreateMenuItem("Modifica", $Sheet4ContextMenu[$RigaTab_4])
GUICtrlSetOnEvent(-1,"ModificaItemTab4")
Next
EndIf

GUICtrlCreateListViewItem($RigheTab_4+1 &"|", $Lista4)

Do
ControlloPosizioneMouse()
$TabSelezionato = GUICtrlRead($Tab)
Until $TabSelezionato <> 3
EndFunc

Func Chiudifinestra()

IniWrite(@ScriptDir &"\Config.ini", "UltimoTabAttivo","Tab",$TabSelezionato+1)

If $TabSelezionato = 0 Then
$t1=_Stringa(GUICtrlRead(GUICtrlRead($Lista1)))
If $t1[0] = $RigheTab_1+1 Then
IniWrite(@ScriptDir &"\Config.ini", "Tab1", $t1[0], StringStripWS(ClipGet(),1)) ;salva il contenuto della clipboard senza spazi iniziali
IniWrite(@ScriptDir &"\Config.ini", "Tab1", "0",$t1[0])
Else
GUIDelete($Form)
Sleep(300)
Send($t1[1])
EndIf
EndIf

If $TabSelezionato = 1 Then
$t2=_Stringa(GUICtrlRead(GUICtrlRead($Lista2)))
If $t2[0] = $RigheTab_2+1 Then
IniWrite(@ScriptDir &"\Config.ini", "Tab2", $t2[0],StringStripWS(ClipGet(),1))
IniWrite(@ScriptDir &"\Config.ini", "Tab2", "0",$t2[0])
Else
GUIDelete($Form)
Sleep(300)
Send($t2[1])
EndIf
EndIf

If $TabSelezionato = 2 Then
$t3=_Stringa(GUICtrlRead(GUICtrlRead($Lista3)))
If $t3[0] = $RigheTab_3+1 Then
IniWrite(@ScriptDir &"\Config.ini", "Tab3", $t3[0],StringStripWS(ClipGet(),1))
IniWrite(@ScriptDir &"\Config.ini", "Tab3", "0",$t3[0])
Else
GUIDelete($Form)
Sleep(300)
Send($t3[1])
EndIf
EndIf

If $TabSelezionato = 3 Then
$t4=_Stringa(GUICtrlRead(GUICtrlRead($Lista4)))
If $t4[0] = $RigheTab_4+1 Then
IniWrite(@ScriptDir &"\Config.ini", "Tab4", $t4[0],StringStripWS(ClipGet(),1))
IniWrite(@ScriptDir &"\Config.ini", "Tab4", "0",$t4[0])
Else
GUIDelete($Form)
Sleep(300)
Send($t4[1])
EndIf
EndIf

GUIDelete($Form)
controlloclick()

EndFunc

Func ControlloPosizioneMouse()

If $FinestraInserimento=0 Then

Sleep(108)
$WinPos = WinGetPos("DueClick")
$Pos_Finestra_O = $WinPos[0]
$Pos_Finestra_V = $WinPos[1]
$Msg = GUIGetMsg()
$PosMouse = MouseGetPos()
If $PosMouse[0] < $Pos_Finestra_O Then chiudifinestra()
If $PosMouse[1] < $Pos_Finestra_V Then chiudifinestra()
If $PosMouse[0] > ($Pos_Finestra_O+246) Then chiudifinestra()
If $PosMouse[1] > ($Pos_Finestra_V+364) Then chiudifinestra()

EndIf

EndFunc

Func Chiudi()

DllClose($dll)
Exit

EndFunc

Func _Stringa($Stringa) ; estrae l'ID e il testo pulito dalla lista: array0= posizione array1= testo

Local $StringaPulita[2]
Local $a=$Stringa
Local $a_0 = StringTrimRight($a,1)
Local $a_1 = StringLen($a_0) ;lunghezza str
Local $a_2 = StringInStr($a_0,"|") ;posizione 1° "|"
Local $a_3 = $a_1-$a_2+1
$StringaPulita[1] = StringTrimLeft($a_0,$a_2)
$StringaPulita[0] = StringTrimRight($a_0,$a_3)
Return $StringaPulita

EndFunc

Func FinestraSetPulsanti()

Switch @GUI_CTRLID
Case 8,10
$Pulsante = 1
Case 11,13
$Pulsante = 2
Case 14,16
$Pulsante = 3
Case 17,19
$Pulsante = 4
Case 20,22
$Pulsante = 5
Case 23,25
$Pulsante = 6
Case 26,28
$Pulsante = 7
EndSwitch

$FinestraInserimento = 1 ; per disabilitare l'uscita della finestra principale quando il mouse esce da essa
$FormPulsanti = GUICreate("Seleziona Funzione Pulsante", 538, 138, $Pos_Finestra_O-150, $Pos_Finestra_V)
$InputPercorsoFunzione = GUICtrlCreateInput("Percorso Funzione", 4, 10, 449, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$InputPercorsoIcona = GUICtrlCreateInput("Percorso Icona Pulsante o scrivi il testo del Pulsante", 4, 50, 449, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$ButtonSfogliaFunzione = GUICtrlCreateButton("Sfoglia", 458, 8, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "ButtonSfogliaFunzione")
$ButtonSfogliaIcona = GUICtrlCreateButton("Sfoglia", 458, 46, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "ButtonSfogliaIcona")
$ButtonImpostaPulsante = GUICtrlCreateButton("Imposta Pulsante", 190, 88, 127, 39, $WS_GROUP)
GUICtrlSetOnEvent(-1, "ButtonImpostaPulsante")
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetState(@SW_SHOW)

EndFunc

Func SpecialEvents()

If @GUI_CtrlId = $GUI_EVENT_CLOSE Then
$FinestraInserimento=0 ;per abilitare l'uscita della finestra principale quando il mouse esce da essa
GUIDelete($FormPulsanti)
EndIf

EndFunc

Func ButtonSfogliaFunzione()

$Funzione = FileOpenDialog ( "Seleziona Cartella o Programma", "" , "Eseguibili (*.exe;*.bat;*.scr)")
GUICtrlSetData($InputPercorsoFunzione,$Funzione)

EndFunc

Func ButtonSfogliaIcona()
$IconaPulsante = FileOpenDialog( "Seleziona Pulsante", "" , "Icona (*.ico)")
GUICtrlSetData($InputPercorsoIcona,$IconaPulsante)
EndFunc

Func ButtonImpostaPulsante()

$Funzione = GUICtrlRead ( $InputPercorsoFunzione )

$FinestraInserimento=0

If $Pulsante = 1 Then
if not $Funzione=0 Then
if $Funzione<>"Percorso Funzione" Then
GUICtrlSetOnEvent($Button1 ,"FunzionePulsante1")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante1", "Impostato","si")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante1", "Funzione",$Funzione)
EndIf
EndIf
if not $IconaPulsante=0 Then
if $IconaPulsante<>"Percorso Icona Pulsante o scrivi il testo del Pulsante" Then
IniWrite(@ScriptDir &"\Config.ini", "Pulsante1", "Icona",$IconaPulsante)
if StringTrimLeft ($IconaPulsante,StringLen($IconaPulsante)-4)= ".ico" Then
GUICtrlSetImage( $Button1, $IconaPulsante)
EndIf
EndIf
EndIf
EndIf

If $Pulsante = 2 Then
if not $Funzione=0 Then
if $Funzione<>"Percorso Funzione" Then
GUICtrlSetOnEvent($Button1 ,"FunzionePulsante2")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante2", "Impostato","si")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante2", "Funzione",$Funzione)
EndIf
EndIf
if not $IconaPulsante=0 Then
if $IconaPulsante<>"Percorso Icona Pulsante o scrivi il testo del Pulsante" Then
IniWrite(@ScriptDir &"\Config.ini", "Pulsante2", "Icona",$IconaPulsante)
if StringTrimLeft ($IconaPulsante,StringLen($IconaPulsante)-4)= ".ico" Then
GUICtrlSetImage( $Button2, $IconaPulsante)
EndIf
EndIf
EndIf
EndIf

If $Pulsante = 3 Then
if not $Funzione=0 Then
if $Funzione<>"Percorso Funzione" Then
GUICtrlSetOnEvent($Button3 ,"FunzionePulsante3")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante3", "Impostato","si")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante3", "Funzione",$Funzione)
EndIf
EndIf
if not $IconaPulsante=0 Then
if $IconaPulsante<>"Percorso Icona Pulsante o scrivi il testo del Pulsante" Then
IniWrite(@ScriptDir &"\Config.ini", "Pulsante3", "Icona",$IconaPulsante)
if StringTrimLeft ($IconaPulsante,StringLen($IconaPulsante)-4)= ".ico" Then
GUICtrlSetImage( $Button3, $IconaPulsante)
EndIf
EndIf
EndIf
EndIf

If $Pulsante = 4 Then
if not $Funzione=0 Then
if $Funzione<>"Percorso Funzione" Then
GUICtrlSetOnEvent($Button4 ,"FunzionePulsante4")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante4", "Impostato","si")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante4", "Funzione",$Funzione)
EndIf
EndIf
if not $IconaPulsante=0 Then
if $IconaPulsante<>"Percorso Icona Pulsante o scrivi il testo del Pulsante" Then
IniWrite(@ScriptDir &"\Config.ini", "Pulsante4", "Icona",$IconaPulsante)
if StringTrimLeft ($IconaPulsante,StringLen($IconaPulsante)-4)= ".ico" Then
GUICtrlSetImage( $Button4, $IconaPulsante)
EndIf
EndIf
EndIf
EndIf

If $Pulsante = 5 Then
if not $Funzione=0 Then
if $Funzione<>"Percorso Funzione" Then
GUICtrlSetOnEvent($Button5 ,"FunzionePulsante5")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante5", "Impostato","si")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante5", "Funzione",$Funzione)
EndIf
EndIf
if not $IconaPulsante=0 Then
if $IconaPulsante<>"Percorso Icona Pulsante o scrivi il testo del Pulsante" Then
IniWrite(@ScriptDir &"\Config.ini", "Pulsante5", "Icona",$IconaPulsante)
if StringTrimLeft ($IconaPulsante,StringLen($IconaPulsante)-4)= ".ico" Then
GUICtrlSetImage( $Button5, $IconaPulsante)
EndIf
EndIf
EndIf
EndIf

If $Pulsante = 6 Then
if not $Funzione=0 Then
if $Funzione<>"Percorso Funzione" Then
GUICtrlSetOnEvent($Button1 ,"FunzionePulsante6")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante6", "Impostato","si")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante6", "Funzione",$Funzione)
EndIf
EndIf
if not $IconaPulsante=0 Then
if $IconaPulsante<>"Percorso Icona Pulsante o scrivi il testo del Pulsante" Then
IniWrite(@ScriptDir &"\Config.ini", "Pulsante6", "Icona",$IconaPulsante)
if StringTrimLeft ($IconaPulsante,StringLen($IconaPulsante)-4)= ".ico" Then
GUICtrlSetImage( $Button6, $IconaPulsante)
EndIf
EndIf
EndIf
EndIf

If $Pulsante = 7 Then
if not $Funzione=0 Then
if $Funzione<>"Percorso Funzione" Then
GUICtrlSetOnEvent($Button7 ,"FunzionePulsante7")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante7", "Impostato","si")
IniWrite(@ScriptDir &"\Config.ini", "Pulsante7", "Funzione",$Funzione)
EndIf
EndIf
if not $IconaPulsante=0 Then
if $IconaPulsante<>"Percorso Icona Pulsante o scrivi il testo del Pulsante" Then
IniWrite(@ScriptDir &"\Config.ini", "Pulsante7", "Icona",$IconaPulsante)
if StringTrimLeft ($IconaPulsante,StringLen($IconaPulsante)-4)= ".ico" Then
GUICtrlSetImage( $Button7, $IconaPulsante)
EndIf
EndIf
EndIf
EndIf

$Pulsante = 0
GUIDelete ($FormPulsanti)
EndFunc

Func FunzionePulsante1()

$Funzione1=IniRead(@ScriptDir &"\Config.ini", "Pulsante1", "Funzione","")
Run ($Funzione1)

EndFunc

Func FunzionePulsante2()

$Funzione2=IniRead(@ScriptDir &"\Config.ini", "Pulsante2", "Funzione","")
Run ($Funzione2)

EndFunc

Func FunzionePulsante3()

$Funzione3=IniRead(@ScriptDir &"\Config.ini", "Pulsante3", "Funzione","")
Run ($Funzione3)

EndFunc

Func FunzionePulsante4()

$Funzione4=IniRead(@ScriptDir &"\Config.ini", "Pulsante4", "Funzione","")
Run ($Funzione4)

EndFunc

Func FunzionePulsante5()

$Funzione5=IniRead(@ScriptDir &"\Config.ini", "Pulsante5", "Funzione","")
Run ($Funzione5)

EndFunc

Func FunzionePulsante6()

$Funzione6=IniRead(@ScriptDir &"\Config.ini", "Pulsante6", "Funzione","")
Run ($Funzione6)

EndFunc

Func FunzionePulsante7()

$Funzione7=IniRead(@ScriptDir &"\Config.ini", "Pulsante7", "Funzione","")
Run ($Funzione7)

EndFunc

Func ModificaItemTab1()

$modifica0 = _Stringa(GUICtrlRead(GUICtrlRead($Lista1)))
$IDModifica = $modifica0[0]
$TestoModifica = $modifica0[1]
FinestraModificaTesto()

EndFunc

Func ModificaItemTab2()

$modifica0 = _Stringa(GUICtrlRead(GUICtrlRead($Lista2)))
$IDModifica = $modifica0[0]
$TestoModifica = $modifica0[1]
FinestraModificaTesto()

EndFunc

Func ModificaItemTab3()

$modifica0 = _Stringa(GUICtrlRead(GUICtrlRead($Lista3)))
$IDModifica = $modifica0[0]
$TestoModifica = $modifica0[1]
FinestraModificaTesto()

EndFunc

Func ModificaItemTab4()

$modifica0 = _Stringa(GUICtrlRead(GUICtrlRead($Lista4)))
$IDModifica = $modifica0[0]
$TestoModifica = $modifica0[1]
FinestraModificaTesto()

EndFunc

Func FinestraModificaTesto()

$FinestraInserimento = 1 ;per disabilitare l'uscita della finestra principale quando il mouse esce da essa
$FormModificaTesto = GUICreate("ModificaTesto ID "&$IDModifica, 424, 58, $Pos_Finestra_O-100, $Pos_Finestra_V)
$InputModificaTesto = GUICtrlCreateInput("", 8, 16, 319, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetData($InputModificaTesto,$TestoModifica)
$ButtonModificaTesto = GUICtrlCreateButton("Modifica", 342, 16, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "ModificaTestoItem")
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetState(@SW_SHOW)

EndFunc

Func ModificaTestoItem()

$InputModificaTestobis = GUICtrlRead ($InputModificaTesto)
GUIDelete($FormModificaTesto)
If $TabSelezionato = 0 Then
IniWrite(@ScriptDir &"\Config.ini", "Tab1", $IDModifica ,$InputModificaTestobis)
GUICtrlDelete ($Lista1)
EndIf
If $TabSelezionato = 1 Then
IniWrite(@ScriptDir &"\Config.ini", "Tab2", $IDModifica ,$InputModificaTestobis)
GUICtrlDelete ($Lista2)
EndIf
If $TabSelezionato = 2 Then
IniWrite(@ScriptDir &"\Config.ini", "Tab3", $IDModifica ,$InputModificaTestobis)
GUICtrlDelete ($Lista3)
EndIf
If $TabSelezionato = 3 Then
IniWrite(@ScriptDir &"\Config.ini", "Tab4", $IDModifica ,$InputModificaTestobis)
GUICtrlDelete ($Lista4)
EndIf

If $TabSelezionato = 1 Then IniWrite(@ScriptDir &"\Config.ini", "Tab2", $IDModifica ,$InputModificaTestobis)
If $TabSelezionato = 2 Then IniWrite(@ScriptDir &"\Config.ini", "Tab3", $IDModifica ,$InputModificaTestobis)
If $TabSelezionato = 3 Then IniWrite(@ScriptDir &"\Config.ini", "Tab4", $IDModifica ,$InputModificaTestobis)
$FinestraInserimento = 0 ; per abilitare l'uscita della finestra principale quando il mouse esce da essa

EndFunc

Func ModificaTestoTab()

If $TabSelezionato = 0 Then
$FinestraInserimento = 1 ; per disabilitare l'uscita della finestra principale quando il mouse esce da essa
$Modificatab1 = InputBox("Inserisci nome","Tab"&$TabSelezionato+1,"Tab"&$TabSelezionato+1,"",300,100, $Pos_Finestra_O-20, $Pos_Finestra_V)
if not $Modificatab1=0 Then
$FinestraInserimento = 0 ; per abilitare l'uscita della finestra principale quando il mouse esce da essa
IniWrite(@ScriptDir &"\Config.ini", "Tab1", "TestoTab" ,$Modificatab1)
EndIf
If @error=1 Then $FinestraInserimento = 0 ; per abilitare l'uscita della finestra principale quando il mouse esce da essa
EndIf

If $TabSelezionato = 1 Then
$FinestraInserimento = 1 ; per disabilitare l'uscita della finestra principale quando il mouse esce da essa
$Modificatab2 = InputBox("Inserisci nome","Tab"&$TabSelezionato+1,"Tab"&$TabSelezionato+1,"",300,100, $Pos_Finestra_O-20, $Pos_Finestra_V)
if not $Modificatab2=0 Then
$FinestraInserimento = 0 ; per abilitare l'uscita della finestra principale quando il mouse esce da essa
IniWrite(@ScriptDir &"\Config.ini", "Tab2", "TestoTab" ,$Modificatab2)
EndIf
If @error=1 Then $FinestraInserimento = 0 ; per abilitare l'uscita della finestra principale quando il mouse esce da essa
EndIf
If $TabSelezionato = 2 Then
$FinestraInserimento = 1 ; per disabilitare l'uscita della finestra principale quando il mouse esce da essa
$Modificatab3 = InputBox("Inserisci nome","Tab"&$TabSelezionato+1,"Tab"&$TabSelezionato+1,"",300,100, $Pos_Finestra_O-20, $Pos_Finestra_V)
if not $Modificatab3=0 Then
$FinestraInserimento = 0 ; per abilitare l'uscita della finestra principale quando il mouse esce da essa
IniWrite(@ScriptDir &"\Config.ini", "Tab3", "TestoTab" ,$Modificatab3)
EndIf
If @error=1 Then $FinestraInserimento = 0 ; per abilitare l'uscita della finestra principale quando il mouse esce da essa
EndIf
If $TabSelezionato = 3 Then
$FinestraInserimento = 1 ; per disabilitare l'uscita della finestra principale quando il mouse esce da essa
$Modificatab4 = InputBox("Inserisci nome","Tab"&$TabSelezionato+1,"Tab"&$TabSelezionato+1,"",300,100, $Pos_Finestra_O-20, $Pos_Finestra_V)
if not $Modificatab4=0 Then
$FinestraInserimento = 0 ; per abilitare l'uscita della finestra principale quando il mouse esce da essa
IniWrite(@ScriptDir &"\Config.ini", "Tab4", "TestoTab" ,$Modificatab4)
EndIf
If @error=1 Then $FinestraInserimento = 0 ; per abilitare l'uscita della finestra principale quando il mouse esce da essa
EndIf

EndFunc