Описание:
Виртуальная клавиатура для быстрого ввода самых распространенных операторов, выражений, служебных слов при работе в SciTE.
Код сыроват, необходима конструктивная критика 8)
Виртуальная клавиатура для быстрого ввода самых распространенных операторов, выражений, служебных слов при работе в SciTE.
Код сыроват, необходима конструктивная критика 8)
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$WS_EX_NOACTIVATE = 0x08000000
$iWidth = 150
$iHeight = 530
$Form = GUICreate("AuKlava", $iWidth, $iHeight, -1, -1,$WS_POPUPWINDOW,BitOR($WS_EX_TOPMOST, $WS_EX_NOACTIVATE))
$nClose_Button = GUICtrlCreateButton("X", $iWidth - 19, 3, 16, 16)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlCreateLabel("", 0, 0, $iWidth, 20, $WS_CLIPSIBLINGS, BitOR($WS_EX_DLGMODALFRAME, $GUI_WS_EX_PARENTDRAG))
GUICtrlSetBkColor(-1, 0x9D9DFF)
$Button1 = GUICtrlCreateButton("( )", 8, 64, 65, 33, 0)
$Button2 = GUICtrlCreateButton("( ", 8, 27, 29, 33, 0)
$Button3 = GUICtrlCreateButton(")", 42, 27, 29, 33, 0)
$Button4 = GUICtrlCreateButton("'", 8, 102, 29, 33, 0)
$Button5 = GUICtrlCreateButton('"', 42, 102, 29, 33, 0)
$Button6 = GUICtrlCreateButton("' '", 8, 139, 65, 33, 0)
$Button7 = GUICtrlCreateButton('" "', 8, 177, 65, 33, 0)
$Button8 = GUICtrlCreateButton("$", 8, 213, 29, 33, 0)
$Button9 = GUICtrlCreateButton("ap", 42, 213, 29, 33, 0)
$Button10 = GUICtrlCreateButton("< >", 79, 64, 65, 33, 0)
$Button11 = GUICtrlCreateButton("*", 79, 102, 29, 33, 0)
$Button12 = GUICtrlCreateButton("<", 79, 27, 29, 33, 0)
$Button13 = GUICtrlCreateButton(">", 113, 27, 29, 33, 0)
$Button14 = GUICtrlCreateButton(";", 8, 250, 29, 33, 0)
$Button15 = GUICtrlCreateButton("+", 113, 102, 29, 33, 0)
$Button16 = GUICtrlCreateButton("/", 79, 139, 29, 33, 0)
$Button17 = GUICtrlCreateButton("=", 42, 250, 29, 33, 0)
$Button18 = GUICtrlCreateButton("-", 113, 139, 29, 33, 0)
$Button19 = GUICtrlCreateButton("=<", 79, 177, 65, 33, 0)
$Button20 = GUICtrlCreateButton(">=", 79, 213, 65, 33, 0)
$Button21 = GUICtrlCreateButton("IF", 8, 346, 65, 33, 0)
$Button22 = GUICtrlCreateButton("While", 8, 382, 65, 33, 0)
$Button23 = GUICtrlCreateButton("IF Else", 79, 346, 65, 33, 0)
$Button24 = GUICtrlCreateButton("Sleep()", 8, 456, 65, 33, 0)
$Button25 = GUICtrlCreateButton("FOR", 8, 420, 65, 33, 0)
$Button26 = GUICtrlCreateButton("Func", 9, 493, 65, 33, 0)
$Button27 = GUICtrlCreateButton("Select", 79, 382, 65, 33, 0)
$Button28 = GUICtrlCreateButton("Switch", 80, 420, 65, 33, 0)
$Button29 = GUICtrlCreateButton("#include", 81, 457, 65, 33, 0)
$Button30 = GUICtrlCreateButton("{ }", 79, 250, 65, 33, 0)
$Button31 = GUICtrlCreateButton("[ ]", 79, 288, 65, 33, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $nClose_Button
Exit
Case $Button1
Send("(){LEFT}")
Case $Button2
Send("(")
Case $Button3
Send(")")
Case $Button4
Send("{ASC 39}")
Case $Button5
Send("{ASC 34}")
Case $Button6
Send("{ASC 39}{ASC 39}{LEFT}")
Case $Button7
Send(("{ASC 34}{ASC 34}{LEFT}"))
Case $Button8
Send("{ASC 36}")
Case $Button9
Send("{ASC 38}")
Case $Button10
Send("{ASC 60}{ASC 62}")
Case $Button11
Send("{ASC 42}")
Case $Button12
Send("{ASC 60}")
Case $Button13
Send("{ASC 62}")
Case $Button14
Send("{ASC 59}")
Case $Button15
Send("{ASC 43}")
Case $Button16
Send("{ASC 47}")
Case $Button17
Send("{ASC 61}")
Case $Button18
Send("{ASC 45}")
Case $Button19
Send("{ASC 61}{ASC 60}")
Case $Button20
Send("{ASC 62}{ASC 61}")
Case $Button21
Send("If Then{ASC 013}{ASC 013}Endif{esc}{up}")
Case $Button22
Send("While 1{ASC 010}{ASC 010}{BS}WEnd{esc}{up}{BS}")
Case $Button23
Send("If Then{ASC 013}{ASC 013}Else{ASC 013}{ASC 013}Endif{esc}{up 3}")
Case $Button24
Send("Sleep(){LEFT}{esc}")
Case $Button25
Send("For To{ASC 013}{ASC 013}Next{esc}{up 2}")
Case $Button26
Send("Func{ASC 013}{ASC 013}EndFunc{esc}{up 2} {ASC 95}(){LEFT 2}")
Case $Button27
Send("Select{ASC 013}Case{ASC 013}{ASC 013}EndSelect{esc}{up 2}{ASC 32}")
Case $Button28
Send("Switch{ASC 013}Case{ASC 013}{ASC 013}EndSwitch{esc}{up 3}{ASC 32}")
Case $Button29
Send("{ASC 35}include <>{LEFT}")
Case $Button30
Send("{ASC 123}{ASC 125}{LEFT}")
Case $Button31
Send("{ASC 91}{ASC 93}{LEFT}")
EndSwitch
WEnd
