a littie scritp to take notes with

[thenewkid]

ive make a littie script that i use every day it can be very usefull all feedback is wellcome and new ideas will be nice i cant think of any

enjoy

expandcollapse popup

Opt("traymenumode",1)
Opt("WinTitleMatchMode", 2)
#include <GuiConstants.au3>

;icon
$shownotes = TrayCreateItem("Show notes")
$exittray = TrayCreateItem("exit")


; main form
$mygui = GuiCreate("my note taker", 119, 20,0,0,$WS_POPUPWINDOW,$WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
$Input_1 = GuiCtrlCreateInput("", 0, 0, 60, 20)
$Button_2 = GuiCtrlCreateButton("make note", 60, 0, 60, 20)
GuiSetState(@SW_HIDE)

; notes form
$Form_notes = GUICreate("", 677, 476, 193, 115,$WS_POPUPWINDOW,$WS_EX_TOOLWINDOW  );+ $WS_EX_TOPMOST)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 673, 449, $ES_READONLY + $ES_WANTRETURN)
$Button_Hide = GUICtrlCreateButton("Hide notes", 0, 456, 75, 17, 0)
$Button_Save = GUICtrlCreateButton("save notes", 600, 456, 75, 17, 0)
$Button_Del = GUICtrlCreateButton("Delete notes", 288, 456, 75, 17, 0)
GuiSetState(@SW_HIDE)

While 1
    ; THE LOOP
$pos = MouseGetPos()
If $pos[0] <= "100" And $pos[1] <= "30" Then
    GUISetState(@SW_SHOW, $mygui)
Else
    GUISetState(@SW_HIDE, $mygui)
EndIf
    
    $msg = GuiGetMsg()
    $msgtray = TrayGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        _Exit()
    Case $msg = $Button_2
        setnotes()
    Case $msgtray = $exittray
        _exit()
    Case $msgtray = $shownotes
        Shownotes()
    Case $msg = $Button_Hide
        GUISetState(@SW_HIDE, $Form_notes)
    Case $msg = $Button_Del
$iMsgBoxAnswer = MsgBox(308,"My note taker","Are you sure you want to delete your notes")
Select
    Case $iMsgBoxAnswer = 6 ;Yes
        GUICtrlSetData($Edit1,"")
    Case $iMsgBoxAnswer = 7 ;No
EndSelect
    Case $msg = $Button_Save
    $read = GUICtrlRead($Edit1)
    FileWrite("My notes", $read)
    MsgBox(0,"my note taker","notes saved")
    EndSelect
WEnd
_exit()

Func _exit()
        $read = GUICtrlRead($Edit1)
    FileWrite("My notes", $read)
    MsgBox(0,"my note taker","notes saved")
    Exit
EndFunc

Func Shownotes()
    MsgBox(0,"my note taker","Your notes are")
    GUISetState(@SW_SHOW, $Form_notes)
EndFunc

Func setnotes()
    $note = GUICtrlRead($Input_1)
    $oldnotes = GUICtrlRead($Edit1)
    GUICtrlSetData($Edit1, $oldnotes & $note & @CRLF)
    GUICtrlSetData($Input_1,"")
    MsgBox(0,"my note taker","Note added")
EndFunc

[idusy]

It doesn't work... You made the edit box read only and it doesn't even read from the saved file...

Edited July 1, 2007 by idusy

[thenewkid]

when you run the script move the mouse to the topleft conner thats how you add notes

and ill make it read from the saved file later today after i finshed one of my other scripts

[realkiller]

Now it should work fine!

expandcollapse popup

Opt("traymenumode",1)
Opt("WinTitleMatchMode", 2)
#include <GuiConstants.au3>

;icon
$shownotes = TrayCreateItem("Show notes")
$exittray = TrayCreateItem("exit")


; main form
$mygui = GuiCreate("my note taker", 119, 20,0,0,$WS_POPUPWINDOW,$WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
$Input_1 = GuiCtrlCreateInput("", 0, 0, 60, 20)
$Button_2 = GuiCtrlCreateButton("make note", 60, 0, 60, 20)
GuiSetState(@SW_HIDE)

; notes form
$Form_notes = GUICreate("", 677, 476, 193, 115,$WS_POPUPWINDOW,$WS_EX_TOOLWINDOW  );+ $WS_EX_TOPMOST)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 673, 449, $ES_WANTRETURN)
$Button_Hide = GUICtrlCreateButton("Hide notes", 0, 456, 75, 17, 0)
$Button_Save = GUICtrlCreateButton("save notes", 600, 456, 75, 17, 0)
$Button_Del = GUICtrlCreateButton("Delete notes", 288, 456, 75, 17, 0)
GuiSetState(@SW_HIDE)

While 1
    ; THE LOOP
$pos = MouseGetPos()
If $pos[0] <= "100" And $pos[1] <= "30" Then
    GUISetState(@SW_SHOW, $mygui)
Else
    GUISetState(@SW_HIDE, $mygui)
EndIf
    
    $msg = GuiGetMsg()
    $msgtray = TrayGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        _Exit()
    Case $msg = $Button_2
        setnotes()
    Case $msgtray = $exittray
        _exit()
    Case $msgtray = $shownotes
        Shownotes()
    Case $msg = $Button_Hide
        GUISetState(@SW_HIDE, $Form_notes)
    Case $msg = $Button_Del
$iMsgBoxAnswer = MsgBox(308,"My note taker","Are you sure you want to delete your notes")
Select
    Case $iMsgBoxAnswer = 6 ;Yes
        GUICtrlSetData($Edit1,"")
    Case $iMsgBoxAnswer = 7 ;No
EndSelect
    Case $msg = $Button_Save
    $read = GUICtrlRead($Edit1)
    FileWrite("My notes", $read)
    MsgBox(0,"my note taker","notes saved")
    EndSelect
WEnd
_exit()

Func _exit()
        $read = GUICtrlRead($Edit1)
    FileWrite("My notes", $read)
    MsgBox(0,"my note taker","notes saved")
    Exit
EndFunc

Func Shownotes()
    MsgBox(0,"my note taker","Your notes are")
    GUISetState(@SW_SHOW, $Form_notes)
EndFunc

Func setnotes()
    $note = GUICtrlRead($Input_1)
    $oldnotes = GUICtrlRead($Edit1)
    GUICtrlSetData($Edit1, $oldnotes & $note & @CRLF)
    GUICtrlSetData($Input_1,"")
    MsgBox(0,"my note taker","Note added")
EndFunc

Edited July 2, 2007 by realkiller