Un Blocco note... Alternativo, Per MatteoJug

#include <guitoolbar.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#include <constants.au3>
#include <winapi.au3>
#include <guistatusbar.au3>
#include <file.au3>
#include <editconstants.au3>
#include <misc.au3>
#include <guiedit.au3>

#cs
;~ di proprietà di nicofossa96
;~ vietata la copia
;~ per chi lo fa: contatto gli amministratori e lo faccio bannare
#ce
Opt('MustDeclareVars', 1)

TrayTip("Blocco note", "Benvenuti in Blocco note", 5, 1)
$Debug_TB = False ; Check ClassName being passed to functions, set to True and use a handle to another control to see it work

Global $hToolbar, $iMemo, $statobarra
Global $iItem ; Command identifier of the button associated with the notification.
Global Enum $idNew = 1000, $idOpen, $idSave, $idHelp, $idannulla, $idcopia, $idincolla, $idcancella, $idripeti, $idtaglia, $idprint
Global $hGUI, $aSize, $msg, $puntodidomanda, $about
Global $nuovo, $salva, $apri, $aiuto, $titolo ;toolbar
Global $file, $esci, $carattere ;file
Global $modifica, $taglia, $copia, $incolla;modifica
global $settingsitem, $displayitem, $printeritem, $aboutitem, $esci123, $trova
FileInstall("blocconote.bmp", "blocconote.bmp")
FileInstall("blocconoteuscita.bmp", "blocconoteuscita.bmp")
_Main()

Func _Main()


SplashImageOn( "", "blocconote.bmp", 400, 100, -1, -1, 1)
; Create GUI
sleep(2000)
$hGUI = GUICreate("Senza nome - Blocco note", 600, 600, -1, -1, 0x04CF0000)
GUISetIcon("notepad.exe")
$statobarra = GUICtrlCreateInput("Pronto", 0, 560, 600, -1, $ES_READONLY)
GUICtrlSetCursor($statobarra, 2)
$file = GUICtrlCreateMenu("File")
$nuovo = GUICtrlCreateMenuItem("&Nuovo", $file)
$apri = GUICtrlCreateMenuItem("&Apri", $file)
$salva = GUICtrlCreateMenuItem("&Salva", $file)
$esci = GUICtrlCreateMenuItem("&Esci", $file)

GUICtrlCreateMenuItem("", $file, 3)
$modifica = GUICtrlCreateMenu("Modifica")
$taglia = GUICtrlCreateMenuItem("Taglia CTRL+X", $modifica)
$copia = GUICtrlCreateMenuItem("Copia CTRL+C", $modifica)
$incolla =GUICtrlCreateMenuItem("Incolla CTRL+V", $modifica)
GUICtrlCreateMenuItem("", $modifica, 4)
$trova = GUICtrlCreateMenuItem("Trova...", $modifica)
$carattere = GUICtrlCreateMenuItem("Carattere...", $modifica)
$puntodidomanda = GUICtrlCreateMenu("?")
$aiuto = GUICtrlCreateMenuItem("Aiuto!!!", $puntodidomanda)
$about = GUICtrlCreateMenuItem("About", $puntodidomanda)
$hToolbar = _GUICtrlToolbar_Create ($hGUI)
$aSize = _GUICtrlToolbar_GetMaxSize ($hToolbar)



$iMemo = GUICtrlCreateEdit("", 2, $aSize[1] + 20, 596, 500, $ES_WANTRETURN + $WS_VSCROLL + $WS_HSCROLL)
GUICtrlSetFont($iMemo, 12, 400, 0, "Calibri")
GUISetState()
GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY")

; Add standard system bitmaps
_GUICtrlToolbar_AddBitmap ($hToolbar, 1, -1, $IDB_STD_LARGE_COLOR)


_GUICtrlToolbar_AddButton ($hToolbar, $idNew, $STD_FILENEW)
_GUICtrlToolbar_AddButton ($hToolbar, $idOpen, $STD_FILEOPEN)
_GUICtrlToolbar_AddButton ($hToolbar, $idSave, $STD_FILESAVE)
_GUICtrlToolbar_AddButtonSep ($hToolbar)
_GUICtrlToolbar_AddButton ($hToolbar, $idPrint, $STD_PRINT)
_GUICtrlToolbar_AddButtonSep ($hToolbar)
_GUICtrlToolbar_AddButton ($hToolbar, $idtaglia, $STD_cut)
_GUICtrlToolbar_AddButton ($hToolbar, $idcopia, $STD_copy)
_GUICtrlToolbar_AddButton ($hToolbar, $idincolla, $STD_paste)
_GUICtrlToolbar_AddButton ($hToolbar, $idcancella, $STD_delete)
_GUICtrlToolbar_AddButtonSep ($hToolbar)
_GUICtrlToolbar_AddButton ($hToolbar, $idAnnulla, $STD_undo)
_GUICtrlToolbar_AddButton ($hToolbar, $idripeti, $STD_redow)
_GUICtrlToolbar_AddButtonSep ($hToolbar)
_GUICtrlToolbar_AddButton ($hToolbar, $idHelp, $STD_HELP)
;~ toolbar
SplashOff()
TrayTip("clears any tray tip","",0)
; Loop until user exits
while 1
$msg = GUIGetMsg()
Select
Case $msg = $gui_event_close
esci()
case $msg = $esci
esci()
;~ Case $msg = $esci123
;~ ExitLoop
case $msg=$nuovo
nuovo()
case $msg = $salva
salva()
case $msg = $apri
apri()
case $msg = $aiuto
aiuto()
case $msg = $about
about()
case $msg = $taglia
taglia()
case $msg = $copia
copia()
case $msg = $incolla
incolla()
case $msg = $carattere
carattere()
case $msg = $trova
search()
EndSelect
WEnd
EndFunc ;==>_Main
Func MemoWrite()
GUICtrlSetData($iMemo, @CRLF, 1)
EndFunc ;==>MemoWrite

func esci()
GUIDelete($hgui)
TrayTip("Blocco note", "Arrivederci, a presto!!!", 5, 1)
SplashImageOn( "", "blocconoteuscita.bmp", 400, 100, -1, -1, 1)
sleep(2000)
TrayTip("clears any tray tip","",0)
sleep(500)
Exit
EndFunc

func nuovo()
local $vuoisalvare
if guictrlread($imemo) = "" Then
Else

$vuoisalvare = MsgBox(3+32, "Blocco note", "Il testo nel file è stato modificato..."&@crlf&@crlf&"Salvare le modifiche apportate?")
if $vuoisalvare = 7 Then
GUICtrlSetData($imemo, "")
elseif $vuoisalvare = 6 Then
salva()
GUICtrlSetData($imemo, "")
elseif $vuoisalvare = 2 Then
EndIf
EndIf
EndFunc
func apri()
local $filedaaprire, $filecontain
$filedaaprire = FileOpenDialog("Seleziona un file", @desktopdir, "Tutti i file (*.*)")
$filecontain = FileRead($filedaaprire)
GUICtrlSetData($imemo, $filecontain)
EndFunc
func salva()
local $nomefiledasalvare, $filewrite
$nomefiledasalvare = FileSaveDialog("Scrivi un nome per il file...", @desktopdir, "File di testo (*.txt)")
If @error Then
MsgBox(48,"Blocco note","Salvataggio annullato..."&@crlf&@crlf&"File non salvato!!!", 2)
Else
FileWrite($nomefiledasalvare&".txt", guictrlread($imemo))
EndIf
EndFunc
func search()
_GUICtrlEdit_Find($imemo)
EndFunc


func aiuto()
MsgBox(16, "Blocco Note", "Impossibile trovare il file di help...")
EndFunc
func about()
MsgBox(64, "About", "(C) Nicola Fossati")
EndFunc
func taglia()
Sleep(2)
Send("^X")
EndFunc
Func copia()
Sleep(2)
Send("^C")
EndFunc
func incolla()
Sleep(2)
Send("^V")
EndFunc
func annulla()
Send("^Z")
EndFunc
Func rifai()
send("^Y")
EndFunc
func canc()
Send("{del}")
EndFunc
Func stampa()
local $filetoprint, $quesito
$quesito = MsgBox(4, "Stampa", "Sei sicuro?")
if $quesito = 6 then
_FileCreate(@desktopdir&"stampatemp.txt")
FileWrite(@desktopdir&".txt", guictrlread($imemo))
_FilePrint(@desktopdir&".txt")
sleep(5000)
FileDelete(@desktopdir&".txt")
else
MsgBox(48, "Stampa", "Stampa annullata")
Return
EndIf
EndFunc
func carattere()
global $fontchrtrs
$fontchrtrs = _ChooseFont()
if $fontchrtrs = -1 Then

Else
GUICtrlSetColor($imemo, $fontchrtrs[7])
GUICtrlSetFont($imemo, $fontchrtrs[3], $fontchrtrs[4], $fontchrtrs[1], $fontchrtrs[2])
EndIf
EndFunc



; WM_NOTIFY event handler
Func _WM_NOTIFY($hWndGUI, $MsgID, $wParam, $lParam)
#forceref $hWndGUI, $MsgID, $wParam
Local $tNMHDR, $event, $hwndFrom, $code, $i_idNew, $dwFlags, $lResult, $idFrom, $i_idOld
Local $tNMTOOLBAR, $tNMTBHOTITEM
$tNMHDR = DllStructCreate($tagNMHDR, $lParam)
$hwndFrom = DllStructGetData($tNMHDR, "hWndFrom")
$idFrom = DllStructGetData($tNMHDR, "IDFrom")
$code = DllStructGetData($tNMHDR, "Code")
Switch $hwndFrom
Case $hToolbar
Switch $code
Case $NM_LDOWN
;----------------------------------------------------------------------------------------------
;~ MsgBox(0, "Debug", $iitem)
If $iItem = "1000" Then ;~ nuovo
nuovo()
ElseIf $iitem = "1002" then ;salva
salva()
ElseIf $iitem = "1001" Then ;apri
apri()
elseif $iitem = "1003" Then ;help
aiuto()
elseif $iitem = "1009" Then ;taglia
taglia()
elseif $iitem = "1005" Then ;copia
copia()
elseif $iitem = "1006" Then ;incolla
incolla()
elseif $iitem = "1004" Then ;annulla
annulla()
elseif $iitem = "1008" Then ;rifai
rifai()
elseif $iitem = "1007" Then
canc()
elseif $iitem = "1010" Then
stampa()


EndIf
;----------------------------------------------------------------------------------------------
Case $TBN_HOTITEMCHANGE
$tNMTBHOTITEM = DllStructCreate($tagNMTBHOTITEM, $lParam)
$i_idOld = DllStructGetData($tNMTBHOTITEM, "idOld")
$i_idNew = DllStructGetData($tNMTBHOTITEM, "idNew")
$iItem = $i_idNew
$dwFlags = DllStructGetData($tNMTBHOTITEM, "dwFlags")
If BitAND($dwFlags, $HICF_LEAVING) = $HICF_LEAVING Then
GUICtrlSetData($statobarra, "Pronto")
Else
Switch $i_idNew
Case $idNew
;----------------------------------------------------------------------------------------------
GUICtrlSetData($statobarra, "Nuovo")
;----------------------------------------------------------------------------------------------
Case $idOpen
GUICtrlSetData($statobarra, "Apri")
;----------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------
Case $idSave
;----------------------------------------------------------------------------------------------
GUICtrlSetData($statobarra, "Salva")
;----------------------------------------------------------------------------------------------
Case $idHelp
;----------------------------------------------------------------------------------------------
GUICtrlSetData($statobarra, "Aiuto")
;----------------------------------------------------------------------------------------------
case $idannulla
GUICtrlSetData($statobarra, "Annulla")
case $idcopia
GUICtrlSetData($statobarra, "Copia")
case $idincolla
GUICtrlSetData($statobarra, "Incolla")
case $idcancella
GUICtrlSetData($statobarra, "Cancella")
case $idripeti
GUICtrlSetData($statobarra, "Ripeti")
case $idtaglia
GUICtrlSetData($statobarra, "Taglia")
case $idprint
GUICtrlSetData($statobarra, "Stampa")
case $file
GUICtrlSetData($statobarra, "File")
EndSwitch
EndIf
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>_WM_NOTIFY