Edipad 1.0

[JustinReno]

Haha, its ok.

[gseller]

First off you have to remove your onevent commands like line 11

Opt("GUIOnEventMode", 1)

and line 47

GUISetOnEvent($GUI_EVENT_CLOSE, "Close")

This will allow your context menu to work.

For undo you had to add line 6

#Include <GuiEdit.au3>

declare the undo areas

$dummy = ""

$dummy2 = ""

and change the Case to use line 75

Case $Undo

$dummy2 = GUICtrlRead($Typ_Box)

GUICtrlSetData($Typ_Box, $dummy)

$dummy = $dummy2

This last little bit is courtasy of Valuater, so you can give thanks to him...

expandcollapse popup

#include <GUIConstants.au3>
#include <String.au3>
#include <Misc.au3>
#include <File.au3>
#include "GUIEnhance.au3"
#Include <GuiEdit.au3>


HotKeySet("^n", "New")
HotKeySet("^o", "Open")
HotKeySet("^s", "Save")
HotKeySet("^p", "Print")
;Opt("GUIOnEventMode", 1)

;BASIC STUFF
$Form_1 = GUICreate("", 600, 600, -1, -1, $WS_OVERLAPPEDWINDOW, $WS_MAXIMIZEBOX)
$Typ_Box = GUICtrlCreateEdit("", 0, 0, 598, 598)
;FILE MENU STUFF
$File_Menu = GUICtrlCreateMenu("File") 
$New = GUICtrlCreateMenuItem("New", $File_Menu) 
$Open = GUICtrlCreateMenuItem("Open", $File_Menu)
$Save = GUICtrlCreateMenuItem("Save", $File_Menu) 
$File_Menu_Line_1 = GUICtrlCreateMenuItem("", $File_Menu) 
$Print = GUICtrlCreateMenuItem("Print", $File_Menu) 
$File_Menu_Line_2 = GUICtrlCreateMenuItem("", $File_Menu)
$Exit = GUICtrlCreateMenuItem("Exit", $File_Menu) 
;EDIT MENU STUFF
$Edit_Menu = GUICtrlCreateMenu("Edit") 
$Undo = GUICtrlCreateMenuItem("Undo", $Edit_Menu)
$Edit_Menu_Line_1 = GUICtrlCreateMenuItem("", $Edit_Menu)
$Cut = GUICtrlCreateMenuItem("Cut", $Edit_Menu)
$Copy = GUICtrlCreateMenuItem("Copy", $Edit_Menu)
$Paste = GUICtrlCreateMenuItem("Paste", $Edit_Menu)
$Delete = GUICtrlCreateMenuItem("Delete", $Edit_Menu)
;ABOUT/HELP
$About_Menu = GUICtrlCreateMenu("About")
$About = GUICtrlCreateMenuItem("About", $About_Menu)
$KeyList = GUICtrlCreateMenuItem("Shortcut List", $About_Menu)
;EXTRA
$Extra_Menu = GUICtrlCreateMenu("Extra")
$Text_Reverse = GUICtrlCreateMenuItem("Reverse Text", $Extra_Menu)
$Count = GUICtrlCreateMenuItem("Count Words", $Extra_Menu)
$Au3_Save = GUICtrlCreateMenuItem("Save as .au3", $Extra_Menu) 
$Txt_Save = GUICtrlCreateMenuItem("Save as .txt", $Extra_Menu)

_GUIEnhanceAnimateWin ($Form_1, 1000, $GUI_EN_ANI_FADEIN)
_GUIEnhanceAnimateTitle ($Form_1, "Edipad 1.0 ~~ By AlmarM", $GUI_EN_TITLE_DROP)

$dummy = ""
$dummy2 = ""
GUISetState()
;GUISetOnEvent($GUI_EVENT_CLOSE, "Close")

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $New
 New()

Case $Open
 Open()

Case $Save
 Save()
 
Case $Print
 Print()

Case $Exit
 Quit()
 
Case $Undo
         $dummy2 = GUICtrlRead($Typ_Box)
         GUICtrlSetData($Typ_Box, $dummy)
         $dummy = $dummy2

Case $Cut
 Send("^x") 

Case $Copy
 Send("^c") 

Case $Paste
 Send("^v") 

Case $Delete
 Send("{DELETE}") 

Case $About
 About()

Case $KeyList
 KeyList()
 
Case $Text_Reverse
 Text_Reverse()
 
Case $Count
 Count()

Case $Au3_Save
 Au3_Save()
 
Case $Txt_Save
 Txt_Save()
EndSwitch
WEnd

Func New()
$msg = MsgBox(20, "Edipad", "Do you want to save the current file ?")
            If $msg = 7 Then
                WinSetTitle("Edipad", "", "Edipad")
                GUICtrlSetData($Typ_Box, "")
            EndIf
            If $msg = 6 Then
                $Readtypbox1 = GUICtrlRead($Typ_Box)
                $FileSaveDialog = FileSaveDialog("Save Edipad File", "", "Edipad Files (*.edi*)")
                GUICtrlSetData($Typ_Box, "Please wait while the file is saved...")
                FileDelete($FileSaveDialog)
    $docen = "PUT YOUR OWN KEY HERE"
    $Encrypt = _StringEncrypt(1, $Readtypbox1, $docen, 3)
                $FileSaveDialog &= ".edi"
    $FileSaveDialog = StringReplace($FileSaveDialog, ".edi.edi", ".edi")
    FileWrite($FileSaveDialog, $Readtypbox1)
                WinSetTitle("Edipad", "", "Edipad")
                GUICtrlSetData($Typ_Box, $Readtypbox1)
                GUICtrlSetData($Typ_Box, "")
            EndIf
EndFunc

Func Open()
            $msg = MsgBox(20, "Edipad 1.0", "Do you want to save the current file?")
            If $msg = 7 Then
                $FileOpen = FileOpenDialog("Open EDI File", "", "Edipad 1.0 Files (*.edi)")
                WinSetTitle("Edipad 1.0", "", "Edipad 1.0 - " & $FileOpen & "")
                GUICtrlSetData($Typ_Box, "Please wait while the file is unencrypted...")
                $DeFile = FileRead($FileOpen)
                $Docde = "PUT YOUR OWN KEY HERE"
                $Decrypt = _StringEncrypt(0, $DeFile, $Docde, 3)
                GUICtrlSetData($Typ_Box, $Decrypt)
            EndIf
            If $msg = 6 Then
                $Readtypbox1 = GUICtrlRead($Typ_Box)
                $FileSaveDialog = FileSaveDialog("Save SNF File", "", "Simple Notepad Files(*.SNF)")
                GUICtrlSetData($Typ_Box, "Please wait while the file is encrypted and saved...")
                FileDelete($FileSaveDialog)
                $docen = "PUT YOUR OWN KEY HERE"
                $Encrypt = _StringEncrypt(1, $Readtypbox1, $docen, 3)
                $FileSaveDialog &= ".edi"
                $FileSaveDialog = StringReplace($FileSaveDialog, ".edi.edi", ".edi")
                FileWrite($FileSaveDialog, $Encrypt)
                WinSetTitle("Simple Notepad", "", "Simple Notepad - " & $FileSaveDialog & "")
                GUICtrlSetData($Typ_Box, $Readtypbox1)
                MsgBox(0, "Edipad 1.0", "File Saved.")
                $FileOpen = FileOpenDialog("Open edi File", "", "Edipad 1.0 Files (*.edi)")
                WinSetTitle("Edipad 1.0", "", "Edipad 1.0 - " & $FileOpen & "")
                GUICtrlSetData($Typ_Box, "Please wait while the file is unencrypted...")
                $DeFile = FileRead($FileOpen)
                $Docde = "PUT YOUR OWN KEY HERE"
                $Decrypt = _StringEncrypt(0, $DeFile, $Docde, 3)
                GUICtrlSetData($Typ_Box, $Decrypt)
   EndIf
EndFunc 

Func Save()
            $Readtypbox1 = GUICtrlRead($Typ_Box)
            $FileSaveDialog = FileSaveDialog("Save EDI File", "", "Edipad Files (*.edi*)")
            GUICtrlSetData($Typ_Box, "Please wait while the file is saved...")
            FileDelete($FileSaveDialog)
            $docen = "PUT YOUR OWN KEY HERE"
            $Encrypt = _StringEncrypt(1, $Readtypbox1, $docen, 3)
            $FileSaveDialog &= ".edi"
            $FileSaveDialog = StringReplace($FileSaveDialog, ".edi.edi", ".edi")
            FileWrite($FileSaveDialog, $Encrypt)
            WinSetTitle("Edipad 1.0", "", "Edipad 1.0 - " & $FileSaveDialog & "")
            GUICtrlSetData($Typ_Box, $Readtypbox1)
EndFunc

Func Print()
            $Readeditprint = GUICtrlRead($1Edit)
            $Filewriteprint = FileWrite(@TempDir & "\printtest.txt", $Readeditprint)
            $File = @TempDir & "\printtest.txt"
            _FilePrint($File)
            Sleep(500)
            FileDelete(@TempDir & "\printtest.txt")
EndFunc

Func Quit()
Exit
EndFunc

Func About()
MsgBox(0, "About", "Edipad 1.0 by: AlmarM" & @CRLF & "Visit [url="http://www.autoitscriping.com"]www.autoitscriping.com[/url]")
EndFunc

Func KeyList()
MsgBox(0, "Key list", "CTRL + N = New" & @CRLF & "CTRL + O = Open" & @CRLF & "CTRL + S = Save" & @CRLF & "CTRL + P = Print") 
EndFunc

Func Text_Reverse()
$ReverseRead = GUICtrlRead($Typ_Box)
$Reverse = _StringReverse($ReverseRead)
GUICtrlSetData($Typ_Box, $Reverse)
EndFunc

Func Count()
$Find_Words = GUICtrlRead($Typ_Box)
$Word_Split = StringSplit($Find_Words, " ")
$Words = $Word_Split[0]
$All_Words = $Words
MsgBox(0, "Edipad Wordcount", "You have writed > " & $All_Words & " < words") 
EndFunc

Func Au3_Save()
$FileSaveDialog = Filesavedialog("Save AutoIT File", "","AutoIT Files (*.au3*)", 2, "")
$Text = GuiCtrlRead($Typ_Box) 
$FileSaveDialog &= ".au3"
$FileSaveDialog = StringReplace($FileSaveDialog, ".au3.au3", ".au3")
FileWrite($FileSaveDialog, $Text)
WinSetTitle("Edipad 1.0", "", "Edipad 1.0 - " & $FileSaveDialog & "")
GUICtrlSetData($Typ_Box, $Text)
EndFunc

Func Txt_Save()
$FileSaveDialog = Filesavedialog("Save text files", "","Text Files (*.txt*)", 2, "")
$Text = GuiCtrlRead($Typ_Box) 
$FileSaveDialog &= ".txt"
$FileSaveDialog = StringReplace($FileSaveDialog, ".txt.txt", ".txt")
FileWrite($FileSaveDialog, $Text)
WinSetTitle("Edipad 1.0", "", "Edipad 1.0 - " & $FileSaveDialog & "")
GUICtrlSetData($Typ_Box, $Text)
EndFunc

Func Close()
 _GUIEnhanceAnimateWin ($Form_1, 700, $GUI_EN_ANI_FADEOUT)
 Exit
EndFunc   ;==>Close

[JustinReno]

For the Undo, why not just do it the easy easy way?

GuictrlEditUndo?

[gseller]

For the Undo, why not just do it the easy easy way?

GuictrlEditUndo?

Cause this one works so well... I was gonna use _GUICtrlEditUndo but Valuater showed me this.. _GUICtrlEditUndo is groovy on just text occurences in the edit but would not undo the numerical funtions.