Ci ho lavorato molto, pur essendo il codice semplice il programma puņ tornare molto utile per chi lavora con linguaggi web, alla prossima versione cercherņ di concentrarmi sul colore delle sintassi:
CODICE
#NoTrayIcon
#include <GuiConstants.au3>
GUICreate ("More Text Maneger", 900, 400)
$edit = GUICtrlCreateEdit ("", 0, 0, 500, 380)
$edit2 = GUICtrlCreateEdit ("", 530, 0, 350, 200)
$menu_file = GUICtrlCreateMenu ("File")
$menu_file1 = GUICtrlCreateMenuItem ("Apri", $menu_file)
$menu_file2 = GUICtrlCreateMenuItem ("Salva", $menu_file)
$menu_html = GUICtrlCreateMenu ("HTML")
$menu_html1 = GUICtrlCreateMenuItem ("Ipertesto", $menu_html)
$menu_html2 = GUICtrlCreateMenuItem ("Immagine", $menu_html)
$menu_html3 = GUICtrlCreateMenuItem ("Immagine sfondo", $menu_html)
$menu_html4 = GUICtrlCreateMenuItem ("Input", $menu_html)
$menu_html5 = GUICtrlCreateMenuItem ("Tasto", $menu_html)
$menu_php = GUICtrlCreateMenu ("PHP")
$menu_php1 = GUICtrlCreateMenuItem ("<? ... ?>", $menu_php)
$menu_php2 = GUICtrlCreateMenuItem ("<% ... %>", $menu_php)
$menu_php3 = GUICtrlCreateMenuItem ('<script language="php"> ... </script>', $menu_php)
$menu_css = GUICtrlCreateMenu ("CSS")
$menu_css1 = GUICtrlCreateMenuItem ("Define CSS", $menu_css)
$menu_info = GUICtrlCreateMenu ("?")
$menu_info1 = GUICtrlCreateMenuItem ("Informazioni", $menu_info)
GUICtrlCreateLabel ("Una volta usato il menł di aiuto ricopia", 600, 250)
GUICtrlCreateLabel ("il testo nel primo riquadro", 600, 270)
GUISetState ()
While 1
$msg = GUIGetMsg ()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $menu_file1
$percorso_apri = FileOpenDialog ("Apri", @DesktopDir, ("File supportati (*.html,*.php,*.css,*.js,*.txt,*.bat)") )
$leggi = FileRead ($percorso_apri)
GUICtrlSetData ($edit, $leggi)
Case $menu_file2
$percorso = FileSaveDialog ( "Salva" , @DesktopDir , ( "File supportati (*.html,*.php,*.css,*.js,*.txt,*.bat)" ) )
FileWrite ( $percorso , GUICtrlRead ( $edit ) )
Case $menu_html1
GUICtrlSetData ($edit2, "<a href='link'>Nome</a>")
Case $menu_html2
GUICtrlSetData ($edit2, "<img src='immagine.gif' width='60' height='60' >")
Case $menu_html3
GUICtrlSetData ($edit2, "<body background='background.jpg'>")
Case $menu_html4
GUICtrlSetData ($edit2, "<input type='text' name=''>")
Case $menu_html5
GUICtrlSetData ($edit2, "<input type='button' value='Testo del bottone'>")
Case $menu_php1
GUICtrlSetData ($edit2, "<?" & @CRLF & @CRLF & "?>")
Case $menu_php2
GUICtrlSetData ($edit2, "<%" & @CRLF & @CRLF & "%>")
Case $menu_php3
GUICtrlSetData ($edit2, '<script language="php"> ... </script>')
Case $menu_css1
GUICtrlSetData ($edit2, '<style type="text/css">' & @CRLF & @CRLF &'</style>')
Case $menu_info1
MsgBox (64, "More Text Maneger", "More Text Maneger č un editor:"& @CRLF & "- HTML"& @CRLF & "- PHP"& @CRLF & "- CSS"& @CRLF & "- Javascript"& @CRLF & "- Testo (.txt)"& @CRLF & "- Batch"& @CRLF &"Sviluppato da x-flea (http://xflea.altervista.org/)"& @CRLF & "v 1.0")
EndSwitch
WEnd