Jump to content

Edipad 1.0

AlmarM

By AlmarM,
in AutoIt Example Scripts

 Share

Recommended Posts

gseller Universalist

gseller

Posted
Posted

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...

#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
Link to comment
Share on other sites
gseller Universalist

gseller

Posted
Posted

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.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...