Pacho
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
#NoTrayIcon
#include <Constants.au3>
#include <WindowsConstants.au3>
Opt('MustDeclareVars', 1)
Opt('TrayMenuMode', 1+2)
Opt('TrayAutoPause', 0)
Opt('TrayIconDebug', 1)
Global Const $sTitle = 'Заголовок'
Local Const $sIniFile = @ScriptDir&'\hot_keys.ini'
If FileExists($sIniFile) Then
Local $hFile = FileOpen($sIniFile, 0)
Global $sPath = FileReadLine($hFile)
Global $sUp = FileReadLine($hFile)
Global $sDown = FileReadLine($hFile)
FileClose($hFile)
Else
Global $sPath = ''
EndIf
Local $hSettings = TrayCreateItem('Настройки')
TrayCreateItem('')
Local $hExitItem = TrayCreateItem('Выход')
TraySetState()
HotKeySet('x', 'Terminate') ; Выход
HotKeySet($sUp, 'Up')
HotKeySet($sDown, 'Down')
Local $iWidth = 200
Local $iHeight = 200
Opt('GUIOnEventMode', 1)
While True
Switch TrayGetMsg()
Case $hSettings
GUICreate($sTitle, $iWidth, $iHeight, (@DesktopWidth-$iWidth)/2, (@DesktopHeight-$iHeight)/2, BitOr($WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_MINIMIZEBOX), $WS_EX_TOPMOST)
Local $hButtonOK = GUICtrlCreateButton('OK', 3, 165, 65, 22)
Local $hButtonApply = GUICtrlCreateButton('Применить', 68, 165, 65, 22)
Local $hButtonCancel = GUICtrlCreateButton('Отмена', 133, 165, 65, 22)
GUICtrlCreateTab(2, 2, $iWidth-2, $iHeight-50)
GUICtrlCreateTabItem('Основные')
Local $hButtonPath = GUICtrlCreateButton('Путь', 5, 30, 70, 20)
Global $hInputPath = GUICtrlCreateInput($sPath, 77, 30, 117, 20)
GUICtrlCreateTabItem('Горяие клавиши')
GUICtrlCreateLabel('Вверх:', 8, 35)
Global $hInputUp = GUICtrlCreateInput($sUp, 77, 30, 50, 20)
GUICtrlCreateLabel('Вниз:', 8, 60)
Global $hInputDown = GUICtrlCreateInput($sDown, 77, 55, 50, 20)
GUISetOnEvent(-3, 'CloseClicked')
GUICtrlSetOnEvent($hButtonPath, 'SelectFolder')
GUICtrlSetOnEvent($hButtonOK, 'SaveSettings')
GUICtrlSetOnEvent($hButtonApply, 'Apply')
GUICtrlSetOnEvent($hButtonCancel, 'CloseClicked')
GUISetState(@SW_SHOW)
Case $hExitItem
Terminate()
EndSwitch
WEnd
Func CloseClicked()
GUIDelete()
EndFunc
Func SelectFolder()
Local $sStr = FileSelectFolder('Укажите путь к файлу', '', 4, $sPath)
If $sStr <> '' Then GUICtrlSetData($hInputPath, $sStr)
EndFunc
Func Apply()
Local $hFile = FileOpen($sIniFile, 2)
$sPath = GUICtrlRead($hInputPath)
FileWriteLine($hFile, $sPath)
$sUp = GUICtrlRead($hInputUp)
FileWriteLine($hFile, $sUp)
$sDown = GUICtrlRead($hInputDown)
FileWriteLine($hFile, $sDown)
FileClose($hFile)
HotKeySet($sUp, 'Up')
HotKeySet($sDown, 'Down')
EndFunc
Func SaveSettings()
Apply()
GUIDelete()
EndFunc
Func Up()
MsgBox(0, $sTitle, 'Вверх')
EndFunc
Func Down()
MsgBox(0, $sTitle, 'Вниз')
EndFunc
Func Terminate()
Exit
EndFunc |
