CODICE
#include <GUIConstants.au3>
#NoTrayIcon
GUICreate("Html Editor V2.2 By ~Ste", 400,260)
GUICtrlCreateLabel("Html Editor V2.2",120,30)
GUICtrlCreateLabel("Per segnalare errori o bug",100,200)
GUICtrlCreateLabel("Inviate una mail a ste.1991@hotmail.it",75,213)
$file=GuiCtrlCreateMenu ("File")
$chiudi=GuiCtrlCreateMenuitem ("Chiudi",$file)
$help=GuiCtrlCreateMenu ("?")
$about=GuiCtrlCreateMenuitem ("About",$help)
$grassetto=GUICtrlCreateButton("Grassetto",325,10,65,20)
$corsivo=GUICtrlCreateButton("Corsivo",325,30,65,20)
$sottolineato=GUICtrlCreateButton("Sottolineato",325,50,65,20)
$barrato=GUICtrlCreateButton("Barrato",325,70,65,20)
$blink=GuiCtrlCreateButton("Blink",325,90,65,20)
$link=GUICtrlCreateButton("Link",325,110,65,20)
$immagine=GUICtrlCreateButton("Immagine",325,130,65,20)
$banner=GUICtrlCreateButton("Banner",325,150,65,20)
$iframe=GUICtrlCreateButton("Iframe",325,170,65,20)
$titolo=GUICtrlCreateButton("Titolo",325,190,65,20)
$ce=GUICtrlCreateButton("CE",325,210,65,20)
$colore=GuiCtrlCreatecombo("Colore",30,125,80,20)
GUICtrlSetData(-1,"Black|White|Yellow|Green|Red|Orange|Purple|Blue|LightBlue|Grey")
$dimensione=GuiCtrlCreatecombo("Dimensione",220,125,80,20)
GUICtrlSetData(-1,"1|2|3|4|5|6|7")
$font=GUICtrlCreateButton("Setta Font",135,125,65,20)
$input=GUICtrlCreateEdit("", 15,70,300,40)
$input_=""
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $chiudi
Exit
Case $about
MsgBox(0,"About","Html Editor V2.2" & @CRLF & "Per contatti: ste.1991@hotmail.it" & @CRLF & "Vietata la copia.I trasgressori verranno puniti a norma di legge." & @CRLF & "CopyRight 2007-08 ©")
Case $grassetto
If GUICtrlRead($input)="" Then
$inputx=InputBox("Testo","Inserisci qui il testo da scrivere in grassetto")
$input_="<b>" & $inputx & "</b>"
GUICtrlSetData($input,$input_)
Else
$input_="<b>" & $input_ & "</b>"
GUICtrlSetData($input,$input_)
EndIf
Case $corsivo
If GUICtrlRead($input)="" Then
$inputx=InputBox("Testo","Inserisci qui il testo da scrivere in corsivo")
$input_="<i>" & $inputx & "</i>"
GUICtrlSetData($input,$input_)
Else
$input_="<i>" & $input_ & "</i>"
GUICtrlSetData($input,$input_)
EndIf
Case $sottolineato
If GUICtrlRead($input)="" Then
$inputx=InputBox("Testo","Inserisci qui il testo da scrivere sottolineato")
$input_="<u>" & $inputx & "</u>"
GUICtrlSetData($input,$input_)
Else
$input_="<u>" & $input_ & "</u>"
GUICtrlSetData($input,$input_)
EndIf
Case $barrato
If GUICtrlRead($input)="" Then
$inputx=InputBox("Testo","Inserisci qui il testo da scrivere barrato")
$input_="<s>" & $inputx & "</s>"
GUICtrlSetData($input,$input_)
Else
$input_="<s>" & $input_ & "</s>"
GUICtrlSetData($input,$input_)
EndIf
Case $blink
If GUICtrlRead($input)="" Then
$inputx=InputBox("Testo","Inserisci qui il testo che deve apparire lampeggiante")
$input_="<blink>" & $inputx & "</blink>"
GUICtrlSetData($input,$input_)
Else
$input_="<blink>" & $input_ & "</blink>"
GUICtrlSetData($input,$input_)
EndIf
Case $link
$inputx=InputBox("Indirizzo del sito","Inserisci qui l'indirizzo del sito","http://")
$inputy=InputBox("Testo","Inserisci qui il testo")
$input_='<a href="' & $inputx &'">' & $inputy & '</a>'
GUICtrlSetData($input,$input_)
If $inputx="" Then
$input_="Devi inserire un indirizzo valido"
GUICtrlSetData($input,$input_)
ElseIf $inputy="" Then
$input_='<a href="' & $inputx &'">' & $inputx & '</a>'
GUICtrlSetData($input,$input_)
EndIf
Case $immagine
$inputx=InputBox("Indirizzo dell'immagine","Inserisci qui l'indirizzo dell'immagine","http://")
$input_='<img src="' & $inputx & '">'
GUICtrlSetData($input,$input_)
If $inputx="" Then
$input_="Devi inserire un indirizzo valido"
GUICtrlSetData($input,$input_)
EndIf
Case $banner
$inputx=InputBox("Indirizzo del sito","Inserisci qui l'indirizzo del sito","http://")
$inputy=InputBox("Indirizzo della immagine","Inserisci qui l'indirizzo dell'immagine","http://")
$input_='<a href="' & $inputx & '"><img src="' & $inputy & '"></a>'
GUICtrlSetData($input,$input_)
If $inputx="" Then
$input_="Devi inserire un indirizzo valido"
GUICtrlSetData($input,$input_)
ElseIf $inputy="" Then
$input_="Devi inserire l'indirizzo dell'immagine"
GUICtrlSetData($input,$input_)
EndIf
Case $iframe
$inputx=InputBox("Indirizzo del sito","Inserisci qui l'indirizzo del sito","http://")
$input_='<iframe src="' & $inputx & '"></iframe>'
GUICtrlSetData($input,$input_)
If $inputx="" Then
$input_="Devi inserire un indirizzo valido"
GUICtrlSetData($input,$input_)
EndIf
Case $titolo
$inputx=InputBox("Titolo","Inserisci qui il titolo da applicare alla pagina web")
$input_="<title>" & $inputx & "</title>"
GUICtrlSetData($input,$input_)
If $inputx="" Then
$input_="Devi inserire il titolo della pagina web"
GUICtrlSetData($input,$input_)
EndIf
Case $ce
$input_=""
GUICtrlSetData($input,$input_)
Case $font
$inputx=InputBox("Testo da formattare","Inserisci il testo da formattare")
$input_='<font size="' & GUICtrlRead($dimensione) & '" color="' & GUICtrlRead($colore) & '">' & $inputx & '</font>'
GUICtrlSetData($input,$input_)
If GUICtrlRead($dimensione)="Dimensione" Then
$input_='<font color="' & GUICtrlRead($colore) & '">' & $inputx & '</font>'
GUICtrlSetData($input,$input_)
If GUICtrlRead($colore)="Colore" Then
$input_='Devi prima settare almeno il colore o la dimensione'
GUICtrlSetData($input,$input_)
EndIf
ElseIf GUICtrlRead($colore)="Colore" Then
$input_='<font size="' & GUICtrlRead($dimensione) & '">' & $inputx & '</font>'
GUICtrlSetData($input,$input_)
EndIf
EndSwitch
WEnd