55 lines
1.7 KiB
AutoIt
55 lines
1.7 KiB
AutoIt
|
#include <EditConstants.au3>
|
||
|
|
#include <GUIConstantsEx.au3>
|
||
|
|
#include <WindowsConstants.au3>
|
||
|
|
#include "MetroGUI-UDF\MetroGUI_UDF.au3"
|
||
|
|
#include "TyleoAboutMe.au3"
|
||
|
|
#include "WindowsLCA.au3"
|
||
|
|
|
||
|
|
$CurrentVer = FileGetVersion(@AutoItExe)
|
||
|
|
$Progname = "Modern Note " & $CurrentVer
|
||
|
|
|
||
|
|
Global $Note = GUICreate("Modern Note", 264, 189, 234, 184)
|
||
|
|
GUISetBkColor($CurrentAccent)
|
||
|
|
|
||
|
|
|
||
|
|
Global $File = GUICtrlCreateMenu("File")
|
||
|
|
Global $File_Open = GUICtrlCreateMenuItem("Open Note" & @TAB & "NTT",$File)
|
||
|
|
Global $File_Save = GUICtrlCreateMenuItem("Save Note" & @TAB & "NTT",$File)
|
||
|
|
Global $File_Save_As = GUICtrlCreateMenuItem("Save Note As..." & @TAB & "NTT",$File)
|
||
|
|
|
||
|
|
Global $File_Export = GUICtrlCreateMenu("Export",$File)
|
||
|
|
Global $File_Export_TXT = GUICtrlCreateMenuItem("Text File" & @TAB & "TXT",$File_Export)
|
||
|
|
Global $File_Export_PDF = GUICtrlCreateMenuItem("PDF File" & @TAB & "PDF",$File_Export)
|
||
|
|
|
||
|
|
|
||
|
|
Global $Edition = GUICtrlCreateMenu("Edition")
|
||
|
|
Global $Edition_SelectAll = GUICtrlCreateMenuItem("Select All",$Edition)
|
||
|
|
|
||
|
|
|
||
|
|
Global $Configuration = GUICtrlCreateMenu("Configuration")
|
||
|
|
Global $Configuration_Font = GUICtrlCreateMenuItem("Change Font",$Configuration)
|
||
|
|
|
||
|
|
|
||
|
|
Global $About = GUICtrlCreateMenu("About")
|
||
|
|
Global $About_About = GUICtrlCreateMenuItem("About Me",$About)
|
||
|
|
Global $About_Ver = GUICtrlCreateMenuItem($CurrentVer,$About)
|
||
|
|
|
||
|
|
GUICtrlSetState($About_Ver,$GUI_DISABLE)
|
||
|
|
Global $NoteEditor = GUICtrlCreateEdit("", 4, 4, 255, 160, BitOR($ES_WANTRETURN, $WS_VSCROLL))
|
||
|
|
GUICtrlSetData(-1, "")
|
||
|
|
GUISetState(@SW_SHOW)
|
||
|
|
|
||
|
|
$ButtonBKColor = $CurrentAccent
|
||
|
|
|
||
|
|
|
||
|
|
While 1
|
||
|
|
$nMsg = GUIGetMsg()
|
||
|
|
Switch $nMsg
|
||
|
|
Case $GUI_EVENT_CLOSE
|
||
|
|
Exit
|
||
|
|
Case $About_About
|
||
|
|
TyleoAbout($Progname)
|
||
|
|
|
||
|
|
EndSwitch
|
||
|
|
WEnd
|