Shides

Cool!!!!!! :)

GOoD

:) Yeah, but is good app

Good Work!!! :)

now it's ok

sorry i try, but don't work

$Actual = _DateAdd( 'd',29, _NowCalcDate()) $split = StringSplit($Actual, '/') $calculed = $split[3] & '/' & _GetMonth($split[2]) & '/' & $split[1] GUICtrlCreateLabel ("" & $calculed, 0,130,150,17) Func _GetMonth($nMonth) Local $aMonth = StringSplit('01,02,03,04,05,06,07,08,09,10,11,12', ',') Return $aMonth[$nMonth] EndFunc Try it...

Strange to me works EDIT: But u talk about italian or english version?

Anyone can help me?

u have estract all file?

Thank's to all Theguy thank's it work, but when i open the file by double click, there isn't text...how it were empty, why?

Hi, i want create a new file format for my TxTediTor, but how i do to make this? Thank's Excuse me for English, but i'm Italian :">

Thank's cyber u are italian? sei italiano?

ShellExecute ("iexplore.exe", "insert url")

Hi to all, i have finish to pragram TxTediTor... i have translate the include "GuiEdit" in "GuiEdit(itamod)" this for italian version, now is only in italian, but tomorrow i want upload the english version if I have time to do it... This is the first version: TxTediTor.rar Script:(if you want run TxTediTor with script place "GuiEdit(itamod).au3" in Include directory) CODE#include <GuiConstants.au3>#include <File.au3> #include <GuiEdit(itamod).au3> #include <String.au3> #include <Date.au3> #NoTrayIcon Dim $filesave, $fileopen = "", $SAVEEN, $SAVE, $FILEISOPEN = 0 Global $Sec, $Min, $Hour, $Time $finestra = GuiCreate("TxTediTor", 500, 350, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) $Edit_1 = GuiCtrlCreateEdit("", 0, 0, 500, 330) $menu = GUICtrlCreateMenu ("File") $nuovo = guictrlcreatemenuitem ("&Nuovo", $menu) $apri = guictrlcreatemenuitem ("Apri", $menu) $salva = guictrlcreatemenuitem ("&Salva con nome", $menu) GUICtrlCreateMenuitem ("", $menu) $stampa = guictrlcreatemenuitem ("Stampa...", $menu) GUICtrlCreateMenuitem ("", $menu) $esci = guictrlcreatemenuitem ("&Esci", $menu) $modifica = GUICtrlCreateMenu ("Modifica") $indietro = GUICtrlCreateMenuitem ("Annulla", $modifica) GUICtrlCreateMenuitem ("", $modifica) $trova = GUICtrlCreateMenuitem ("Trova e sostituisci", $modifica) GUICtrlCreateMenuitem ("", $modifica) $data = GUICtrlCreateMenuitem ("Aggiungi Data", $modifica) $ora = GUICtrlCreateMenuitem ("Aggiungi Ora", $modifica) $opzioni = guictrlcreatemenu ("Opzioni") $font = guictrlcreatemenuitem ("Carattere", $opzioni) $colore = guictrlcreatemenu ("Colore sfondo", $opzioni) $bianco = guictrlcreatemenuitem ("Predefinito", $colore) GUICtrlCreateMenuitem ("", $colore) $nero = guictrlcreatemenuitem ("Nero", $colore) $rosso = guictrlcreatemenuitem ("Rosso", $colore) $blu = guictrlcreatemenuitem ("Blu", $colore) $about = guictrlcreatemenu ("About") $info = guictrlcreatemenuitem ("Info", $about) GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE If _GUICtrlEditCanUndo ($Edit_1) Then $SAVEYESORNO = MsgBox(35, "TxTediTor", "Il testo nel file è stato cambiato, vuoi salvare?") If $SAVEYESORNO = 6 And $FILEISOPEN = 0 Then Save() Exit EndIf If $SAVEYESORNO = 6 And $FILEISOPEN = 1 Then FileDelete($aprifile) FileWrite($aprifile, GUICtrlRead($Edit_1, $font)) Exit EndIf If $SAVEYESORNO = 7 Then ExitLoop Exit EndIf If $SAVEYESORNO = 2 Then Sleep(1) EndIf If Not _GUICtrlEditCanUndo ($Edit_1) Then Exit case $msg = $nuovo If _GUICtrlEditCanUndo ($Edit_1) Then $SAVEYESORNO = MsgBox(35, "TxTediTor - Salva", "Sono state apportate delle modifiche al documento, vuoi salvare?") If $SAVEYESORNO = 6 And $FILEISOPEN = 0 Then Save() EndIf If $SAVEYESORNO = 6 And $FILEISOPEN = 1 Then FileDelete($aprifile) FileWrite($aprifile, GUICtrlRead($Edit_1)) EndIf If $SAVEYESORNO = 7 Then GUICtrlSetData($Edit_1, "") If $SAVEYESORNO = 2 Then Sleep(1) EndIf If Not _GUICtrlEditCanUndo ($EDIT_1) Then GUICtrlSetData($Edit_1, "") $FILEISOPEN = 0 case $msg = $apri $aprifile = FileOpenDialog ("Apri", "", "Documenti di testo (*.txt)") $testo = FileRead($aprifile, FileGetSize($aprifile)) GUICtrlSetData($Edit_1, $testo) $aprifile = 1 case $msg = $salva $salvafile = FileSaveDialog ("Salva", "", "Documenti di testo (*.txt)","" ,".txt") FileWrite($salvafile, GUICtrlRead ($Edit_1, $font)) case $msg = $esci If _GUICtrlEditCanUndo ($Edit_1) Then $SAVEYESORNO = MsgBox(35, "TxTediTor", "Il testo nel file è stato cambiato, vuoi salvare?") If $SAVEYESORNO = 6 And $FILEISOPEN = 0 Then Save() Exit EndIf If $SAVEYESORNO = 6 And $FILEISOPEN = 1 Then FileDelete($aprifile) FileWrite($aprifile, GUICtrlRead($Edit_1)) Exit EndIf If $SAVEYESORNO = 7 Then ExitLoop If $SAVEYESORNO = 2 Then Sleep(1) EndIf EndIf If Not _GUICtrlEditCanUndo ($Edit_1) Then Exit Case $msg = $font $FONT3 = _ChooseFont (IniRead(@ScriptDir & "\ini.ini", "font", "font", "Courier New"), IniRead(@ScriptDir & "\ini.ini", "font", "size", "12")) If @error Then ;;; Else GUICtrlSetFont($EDIT_1, $FONT3[3], $FONT3[4], $FONT3[1], $FONT3[2]) IniWrite(@ScriptDir & "\ini.ini", "font", "font", $FONT3[2]) IniWrite(@ScriptDir & "\ini.ini", "font", "size", $FONT3[3]) IniWrite(@ScriptDir & "\ini.ini", "font", "weight", $FONT3[4]) IniWrite(@ScriptDir & "\ini.ini", "font", "attrib", $FONT3[1]) EndIf Case $msg = $indietro _GUICtrlEditUndo ($Edit_1) Case $msg = $stampa $msgboxstampa = MsgBox(35, "TxTediTor", "Vuoi stampare questa pagina?") Select Case $msgboxstampa = 6;Yes _FileCreate(@TempDir & "\print.txt") FileWrite(@TempDir & "\print.txt", GUICtrlRead($Edit_1)) $filestampa = @TempDir & "\print.txt" _FilePrint ($filestampa) FileDelete($filestampa) Case $msgboxstampa = 7;No ;;;; Case Else ;;; EndSelect Case $msg = $trova _GUICtrlEditFind ($finestra, $Edit_1,"","") Case $msg = $data $giorni = _DateAdd( 'd',0, _NowCalcDate()) $divisore = StringSplit($giorni, '/') $finito = $divisore[3] & '/' & _GetMonth($divisore[2]) & '/' & $divisore[1] guictrlsetdata ($Edit_1, guictrlread($Edit_1) & '' & $finito) Case $msg = $ora $StartTicks = _TimeToTicks(@HOUR,@MIN,@SEC) $EndTicks = $StartTicks + 0 * 60 * 1000 _TicksToTime($EndTicks,$Hour,$Min,$Sec) $finito2 = $Hour & ":" & $Min & ":" & $Sec guictrlsetdata ($Edit_1, guictrlread($Edit_1) & '' & $finito2) Case $msg = $nero GUICtrlSetBkColor ($Edit_1, "0x000000") GUICtrlSetColor($Edit_1, 0x00FF00) Case $msg = $rosso GUICtrlSetBkColor ($Edit_1, "0xff0216") GUICtrlSetColor($Edit_1, 0xffffff) Case $msg = $blu GUICtrlSetBkColor($Edit_1, "0x98adff") GUICtrlSetColor($Edit_1, 0xffffff) Case $msg = $bianco GuictrlsetbkColor ($Edit_1, 0xffffff) GUICtrlSetColor($Edit_1, 0x000000) Case $msg = $info ShellExecute("Misc\info.exe") EndSelect WEnd func save() $salvafile = FileSaveDialog ("Salva", "", "Documenti di testo (*.txt)","" ,".txt") FileWrite($salvafile, GUICtrlRead ($Edit_1, $font)) EndFunc Func _GetMonth($nMonth) Local $aMonth = StringSplit('01,02,03,04,05,06,07,08,09,10,11,12', ',') Return $aMonth[$nMonth] EndFunc ENGLISH VERSION!!!!! Now TxTediTor is in English!!! Download new link

It work, thanks!!!

Hello, anyone say where is the string to send a date to edit panel? i use: $giorni = _DateAdd( 'd',0, _NowCalcDate()) $divisore = StringSplit($giorni, '/') $finito = $divisore[3] & '/' & _GetMonth($divisore[2]) & '/' & $divisore[1] guictrlsetdata ($Edit_1, $finito) it workly but it replaces all text... i want to add text not replice... Thank's

i use Axialis IconWorkshop this save the icon library in icl, but i rename it in dll and it's ok

Hello, what's the string it allows a random image open?

Yes Anyone can can move this in example script?

Hello!, I've finished the script the second version of Runner (but isn't Completely finished) Download It: Runner_2.rar Script: ;~ Author: Antonio ;~ Program Name: Runner ;~ Version: 2.0 ;~ Home Page: http:\\shides.altervista.org #include <GUIConstants.au3> ;finestra $start = GUICreate("Runner",400,300) GUICtrlCreatePic ("Runner.gif", 75, 25,245,62) $scritta1 = GUICtrlCreateLabel("Benvenuto in Runner!", 145, 95, 150) $scritta2 = GUICtrlCreateLabel("Questo programma ti farà aprire facilmente alcuni programmi", 55,115, 500) ;menù alto $filemenu = GuiCtrlCreateMenu ("File") $exititem = GuiCtrlCreateMenuitem ("Exit",$filemenu) $helpmenu = GuiCtrlCreateMenu ("?") $aboutitem = GuiCtrlCreateMenuitem ("About",$helpmenu) $upgrade = Guictrlcreatemenuitem ("Check Upgrade", $helpmenu) ;bottone esci $cancelbutton = GuiCtrlCreateButton ("Esci",230,230,100,30) ;bottone avanti $Okbutton = GuictrlCreateButton ("Avanti",60,230,100,30) GUISetState() Func _GUIUpdate() GUICtrlsetstate($Okbutton,$GUI_Disable) GUICtrlDelete($aboutitem) GUICtrlDelete($scritta2) GUICtrlDelete($scritta1) $paint = GUICtrlCreateButton ("1", 80,85,48,48,$BS_ICON) GUICtrlSetImage (-1, "icone.Dll","1") $ie = GUICtrlCreateButton ("2", 185,85,48,48,$BS_ICON) GUICtrlSetImage (-1, "icone.Dll","2") $Ms_Dos = GUICtrlCreateButton ("3", 290,85,48,48,$BS_ICON) GUICtrlSetImage (-1, "icone.Dll","3") $Magnify = GUICtrlCreateButton ("4", 80,140,48,48,$BS_ICON) GUICtrlSetImage (-1, "icone.Dll","4") $WinHelp = GUICtrlCreateButton ("5", 185,140,48,48,$BS_ICON) GUICtrlSetImage (-1, "icone.Dll","5") $Calc = GUICtrlCreateButton ("close", 290,140,48,48,$BS_ICON) GUICtrlSetImage (-1, "icone.Dll","6") $WMP = GUICtrlCreateButton ("1", 345,115,48,48,$BS_ICON) GUICtrlSetImage (-1, "icone.Dll","7") While 1 $iMsg = GUIGetMsg() Select Case $imsg = $paint Run ("mspaint.exe") Case $imsg = $ie ShellExecute ("iexplore.exe") Case $imsg = $Ms_Dos Run ("cmd.exe") Case $imsg = $Magnify Run ("magnify.exe") Case $imsg = $WinHelp Run ("winhelp.exe") Case $imsg = $Calc Run ("Calc.exe") Case $imsg = $WMP ShellExecute ("wmplayer.exe") Case $imsg = $cancelbutton Exit Case $imsg = $Gui_event_close Exit Case $imsg = $exititem Exit Case $imsg = $upgrade ShellExecute ("iexplore.exe", "http://shides.altervista.org/ver_his.htm") EndSelect WEnd EndFunc While 1 $iMsg = GUIGetMsg() Select Case $imsg = $Okbutton _GUIUpdate() Case $imsg = $cancelbutton Exit Case $imsg = $Gui_event_close Exit Case $imsg = $exititem Exit Case $imsg = $aboutitem GUICtrlDelete($scritta2) GUICtrlDelete($scritta1) GUICtrlCreateLabel("Ideatore del Programma:", 10, 20, 500) GUICtrlCreateLabel("Shides", 10,40, 500) GUICtrlCreateLabel("Contatti:", 10,60, 500) GUICtrlCreateLabel("Msn: matrix2192@hotmail.it", 10,75, 500) GUICtrlCreateLabel("E-mail: matrix2192@supereva.it", 10,90, 500) Case $imsg = $upgrade ShellExecute ("iexplore.exe", "http://shides.altervista.org/ver_his.htm") EndSelect WEnd

ok

i have save prospeed.au3 in \AutoIt\Include it's ok?

ok prospeed.dll in windows/system32, but prospeed.udf where?