#include HotKeySet("#x","_winin") Global $fixed $fixed = 0 $main = GUICreate("Pangaea Notepad",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) 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