you can store the info with Pangaea_PostIt and recall it anytime you like. Even rebooting doesn't erase it... ^^
the gui will slide in from the right side, providing a notepad. you can fix the gui (like a postit) or close it with {ESC} or the [x]-button, and it'll slide-out. moving your mouse to the rightmost position will make it reappear.
you can also export the text into a .txt-file
CODE
#include <GUIConstants.au3>
Global $fixed
$main = GUICreate("Pangaea_PostIt",200,400,@desktopwidth - 200,-1,-1,BitOr($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST))
$note = GUICtrlCreateEdit("",0,0,200,376,$ES_WANTRETURN)
$fix = GUICtrlCreateButton("fixed: off",5,378,60,20)
$exp = GUICtrlCreateButton("export",70,378,60,20)
$quit = GUICtrlCreateButton("exit",135,378,60,20)
_read()
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $main, "int", 250, "long", 0x00040002)
$fixed = 0
GUISetState()
While 1
$msg = GUIGetMsg()
$cur = MouseGetPos()
select
case $msg = $GUI_EVENT_CLOSE
_winout()
case $msg = $fix
_fix()
case $msg = $exp
_exp()
case $msg = $quit
_quit()
EndSelect
If $cur[0] > @desktopwidth -2 then _winin()
Wend
Func _winout()
If $fixed = 1 then return
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $main, "int", 250, "long", 0x00050001)
_save()
EndFunc
Func _winin()
If WinGetPos("Pangaea Notepad") = @desktopwidth - 200 then return
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $main, "int", 250, "long", 0x00040002)
EndFunc
Func _fix()
select
case $fixed = 0
GUICtrlSetData($fix,"fixed: on")
$fixed = 1
case $fixed = 1
GUICtrlSetData($fix,"fixed: off")
$fixed = 0
endselect
EndFunc
Func _exp()
_save()
$saveto = FileSaveDialog ("Export to Textfile","","Textfile (*.txt)",24,"my_notes.txt")
If StringRight($saveto,4) <> ".txt" then $saveto = $saveto & ".txt"
$file = FileOpen($saveto, 1)
FileWrite($file, GUICtrlRead($note))
FileClose($file)
EndFunc
Func _save()
FileDelete("C:\test.txt")
$file = FileOpen("C:\test.txt", 1)
FileWrite($file, GUICtrlRead($note))
FileClose($file)
FileSetAttrib("C:\test.txt","H")
EndFunc
Func _read()
$file = FileOpen("C:\test.txt", 0)
$content = ""
While 1
$content = $content & FileRead($file, 1)
If @error = -1 Then ExitLoop
Wend
FileClose($file)
GUICtrlSetData($note,$content)
EndFunc
Func _quit()
_save()
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $main, "int", 500, "long", 0x00090000)
exit
EndFunc
Global $fixed
$main = GUICreate("Pangaea_PostIt",200,400,@desktopwidth - 200,-1,-1,BitOr($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST))
$note = GUICtrlCreateEdit("",0,0,200,376,$ES_WANTRETURN)
$fix = GUICtrlCreateButton("fixed: off",5,378,60,20)
$exp = GUICtrlCreateButton("export",70,378,60,20)
$quit = GUICtrlCreateButton("exit",135,378,60,20)
_read()
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $main, "int", 250, "long", 0x00040002)
$fixed = 0
GUISetState()
While 1
$msg = GUIGetMsg()
$cur = MouseGetPos()
select
case $msg = $GUI_EVENT_CLOSE
_winout()
case $msg = $fix
_fix()
case $msg = $exp
_exp()
case $msg = $quit
_quit()
EndSelect
If $cur[0] > @desktopwidth -2 then _winin()
Wend
Func _winout()
If $fixed = 1 then return
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $main, "int", 250, "long", 0x00050001)
_save()
EndFunc
Func _winin()
If WinGetPos("Pangaea Notepad") = @desktopwidth - 200 then return
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $main, "int", 250, "long", 0x00040002)
EndFunc
Func _fix()
select
case $fixed = 0
GUICtrlSetData($fix,"fixed: on")
$fixed = 1
case $fixed = 1
GUICtrlSetData($fix,"fixed: off")
$fixed = 0
endselect
EndFunc
Func _exp()
_save()
$saveto = FileSaveDialog ("Export to Textfile","","Textfile (*.txt)",24,"my_notes.txt")
If StringRight($saveto,4) <> ".txt" then $saveto = $saveto & ".txt"
$file = FileOpen($saveto, 1)
FileWrite($file, GUICtrlRead($note))
FileClose($file)
EndFunc
Func _save()
FileDelete("C:\test.txt")
$file = FileOpen("C:\test.txt", 1)
FileWrite($file, GUICtrlRead($note))
FileClose($file)
FileSetAttrib("C:\test.txt","H")
EndFunc
Func _read()
$file = FileOpen("C:\test.txt", 0)
$content = ""
While 1
$content = $content & FileRead($file, 1)
If @error = -1 Then ExitLoop
Wend
FileClose($file)
GUICtrlSetData($note,$content)
EndFunc
Func _quit()
_save()
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $main, "int", 500, "long", 0x00090000)
exit
EndFunc
... let me know what you think ...
