From c4bce3b96dce14eb7976935112c26cf85311e9f5 Mon Sep 17 00:00:00 2001
From: Sam A <98753696+samfisherirl@users.noreply.github.com>
Date: Wed, 12 Jun 2024 17:53:18 -0400
Subject: [PATCH] Add files via upload
---
important/MacroCreator.ahk | 20633 +++++++++++++++++------------------
1 file changed, 10314 insertions(+), 10319 deletions(-)
diff --git a/important/MacroCreator.ahk b/important/MacroCreator.ahk
index 7634088..041f7e8 100644
--- a/important/MacroCreator.ahk
+++ b/important/MacroCreator.ahk
@@ -110,12 +110,12 @@ SetTimer, READER, 10
; Tray menu:
Menu, Tray, Tip, Pulovers's Macro Creator
DefaultIcon := (A_IsCompiled) ? A_ScriptFullPath
- : (FileExist(A_ScriptDir "\Resources\PMC4_Mult.ico") ? A_ScriptDir "\Resources\PMC4_Mult.ico" : A_AhkPath)
+ : (FileExist(A_ScriptDir "\Resources\PMC4_Mult.ico") ? A_ScriptDir "\Resources\PMC4_Mult.ico" : A_AhkPath)
Menu, Tray, Icon, %DefaultIcon%, 1, 1
; Loading SciLexer DLL:
SciDllPath := (A_IsCompiled) ? (A_ScriptDir "\SciLexer.dll")
- : (A_ScriptDir ((A_PtrSize = 8) ? "\SciLexer-x64.dll" : "\SciLexer-x86.dll"))
+ : (A_ScriptDir ((A_PtrSize = 8) ? "\SciLexer-x64.dll" : "\SciLexer-x86.dll"))
DllCall("LoadLibrary", "Str", SciDllPath)
IfNotExist, %SciDllPath%
@@ -708,8 +708,8 @@ CurrentLang := Lang
AppName := "Pulover's Macro Creator"
HeadLine := "; This script was created using Pulover's Macro Creator`n; www.macrocreator.com"
PmcHead := "/*"
-. "`nPMC File Version " CurrentVersion
-. "`n---[Do not edit anything in this section]---`n`n"
+ . "`nPMC File Version " CurrentVersion
+ . "`n---[Do not edit anything in this section]---`n`n"
If (KeepDefKeys = 1)
DefAutoKey := AutoKey, DefManKey := ManKey
@@ -832,7 +832,7 @@ Loop, Parse, FileCmdList, |
Menu, m_File, Add, %A_LoopField%, HelpB
}
Else If (InStr(A_LoopField, "Sort")=1 || InStr(A_LoopField, "String")=1
- || InStr(A_LoopField, "Split")=1)
+ || InStr(A_LoopField, "Split")=1)
{
If (InStr(A_LoopField, "Left") || InStr(A_LoopField, "Lower"))
{
@@ -847,7 +847,7 @@ Loop, Parse, FileCmdList, |
RunList_String .= A_LoopField "|"
}
Else If (!InStr(A_LoopField, "Run") && (InStr(A_LoopField, "Wait")
- || (A_LoopField = "Input")))
+ || (A_LoopField = "Input")))
{
Menu, m_Wait, Add, %A_LoopField%, HelpB
RunList_Wait .= A_LoopField "|"
@@ -1053,26 +1053,26 @@ Gui, Add, Hotkey, hwndhAbortKey vAbortKey, %AbortKey%
Gui, Add, Hotkey, hwndhPauseKey vPauseKey, %PauseKey%
Gui, Add, Checkbox, Section -Wrap Checked%BarInfo% y+316 xm W25 H23 hwndhBarInfo vBarInfo gBarInfo 0x1000
- ILButton(hBarInfo, ResDllPath ":" 29)
+ILButton(hBarInfo, ResDllPath ":" 29)
Gui, Add, Checkbox, -Wrap ys x+0 W25 H23 hwndhBarEdit vBarEdit gBarEdit 0x1000
- ILButton(hBarEdit, ResDllPath ":" 14)
+ILButton(hBarEdit, ResDllPath ":" 14)
Gui, Add, Text, -Wrap y+4 x+5 W85 R1 Right vRepeat Hidden, %w_Lang015%:
Gui, Add, Edit, ys-3 x+10 W75 R1 vRept Hidden
Gui, Add, UpDown, vTimesM 0x80 Range0-999999999 Hidden, 1
Gui, Add, Button, -Wrap ys-4 x+0 W25 H23 hwndhApplyT vApplyT gApplyT Hidden
- ILButton(hApplyT, ResDllPath ":" 1)
+ILButton(hApplyT, ResDllPath ":" 1)
Gui, Add, Text, W2 H25 ys-3 x+5 0x11 vSeparator1 Hidden
Gui, Add, Text, -Wrap x+5 ys W85 R1 Right vDelayT Hidden, %w_Lang016%:
Gui, Add, Edit, ys-3 x+10 W75 R1 vDelay Hidden
Gui, Add, UpDown, vDelayG 0x80 Range0-999999999 Hidden, %DelayG%
Gui, Add, Button, -Wrap ys-4 x+0 W25 H23 hwndhApplyI vApplyI gApplyI Hidden
- ILButton(hApplyI, ResDllPath ":" 1)
+ILButton(hApplyI, ResDllPath ":" 1)
Gui, Add, Text, W2 H25 ys-3 x+5 0x11 vSeparator2 Hidden
Gui, Add, Hotkey, ys-3 x+5 W150 vsInput Hidden
Gui, Add, Button, -Wrap ys-4 x+0 W25 H23 hwndhApplyL vApplyL gApplyL Hidden
- ILButton(hApplyL, ResDllPath ":" 31)
+ILButton(hApplyL, ResDllPath ":" 31)
Gui, Add, Button, -Wrap ys-4 x+5 W25 H23 hwndhInsertKey vInsertKey gInsertKey Hidden
- ILButton(hInsertKey, ResDllPath ":" 91)
+ILButton(hInsertKey, ResDllPath ":" 91)
Gui, Add, Link, -Wrap ys xs+55 W125 R1 vTHotkeyTip gEditSelectedMacro, % "Hotkey: " o_AutoKey[A_List]
Gui, Add, Text, W2 H25 ys-3 x+5 0x11 vSeparator3
Gui, Add, Link, -Wrap ys x+5 W125 R1 vContextTip gSetWin, Global #If: %IfDirectContext%
@@ -1284,52 +1284,52 @@ return
;##### Toolbars #####
DefineToolbars:
-TB_Define(TbFile, hTbFile, hIL, DefaultBar.File, DefaultBar.FileOpt)
-TB_Define(TbRecPlay, hTbRecPlay, hIL, DefaultBar.RecPlay, DefaultBar.RecPlayOpt)
-TB_Define(TbCommand, hTbCommand, hIL, DefaultBar.Command, DefaultBar.CommandOpt)
-TB_Define(TbEdit, hTbEdit, hIL, DefaultBar.Edit, DefaultBar.EditOpt)
-TB_Define(TbSettings, hTbSettings, hIL, DefaultBar.Settings, DefaultBar.SetOpt)
-TB_Define(TbOSC, hTbOSC, hIL_Icons, FixedBar.OSC, FixedBar.OSCOpt)
-TB_Edit(TbOSC, "ProgBarToggle", ShowProgBar)
-RbMain := New Rebar(hRbMain)
-TB_Rebar(RbMain, TbFile_ID, TbFile), TB_Rebar(RbMain, TbRecPlay_ID, TbRecPlay), TB_Rebar(RbMain, TbCommand_ID, TbCommand)
-RbMain.InsertBand(hFindList, 0, "", 6, "", 150, 0, "", 22, 50)
-RbMain.InsertBand(hTimesCh, 0, "FixedSize NoGripper", 11, w_Lang011 " (" t_Lang004 ")", 75 * (A_ScreenDPI/96), 0, "", 22, 75 * (A_ScreenDPI/96))
-TB_Rebar(RbMain, TbEdit_ID, TbEdit, "Break"), TB_Rebar(RbMain, TbSettings_ID, TbSettings)
-RbMain.InsertBand(hAutoKey, 0, "", 7, w_Lang005, 50, 0, "", 22, 50)
-RbMain.InsertBand(hManKey, 0, "", 8, w_Lang007, 50, 0, "", 22, 50)
-RbMain.InsertBand(hAbortKey, 0, "", 9, w_Lang008, 60, 0, "", 22, 50)
-RbMain.InsertBand(hPauseKey, 0, "", 10, c_Lang003, 60, 0, "", 22, 50)
-RbMain.SetMaxRows(3)
-TBHwndAll := [TbFile, TbRecPlay, TbCommand, TbEdit, TbSettings, tbPrev, tbPrevF, TbOSC]
-RBIndexTB := [1, 2, 3, 4, 5], RBIndexHK := [7, 8, 9, 10]
-Default_Layout := RbMain.GetLayout()
-Loop, Parse, Default_Layout, |
- l_Band%A_Index% := A_LoopField
-If (MainLayout = "ERROR")
-{
- If (UserLayout = "ERROR")
- {
- ShowWelcome := true
- SetTimer, SetBestFitLayout, -1
+ TB_Define(TbFile, hTbFile, hIL, DefaultBar.File, DefaultBar.FileOpt)
+ TB_Define(TbRecPlay, hTbRecPlay, hIL, DefaultBar.RecPlay, DefaultBar.RecPlayOpt)
+ TB_Define(TbCommand, hTbCommand, hIL, DefaultBar.Command, DefaultBar.CommandOpt)
+ TB_Define(TbEdit, hTbEdit, hIL, DefaultBar.Edit, DefaultBar.EditOpt)
+ TB_Define(TbSettings, hTbSettings, hIL, DefaultBar.Settings, DefaultBar.SetOpt)
+ TB_Define(TbOSC, hTbOSC, hIL_Icons, FixedBar.OSC, FixedBar.OSCOpt)
+ TB_Edit(TbOSC, "ProgBarToggle", ShowProgBar)
+ RbMain := New Rebar(hRbMain)
+ TB_Rebar(RbMain, TbFile_ID, TbFile), TB_Rebar(RbMain, TbRecPlay_ID, TbRecPlay), TB_Rebar(RbMain, TbCommand_ID, TbCommand)
+ RbMain.InsertBand(hFindList, 0, "", 6, "", 150, 0, "", 22, 50)
+ RbMain.InsertBand(hTimesCh, 0, "FixedSize NoGripper", 11, w_Lang011 " (" t_Lang004 ")", 75 * (A_ScreenDPI/96), 0, "", 22, 75 * (A_ScreenDPI/96))
+ TB_Rebar(RbMain, TbEdit_ID, TbEdit, "Break"), TB_Rebar(RbMain, TbSettings_ID, TbSettings)
+ RbMain.InsertBand(hAutoKey, 0, "", 7, w_Lang005, 50, 0, "", 22, 50)
+ RbMain.InsertBand(hManKey, 0, "", 8, w_Lang007, 50, 0, "", 22, 50)
+ RbMain.InsertBand(hAbortKey, 0, "", 9, w_Lang008, 60, 0, "", 22, 50)
+ RbMain.InsertBand(hPauseKey, 0, "", 10, c_Lang003, 60, 0, "", 22, 50)
+ RbMain.SetMaxRows(3)
+ TBHwndAll := [TbFile, TbRecPlay, TbCommand, TbEdit, TbSettings, tbPrev, tbPrevF, TbOSC]
+ RBIndexTB := [1, 2, 3, 4, 5], RBIndexHK := [7, 8, 9, 10]
+ Default_Layout := RbMain.GetLayout()
+ Loop, Parse, Default_Layout, |
+ l_Band%A_Index% := A_LoopField
+ If (MainLayout = "ERROR")
+ {
+ If (UserLayout = "ERROR")
+ {
+ ShowWelcome := true
+ SetTimer, SetBestFitLayout, -1
+ }
+ return
}
- return
-}
-Loop, 3
- RbMain.SetLayout(MainLayout)
-Loop, % RbMain.GetBandCount()
- RbMain.ShowBand(RbMain.IDToIndex(A_Index), ShowBand%A_Index%)
-BtnsArray := []
-If (FileLayout != "ERROR")
- TB_Layout(TbFile, FileLayout, TbFile_ID)
-If (RecPlayLayout != "ERROR")
- TB_Layout(TbRecPlay, RecPlayLayout, TbRecPlay_ID)
-If (CommandLayout != "ERROR")
- TB_Layout(TbCommand, CommandLayout, TbCommand_ID)
-If (EditLayout != "ERROR")
- TB_Layout(TbEdit, EditLayout, TbEdit_ID)
-If (SettingsLayout != "ERROR")
- TB_Layout(TbSettings, SettingsLayout, TbSettings_ID)
+ Loop, 3
+ RbMain.SetLayout(MainLayout)
+ Loop, % RbMain.GetBandCount()
+ RbMain.ShowBand(RbMain.IDToIndex(A_Index), ShowBand%A_Index%)
+ BtnsArray := []
+ If (FileLayout != "ERROR")
+ TB_Layout(TbFile, FileLayout, TbFile_ID)
+ If (RecPlayLayout != "ERROR")
+ TB_Layout(TbRecPlay, RecPlayLayout, TbRecPlay_ID)
+ If (CommandLayout != "ERROR")
+ TB_Layout(TbCommand, CommandLayout, TbCommand_ID)
+ If (EditLayout != "ERROR")
+ TB_Layout(TbEdit, EditLayout, TbEdit_ID)
+ If (SettingsLayout != "ERROR")
+ TB_Layout(TbSettings, SettingsLayout, TbSettings_ID)
return
TbFile:
@@ -1341,66 +1341,66 @@ TbText:
TbOSC:
tbPrev:
tbPrevF:
-If (A_GuiEvent = "N")
-{
- TbPtr := %A_ThisLabel%
- ErrorLevel := TbPtr.OnNotify(A_EventInfo, MX, MY, bLabel)
- If (bLabel)
- ShowMenu(bLabel, MX, MY)
- If (ErrorLevel = 2) ; TBN_RESET
- {
- TB_Edit(TbFile, "Preview", ShowPrev), TB_Edit(TbSettings, "HideMainWin", HideMainWin)
- TB_Edit(TbSettings, "OnScCtrl", OnScCtrl), TB_Edit(TbSettings, "CheckHkOn", KeepHkOn)
- TB_Edit(TbSettings, "SetWin", (IfDirectContext = "None") ? 0 : 1)
- TB_Edit(TbSettings, "SetJoyButton", JoyHK), TB_Edit(TbOSC, "ProgBarToggle", ShowProgBar)
- TB_Edit(TbSettings, "OnFinish",(OnFinishCode = 1) ? 0 : 1,,, (OnFinishCode = 1) ? 20 : 62)
- }
- Else If (ErrorLevel = 1)
- TB_IdealSize(TbPtr, %A_ThisLabel%_ID)
-}
+ If (A_GuiEvent = "N")
+ {
+ TbPtr := %A_ThisLabel%
+ ErrorLevel := TbPtr.OnNotify(A_EventInfo, MX, MY, bLabel)
+ If (bLabel)
+ ShowMenu(bLabel, MX, MY)
+ If (ErrorLevel = 2) ; TBN_RESET
+ {
+ TB_Edit(TbFile, "Preview", ShowPrev), TB_Edit(TbSettings, "HideMainWin", HideMainWin)
+ TB_Edit(TbSettings, "OnScCtrl", OnScCtrl), TB_Edit(TbSettings, "CheckHkOn", KeepHkOn)
+ TB_Edit(TbSettings, "SetWin", (IfDirectContext = "None") ? 0 : 1)
+ TB_Edit(TbSettings, "SetJoyButton", JoyHK), TB_Edit(TbOSC, "ProgBarToggle", ShowProgBar)
+ TB_Edit(TbSettings, "OnFinish",(OnFinishCode = 1) ? 0 : 1,,, (OnFinishCode = 1) ? 20 : 62)
+ }
+ Else If (ErrorLevel = 1)
+ TB_IdealSize(TbPtr, %A_ThisLabel%_ID)
+ }
return
RB_Notify:
-If (A_GuiEvent = "N")
-{
- rbEventCode := NumGet(A_EventInfo + (A_PtrSize * 2), 0, "Int")
- If (RbMain.OnNotify(A_EventInfo, tbMX, tbMY, BandID))
- ShowChevronMenu(RbMain, BandID, tbMX, tbMY)
- If (rbEventCode = -831) ; RBN_HEIGHTCHANGE
+ If (A_GuiEvent = "N")
{
- If (A_GuiControl = "cRbMain")
+ rbEventCode := NumGet(A_EventInfo + (A_PtrSize * 2), 0, "Int")
+ If (RbMain.OnNotify(A_EventInfo, tbMX, tbMY, BandID))
+ ShowChevronMenu(RbMain, BandID, tbMX, tbMY)
+ If (rbEventCode = -831) ; RBN_HEIGHTCHANGE
{
- y_Values := IconSize = "Small" ? ["y55", "y30", "y83"] : ["y72", "y36", "y107"]
- o_Values := IconSize = "Small" ? [88, 63, 118] : [105, 69, 140]
- RowsCount := RbMain.GetRowCount()
- MacroOffset := (RowsCount = 2) ? o_Values[1] : ((RowsCount = 1) ? o_Values[2] : o_Values[3])
- GuiControl, 1:Move, cRbMacro, % (RowsCount = 2) ? y_Values[1] : (RowsCount = 1 ? y_Values[2] : y_Values[3])
- SetTimer, GuiSize, -1
+ If (A_GuiControl = "cRbMain")
+ {
+ y_Values := IconSize = "Small" ? ["y55", "y30", "y83"] : ["y72", "y36", "y107"]
+ o_Values := IconSize = "Small" ? [88, 63, 118] : [105, 69, 140]
+ RowsCount := RbMain.GetRowCount()
+ MacroOffset := (RowsCount = 2) ? o_Values[1] : ((RowsCount = 1) ? o_Values[2] : o_Values[3])
+ GuiControl, 1:Move, cRbMacro, % (RowsCount = 2) ? y_Values[1] : (RowsCount = 1 ? y_Values[2] : y_Values[3])
+ SetTimer, GuiSize, -1
+ }
+ Else
+ RbMacro.OnNotify(A_EventInfo)
+ }
+ If (rbEventCode = -835) ; RBN_BEGINDRAG
+ OnMessage(WM_NOTIFY, ""), LV_Colors.Detach(ListID%A_List%)
+ If (rbEventCode = -836) ; RBN_ENDDRAG
+ {
+ GoSub, RowCheck
+ SetTimer, chMacroGuiSize, -1
}
- Else
- RbMacro.OnNotify(A_EventInfo)
- }
- If (rbEventCode = -835) ; RBN_BEGINDRAG
- OnMessage(WM_NOTIFY, ""), LV_Colors.Detach(ListID%A_List%)
- If (rbEventCode = -836) ; RBN_ENDDRAG
- {
- GoSub, RowCheck
- SetTimer, chMacroGuiSize, -1
}
-}
return
;##### Other controls #####
DefineControls:
-GoSub, BuildMacroWin
-GoSub, BuildPrevWin
-GoSub, BuildMixedControls
-GoSub, BuildOSCWin
-RbMacro := New Rebar(hRbMacro)
-RbMacro.InsertBand(hMacroCh, 0, "NoGripper", 30, "", A_ScreenWidth/2, 0, "", "", 10, 10)
-RbMacro.InsertBand(hPrevCh, 0, "", 31, "", A_ScreenWidth/2, 0, "", "", 0)
-RbMacro.SetMaxRows(1)
+ GoSub, BuildMacroWin
+ GoSub, BuildPrevWin
+ GoSub, BuildMixedControls
+ GoSub, BuildOSCWin
+ RbMacro := New Rebar(hRbMacro)
+ RbMacro.InsertBand(hMacroCh, 0, "NoGripper", 30, "", A_ScreenWidth/2, 0, "", "", 10, 10)
+ RbMacro.InsertBand(hPrevCh, 0, "", 31, "", A_ScreenWidth/2, 0, "", "", 0)
+ RbMacro.SetMaxRows(1)
(MacroLayout = "ERROR") ? "" : RbMacro.SetLayout(MacroLayout)
!ShowPrev ? RbMacro.ModifyBand(2, "Style", "Hidden")
return
@@ -1517,7 +1517,6 @@ sciPrev.SetKeywords(0x5, SyHi_BIVar)
sciPrev.SetKeywords(0x6, SyHi_Keyw)
sciPrev.SetKeywords(0x7, SyHi_UserDef)
-
sciPrev.SetText("", Preview)
sciPrev.SetReadOnly(0x1)
@@ -1569,17 +1568,15 @@ sciPrevF.SetKeywords(0x5, SyHi_BIVar)
sciPrevF.SetKeywords(0x6, SyHi_Keyw)
sciPrevF.SetKeywords(0x7, SyHi_UserDef)
-/*
->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
-changes
-1. make sure only the empty file and temp file exist
-2. write to temp file, then move to log's location
-3. log will get read and return a "returnstatus" Message
-4. that last step denotes the conversion to v2 happened
->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
-*/
-
-
+ /*
+ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+ changes
+ 1. make sure only the empty file and temp file exist
+ 2. write to temp file, then move to log's location
+ 3. log will get read and return a "returnstatus" Message
+ 4. that last step denotes the conversion to v2 happened
+ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+ */
sciPrevF.SetText("", Preview)
sciPrevF.SetReadOnly(0x1)
@@ -1608,26 +1605,25 @@ TB_Edit(tbPrevF, "CommentUnchecked", CommentUnchecked)
Gui, chMacro:Default
return
+ /*
+ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+ changes
+ 1. make sure only the empty file and temp file exist
+ 2. write to temp file, then move to log's location
+ 3. log will get read and return a "returnstatus" Message
+ 4. that last step denotes the conversion to v2 happened
+ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+ */
-/*
->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
-changes
-1. make sure only the empty file and temp file exist
-2. write to temp file, then move to log's location
-3. log will get read and return a "returnstatus" Message
-4. that last step denotes the conversion to v2 happened
->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
-*/
-
-/*
->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
-changes
-1. make sure only the empty file and temp file exist
-2. write to temp file, then move to log's location
-3. log will get read and return a "returnstatus" Message
-4. that last step denotes the conversion to v2 happened
->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
-*/
+ /*
+ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+ changes
+ 1. make sure only the empty file and temp file exist
+ 2. write to temp file, then move to log's location
+ 3. log will get read and return a "returnstatus" Message
+ 4. that last step denotes the conversion to v2 happened
+ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+ */
READER:
global lastPreview, Preview
/*
@@ -1658,7 +1654,7 @@ READER:
FileAppend, %Preview%, %temps%
FileCopy, %temps%, %logs%, 1
- Loop, 1000
+ Loop, 1000
{
try {
if FileExist(retstat) {
@@ -1680,27 +1676,25 @@ READER:
}
Return
+ /*
+ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+ changes
+ 1. make sure only the empty file and temp file exist
+ 2. write to temp file, then move to log's location
+ 3. log will get read and return a "returnstatus" Message
+ 4. that last step denotes the conversion to v2 happened
+ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+ */
-/*
->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
-changes
-1. make sure only the empty file and temp file exist
-2. write to temp file, then move to log's location
-3. log will get read and return a "returnstatus" Message
-4. that last step denotes the conversion to v2 happened
->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
-*/
-
-/*
->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
-changes
-1. make sure only the empty file and temp file exist
-2. write to temp file, then move to log's location
-3. log will get read and return a "returnstatus" Message
-4. that last step denotes the conversion to v2 happened
->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
-*/
-
+ /*
+ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+ changes
+ 1. make sure only the empty file and temp file exist
+ 2. write to temp file, then move to log's location
+ 3. log will get read and return a "returnstatus" Message
+ 4. that last step denotes the conversion to v2 happened
+ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+ */
MacroFontSet:
MacroFontSize := A_ThisMenuItem
@@ -2237,8 +2231,12 @@ return
SaveAs:
-FileSelectFile, SelectedFile, 3, , "Save for exporting", "Autohotkey script (*.ahk; *.ahk2)"
+FileSelectFile, SelectedFile, S16, , "Save for exporting", "Autohotkey script (*.ahk; *.ahk2)"
if (SelectedFile != "") {
+ if !InStr(SelectedFile, ".ahk")
+ {
+ SelectedFile := SelectedFile . ".ahk"
+ }
FileCopy, %empty%, %SelectedFile%, 1
FileAppend, %Preview%, %SelectedFile%
}
@@ -2382,14 +2380,12 @@ GoSub, FileRead
GoSub, RowCheck
return
-
-
-/*
-<================================================================>
-<=================== EXPORT SAVEAS =============================>
-<================INSERT CUSTOM CODE FOR EXPORTING V2=============>
-<================================================================>
-*/
+ /*
+ <================================================================>
+ <=================== EXPORT SAVEAS =============================>
+ <================INSERT CUSTOM CODE FOR EXPORTING V2=============>
+ <================================================================>
+ */
Export:
FileSelectFile, SelectedFile, 3, , "Save for exporting", "Autohotkey script (*.ahk; *.ahk2)"
if (SelectedFile != "") {
@@ -2397,175 +2393,175 @@ Export:
FileAppend, %Preview%, %SelectedFile%
}
-/*
-<================================================================>
-<================================================================>
-*/
+ /*
+ <================================================================>
+ <================================================================>
+ */
-; Input
-; If (DebugCheckError)
-; {
-; GoSub, b_Enable
-; return
-; }
-; Gui, 1:Submit, NoHide
-; GoSub, SaveData
-; SplitPath, CurrentFileName, name, dir, ext, name_no_ext, drive
-; If (!A_AhkPath)
-; Exe_Exp := 0
-; UserVarsList := User_Vars.Get(,, true, true, "global "), CheckedVars := []
-; Gui, 14:+owner1 -MinimizeBox +E0x00000400 +Delimiter%_x% +HwndCmdWin
-; Gui, 14:Default
-; Gui, 1:+Disabled
-; Gui, 14:Add, Tab3, W475 H460 vTabControl AltSubmit, %w_Lang001%%_x%%w_Lang003%
-; ; Macros
-; Gui, 14:Add, GroupBox, Section W450 H190, %t_Lang002%:
-; Gui, 14:Add, ListView, ys+20 xs+10 AltSubmit Checked W430 r5 vExpList gExpEdit NoSort -ReadOnly LV0x4000, %t_Lang147%%_x%%w_Lang005%%_x%%t_Lang003%%_x%%t_Lang006%%_x%%w_Lang030%
-; Gui, 14:Add, Text, -Wrap W430, %t_Lang144%
-; Gui, 14:Add, Button, -Wrap W75 H23 gCheckAll, %t_Lang007%
-; Gui, 14:Add, Button, -Wrap yp x+5 W75 H23 gUnCheckAll, %t_Lang008%
-; Gui, 14:Add, Text, yp x+5 h25 0x11
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_AbortKey% yp+5 x+0 W65 vEx_AbortKey gEx_Checks R1, %w_Lang008%:
-; Gui, 14:Add, Hotkey, yp-5 x+0 W60 vAbortKey, %AbortKey%
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_PauseKey% yp+5 x+10 W65 vEx_PauseKey R1, %t_Lang081%:
-; Gui, 14:Add, Hotkey, yp-5 x+0 W60 vPauseKey, %PauseKey%
-; ; Context
-; Gui, 14:Add, GroupBox, Section y+16 xs W450 H80
-; Gui, 14:Add, Checkbox, -Wrap Section ys xs vEx_IfDir gEx_Checks R1, %t_Lang009%:
-; Gui, 14:Add, DDL, xs+10 W105 vEx_IfDirType Disabled, #IfWinActive%_x%%_x%#IfWinNotActive%_x%#IfWinExist%_x%#IfNotWinExist%_x%#If
-; Gui, 14:Add, Button, yp x+250 W75 vIdent gWinTitle Disabled, WinTitle
-; Gui, 14:Add, Edit, -Wrap R1 xs+10 W400 vTitle Disabled
-; Gui, 14:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetWin gGetWin Disabled, ...
-; ; Location and Style
-; Gui, 14:Add, GroupBox, Section y+16 xs W450 H140, %t_Lang010%:
-; Gui, 14:Add, Edit, -Wrap R1 ys+20 xs+10 W340 vExpFile -Multi, %dir%\%name_no_ext%.ahk
-; Gui, 14:Add, Button, -Wrap W30 H23 yp-1 x+0 gExpSearch, ...
-; Gui, 14:Add, Button, yp x+5 H23 W25 hwndEx_EdScript vEx_EdScript gExEditScript
-; ILButton(Ex_EdScript, ResDllPath ":" 109)
-; Gui, 14:Add, Button, yp x+5 H23 W25 hwndEx_ExecScript vEx_ExecScript gExExecScript
-; ILButton(Ex_ExecScript, ResDllPath ":" 58)
-; Gui, 14:Add, Checkbox, -Wrap Checked%TabIndent% ys+50 xs+10 W230 vTabIndent R1, %t_Lang011%
-; Gui, 14:Add, Checkbox, -Wrap Checked%CommentUnchecked% y+5 xs+10 W230 vCommentUnchecked R1, %w_Lang108%
-; Gui, 14:Add, Checkbox, -Wrap Checked%Send_Loop% y+5 xs+10 W230 vSend_Loop R1, %t_Lang013%
-; Gui, 14:Add, Checkbox, -Wrap Checked%ConvertBreaks% ys+50 x+5 W190 vConvertBreaks R1, %t_Lang190%
-; Gui, 14:Add, Checkbox, -Wrap Checked%IncPmc% y+5 xp W190 vIncPmc R1, %t_Lang012%
-; Gui, 14:Add, Checkbox, -Wrap Checked%Exe_Exp% y+5 xp W190 vExe_Exp gExeExp R1,%t_Lang088%
-; Gui, 14:Add, Text, -Wrap R1 y+5 xs+10 W155, %t_Lang221%:
-; Gui, 14:Add, Edit, -Wrap R1 yp x+5 W240 vExpIcon -Multi Disabled, %ExpIcon%
-; Gui, 14:Add, Button, -Wrap W30 H23 yp-1 x+0 vExpIconSearch gExpIconSearch Disabled, ...
-; If (Exe_Exp)
-; {
-; GuiControl, 14:Enable, ExpIcon
-; GuiControl, 14:Enable, ExpIconSearch
-; }
-; Gui, 14:Tab, 2
-; ; Options
-; Gui, 14:Add, GroupBox, Section ym+28 xm+12 W450 H420, %w_Lang003%:
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_SI% yS+30 xs+10 W140 vEx_SI R1, #SingleInstance
-; Gui, 14:Add, DDL, yp-3 x+5 vSI w75, Force%_x%Ignore%_x%%_x%Off
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_ST% y+5 xs+10 W140 vEx_ST R1, SetTitleMatchMode
-; Gui, 14:Add, DDL, yp-3 x+5 vST w75, 1%_x%2%_x%%_x%3%_x%RegEx
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_SP% y+5 xs+10 W140 vEx_SP R1, SetTitleMatchMode
-; Gui, 14:Add, DDL, yp-3 x+5 vSP w75, Fast%_x%%_x%Slow
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_CM% y+5 xs+10 W140 vEx_CM R1, CoordMode, Mouse
-; Gui, 14:Add, DDL, yp-3 x+5 vCM w75, Window%_x%%_x%Screen%_x%Client
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_DH% y+5 xs+10 W140 vEx_DH R1, DetectHiddenWindows
-; Gui, 14:Add, DDL, yp-3 x+5 vDH w75, On%_x%Off%_x%%_x%
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_DT% y+5 xs+10 W140 vEx_DT R1, DetectHiddenText
-; Gui, 14:Add, DDL, yp-3 x+5 vDT w75, On%_x%%_x%Off
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_AF% y+8 xs+10 W220 vEx_AF R1, #WinActivateForce
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_PT% y+5 xs+10 W220 vEx_PT R1, #Persistent
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_HK% y+5 W220 vEx_HK R1, #UseHook
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_SM% ys+30 xs+245 W115 vEx_SM R1, SendMode
-; Gui, 14:Add, DDL, yp-3 x+5 vSM w75, Input%_x%%_x%Play%_x%Event%_x%InputThenPlay
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_SK% y+5 xs+245 W140 vEx_SK R1, SetKeyDelay
-; Gui, 14:Add, Edit, Limit Number -Wrap R1 yp-3 x+5 W50
-; Gui, 14:Add, UpDown, vSK 0x80 Range-1-1000, %KeyDelay%
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_MD% y+5 xs+245 W140 vEx_MD R1, SetMouseDelay
-; Gui, 14:Add, Edit, Limit Number -Wrap R1 yp-3 x+5 W50
-; Gui, 14:Add, UpDown, vMD 0x80 Range-1-1000, %MouseDelay%
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_SC% y+5 xs+245 W140 vEx_SC R1, SetControlDelay
-; Gui, 14:Add, Edit, Limit Number -Wrap R1 yp-3 x+5 W50
-; Gui, 14:Add, UpDown, vSC 0x80 Range-1-1000, %ControlDelay%
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_SW% y+5 xs+245 W140 vEx_SW R1, SetWinDelay
-; Gui, 14:Add, Edit, Limit Number -Wrap R1 yp-3 x+5 W50
-; Gui, 14:Add, UpDown, vSW 0x80 Range-1-1000, %SW%
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_SB% y+5 xs+245 W140 vEx_SB R1, SetBatchLines
-; Gui, 14:Add, Edit, Limit Number -Wrap R1 yp-3 x+5 W50
-; Gui, 14:Add, UpDown, vSB 0x80 Range-1-1000, %SB%
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_MT% y+5 xs+245 W140 vEx_MT R1, #MaxThreadsPerHotkey
-; Gui, 14:Add, Edit, Limit Number -Wrap R1 yp-3 x+5 W50
-; Gui, 14:Add, UpDown, vMT 0x80 Range1-255, %MT%
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_NT% y+1 xs+245 W200 vEx_NT R1, #NoTrayIcon
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_WN% y+5 xs+245 W200 vEx_WN R1, #Warn
-; Gui, 14:Add, Text, y+20 xs+10 W430 H2 0x10
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_IN% y+20 xs+10 W230 vEx_IN R1, `#`Include (%t_Lang087%)
-; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_UV% yp x+5 W165 vEx_UV gEx_Checks R1, Global Variables
-; Gui, 14:Add, Button, yp-5 xp+170 H23 W25 hwndEx_EdVars vEx_EdVars gVarsTree Disabled
-; ILButton(Ex_EdVars, ResDllPath ":" 73)
-; Gui, 14:Add, Text, -Wrap R1 y+20 xs+10 W80, %t_Lang101%:
-; Gui, 14:Add, Text, -Wrap R1 yp xs+90 W50, %t_Lang102%
-; Gui, 14:Add, Slider, yp-10 xs+140 H35 W180 Center TickInterval Range-8-8 vEx_Speed gSpeedTip, %Ex_Speed%
-; Gui, 14:Add, Text, -Wrap R1 yp+10 xs+350 W50, %t_Lang103%
-; Gui, 14:Add, Text, -Wrap R1 yp x+5 W35 vEx_SpeedTip, % RTrim(Round((2 ** Ex_Speed), 3), ".0") "x"
-; Gui, 14:Add, Text, -Wrap R1 y+30 xs+10 W105, COM Objects:
-; Gui, 14:Add, Radio, -Wrap Checked%ComCr% yp x+5 W120 vComCr R1, ComObjCreate
-; Gui, 14:Add, Radio, -Wrap Checked%ComAc% yp x+5 W120 vComAc R1, ComObjActive
-; Gui, 14:Add, Link, -Wrap R1 y+15 xs+10 W400 gDefaultExOpt, %t_Lang063%
-; Gui, 14:Tab
-; ; Export button
-; Gui, 14:Add, Button, -Wrap Section Default xm W75 H23 hwndExpButton gExpButton, %w_Lang001%
-; ILButton(ExpButton, ResDllPath ":" 16,, "left")
-; Gui, 14:Add, Button, -Wrap ys W75 H23 gExpClose, %c_Lang022%
-; Gui, 14:Add, Progress, ys W305 H20 vExpProgress
-
-; GuiControl, 14:ChooseString, SI, %SI%
-; GuiControl, 14:ChooseString, ST, %TitleMatch%
-; GuiControl, 14:ChooseString, SP, %TitleSpeed%
-; GuiControl, 14:ChooseString, CM, %CoordMouse%
-; GuiControl, 14:ChooseString, DH, % HiddenWin ? "On" : "Off"
-; GuiControl, 14:ChooseString, DT, % HiddenText ? "On" : "Off"
-; GuiControl, 14:ChooseString, SM, %KeyMode%
-; GuiControl, 14:ChooseString, IN, %IN%
-; GoSub, Ex_Checks
-; If (IfDirectContext != "None")
-; {
-; GuiControl, 14:, Ex_IfDir, 1
-; If (IfDirectContext = "Expression")
-; Else
-; GuiControl, 14:ChooseString, Ex_IfDirType, #If%IfDirectContext%
-; GuiControl, 14:, Title, %IfDirectWindow%
-; GoSub, Ex_Checks
-; }
-; LV_Delete()
-; Loop, %TabCount%
-; LV_Add("Check", CopyMenuLabels[A_Index], (A_GuiControl = "SchedOK") ? "" : o_AutoKey[A_Index], o_TimesG[A_Index], (BckIt%A_Index% ? 1 : 0), A_Index)
-; LV_ModifyCol(1, 120) ; Macros
-; LV_ModifyCol(2, 100) ; Hotkeys
-; LV_ModifyCol(3, 60) ; Loop
-; LV_ModifyCol(4, 80) ; Block
-; LV_ModifyCol(5, 40) ; Index
-; LV_Modify(0, "Check")
-; If (CurrentFileName = "")
-; GuiControl, 14:, ExpFile, %A_MyDocuments%\MyScript.ahk
-; Gui, 14:Show, % (A_GuiControl = "SchedOK") ? "Hide" : "", %t_Lang001%
-; ChangeIcon(hIL_Icons, CmdWin, IconsNames["export"])
-; Tooltip
-; GuiControl, 14:Choose, Ex_IfDirType, 5
+ ; Input
+ ; If (DebugCheckError)
+ ; {
+ ; GoSub, b_Enable
+ ; return
+ ; }
+ ; Gui, 1:Submit, NoHide
+ ; GoSub, SaveData
+ ; SplitPath, CurrentFileName, name, dir, ext, name_no_ext, drive
+ ; If (!A_AhkPath)
+ ; Exe_Exp := 0
+ ; UserVarsList := User_Vars.Get(,, true, true, "global "), CheckedVars := []
+ ; Gui, 14:+owner1 -MinimizeBox +E0x00000400 +Delimiter%_x% +HwndCmdWin
+ ; Gui, 14:Default
+ ; Gui, 1:+Disabled
+ ; Gui, 14:Add, Tab3, W475 H460 vTabControl AltSubmit, %w_Lang001%%_x%%w_Lang003%
+ ; ; Macros
+ ; Gui, 14:Add, GroupBox, Section W450 H190, %t_Lang002%:
+ ; Gui, 14:Add, ListView, ys+20 xs+10 AltSubmit Checked W430 r5 vExpList gExpEdit NoSort -ReadOnly LV0x4000, %t_Lang147%%_x%%w_Lang005%%_x%%t_Lang003%%_x%%t_Lang006%%_x%%w_Lang030%
+ ; Gui, 14:Add, Text, -Wrap W430, %t_Lang144%
+ ; Gui, 14:Add, Button, -Wrap W75 H23 gCheckAll, %t_Lang007%
+ ; Gui, 14:Add, Button, -Wrap yp x+5 W75 H23 gUnCheckAll, %t_Lang008%
+ ; Gui, 14:Add, Text, yp x+5 h25 0x11
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_AbortKey% yp+5 x+0 W65 vEx_AbortKey gEx_Checks R1, %w_Lang008%:
+ ; Gui, 14:Add, Hotkey, yp-5 x+0 W60 vAbortKey, %AbortKey%
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_PauseKey% yp+5 x+10 W65 vEx_PauseKey R1, %t_Lang081%:
+ ; Gui, 14:Add, Hotkey, yp-5 x+0 W60 vPauseKey, %PauseKey%
+ ; ; Context
+ ; Gui, 14:Add, GroupBox, Section y+16 xs W450 H80
+ ; Gui, 14:Add, Checkbox, -Wrap Section ys xs vEx_IfDir gEx_Checks R1, %t_Lang009%:
+ ; Gui, 14:Add, DDL, xs+10 W105 vEx_IfDirType Disabled, #IfWinActive%_x%%_x%#IfWinNotActive%_x%#IfWinExist%_x%#IfNotWinExist%_x%#If
+ ; Gui, 14:Add, Button, yp x+250 W75 vIdent gWinTitle Disabled, WinTitle
+ ; Gui, 14:Add, Edit, -Wrap R1 xs+10 W400 vTitle Disabled
+ ; Gui, 14:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetWin gGetWin Disabled, ...
+ ; ; Location and Style
+ ; Gui, 14:Add, GroupBox, Section y+16 xs W450 H140, %t_Lang010%:
+ ; Gui, 14:Add, Edit, -Wrap R1 ys+20 xs+10 W340 vExpFile -Multi, %dir%\%name_no_ext%.ahk
+ ; Gui, 14:Add, Button, -Wrap W30 H23 yp-1 x+0 gExpSearch, ...
+ ; Gui, 14:Add, Button, yp x+5 H23 W25 hwndEx_EdScript vEx_EdScript gExEditScript
+ ; ILButton(Ex_EdScript, ResDllPath ":" 109)
+ ; Gui, 14:Add, Button, yp x+5 H23 W25 hwndEx_ExecScript vEx_ExecScript gExExecScript
+ ; ILButton(Ex_ExecScript, ResDllPath ":" 58)
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%TabIndent% ys+50 xs+10 W230 vTabIndent R1, %t_Lang011%
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%CommentUnchecked% y+5 xs+10 W230 vCommentUnchecked R1, %w_Lang108%
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Send_Loop% y+5 xs+10 W230 vSend_Loop R1, %t_Lang013%
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%ConvertBreaks% ys+50 x+5 W190 vConvertBreaks R1, %t_Lang190%
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%IncPmc% y+5 xp W190 vIncPmc R1, %t_Lang012%
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Exe_Exp% y+5 xp W190 vExe_Exp gExeExp R1,%t_Lang088%
+ ; Gui, 14:Add, Text, -Wrap R1 y+5 xs+10 W155, %t_Lang221%:
+ ; Gui, 14:Add, Edit, -Wrap R1 yp x+5 W240 vExpIcon -Multi Disabled, %ExpIcon%
+ ; Gui, 14:Add, Button, -Wrap W30 H23 yp-1 x+0 vExpIconSearch gExpIconSearch Disabled, ...
+ ; If (Exe_Exp)
+ ; {
+ ; GuiControl, 14:Enable, ExpIcon
+ ; GuiControl, 14:Enable, ExpIconSearch
+ ; }
+ ; Gui, 14:Tab, 2
+ ; ; Options
+ ; Gui, 14:Add, GroupBox, Section ym+28 xm+12 W450 H420, %w_Lang003%:
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_SI% yS+30 xs+10 W140 vEx_SI R1, #SingleInstance
+ ; Gui, 14:Add, DDL, yp-3 x+5 vSI w75, Force%_x%Ignore%_x%%_x%Off
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_ST% y+5 xs+10 W140 vEx_ST R1, SetTitleMatchMode
+ ; Gui, 14:Add, DDL, yp-3 x+5 vST w75, 1%_x%2%_x%%_x%3%_x%RegEx
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_SP% y+5 xs+10 W140 vEx_SP R1, SetTitleMatchMode
+ ; Gui, 14:Add, DDL, yp-3 x+5 vSP w75, Fast%_x%%_x%Slow
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_CM% y+5 xs+10 W140 vEx_CM R1, CoordMode, Mouse
+ ; Gui, 14:Add, DDL, yp-3 x+5 vCM w75, Window%_x%%_x%Screen%_x%Client
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_DH% y+5 xs+10 W140 vEx_DH R1, DetectHiddenWindows
+ ; Gui, 14:Add, DDL, yp-3 x+5 vDH w75, On%_x%Off%_x%%_x%
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_DT% y+5 xs+10 W140 vEx_DT R1, DetectHiddenText
+ ; Gui, 14:Add, DDL, yp-3 x+5 vDT w75, On%_x%%_x%Off
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_AF% y+8 xs+10 W220 vEx_AF R1, #WinActivateForce
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_PT% y+5 xs+10 W220 vEx_PT R1, #Persistent
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_HK% y+5 W220 vEx_HK R1, #UseHook
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_SM% ys+30 xs+245 W115 vEx_SM R1, SendMode
+ ; Gui, 14:Add, DDL, yp-3 x+5 vSM w75, Input%_x%%_x%Play%_x%Event%_x%InputThenPlay
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_SK% y+5 xs+245 W140 vEx_SK R1, SetKeyDelay
+ ; Gui, 14:Add, Edit, Limit Number -Wrap R1 yp-3 x+5 W50
+ ; Gui, 14:Add, UpDown, vSK 0x80 Range-1-1000, %KeyDelay%
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_MD% y+5 xs+245 W140 vEx_MD R1, SetMouseDelay
+ ; Gui, 14:Add, Edit, Limit Number -Wrap R1 yp-3 x+5 W50
+ ; Gui, 14:Add, UpDown, vMD 0x80 Range-1-1000, %MouseDelay%
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_SC% y+5 xs+245 W140 vEx_SC R1, SetControlDelay
+ ; Gui, 14:Add, Edit, Limit Number -Wrap R1 yp-3 x+5 W50
+ ; Gui, 14:Add, UpDown, vSC 0x80 Range-1-1000, %ControlDelay%
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_SW% y+5 xs+245 W140 vEx_SW R1, SetWinDelay
+ ; Gui, 14:Add, Edit, Limit Number -Wrap R1 yp-3 x+5 W50
+ ; Gui, 14:Add, UpDown, vSW 0x80 Range-1-1000, %SW%
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_SB% y+5 xs+245 W140 vEx_SB R1, SetBatchLines
+ ; Gui, 14:Add, Edit, Limit Number -Wrap R1 yp-3 x+5 W50
+ ; Gui, 14:Add, UpDown, vSB 0x80 Range-1-1000, %SB%
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_MT% y+5 xs+245 W140 vEx_MT R1, #MaxThreadsPerHotkey
+ ; Gui, 14:Add, Edit, Limit Number -Wrap R1 yp-3 x+5 W50
+ ; Gui, 14:Add, UpDown, vMT 0x80 Range1-255, %MT%
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_NT% y+1 xs+245 W200 vEx_NT R1, #NoTrayIcon
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_WN% y+5 xs+245 W200 vEx_WN R1, #Warn
+ ; Gui, 14:Add, Text, y+20 xs+10 W430 H2 0x10
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_IN% y+20 xs+10 W230 vEx_IN R1, `#`Include (%t_Lang087%)
+ ; Gui, 14:Add, Checkbox, -Wrap Checked%Ex_UV% yp x+5 W165 vEx_UV gEx_Checks R1, Global Variables
+ ; Gui, 14:Add, Button, yp-5 xp+170 H23 W25 hwndEx_EdVars vEx_EdVars gVarsTree Disabled
+ ; ILButton(Ex_EdVars, ResDllPath ":" 73)
+ ; Gui, 14:Add, Text, -Wrap R1 y+20 xs+10 W80, %t_Lang101%:
+ ; Gui, 14:Add, Text, -Wrap R1 yp xs+90 W50, %t_Lang102%
+ ; Gui, 14:Add, Slider, yp-10 xs+140 H35 W180 Center TickInterval Range-8-8 vEx_Speed gSpeedTip, %Ex_Speed%
+ ; Gui, 14:Add, Text, -Wrap R1 yp+10 xs+350 W50, %t_Lang103%
+ ; Gui, 14:Add, Text, -Wrap R1 yp x+5 W35 vEx_SpeedTip, % RTrim(Round((2 ** Ex_Speed), 3), ".0") "x"
+ ; Gui, 14:Add, Text, -Wrap R1 y+30 xs+10 W105, COM Objects:
+ ; Gui, 14:Add, Radio, -Wrap Checked%ComCr% yp x+5 W120 vComCr R1, ComObjCreate
+ ; Gui, 14:Add, Radio, -Wrap Checked%ComAc% yp x+5 W120 vComAc R1, ComObjActive
+ ; Gui, 14:Add, Link, -Wrap R1 y+15 xs+10 W400 gDefaultExOpt, %t_Lang063%
+ ; Gui, 14:Tab
+ ; ; Export button
+ ; Gui, 14:Add, Button, -Wrap Section Default xm W75 H23 hwndExpButton gExpButton, %w_Lang001%
+ ; ILButton(ExpButton, ResDllPath ":" 16,, "left")
+ ; Gui, 14:Add, Button, -Wrap ys W75 H23 gExpClose, %c_Lang022%
+ ; Gui, 14:Add, Progress, ys W305 H20 vExpProgress
+
+ ; GuiControl, 14:ChooseString, SI, %SI%
+ ; GuiControl, 14:ChooseString, ST, %TitleMatch%
+ ; GuiControl, 14:ChooseString, SP, %TitleSpeed%
+ ; GuiControl, 14:ChooseString, CM, %CoordMouse%
+ ; GuiControl, 14:ChooseString, DH, % HiddenWin ? "On" : "Off"
+ ; GuiControl, 14:ChooseString, DT, % HiddenText ? "On" : "Off"
+ ; GuiControl, 14:ChooseString, SM, %KeyMode%
+ ; GuiControl, 14:ChooseString, IN, %IN%
+ ; GoSub, Ex_Checks
+ ; If (IfDirectContext != "None")
+ ; {
+ ; GuiControl, 14:, Ex_IfDir, 1
+ ; If (IfDirectContext = "Expression")
+ ; Else
+ ; GuiControl, 14:ChooseString, Ex_IfDirType, #If%IfDirectContext%
+ ; GuiControl, 14:, Title, %IfDirectWindow%
+ ; GoSub, Ex_Checks
+ ; }
+ ; LV_Delete()
+ ; Loop, %TabCount%
+ ; LV_Add("Check", CopyMenuLabels[A_Index], (A_GuiControl = "SchedOK") ? "" : o_AutoKey[A_Index], o_TimesG[A_Index], (BckIt%A_Index% ? 1 : 0), A_Index)
+ ; LV_ModifyCol(1, 120) ; Macros
+ ; LV_ModifyCol(2, 100) ; Hotkeys
+ ; LV_ModifyCol(3, 60) ; Loop
+ ; LV_ModifyCol(4, 80) ; Block
+ ; LV_ModifyCol(5, 40) ; Index
+ ; LV_Modify(0, "Check")
+ ; If (CurrentFileName = "")
+ ; GuiControl, 14:, ExpFile, %A_MyDocuments%\MyScript.ahk
+ ; Gui, 14:Show, % (A_GuiControl = "SchedOK") ? "Hide" : "", %t_Lang001%
+ ; ChangeIcon(hIL_Icons, CmdWin, IconsNames["export"])
+ ; Tooltip
+ ; GuiControl, 14:Choose, Ex_IfDirType, 5
-/*
-<================================================================>
-<=================== EXPORT SAVEAS =============================>
-<====================END CUSTOM CODE=============================>
-<================================================================>
-*/
+ /*
+ <================================================================>
+ <=================== EXPORT SAVEAS =============================>
+ <====================END CUSTOM CODE=============================>
+ <================================================================>
+ */
-/*
-<================================================================>
-<=================== EXPORT SAVEAS =============================>
-<====================END CUSTOM CODE=============================>
-<================================================================>
-*/
+ /*
+ <================================================================>
+ <=================== EXPORT SAVEAS =============================>
+ <====================END CUSTOM CODE=============================>
+ <================================================================>
+ */
return
ExpEdit:
@@ -4324,12 +4320,12 @@ Version: %CurrentVersion% (%OsBit%)
Release Date: %ReleaseDate%
AutoHotkey Version: %A_AhkVersion%
)
-Gui, 34:Add, Link, y+0, Software Licence: GNU General Public License
-Gui, 34:Font, Bold, Tahoma
-Gui, 34:Font
-Gui, 34:Add, Groupbox, Section W360 H130 Center, Thanks to
-Gui, 34:Font,, Tahoma
-Gui, 34:Add, Edit, ys+20 xs+10 W340 H100 ReadOnly -E0x200,
+ Gui, 34:Add, Link, y+0, Software Licence: GNU General Public License
+ Gui, 34:Font, Bold, Tahoma
+ Gui, 34:Font
+ Gui, 34:Add, Groupbox, Section W360 H130 Center, Thanks to
+ Gui, 34:Font,, Tahoma
+ Gui, 34:Add, Edit, ys+20 xs+10 W340 H100 ReadOnly -E0x200,
(
Chris and Lexikos for AutoHotkey.
tic (Tariq Porter) for his GDI+ Library.
@@ -4350,9 +4346,9 @@ Coco for JSON class.
Thiago Talma for some improvements to the code, debugging and many suggestions.
chosen1ft for suggestions and testing.
)
-Gui, 34:Add, Link, y+10 W340 r1, Translation revisions.
-Gui, 34:Add, Groupbox, Section xm+58 W360 H130 Center, GNU General Public License
-Gui, 34:Add, Edit, ys+20 xs+10 W340 H100 ReadOnly -E0x200,
+ Gui, 34:Add, Link, y+10 W340 r1, Translation revisions.
+ Gui, 34:Add, Groupbox, Section xm+58 W360 H130 Center, GNU General Public License
+ Gui, 34:Add, Edit, ys+20 xs+10 W340 H100 ReadOnly -E0x200,
(
This program is free software, and you are welcome to redistribute it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or any later version.
@@ -4360,318 +4356,318 @@ This program comes with ABSOLUTELY NO WARRANTY, for details see GNU General Publ
You should have received a copy of the GNU General Public License along with this program, if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
)
-Gui, 34:Font
-Gui, 34:Add, Button, -Wrap Default y+20 xp-10 W80 H23 gTipsClose, %c_Lang020%
-Gui, 34:Font, Bold, Tahoma
-Gui, 34:Add, Text, yp-3 xm+380 H25 Center Hidden vHolderStatic, %m_Lang009%
-GuiControlGet, Hold, 34:Pos, HolderStatic
-Gui, 34:Add, Progress, % "x" 410 - HoldW " yp wp+20 hp BackgroundF68C06 vProgStatic Disabled"
-Gui, 34:Add, Text, -Wrap xp yp wp hp Border cWhite Center 0x200 BackgroundTrans hwndhStatic vDonateStatic gDonatePayPal, %m_Lang009%
-Gui, 34:Font
-GuiControl, 34:Focus, %c_Lang020%
-Gui, 34:Show, W460, %t_Lang076%
-hCurs := DllCall("LoadCursor", "Int", 0, "Int", 32649, "UInt")
-ReplaceCursor(hStatic, hCurs)
+ Gui, 34:Font
+ Gui, 34:Add, Button, -Wrap Default y+20 xp-10 W80 H23 gTipsClose, %c_Lang020%
+ Gui, 34:Font, Bold, Tahoma
+ Gui, 34:Add, Text, yp-3 xm+380 H25 Center Hidden vHolderStatic, %m_Lang009%
+ GuiControlGet, Hold, 34:Pos, HolderStatic
+ Gui, 34:Add, Progress, % "x" 410 - HoldW " yp wp+20 hp BackgroundF68C06 vProgStatic Disabled"
+ Gui, 34:Add, Text, -Wrap xp yp wp hp Border cWhite Center 0x200 BackgroundTrans hwndhStatic vDonateStatic gDonatePayPal, %m_Lang009%
+ Gui, 34:Font
+ GuiControl, 34:Focus, %c_Lang020%
+ Gui, 34:Show, W460, %t_Lang076%
+ hCurs := DllCall("LoadCursor", "Int", 0, "Int", 32649, "UInt")
+ ReplaceCursor(hStatic, hCurs)
return
EditMouse:
-s_Caller := "Edit"
+ s_Caller := "Edit"
Mouse:
-Gui, 5:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
-Gui, 1:+Disabled
-; Action
-Gui, 5:Add, GroupBox, Section W250 H135, %c_Lang026%:
-Gui, 5:Add, Radio, -Wrap ys+30 xs+10 Checked W115 vClick gClick R1, %c_Lang027%
-Gui, 5:Add, Radio, -Wrap y+20 xp W115 vPoint gPoint R1, %c_Lang028%
-Gui, 5:Add, Radio, -Wrap y+20 xp W115 vPClick gPClick R1, %c_Lang029%
-Gui, 5:Add, Radio, -Wrap ys+30 xp+120 W115 vWUp gWUp R1, %c_Lang030%
-Gui, 5:Add, Radio, -Wrap y+20 xp W115 vWDn gWDn R1, %c_Lang031%
-Gui, 5:Add, Radio, -Wrap y+20 xp W115 vDrag gDrag R1, %c_Lang032%
-; Coordinates
-Gui, 5:Add, GroupBox, Section ys x+10 W250 H135, %c_Lang033%:
-Gui, 5:Add, Text, -Wrap R1 Section ys+25 xs+10 W20 Right viX, X:
-Gui, 5:Add, Edit, ys-3 x+5 vIniX W70 Disabled
-Gui, 5:Add, Text, -Wrap R1 ys x+5 W20 Right viY, Y:
-Gui, 5:Add, Edit, ys-3 x+5 vIniY W70 Disabled
-Gui, 5:Add, Button, -Wrap ys-5 x+5 W30 H23 vMouseGetI gMouseGetI Disabled, ...
-Gui, 5:Add, Text, -Wrap R1 Section xs W20 Right veX, X:
-Gui, 5:Add, Edit, ys-3 x+5 vEndX W70 Disabled
-Gui, 5:Add, Text, -Wrap R1 ys x+5 W20 Right veY, Y:
-Gui, 5:Add, Edit, ys-3 x+5 vEndY W70 Disabled
-Gui, 5:Add, Button, -Wrap ys-4 x+5 W30 H23 vMouseGetE gMouseGetE Disabled, ...
-Gui, 5:Add, Radio, -Wrap Checked y+5 xs W65 vCL gCL R1, Click
-Gui, 5:Add, Radio, -Wrap yp x+5 W65 vSE gSE R1, Send
-Gui, 5:Add, Checkbox, -Wrap yp x+5 vMRel gMRel Disabled W95 R1, %c_Lang036%
-Gui, 5:Add, Checkbox, -Wrap y+5 xs vMRand gMRand W225 R1 Disabled, %c_Lang263%
-Gui, 5:Add, Text, -Wrap R1 y+5 xs W95, %c_Lang264%:
-Gui, 5:Add, Edit, yp-2 x+10 W55 R1 vRandOffsetE Disabled
-Gui, 5:Add, UpDown, vRandOffset 0x80 Range1-5000, 5
-Gui, 5:Add, Text, -Wrap R1 yp+2 x+5 W60, %c_Lang265%
-; Button
-Gui, 5:Add, GroupBox, Section xm W505 H70, %c_Lang037%:
-Gui, 5:Add, Radio, -Wrap ys+20 xs+10 Checked W90 vLB R1, %c_Lang038%
-Gui, 5:Add, Radio, -Wrap yp x+5 W90 vRB R1, %c_Lang039%
-Gui, 5:Add, Radio, -Wrap yp x+5 W90 vMB R1, %c_Lang040%
-Gui, 5:Add, Radio, -Wrap yp x+5 W90 vX1 R1, %c_Lang041%
-Gui, 5:Add, Radio, -Wrap yp x+5 W90 vX2 R1, %c_Lang042%
-Gui, 5:Add, Radio, Group -Wrap y+10 xs+10 Checked W90 R1 vMNormal gMHold, %t_Lang108%
-Gui, 5:Add, Radio, -Wrap yp x+5 W90 R1 vMHold gMHold, %c_Lang043%
-Gui, 5:Add, Radio, -Wrap yp x+5 W90 R1 vMRelease gMHold, %c_Lang259%
-Gui, 5:Add, Text, -Wrap R1 yp x+5 vClicks W90 Right, %c_Lang044%:
-Gui, 5:Add, Edit, yp-2 x+10 W100 R1 vCCountE
-Gui, 5:Add, UpDown, vCCount 0x80 Range0-999999999, 1
-; Repeat
-Gui, 5:Add, GroupBox, Section xm W250 H125
-Gui, 5:Add, Text, -Wrap R1 ys+20 xs+10 W100 Right, %w_Lang015%:
-Gui, 5:Add, Edit, yp x+10 W120 R1 vEdRept
-Gui, 5:Add, UpDown, vTimesX 0x80 Range1-999999999, 1
-Gui, 5:Add, Text, -Wrap R1 y+10 xs+10 W100 Right, %c_Lang017%:
-Gui, 5:Add, Edit, yp x+10 W120 vDelayC
-Gui, 5:Add, UpDown, vDelayX 0x80 Range0-999999999, %DelayM%
-Gui, 5:Add, Radio, -Wrap Checked W125 vMsc R1, %c_Lang018%
-Gui, 5:Add, Radio, -Wrap W125 vSec R1, %c_Lang019%
-; Control
-Gui, 5:Add, GroupBox, Section ys x+10 W250 H125
-Gui, 5:Add, Checkbox, -Wrap ys+15 xs+10 W160 vCSend gCSend R1, %c_Lang016%:
-Gui, 5:Add, Edit, vDefCt W200 Disabled
-Gui, 5:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetCtrl gGetCtrl Disabled, ...
-Gui, 5:Add, Text, -Wrap y+15 xs+10 W150 H20 vWinParsTip cGray, %Wcmd_Short%
-Gui, 5:Add, Button, yp-5 x+5 W75 vIdent gWinTitle Disabled, WinTitle
-Gui, 5:Add, Edit, y+5 xs+10 W200 vTitle Disabled, A
-Gui, 5:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetWin gGetWin Disabled, ...
-Gui, 5:Add, Button, -Wrap Section Default xm W75 H23 gMouseOK, %c_Lang020%
-Gui, 5:Add, Button, -Wrap ys W75 H23 gMouseCancel, %c_Lang021%
-Gui, 5:Add, Button, -Wrap ys W75 H23 vMouseApply gMouseApply Disabled, %c_Lang131%
-Gui, 5:Add, Text, x+10 yp-3 W250 H25 cGray, %c_Lang025%
-Gui, 5:Add, StatusBar, gStatusBarHelp
-Gui, 5:Default
-SB_SetIcon(ResDllPath, IconsNames["help"])
-If (s_Caller = "Edit")
-{
- EscCom(true, Details, Target)
- GuiControl, 5:, TimesX, %TimesX%
- GuiControl, 5:, EdRept, %TimesX%
- GuiControl, 5:, DelayX, %DelayX%
- GuiControl, 5:, DelayC, %DelayX%
- If (InStr(Action, "Left"))
- GuiControl, 5:, LB, 1
- If (InStr(Action, "Right"))
- GuiControl, 5:, RB, 1
- If (InStr(Action, "Middle"))
- GuiControl, 5:, MB, 1
- If (InStr(Action, "X1"))
- GuiControl, 5:, X1, 1
- If (InStr(Action, "X2"))
- GuiControl, 5:, X2, 1
- StringReplace, Action, Action, Left%A_Space%
- StringReplace, Action, Action, Right%A_Space%
- StringReplace, Action, Action, Middle%A_Space%
- StringReplace, Action, Action, X1%A_Space%
- StringReplace, Action, Action, X2%A_Space%
- If (Action = MAction1)
+ Gui, 5:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
+ Gui, 1:+Disabled
+ ; Action
+ Gui, 5:Add, GroupBox, Section W250 H135, %c_Lang026%:
+ Gui, 5:Add, Radio, -Wrap ys+30 xs+10 Checked W115 vClick gClick R1, %c_Lang027%
+ Gui, 5:Add, Radio, -Wrap y+20 xp W115 vPoint gPoint R1, %c_Lang028%
+ Gui, 5:Add, Radio, -Wrap y+20 xp W115 vPClick gPClick R1, %c_Lang029%
+ Gui, 5:Add, Radio, -Wrap ys+30 xp+120 W115 vWUp gWUp R1, %c_Lang030%
+ Gui, 5:Add, Radio, -Wrap y+20 xp W115 vWDn gWDn R1, %c_Lang031%
+ Gui, 5:Add, Radio, -Wrap y+20 xp W115 vDrag gDrag R1, %c_Lang032%
+ ; Coordinates
+ Gui, 5:Add, GroupBox, Section ys x+10 W250 H135, %c_Lang033%:
+ Gui, 5:Add, Text, -Wrap R1 Section ys+25 xs+10 W20 Right viX, X:
+ Gui, 5:Add, Edit, ys-3 x+5 vIniX W70 Disabled
+ Gui, 5:Add, Text, -Wrap R1 ys x+5 W20 Right viY, Y:
+ Gui, 5:Add, Edit, ys-3 x+5 vIniY W70 Disabled
+ Gui, 5:Add, Button, -Wrap ys-5 x+5 W30 H23 vMouseGetI gMouseGetI Disabled, ...
+ Gui, 5:Add, Text, -Wrap R1 Section xs W20 Right veX, X:
+ Gui, 5:Add, Edit, ys-3 x+5 vEndX W70 Disabled
+ Gui, 5:Add, Text, -Wrap R1 ys x+5 W20 Right veY, Y:
+ Gui, 5:Add, Edit, ys-3 x+5 vEndY W70 Disabled
+ Gui, 5:Add, Button, -Wrap ys-4 x+5 W30 H23 vMouseGetE gMouseGetE Disabled, ...
+ Gui, 5:Add, Radio, -Wrap Checked y+5 xs W65 vCL gCL R1, Click
+ Gui, 5:Add, Radio, -Wrap yp x+5 W65 vSE gSE R1, Send
+ Gui, 5:Add, Checkbox, -Wrap yp x+5 vMRel gMRel Disabled W95 R1, %c_Lang036%
+ Gui, 5:Add, Checkbox, -Wrap y+5 xs vMRand gMRand W225 R1 Disabled, %c_Lang263%
+ Gui, 5:Add, Text, -Wrap R1 y+5 xs W95, %c_Lang264%:
+ Gui, 5:Add, Edit, yp-2 x+10 W55 R1 vRandOffsetE Disabled
+ Gui, 5:Add, UpDown, vRandOffset 0x80 Range1-5000, 5
+ Gui, 5:Add, Text, -Wrap R1 yp+2 x+5 W60, %c_Lang265%
+ ; Button
+ Gui, 5:Add, GroupBox, Section xm W505 H70, %c_Lang037%:
+ Gui, 5:Add, Radio, -Wrap ys+20 xs+10 Checked W90 vLB R1, %c_Lang038%
+ Gui, 5:Add, Radio, -Wrap yp x+5 W90 vRB R1, %c_Lang039%
+ Gui, 5:Add, Radio, -Wrap yp x+5 W90 vMB R1, %c_Lang040%
+ Gui, 5:Add, Radio, -Wrap yp x+5 W90 vX1 R1, %c_Lang041%
+ Gui, 5:Add, Radio, -Wrap yp x+5 W90 vX2 R1, %c_Lang042%
+ Gui, 5:Add, Radio, Group -Wrap y+10 xs+10 Checked W90 R1 vMNormal gMHold, %t_Lang108%
+ Gui, 5:Add, Radio, -Wrap yp x+5 W90 R1 vMHold gMHold, %c_Lang043%
+ Gui, 5:Add, Radio, -Wrap yp x+5 W90 R1 vMRelease gMHold, %c_Lang259%
+ Gui, 5:Add, Text, -Wrap R1 yp x+5 vClicks W90 Right, %c_Lang044%:
+ Gui, 5:Add, Edit, yp-2 x+10 W100 R1 vCCountE
+ Gui, 5:Add, UpDown, vCCount 0x80 Range0-999999999, 1
+ ; Repeat
+ Gui, 5:Add, GroupBox, Section xm W250 H125
+ Gui, 5:Add, Text, -Wrap R1 ys+20 xs+10 W100 Right, %w_Lang015%:
+ Gui, 5:Add, Edit, yp x+10 W120 R1 vEdRept
+ Gui, 5:Add, UpDown, vTimesX 0x80 Range1-999999999, 1
+ Gui, 5:Add, Text, -Wrap R1 y+10 xs+10 W100 Right, %c_Lang017%:
+ Gui, 5:Add, Edit, yp x+10 W120 vDelayC
+ Gui, 5:Add, UpDown, vDelayX 0x80 Range0-999999999, %DelayM%
+ Gui, 5:Add, Radio, -Wrap Checked W125 vMsc R1, %c_Lang018%
+ Gui, 5:Add, Radio, -Wrap W125 vSec R1, %c_Lang019%
+ ; Control
+ Gui, 5:Add, GroupBox, Section ys x+10 W250 H125
+ Gui, 5:Add, Checkbox, -Wrap ys+15 xs+10 W160 vCSend gCSend R1, %c_Lang016%:
+ Gui, 5:Add, Edit, vDefCt W200 Disabled
+ Gui, 5:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetCtrl gGetCtrl Disabled, ...
+ Gui, 5:Add, Text, -Wrap y+15 xs+10 W150 H20 vWinParsTip cGray, %Wcmd_Short%
+ Gui, 5:Add, Button, yp-5 x+5 W75 vIdent gWinTitle Disabled, WinTitle
+ Gui, 5:Add, Edit, y+5 xs+10 W200 vTitle Disabled, A
+ Gui, 5:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetWin gGetWin Disabled, ...
+ Gui, 5:Add, Button, -Wrap Section Default xm W75 H23 gMouseOK, %c_Lang020%
+ Gui, 5:Add, Button, -Wrap ys W75 H23 gMouseCancel, %c_Lang021%
+ Gui, 5:Add, Button, -Wrap ys W75 H23 vMouseApply gMouseApply Disabled, %c_Lang131%
+ Gui, 5:Add, Text, x+10 yp-3 W250 H25 cGray, %c_Lang025%
+ Gui, 5:Add, StatusBar, gStatusBarHelp
+ Gui, 5:Default
+ SB_SetIcon(ResDllPath, IconsNames["help"])
+ If (s_Caller = "Edit")
{
- If (Type = cType13)
+ EscCom(true, Details, Target)
+ GuiControl, 5:, TimesX, %TimesX%
+ GuiControl, 5:, EdRept, %TimesX%
+ GuiControl, 5:, DelayX, %DelayX%
+ GuiControl, 5:, DelayC, %DelayX%
+ If (InStr(Action, "Left"))
+ GuiControl, 5:, LB, 1
+ If (InStr(Action, "Right"))
+ GuiControl, 5:, RB, 1
+ If (InStr(Action, "Middle"))
+ GuiControl, 5:, MB, 1
+ If (InStr(Action, "X1"))
+ GuiControl, 5:, X1, 1
+ If (InStr(Action, "X2"))
+ GuiControl, 5:, X2, 1
+ StringReplace, Action, Action, Left%A_Space%
+ StringReplace, Action, Action, Right%A_Space%
+ StringReplace, Action, Action, Middle%A_Space%
+ StringReplace, Action, Action, X1%A_Space%
+ StringReplace, Action, Action, X2%A_Space%
+ If (Action = MAction1)
+ {
+ If (Type = cType13)
+ {
+ StringReplace, Details, Details, `{Click`,%A_Space%
+ StringReplace, Details, Details, `}
+ }
+ GuiControl, 5:, Click, 1
+ GoSub, Click
+ Loop, Parse, Details, %A_Space%, `,
+ Par%A_Index% := A_LoopField
+ If ((Par2 != "Down") && (Par2 != "Up"))
+ {
+ If (InStr(Par2, "%"))
+ GuiControl, 5:, CCountE, %Par2%
+ Else
+ GuiControl, 5:, CCount, %Par2%
+ }
+ GuiControl, 5:Disable, DefCt
+ GuiControl, 5:Disable, GetCtrl
+ }
+ If (Action = MAction2)
{
- StringReplace, Details, Details, `{Click`,%A_Space%
- StringReplace, Details, Details, `}
+ GuiControl, 5:, Point, 1
+ GoSub, Point
}
- GuiControl, 5:, Click, 1
- GoSub, Click
- Loop, Parse, Details, %A_Space%, `,
- Par%A_Index% := A_LoopField
- If ((Par2 != "Down") && (Par2 != "Up"))
+ If (Action = MAction3)
+ {
+ GuiControl, 5:, PClick, 1
+ GoSub, PClick
+ }
+ If (Action = MAction4)
+ {
+ StringReplace, DetailsX, Details, Rel%A_Space%,, All
+ StringReplace, DetailsX, DetailsX, `}`{, |, All
+ StringReplace, DetailsX, DetailsX, %A_Space%,, All
+ Loop, Parse, DetailsX, |
+ Details%A_Index% := A_LoopField
+ StringReplace, Details1, Details1, `{
+ StringReplace, Details2, Details2, `}
+ Loop, Parse, Details1, `,
+ Par%A_Index% := A_LoopField
+ GuiControl, 5:, IniX, %Par2%
+ GuiControl, 5:, IniY, %Par3%
+ Loop, Parse, Details2, `,
+ Par%A_Index% := A_LoopField
+ GuiControl, 5:, EndX, %Par2%
+ GuiControl, 5:, EndY, %Par3%
+ GuiControl, 5:, Drag, 1
+ GoSub, Drag
+ }
+ If (Action = MAction5)
{
+ If (Type = cType13)
+ {
+ StringReplace, Details, Details, `{Click`,%A_Space%
+ StringReplace, Details, Details, `}
+ }
+ GuiControl, 5:, WUp, 1
+ GoSub, WUp
+ Loop, Parse, Details, %A_Space%
+ Par%A_Index% := A_LoopField
If (InStr(Par2, "%"))
GuiControl, 5:, CCountE, %Par2%
Else
GuiControl, 5:, CCount, %Par2%
+ GuiControl, 5:Disable, DefCt
+ GuiControl, 5:Disable, GetCtrl
}
- GuiControl, 5:Disable, DefCt
- GuiControl, 5:Disable, GetCtrl
- }
- If (Action = MAction2)
- {
- GuiControl, 5:, Point, 1
- GoSub, Point
- }
- If (Action = MAction3)
- {
- GuiControl, 5:, PClick, 1
- GoSub, PClick
- }
- If (Action = MAction4)
- {
- StringReplace, DetailsX, Details, Rel%A_Space%,, All
- StringReplace, DetailsX, DetailsX, `}`{, |, All
- StringReplace, DetailsX, DetailsX, %A_Space%,, All
- Loop, Parse, DetailsX, |
- Details%A_Index% := A_LoopField
- StringReplace, Details1, Details1, `{
- StringReplace, Details2, Details2, `}
- Loop, Parse, Details1, `,
- Par%A_Index% := A_LoopField
- GuiControl, 5:, IniX, %Par2%
- GuiControl, 5:, IniY, %Par3%
- Loop, Parse, Details2, `,
- Par%A_Index% := A_LoopField
- GuiControl, 5:, EndX, %Par2%
- GuiControl, 5:, EndY, %Par3%
- GuiControl, 5:, Drag, 1
- GoSub, Drag
- }
- If (Action = MAction5)
- {
- If (Type = cType13)
- {
- StringReplace, Details, Details, `{Click`,%A_Space%
- StringReplace, Details, Details, `}
- }
- GuiControl, 5:, WUp, 1
- GoSub, WUp
- Loop, Parse, Details, %A_Space%
- Par%A_Index% := A_LoopField
- If (InStr(Par2, "%"))
- GuiControl, 5:, CCountE, %Par2%
- Else
- GuiControl, 5:, CCount, %Par2%
- GuiControl, 5:Disable, DefCt
- GuiControl, 5:Disable, GetCtrl
- }
- If (Action = MAction6)
- {
- If (Type = cType13)
+ If (Action = MAction6)
{
- StringReplace, Details, Details, `{Click`,%A_Space%
- StringReplace, Details, Details, `}
+ If (Type = cType13)
+ {
+ StringReplace, Details, Details, `{Click`,%A_Space%
+ StringReplace, Details, Details, `}
+ }
+ GuiControl, 5:, WDn, 1
+ GoSub, WDn
+ Loop, Parse, Details, %A_Space%, `,
+ Par%A_Index% := A_LoopField
+ If (InStr(Par2, "%"))
+ GuiControl, 5:, CCountE, %Par2%
+ Else
+ GuiControl, 5:, CCount, %Par2%
+ GuiControl, 5:Disable, DefCt
+ GuiControl, 5:Disable, GetCtrl
}
- GuiControl, 5:, WDn, 1
- GoSub, WDn
- Loop, Parse, Details, %A_Space%, `,
- Par%A_Index% := A_LoopField
- If (InStr(Par2, "%"))
- GuiControl, 5:, CCountE, %Par2%
- Else
- GuiControl, 5:, CCount, %Par2%
- GuiControl, 5:Disable, DefCt
- GuiControl, 5:Disable, GetCtrl
- }
- If (InStr(Details, " Down"))
- {
- GuiControl, 5:, MHold, 1
- GuiControl, 5:, CCount, 1
- GuiControl, 5:Disable, Clicks
- GuiControl, 5:Disable, CCount
- GuiControl, 5:Disable, CCountE
- StringReplace, Details, Details, %A_Space%Down
- }
- If (InStr(Details, " Up"))
- {
- GuiControl, 5:, MRelease, 1
- GuiControl, 5:, CCount, 1
- GuiControl, 5:Disable, Clicks
- GuiControl, 5:Disable, CCount
- GuiControl, 5:Disable, CCountE
- StringReplace, Details, Details, %A_Space%Up
- }
- If (Type = cType4)
- {
- GuiControl, 5:, CSend, 1
- GuiControl, 5:Enable, CSend
- GuiControl, 5:Enable, DefCt
- GuiControl, 5:Enable, GetCtrl
- GuiControl, 5:Enable, Ident
- GuiControl, 5:Enable, Title
- GuiControl, 5:Enable, GetWin
- GuiControl, 5:Enable, MRel
- GuiControl, 5:, MRel, 1
- GuiControl, 5:Enable, IniX
- GuiControl, 5:Enable, IniY
- GuiControl, 5:Enable, MouseGetI
- GuiControl, 5:, DefCt, %Target%
- Loop, Parse, Details, `,, %A_Space%
- Par%A_Index% := A_LoopField
- Loop, Parse, Par3, %A_Space%
- Param%A_Index% := A_LoopField
- If (InStr(Param1, "x"))
+ If (InStr(Details, " Down"))
{
- StringReplace, Param1, Param1, x
- StringReplace, Param2, Param2, y
- GuiControl, 5:, IniX, %Param1%
- GuiControl, 5:, IniY, %Param2%
+ GuiControl, 5:, MHold, 1
+ GuiControl, 5:, CCount, 1
+ GuiControl, 5:Disable, Clicks
+ GuiControl, 5:Disable, CCount
+ GuiControl, 5:Disable, CCountE
+ StringReplace, Details, Details, %A_Space%Down
}
- If (InStr(Param2, "x"))
+ If (InStr(Details, " Up"))
{
- StringReplace, Param2, Param2, x
- StringReplace, Param3, Param3, y
- GuiControl, 5:, IniX, %Param2%
- GuiControl, 5:, IniY, %Param3%
+ GuiControl, 5:, MRelease, 1
+ GuiControl, 5:, CCount, 1
+ GuiControl, 5:Disable, Clicks
+ GuiControl, 5:Disable, CCount
+ GuiControl, 5:Disable, CCountE
+ StringReplace, Details, Details, %A_Space%Up
}
- If (RegExMatch(Target, "^x[0-9]+ y[0-9]+$"))
+ If (Type = cType4)
{
- StringReplace, Target, Target, x
- StringReplace, Target, Target, y
- Loop, Parse, Target, %A_Space%
- Targ%A_Index% := A_LoopField
+ GuiControl, 5:, CSend, 1
GuiControl, 5:Enable, CSend
- GuiControl, 5:Disable, DefCt
- GuiControl, 5:Disable, GetCtrl
- GuiControl, 5:, MRel, 0
- GuiControl, 5:, DefCt
- GuiControl, 5:, IniX, %Targ1%
- GuiControl, 5:, IniY, %Targ2%
+ GuiControl, 5:Enable, DefCt
+ GuiControl, 5:Enable, GetCtrl
+ GuiControl, 5:Enable, Ident
+ GuiControl, 5:Enable, Title
+ GuiControl, 5:Enable, GetWin
+ GuiControl, 5:Enable, MRel
+ GuiControl, 5:, MRel, 1
+ GuiControl, 5:Enable, IniX
+ GuiControl, 5:Enable, IniY
+ GuiControl, 5:Enable, MouseGetI
+ GuiControl, 5:, DefCt, %Target%
+ Loop, Parse, Details, `,, %A_Space%
+ Par%A_Index% := A_LoopField
+ Loop, Parse, Par3, %A_Space%
+ Param%A_Index% := A_LoopField
+ If (InStr(Param1, "x"))
+ {
+ StringReplace, Param1, Param1, x
+ StringReplace, Param2, Param2, y
+ GuiControl, 5:, IniX, %Param1%
+ GuiControl, 5:, IniY, %Param2%
+ }
+ If (InStr(Param2, "x"))
+ {
+ StringReplace, Param2, Param2, x
+ StringReplace, Param3, Param3, y
+ GuiControl, 5:, IniX, %Param2%
+ GuiControl, 5:, IniY, %Param3%
+ }
+ If (RegExMatch(Target, "^x[0-9]+ y[0-9]+$"))
+ {
+ StringReplace, Target, Target, x
+ StringReplace, Target, Target, y
+ Loop, Parse, Target, %A_Space%
+ Targ%A_Index% := A_LoopField
+ GuiControl, 5:Enable, CSend
+ GuiControl, 5:Disable, DefCt
+ GuiControl, 5:Disable, GetCtrl
+ GuiControl, 5:, MRel, 0
+ GuiControl, 5:, DefCt
+ GuiControl, 5:, IniX, %Targ1%
+ GuiControl, 5:, IniY, %Targ2%
+ }
+ GuiControl, 5:, Title, %Window%
}
- GuiControl, 5:, Title, %Window%
- }
- If (Type = cType13)
- {
- GuiControl, 5:, SE, 1
- GoSub, SE
- }
- If (InStr(Details, "Rel"))
- GuiControl, 5:, MRel, 1
- If (Target = "Random")
- {
- GuiControl, 5:Enable, MRand
- GuiControl, 5:, MRand, 1
- GuiControl, 5:Enable, RandOffsetE
- GuiControl, 5:, RandOffsetE, %Window%
- }
- If ((Action = MAction2) || (Action = MAction3))
- {
If (Type = cType13)
{
- StringReplace, Details, Details, `{Click`,%A_Space%
- StringReplace, Details, Details, `}
+ GuiControl, 5:, SE, 1
+ GoSub, SE
}
- StringReplace, Details, Details, Rel%A_Space%
- Loop, Parse, Details, %A_Space%
- Par%A_Index% := A_LoopField
- StringReplace, Par1, Par1, `,
- StringReplace, Par2, Par2, `,
- GuiControl, 5:, IniX, %Par1%
- GuiControl, 5:, IniY, %Par2%
- GuiControlGet, cc, 5:, CCount
- If (Action = MAction2)
- GuiControl, 5:, CCount, 1
- Else
+ If (InStr(Details, "Rel"))
+ GuiControl, 5:, MRel, 1
+ If (Target = "Random")
+ {
+ GuiControl, 5:Enable, MRand
+ GuiControl, 5:, MRand, 1
+ GuiControl, 5:Enable, RandOffsetE
+ GuiControl, 5:, RandOffsetE, %Window%
+ }
+ If ((Action = MAction2) || (Action = MAction3))
{
- If ((Par4 != "") && (Par4 != "Down") && (Par4 != "Up"))
+ If (Type = cType13)
{
- If (InStr(Par4, "%"))
- GuiControl, 5:, CCountE, %Par4%
- Else
- GuiControl, 5:, CCount, %Par4%
+ StringReplace, Details, Details, `{Click`,%A_Space%
+ StringReplace, Details, Details, `}
+ }
+ StringReplace, Details, Details, Rel%A_Space%
+ Loop, Parse, Details, %A_Space%
+ Par%A_Index% := A_LoopField
+ StringReplace, Par1, Par1, `,
+ StringReplace, Par2, Par2, `,
+ GuiControl, 5:, IniX, %Par1%
+ GuiControl, 5:, IniY, %Par2%
+ GuiControlGet, cc, 5:, CCount
+ If (Action = MAction2)
+ GuiControl, 5:, CCount, 1
+ Else
+ {
+ If ((Par4 != "") && (Par4 != "Down") && (Par4 != "Up"))
+ {
+ If (InStr(Par4, "%"))
+ GuiControl, 5:, CCountE, %Par4%
+ Else
+ GuiControl, 5:, CCount, %Par4%
+ }
}
}
+ GoSub, MRel
+ GuiControl, 5:Enable, MouseApply
}
- GoSub, MRel
- GuiControl, 5:Enable, MouseApply
-}
-If (s_Caller = "Find")
-{
- Gui, 5:Default
- Switch GotoRes1
+ If (s_Caller = "Find")
{
+ Gui, 5:Default
+ Switch GotoRes1
+ {
Case MAction1:
GuiControl, 5:, Click, 1
GoSub, Click
@@ -4690,241 +4686,241 @@ If (s_Caller = "Find")
Case MAction6:
GuiControl, 5:, WDn, 1
GoSub, WDn
+ }
}
-}
-Gui, 5:Submit, NoHide
-SBShowTip((CSend ? "Control" : "") "Click")
-Gui, 5:Show,, %c_Lang001%
-ChangeIcon(hIL_Icons, CmdWin, IconsNames["mouse"])
-Input
-Tooltip
+ Gui, 5:Submit, NoHide
+ SBShowTip((CSend ? "Control" : "") "Click")
+ Gui, 5:Show,, %c_Lang001%
+ ChangeIcon(hIL_Icons, CmdWin, IconsNames["mouse"])
+ Input
+ Tooltip
return
MouseApply:
MouseOK:
-Gui, 5:+OwnDialogs
-Gui, 5:Submit, NoHide
-DelayX := InStr(DelayC, "%") ? DelayC : DelayX
-If (Sec = 1)
- DelayX *= 1000
-TimesX := InStr(EdRept, "%") ? EdRept : TimesX
-If (TimesX = 0)
- TimesX := 1
-If (LB)
- Button := "Left"
-If (RB)
- Button := "Right"
-If (MB)
- Button := "Middle"
-If (X1)
- Button := "X1"
-If (X2)
- Button := "X2"
-If (Click = 1)
- GoSub, f_Click
-If (Point = 1)
-{
- If ((RegExMatch(IniX, "\s*%\s+")) || (RegExMatch(IniY, "\s*%\s+")))
- {
- MsgBox, 16, %d_Lang011%, %d_Lang059%
- return
- }
- If ((IniX = "") || (IniY = ""))
- {
- MsgBox, 16, %d_Lang011%, %d_Lang016%
- return
- }
- Else
- GoSub, f_Point
-}
-If (PClick = 1)
-{
- If ((RegExMatch(IniX, "\s*%\s+")) || (RegExMatch(IniY, "\s*%\s+")))
- {
- MsgBox, 16, %d_Lang011%, %d_Lang059%
- return
- }
- If ((IniX = "") || (IniY = ""))
- {
- MsgBox, 16, %d_Lang011%, %d_Lang016%
- return
- }
- Else
- GoSub, f_PClick
-}
-If (Drag = 1)
-{
- If ((RegExMatch(IniX, "\s*%\s+")) || (RegExMatch(IniY, "\s*%\s+")))
- {
- MsgBox, 16, %d_Lang011%, %d_Lang059%
- return
- }
- If ((IniX = "") || (IniY = "") || (EndX = "") || (EndY = ""))
- {
- MsgBox, 16, %d_Lang011%, %d_Lang016%
- return
- }
- Else
- GoSub, f_Drag
-}
-If (WUp = 1)
- GoSub, f_WUp
-If (WDn = 1)
- GoSub, f_WDn
-Window := Title
-GuiControlGet, CtrlState, Enabled, DefCt
-GuiControlGet, SendState, Enabled, CSend
-If (CtrlState = 1)
-{
- If ((CSend = 1) && (SendState = 1))
- {
- If (DefCt = "")
+ Gui, 5:+OwnDialogs
+ Gui, 5:Submit, NoHide
+ DelayX := InStr(DelayC, "%") ? DelayC : DelayX
+ If (Sec = 1)
+ DelayX *= 1000
+ TimesX := InStr(EdRept, "%") ? EdRept : TimesX
+ If (TimesX = 0)
+ TimesX := 1
+ If (LB)
+ Button := "Left"
+ If (RB)
+ Button := "Right"
+ If (MB)
+ Button := "Middle"
+ If (X1)
+ Button := "X1"
+ If (X2)
+ Button := "X2"
+ If (Click = 1)
+ GoSub, f_Click
+ If (Point = 1)
+ {
+ If ((RegExMatch(IniX, "\s*%\s+")) || (RegExMatch(IniY, "\s*%\s+")))
{
- MsgBox, 52, %d_Lang011%, %d_Lang012%
- IfMsgBox, No
- return
+ MsgBox, 16, %d_Lang011%, %d_Lang059%
+ return
}
If ((IniX = "") || (IniY = ""))
- Details .= " NA"
- Target := DefCt, Type := cType4
+ {
+ MsgBox, 16, %d_Lang011%, %d_Lang016%
+ return
+ }
+ Else
+ GoSub, f_Point
}
- Else
- Target := "", Window := ""
-}
-Else
-{
- If ((CSend = 1) && (SendState = 1))
+ If (PClick = 1)
{
+ If ((RegExMatch(IniX, "\s*%\s+")) || (RegExMatch(IniY, "\s*%\s+")))
+ {
+ MsgBox, 16, %d_Lang011%, %d_Lang059%
+ return
+ }
If ((IniX = "") || (IniY = ""))
{
MsgBox, 16, %d_Lang011%, %d_Lang016%
return
}
Else
- Details .= " NA", Target := "x" IniX " y" IniY, Type := cType4
+ GoSub, f_PClick
}
- Else
- Target := "", Window := ""
-}
-If (MRand)
- Target := "Random", Window := RandOffsetE
-If (A_ThisLabel != "MouseApply")
-{
- Gui, 1:-Disabled
- Gui, 5:Destroy
-}
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
-If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col2", Action, Details, TimesX, DelayX, Type, Target, Window)
-Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
-{
- LV_Add("Check", ListCount%A_List%+1, Action, Details, TimesX, DelayX, Type, Target, Window)
- LV_Modify(ListCount%A_List%+1, "Vis")
-}
-Else
-{
- GuiControl, chMacro:-g, InputList%A_List%
- RowNumber := 0
- Loop, %RowSelection%
+ If (Drag = 1)
{
- RowNumber := LV_GetNext(RowNumber)
- LV_Insert(RowNumber, "Check", RowNumber, Action, Details, TimesX, DelayX, Type, Target, Window)
- LVManager[A_List].InsertAtGroup(RowNumber)
- RowNumber++
+ If ((RegExMatch(IniX, "\s*%\s+")) || (RegExMatch(IniY, "\s*%\s+")))
+ {
+ MsgBox, 16, %d_Lang011%, %d_Lang059%
+ return
+ }
+ If ((IniX = "") || (IniY = "") || (EndX = "") || (EndY = ""))
+ {
+ MsgBox, 16, %d_Lang011%, %d_Lang016%
+ return
+ }
+ Else
+ GoSub, f_Drag
+ }
+ If (WUp = 1)
+ GoSub, f_WUp
+ If (WDn = 1)
+ GoSub, f_WDn
+ Window := Title
+ GuiControlGet, CtrlState, Enabled, DefCt
+ GuiControlGet, SendState, Enabled, CSend
+ If (CtrlState = 1)
+ {
+ If ((CSend = 1) && (SendState = 1))
+ {
+ If (DefCt = "")
+ {
+ MsgBox, 52, %d_Lang011%, %d_Lang012%
+ IfMsgBox, No
+ return
+ }
+ If ((IniX = "") || (IniY = ""))
+ Details .= " NA"
+ Target := DefCt, Type := cType4
+ }
+ Else
+ Target := "", Window := ""
+ }
+ Else
+ {
+ If ((CSend = 1) && (SendState = 1))
+ {
+ If ((IniX = "") || (IniY = ""))
+ {
+ MsgBox, 16, %d_Lang011%, %d_Lang016%
+ return
+ }
+ Else
+ Details .= " NA", Target := "x" IniX " y" IniY, Type := cType4
+ }
+ Else
+ Target := "", Window := ""
+ }
+ If (MRand)
+ Target := "Random", Window := RandOffsetE
+ If (A_ThisLabel != "MouseApply")
+ {
+ Gui, 1:-Disabled
+ Gui, 5:Destroy
+ }
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col2", Action, Details, TimesX, DelayX, Type, Target, Window)
+ Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
+ {
+ LV_Add("Check", ListCount%A_List%+1, Action, Details, TimesX, DelayX, Type, Target, Window)
+ LV_Modify(ListCount%A_List%+1, "Vis")
+ }
+ Else
+ {
+ GuiControl, chMacro:-g, InputList%A_List%
+ RowNumber := 0
+ Loop, %RowSelection%
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ LV_Insert(RowNumber, "Check", RowNumber, Action, Details, TimesX, DelayX, Type, Target, Window)
+ LVManager[A_List].InsertAtGroup(RowNumber)
+ RowNumber++
+ }
+ GuiControl, chMacro:+gInputList, InputList%A_List%
+ }
+ GoSub, RowCheck
+ GoSub, b_Start
+ If (A_ThisLabel = "MouseApply")
+ Gui, 5:Default
+ Else
+ {
+ s_Caller := ""
+ GuiControl, Focus, InputList%A_List%
}
- GuiControl, chMacro:+gInputList, InputList%A_List%
-}
-GoSub, RowCheck
-GoSub, b_Start
-If (A_ThisLabel = "MouseApply")
- Gui, 5:Default
-Else
-{
- s_Caller := ""
- GuiControl, Focus, InputList%A_List%
-}
return
MouseCancel:
5GuiClose:
5GuiEscape:
-Gui, 1:-Disabled
-Gui, 5:Destroy
-s_Caller := ""
+ Gui, 1:-Disabled
+ Gui, 5:Destroy
+ s_Caller := ""
return
f_Click:
-Action := Button " " MAction1, Details := Button
-If (MNormal)
- Details .= ", " (InStr(CCountE, "%") ? CCountE : CCount) ", "
-If (MHold)
- Details .= ", , Down"
-If (MRelease)
- Details .= ", , Up"
-If (MRel = 1)
-{
- If ((IniX != "") && (IniY != ""))
- Details .= " x" IniX " y" IniY " NA"
-}
-If (SE = 1)
- Details := "{Click, " Details "}", Type := cType13
-Else
- Type := cType3
+ Action := Button " " MAction1, Details := Button
+ If (MNormal)
+ Details .= ", " (InStr(CCountE, "%") ? CCountE : CCount) ", "
+ If (MHold)
+ Details .= ", , Down"
+ If (MRelease)
+ Details .= ", , Up"
+ If (MRel = 1)
+ {
+ If ((IniX != "") && (IniY != ""))
+ Details .= " x" IniX " y" IniY " NA"
+ }
+ If (SE = 1)
+ Details := "{Click, " Details "}", Type := cType13
+ Else
+ Type := cType3
return
f_Point:
-Action := MAction2, Details := IniX ", " IniY ", 0"
-If (MRel = 1)
- Details := "Rel " Details
-If (SE = 1)
- Details := "{Click, " Details "}", Type := cType13
-Else
- Type := cType3
+ Action := MAction2, Details := IniX ", " IniY ", 0"
+ If (MRel = 1)
+ Details := "Rel " Details
+ If (SE = 1)
+ Details := "{Click, " Details "}", Type := cType13
+ Else
+ Type := cType3
return
f_PClick:
-Action := Button " " MAction3, Details := IniX ", " IniY " " Button
-If (MNormal)
- Details .= ", " (InStr(CCountE, "%") ? CCountE : CCount)
-If (MHold)
- Details .= ", Down"
-If (MRelease)
- Details .= ", Up"
-If (MRel = 1)
- Details := "Rel " Details
-If (SE = 1)
- Details := "{Click, " Details "}", Type := cType13
-Else
- Type := cType3
+ Action := Button " " MAction3, Details := IniX ", " IniY " " Button
+ If (MNormal)
+ Details .= ", " (InStr(CCountE, "%") ? CCountE : CCount)
+ If (MHold)
+ Details .= ", Down"
+ If (MRelease)
+ Details .= ", Up"
+ If (MRel = 1)
+ Details := "Rel " Details
+ If (SE = 1)
+ Details := "{Click, " Details "}", Type := cType13
+ Else
+ Type := cType3
return
f_Drag:
-Action := Button " " MAction4, DetailsI := IniX ", " IniY ", " Button " Down"
-DetailsE := EndX ", " EndY ", " Button " Up"
-If (MRel = 1)
- DetailsI := " Rel " DetailsI, DetailsE := " Rel " DetailsE
-Details := "{Click, " DetailsI "}{Click, " DetailsE "}", Type := cType13
+ Action := Button " " MAction4, DetailsI := IniX ", " IniY ", " Button " Down"
+ DetailsE := EndX ", " EndY ", " Button " Up"
+ If (MRel = 1)
+ DetailsI := " Rel " DetailsI, DetailsE := " Rel " DetailsE
+ Details := "{Click, " DetailsI "}{Click, " DetailsE "}", Type := cType13
return
f_WUp:
-Action := MAction5
-Details := "WheelUp"
-Details .= ", " (InStr(CCountE, "%") ? CCountE : CCount)
-If (SE = 1)
- Details := "{Click, " Details "}", Type := cType13
-Else
- Type := cType3
+ Action := MAction5
+ Details := "WheelUp"
+ Details .= ", " (InStr(CCountE, "%") ? CCountE : CCount)
+ If (SE = 1)
+ Details := "{Click, " Details "}", Type := cType13
+ Else
+ Type := cType3
return
f_WDn:
-Action := MAction6
-Details := "WheelDown"
-Details .= ", " (InStr(CCountE, "%") ? CCountE : CCount)
-If (SE = 1)
- Details := "{Click, " Details "}", Type := cType13
-Else
- Type := cType3
+ Action := MAction6
+ Details := "WheelDown"
+ Details .= ", " (InStr(CCountE, "%") ? CCountE : CCount)
+ If (SE = 1)
+ Details := "{Click, " Details "}", Type := cType13
+ Else
+ Type := cType3
return
Click:
@@ -4963,844 +4959,844 @@ GuiControl, 5:Disable%SE%, CSend
return
Point:
-GuiControl, 5:, CL, 1
-Gui, 5:Submit, NoHide
-GuiControl, 5:Disable, EndX
-GuiControl, 5:Disable, EndY
-GuiControl, 5:Disable, MouseGetE
-GuiControl, 5:Enable, IniX
-GuiControl, 5:Enable, IniY
-GuiControl, 5:Enable, MouseGetI
-GuiControl, 5:Enable, MRel
-GuiControl, 5:Enable, MRand
-GuiControl, 5:Disable, LB
-GuiControl, 5:Disable, RB
-GuiControl, 5:Disable, MB
-GuiControl, 5:Disable, X1
-GuiControl, 5:Disable, X2
-GuiControl, 5:Disable, Clicks
-GuiControl, 5:Disable, CCount
-GuiControl, 5:Disable, CCountE
-GuiControl, 5:Enable, CSend
-GuiControl, 5:Disable, CSend
-GuiControl, 5:Disable, DefCt
-GuiControl, 5:Disable, GetCtrl
-GuiControl, 5:Disable, Ident
-GuiControl, 5:Disable, Title
-GuiControl, 5:Disable, GetWin
-GuiControl, 5:Enable, CL
-GuiControl, 5:Disable, MNormal
-GuiControl, 5:Disable, MHold
-GuiControl, 5:Disable, MRelease
-GuiControl, 5:Disable, CSend
+ GuiControl, 5:, CL, 1
+ Gui, 5:Submit, NoHide
+ GuiControl, 5:Disable, EndX
+ GuiControl, 5:Disable, EndY
+ GuiControl, 5:Disable, MouseGetE
+ GuiControl, 5:Enable, IniX
+ GuiControl, 5:Enable, IniY
+ GuiControl, 5:Enable, MouseGetI
+ GuiControl, 5:Enable, MRel
+ GuiControl, 5:Enable, MRand
+ GuiControl, 5:Disable, LB
+ GuiControl, 5:Disable, RB
+ GuiControl, 5:Disable, MB
+ GuiControl, 5:Disable, X1
+ GuiControl, 5:Disable, X2
+ GuiControl, 5:Disable, Clicks
+ GuiControl, 5:Disable, CCount
+ GuiControl, 5:Disable, CCountE
+ GuiControl, 5:Enable, CSend
+ GuiControl, 5:Disable, CSend
+ GuiControl, 5:Disable, DefCt
+ GuiControl, 5:Disable, GetCtrl
+ GuiControl, 5:Disable, Ident
+ GuiControl, 5:Disable, Title
+ GuiControl, 5:Disable, GetWin
+ GuiControl, 5:Enable, CL
+ GuiControl, 5:Disable, MNormal
+ GuiControl, 5:Disable, MHold
+ GuiControl, 5:Disable, MRelease
+ GuiControl, 5:Disable, CSend
return
PClick:
-GuiControl, 5:, CL, 1
-Gui, 5:Submit, NoHide
-GuiControl, 5:Disable, EndX
-GuiControl, 5:Disable, EndY
-GuiControl, 5:Disable, MouseGetE
-GuiControl, 5:Enable, IniX
-GuiControl, 5:Enable, IniY
-GuiControl, 5:Enable, MouseGetI
-GuiControl, 5:Enable, MRel
-GuiControl, 5:Enable, MRand
-GuiControl, 5:Enable, LB
-GuiControl, 5:Enable, RB
-GuiControl, 5:Enable, MB
-GuiControl, 5:Enable, X1
-GuiControl, 5:Enable, X2
-GuiControl, 5:Enable, Clicks
-GuiControl, 5:Enable, CCount
-GuiControl, 5:Enable, CCountE
-GuiControl, 5:Enable, CSend
-GuiControl, 5:Disable, CSend
-GuiControl, 5:Disable, DefCt
-GuiControl, 5:Disable, GetCtrl
-GuiControl, 5:Disable, Ident
-GuiControl, 5:Disable, Title
-GuiControl, 5:Disable, GetWin
-GuiControl, 5:Enable, CL
-GuiControl, 5:Enable, MNormal
-GuiControl, 5:Enable, MHold
-GuiControl, 5:Enable, MRelease
-GuiControl, 5:Disable, CSend
+ GuiControl, 5:, CL, 1
+ Gui, 5:Submit, NoHide
+ GuiControl, 5:Disable, EndX
+ GuiControl, 5:Disable, EndY
+ GuiControl, 5:Disable, MouseGetE
+ GuiControl, 5:Enable, IniX
+ GuiControl, 5:Enable, IniY
+ GuiControl, 5:Enable, MouseGetI
+ GuiControl, 5:Enable, MRel
+ GuiControl, 5:Enable, MRand
+ GuiControl, 5:Enable, LB
+ GuiControl, 5:Enable, RB
+ GuiControl, 5:Enable, MB
+ GuiControl, 5:Enable, X1
+ GuiControl, 5:Enable, X2
+ GuiControl, 5:Enable, Clicks
+ GuiControl, 5:Enable, CCount
+ GuiControl, 5:Enable, CCountE
+ GuiControl, 5:Enable, CSend
+ GuiControl, 5:Disable, CSend
+ GuiControl, 5:Disable, DefCt
+ GuiControl, 5:Disable, GetCtrl
+ GuiControl, 5:Disable, Ident
+ GuiControl, 5:Disable, Title
+ GuiControl, 5:Disable, GetWin
+ GuiControl, 5:Enable, CL
+ GuiControl, 5:Enable, MNormal
+ GuiControl, 5:Enable, MHold
+ GuiControl, 5:Enable, MRelease
+ GuiControl, 5:Disable, CSend
return
Drag:
-Gui, 5:Submit, NoHide
-GuiControl, 5:Enable, IniX
-GuiControl, 5:Enable, IniY
-GuiControl, 5:Enable, MouseGetI
-GuiControl, 5:Enable, EndX
-GuiControl, 5:Enable, EndY
-GuiControl, 5:Enable, MouseGetE
-GuiControl, 5:Enable, MRel
-GuiControl, 5:Disable, MRand
-GuiControl, 5:, MRand, 0
-GuiControl, 5:Disable, RandOffsetE
-GuiControl, 5:Enable, LB
-GuiControl, 5:Enable, RB
-GuiControl, 5:Enable, MB
-GuiControl, 5:Enable, X1
-GuiControl, 5:Enable, X2
-GuiControl, 5:Disable, Clicks
-GuiControl, 5:Disable, CCount
-GuiControl, 5:Disable, CCountE
-GuiControl, 5:Disable, CSend
-GuiControl, 5:Disable, DefCt
-GuiControl, 5:Disable, GetCtrl
-GuiControl, 5:Disable, Ident
-GuiControl, 5:Disable, Title
-GuiControl, 5:Disable, GetWin
-GuiControl, 5:, SE, 1
-GuiControl, 5:Disable, CL
-GuiControl, 5:Disable, MNormal
-GuiControl, 5:Disable, MHold
-GuiControl, 5:Disable, MRelease
-GuiControl, 5:Disable, CSend
+ Gui, 5:Submit, NoHide
+ GuiControl, 5:Enable, IniX
+ GuiControl, 5:Enable, IniY
+ GuiControl, 5:Enable, MouseGetI
+ GuiControl, 5:Enable, EndX
+ GuiControl, 5:Enable, EndY
+ GuiControl, 5:Enable, MouseGetE
+ GuiControl, 5:Enable, MRel
+ GuiControl, 5:Disable, MRand
+ GuiControl, 5:, MRand, 0
+ GuiControl, 5:Disable, RandOffsetE
+ GuiControl, 5:Enable, LB
+ GuiControl, 5:Enable, RB
+ GuiControl, 5:Enable, MB
+ GuiControl, 5:Enable, X1
+ GuiControl, 5:Enable, X2
+ GuiControl, 5:Disable, Clicks
+ GuiControl, 5:Disable, CCount
+ GuiControl, 5:Disable, CCountE
+ GuiControl, 5:Disable, CSend
+ GuiControl, 5:Disable, DefCt
+ GuiControl, 5:Disable, GetCtrl
+ GuiControl, 5:Disable, Ident
+ GuiControl, 5:Disable, Title
+ GuiControl, 5:Disable, GetWin
+ GuiControl, 5:, SE, 1
+ GuiControl, 5:Disable, CL
+ GuiControl, 5:Disable, MNormal
+ GuiControl, 5:Disable, MHold
+ GuiControl, 5:Disable, MRelease
+ GuiControl, 5:Disable, CSend
return
WUp:
-GuiControl, 5:, CL, 1
-Gui, 5:Submit, NoHide
-GuiControl, 5:Disable, IniX
-GuiControl, 5:Disable, IniY
-GuiControl, 5:Disable, MouseGetI
-GuiControl, 5:Disable, EndX
-GuiControl, 5:Disable, EndY
-GuiControl, 5:Disable, MouseGetE
-GuiControl, 5:Disable, MRel
-GuiControl, 5:Disable, MRand
-GuiControl, 5:, MRand, 0
-GuiControl, 5:Disable, RandOffsetE
-GuiControl, 5:Disable, LB
-GuiControl, 5:Disable, RB
-GuiControl, 5:Disable, MB
-GuiControl, 5:Disable, X1
-GuiControl, 5:Disable, X2
-GuiControl, 5:Enable, Clicks
-GuiControl, 5:Enable, CCount
-GuiControl, 5:Enable, CCountE
-GuiControl, 5:Enable, CSend
-GuiControl, 5:Enable, DefCt
-GuiControl, 5:Enable, GetCtrl
-GuiControl, 5:Enable, Ident
-GuiControl, 5:Enable, Title
-GuiControl, 5:Enable, GetWin
-GuiControl, 5:Enable, CL
-GuiControl, 5:Disable, MNormal
-GuiControl, 5:Disable, MHold
-GuiControl, 5:Disable, MRelease
-GuiControl, 5:Disable%SE%, CSend
-GoSub, CSend
+ GuiControl, 5:, CL, 1
+ Gui, 5:Submit, NoHide
+ GuiControl, 5:Disable, IniX
+ GuiControl, 5:Disable, IniY
+ GuiControl, 5:Disable, MouseGetI
+ GuiControl, 5:Disable, EndX
+ GuiControl, 5:Disable, EndY
+ GuiControl, 5:Disable, MouseGetE
+ GuiControl, 5:Disable, MRel
+ GuiControl, 5:Disable, MRand
+ GuiControl, 5:, MRand, 0
+ GuiControl, 5:Disable, RandOffsetE
+ GuiControl, 5:Disable, LB
+ GuiControl, 5:Disable, RB
+ GuiControl, 5:Disable, MB
+ GuiControl, 5:Disable, X1
+ GuiControl, 5:Disable, X2
+ GuiControl, 5:Enable, Clicks
+ GuiControl, 5:Enable, CCount
+ GuiControl, 5:Enable, CCountE
+ GuiControl, 5:Enable, CSend
+ GuiControl, 5:Enable, DefCt
+ GuiControl, 5:Enable, GetCtrl
+ GuiControl, 5:Enable, Ident
+ GuiControl, 5:Enable, Title
+ GuiControl, 5:Enable, GetWin
+ GuiControl, 5:Enable, CL
+ GuiControl, 5:Disable, MNormal
+ GuiControl, 5:Disable, MHold
+ GuiControl, 5:Disable, MRelease
+ GuiControl, 5:Disable%SE%, CSend
+ GoSub, CSend
return
WDn:
-GuiControl, 5:, CL, 1
-Gui, 5:Submit, NoHide
-GuiControl, 5:Disable, IniX
-GuiControl, 5:Disable, IniY
-GuiControl, 5:Disable, MouseGetI
-GuiControl, 5:Disable, EndX
-GuiControl, 5:Disable, EndY
-GuiControl, 5:Disable, MouseGetE
-GuiControl, 5:Disable, MRel
-GuiControl, 5:Disable, MRand
-GuiControl, 5:, MRand, 0
-GuiControl, 5:Disable, RandOffsetE
-GuiControl, 5:Disable, LB
-GuiControl, 5:Disable, RB
-GuiControl, 5:Disable, MB
-GuiControl, 5:Disable, X1
-GuiControl, 5:Disable, X2
-GuiControl, 5:Enable, Clicks
-GuiControl, 5:Enable, CCount
-GuiControl, 5:Enable, CCountE
-GuiControl, 5:Enable, CSend
-GuiControl, 5:Enable, DefCt
-GuiControl, 5:Enable, GetCtrl
-GuiControl, 5:Enable, Ident
-GuiControl, 5:Enable, Title
-GuiControl, 5:Enable, GetWin
-GuiControl, 5:Enable, CL
-GuiControl, 5:Disable, MNormal
-GuiControl, 5:Disable, MHold
-GuiControl, 5:Disable, MRelease
-GuiControl, 5:Disable%SE%, CSend
-GoSub, CSend
+ GuiControl, 5:, CL, 1
+ Gui, 5:Submit, NoHide
+ GuiControl, 5:Disable, IniX
+ GuiControl, 5:Disable, IniY
+ GuiControl, 5:Disable, MouseGetI
+ GuiControl, 5:Disable, EndX
+ GuiControl, 5:Disable, EndY
+ GuiControl, 5:Disable, MouseGetE
+ GuiControl, 5:Disable, MRel
+ GuiControl, 5:Disable, MRand
+ GuiControl, 5:, MRand, 0
+ GuiControl, 5:Disable, RandOffsetE
+ GuiControl, 5:Disable, LB
+ GuiControl, 5:Disable, RB
+ GuiControl, 5:Disable, MB
+ GuiControl, 5:Disable, X1
+ GuiControl, 5:Disable, X2
+ GuiControl, 5:Enable, Clicks
+ GuiControl, 5:Enable, CCount
+ GuiControl, 5:Enable, CCountE
+ GuiControl, 5:Enable, CSend
+ GuiControl, 5:Enable, DefCt
+ GuiControl, 5:Enable, GetCtrl
+ GuiControl, 5:Enable, Ident
+ GuiControl, 5:Enable, Title
+ GuiControl, 5:Enable, GetWin
+ GuiControl, 5:Enable, CL
+ GuiControl, 5:Disable, MNormal
+ GuiControl, 5:Disable, MHold
+ GuiControl, 5:Disable, MRelease
+ GuiControl, 5:Disable%SE%, CSend
+ GoSub, CSend
return
CL:
-Gui, 5:Submit, NoHide
-GuiControl, 5:Enable, CSend
-GuiControl, 5:Enable, DefCt
-GuiControl, 5:Enable, GetCtrl
-GuiControl, 5:Enable, Ident
-GuiControl, 5:Enable, Title
-GuiControl, 5:Enable, GetWin
-If (Click = 1)
- GoSub, Click
-If (Point = 1)
- GoSub, Point
-If (PClick = 1)
- GoSub, PClick
-If (Drag = 1)
- GoSub, Drag
-If (WUp = 1)
- GoSub, WUp
-If (WDn = 1)
- GoSub, WDn
+ Gui, 5:Submit, NoHide
+ GuiControl, 5:Enable, CSend
+ GuiControl, 5:Enable, DefCt
+ GuiControl, 5:Enable, GetCtrl
+ GuiControl, 5:Enable, Ident
+ GuiControl, 5:Enable, Title
+ GuiControl, 5:Enable, GetWin
+ If (Click = 1)
+ GoSub, Click
+ If (Point = 1)
+ GoSub, Point
+ If (PClick = 1)
+ GoSub, PClick
+ If (Drag = 1)
+ GoSub, Drag
+ If (WUp = 1)
+ GoSub, WUp
+ If (WDn = 1)
+ GoSub, WDn
return
SE:
-Gui, 5:Submit, NoHide
-GuiControl, 5:Disable, CSend
-GuiControl, 5:Disable, DefCt
-GuiControl, 5:Disable, GetCtrl
-GuiControl, 5:Disable, Ident
-GuiControl, 5:Disable, Title
-GuiControl, 5:Disable, GetWin
-GuiControl, 5:, MRel, 0
+ Gui, 5:Submit, NoHide
+ GuiControl, 5:Disable, CSend
+ GuiControl, 5:Disable, DefCt
+ GuiControl, 5:Disable, GetCtrl
+ GuiControl, 5:Disable, Ident
+ GuiControl, 5:Disable, Title
+ GuiControl, 5:Disable, GetWin
+ GuiControl, 5:, MRel, 0
return
MRel:
-Gui, 5:Submit, NoHide
-If ((Click = 1) || (WUp = 1) || (WDn = 1))
-{
- GuiControl, 5:Enable%MRel%, DefCt
- GuiControl, 5:Enable%MRel%, GetCtrl
-}
+ Gui, 5:Submit, NoHide
+ If ((Click = 1) || (WUp = 1) || (WDn = 1))
+ {
+ GuiControl, 5:Enable%MRel%, DefCt
+ GuiControl, 5:Enable%MRel%, GetCtrl
+ }
return
MRand:
-Gui, 5:Submit, NoHide
-If (MRand)
- GuiControl, 5:Enable, RandOffsetE
-Else
- GuiControl, 5:Disable, RandOffsetE
+ Gui, 5:Submit, NoHide
+ If (MRand)
+ GuiControl, 5:Enable, RandOffsetE
+ Else
+ GuiControl, 5:Disable, RandOffsetE
return
MHold:
-Gui, 5:Submit, NoHide
-If (MNormal)
-{
- GuiControl, 5:Enable, Clicks
- GuiControl, 5:Enable, CCount
- GuiControl, 5:Enable, CCountE
-}
-Else
-{
- GuiControl, 5:Disable, Clicks
- GuiControl, 5:Disable, CCount
- GuiControl, 5:Disable, CCountE
-}
+ Gui, 5:Submit, NoHide
+ If (MNormal)
+ {
+ GuiControl, 5:Enable, Clicks
+ GuiControl, 5:Enable, CCount
+ GuiControl, 5:Enable, CCountE
+ }
+ Else
+ {
+ GuiControl, 5:Disable, Clicks
+ GuiControl, 5:Disable, CCount
+ GuiControl, 5:Disable, CCountE
+ }
return
MouseGetI:
-CoordMode, Mouse, %CoordMouse%
-Gui, 5:Submit, NoHide
-Hotkey, RButton, NoKey, On
-Hotkey, Esc, EscNoKey, On
-WinMinimize, ahk_id %CmdWin%
-SetTimer, WatchCursor, 100
-StopIt := 0
-Sleep, 100
-WaitFor.Key("RButton")
-SetTimer, WatchCursor, off
-ToolTip
-Sleep, 200
-Hotkey, RButton, NoKey, Off
-Hotkey, Esc, EscNoKey, Off
-WinActivate, ahk_id %CmdWin%
-If (StopIt)
- Exit
-GuiControlGet, CtrlState, Enabled, DefCt
-If (A_GuiControl = "MouseGet")
-{
- GuiControl,, Par2File, %xPos%
- GuiControl,, Par3File, %yPos%
- return
-}
-If (CtrlState = 1)
-{
- GuiControl,, IniX, %xcpos%
- GuiControl,, IniY, %ycpos%
-}
-Else
-{
- GuiControl,, IniX, %xPos%
- GuiControl,, IniY, %yPos%
-}
-StopIt := 1
+ CoordMode, Mouse, %CoordMouse%
+ Gui, 5:Submit, NoHide
+ Hotkey, RButton, NoKey, On
+ Hotkey, Esc, EscNoKey, On
+ WinMinimize, ahk_id %CmdWin%
+ SetTimer, WatchCursor, 100
+ StopIt := 0
+ Sleep, 100
+ WaitFor.Key("RButton")
+ SetTimer, WatchCursor, off
+ ToolTip
+ Sleep, 200
+ Hotkey, RButton, NoKey, Off
+ Hotkey, Esc, EscNoKey, Off
+ WinActivate, ahk_id %CmdWin%
+ If (StopIt)
+ Exit
+ GuiControlGet, CtrlState, Enabled, DefCt
+ If (A_GuiControl = "MouseGet")
+ {
+ GuiControl,, Par2File, %xPos%
+ GuiControl,, Par3File, %yPos%
+ return
+ }
+ If (CtrlState = 1)
+ {
+ GuiControl,, IniX, %xcpos%
+ GuiControl,, IniY, %ycpos%
+ }
+ Else
+ {
+ GuiControl,, IniX, %xPos%
+ GuiControl,, IniY, %yPos%
+ }
+ StopIt := 1
return
MouseGetE:
-CoordMode, Mouse, %CoordMouse%
-Hotkey, RButton, NoKey, On
-Hotkey, Esc, EscNoKey, On
-WinMinimize, ahk_id %CmdWin%
-SetTimer, WatchCursor, 100
-StopIt := 0
-Sleep, 100
-WaitFor.Key("RButton")
-SetTimer, WatchCursor, off
-ToolTip
-Sleep, 200
-Hotkey, RButton, NoKey, Off
-Hotkey, Esc, EscNoKey, Off
-WinActivate, ahk_id %CmdWin%
-If (StopIt)
- Exit
-GuiControl,, EndX, %xPos%
-GuiControl,, EndY, %yPos%
-StopIt := 1
+ CoordMode, Mouse, %CoordMouse%
+ Hotkey, RButton, NoKey, On
+ Hotkey, Esc, EscNoKey, On
+ WinMinimize, ahk_id %CmdWin%
+ SetTimer, WatchCursor, 100
+ StopIt := 0
+ Sleep, 100
+ WaitFor.Key("RButton")
+ SetTimer, WatchCursor, off
+ ToolTip
+ Sleep, 200
+ Hotkey, RButton, NoKey, Off
+ Hotkey, Esc, EscNoKey, Off
+ WinActivate, ahk_id %CmdWin%
+ If (StopIt)
+ Exit
+ GuiControl,, EndX, %xPos%
+ GuiControl,, EndY, %yPos%
+ StopIt := 1
return
GetEl:
-Gui, 24:Submit, NoHide
-Gui, 24:+OwnDialogs
-If (TabControl = 1)
- ControlGet, SelIEWinName, Choice,, ComboBox2, ahk_id %CmdWin%
-CoordMode, Mouse, Window
-Hotkey, RButton, NoKey, On
-Hotkey, Esc, EscNoKey, On
-WinMinimize, ahk_id %CmdWin%
-ComObjError(false)
-If (TabControl = 2)
- ie := WBGet()
-Else
-{
- SelIEWin := IEWindows
- If (SelIEWinName = "[blank]")
- ie := ""
+ Gui, 24:Submit, NoHide
+ Gui, 24:+OwnDialogs
+ If (TabControl = 1)
+ ControlGet, SelIEWinName, Choice,, ComboBox2, ahk_id %CmdWin%
+ CoordMode, Mouse, Window
+ Hotkey, RButton, NoKey, On
+ Hotkey, Esc, EscNoKey, On
+ WinMinimize, ahk_id %CmdWin%
+ ComObjError(false)
+ If (TabControl = 2)
+ ie := WBGet()
Else
{
- ie := WBGet(RegExReplace(SelIEWinName, "§", "|"))
- DetectHiddenWindows, On
- WinActivate, %SelIEWinName%
- DetectHiddenWindows, Off
+ SelIEWin := IEWindows
+ If (SelIEWinName = "[blank]")
+ ie := ""
+ Else
+ {
+ ie := WBGet(RegExReplace(SelIEWinName, "§", "|"))
+ DetectHiddenWindows, On
+ WinActivate, %SelIEWinName%
+ DetectHiddenWindows, Off
+ }
+ }
+ If (!IsObject(ie))
+ {
+ ie := ComObjCreate("InternetExplorer.Application")
+ ie.Visible := true
+ ie.Navigate("about:blank")
+ }
+ SetTimer, WatchCursorIE, 100
+ StopIt := 0
+ Sleep, 100
+ WaitFor.Key("RButton")
+ SetTimer, WatchCursorIE, Off
+ ToolTip
+ Sleep, 200
+ Hotkey, RButton, NoKey, Off
+ Hotkey, Esc, EscNoKey, Off
+ WinActivate, ahk_id %CmdWin%
+ If (StopIt)
+ {
+ ComObjError(true)
+ Exit
+ }
+ If (oel_%Ident% != "")
+ {
+ ElIndex := GetElIndex(Element, Ident)
+ GuiControl,, DefEl, % oel_%Ident%
+ GuiControl,, DefElInd, %ElIndex%
+ }
+ Else If (oel_Name != "")
+ {
+ ElIndex := GetElIndex(Element, "Name"), f_ident := "Name"
+ GuiControl,, DefEl, % oel_Name
+ GuiControl,, DefElInd, %ElIndex%
+ GuiControl, ChooseString, Ident, Name
+ }
+ Else If (oel_ID != "")
+ {
+ ElIndex := GetElIndex(Element, "ID")
+ GuiControl,, DefEl, %oel_ID%
+ GuiControl,, DefElInd, %ElIndex%
+ GuiControl, ChooseString, Ident, ID
+ }
+ Else If (oel_ClassName != "")
+ {
+ ElIndex := GetElIndex(Element, "ClassName")
+ GuiControl,, DefEl, %oel_ClassName%
+ GuiControl,, DefElInd, %ElIndex%
+ GuiControl, ChooseString, Ident, ClassName
+ }
+ Else If (oel_TagName != "")
+ {
+ ElIndex := GetElIndex(Element, "TagName")
+ GuiControl,, DefEl, %oel_tagName%
+ GuiControl,, DefElInd, %ElIndex%
+ GuiControl, ChooseString, Ident, TagName
+ }
+ Else If (oel_InnerText != "")
+ {
+ ElIndex := GetElIndex(Element, "Links")
+ GuiControl,, DefEl, Links
+ GuiControl,, DefElInd, %ElIndex%
+ GuiControl, ChooseString, Ident, Links
+ }
+ If (TabControl = 2)
+ {
+ Gui, 24:Submit, NoHide
+ ComExpSc := IEComExp("", "", oel_%Ident%, ElIndex, "", Ident)
+ ComExpSc := SubStr(ComExpSc, 1, StrLen(ComExpSc)-5)
+ GuiControl,, ComSc, %ComSc%`n%ComExpSc%
+ }
+ If (class = "IEFrame")
+ {
+ GoSub, RefreshIEW
+ GuiControl, 24:ChooseString, IEWindows, % RegExReplace(title, " - Internet Explorer.*")
}
-}
-If (!IsObject(ie))
-{
- ie := ComObjCreate("InternetExplorer.Application")
- ie.Visible := true
- ie.Navigate("about:blank")
-}
-SetTimer, WatchCursorIE, 100
-StopIt := 0
-Sleep, 100
-WaitFor.Key("RButton")
-SetTimer, WatchCursorIE, Off
-ToolTip
-Sleep, 200
-Hotkey, RButton, NoKey, Off
-Hotkey, Esc, EscNoKey, Off
-WinActivate, ahk_id %CmdWin%
-If (StopIt)
-{
ComObjError(true)
- Exit
-}
-If (oel_%Ident% != "")
-{
- ElIndex := GetElIndex(Element, Ident)
- GuiControl,, DefEl, % oel_%Ident%
- GuiControl,, DefElInd, %ElIndex%
-}
-Else If (oel_Name != "")
-{
- ElIndex := GetElIndex(Element, "Name"), f_ident := "Name"
- GuiControl,, DefEl, % oel_Name
- GuiControl,, DefElInd, %ElIndex%
- GuiControl, ChooseString, Ident, Name
-}
-Else If (oel_ID != "")
-{
- ElIndex := GetElIndex(Element, "ID")
- GuiControl,, DefEl, %oel_ID%
- GuiControl,, DefElInd, %ElIndex%
- GuiControl, ChooseString, Ident, ID
-}
-Else If (oel_ClassName != "")
-{
- ElIndex := GetElIndex(Element, "ClassName")
- GuiControl,, DefEl, %oel_ClassName%
- GuiControl,, DefElInd, %ElIndex%
- GuiControl, ChooseString, Ident, ClassName
-}
-Else If (oel_TagName != "")
-{
- ElIndex := GetElIndex(Element, "TagName")
- GuiControl,, DefEl, %oel_tagName%
- GuiControl,, DefElInd, %ElIndex%
- GuiControl, ChooseString, Ident, TagName
-}
-Else If (oel_InnerText != "")
-{
- ElIndex := GetElIndex(Element, "Links")
- GuiControl,, DefEl, Links
- GuiControl,, DefElInd, %ElIndex%
- GuiControl, ChooseString, Ident, Links
-}
-If (TabControl = 2)
-{
- Gui, 24:Submit, NoHide
- ComExpSc := IEComExp("", "", oel_%Ident%, ElIndex, "", Ident)
- ComExpSc := SubStr(ComExpSc, 1, StrLen(ComExpSc)-5)
- GuiControl,, ComSc, %ComSc%`n%ComExpSc%
-}
-If (class = "IEFrame")
-{
- GoSub, RefreshIEW
- GuiControl, 24:ChooseString, IEWindows, % RegExReplace(title, " - Internet Explorer.*")
-}
-ComObjError(true)
-StopIt := 1
+ StopIt := 1
return
GetCtrl:
-StringSplit, Ident, GetWinTitle, `,
-Loop, 5
- Ident%A_Index% := Ident%A_Index% ? 1 : 0
-
-CoordMode, Mouse, %CoordMouse%
-Hotkey, RButton, NoKey, On
-Hotkey, Esc, EscNoKey, On
-WinMinimize, ahk_id %CmdWin%
-SetTimer, WatchCursor, 100
-StopIt := 0
-Sleep, 100
-WaitFor.Key("RButton")
-SetTimer, WatchCursor, off
-ToolTip
-Sleep, 200
-Hotkey, RButton, NoKey, Off
-Hotkey, Esc, EscNoKey, Off
-WinActivate, ahk_id %CmdWin%
-If (StopIt)
- Exit
-GuiControl,, DefCt, %control%
-FoundTitle := ""
-If (Ident1)
- FoundTitle .= Title
-If (Ident2)
- FoundTitle .= " ahk_class " class
-If (Ident3)
- FoundTitle .= " ahk_exe " pname
-If (Ident4)
- FoundTitle .= " ahk_id " id
-If (Ident5)
- FoundTitle .= " ahk_pid " pid
-FoundTitle := Trim(FoundTitle)
-If (FoundTitle = "")
- FoundTitle := " ahk_class " class
-Window := FoundTitle
-GuiControl,, Title, %FoundTitle%
-StopIt := 1
+ StringSplit, Ident, GetWinTitle, `,
+ Loop, 5
+ Ident%A_Index% := Ident%A_Index% ? 1 : 0
+
+ CoordMode, Mouse, %CoordMouse%
+ Hotkey, RButton, NoKey, On
+ Hotkey, Esc, EscNoKey, On
+ WinMinimize, ahk_id %CmdWin%
+ SetTimer, WatchCursor, 100
+ StopIt := 0
+ Sleep, 100
+ WaitFor.Key("RButton")
+ SetTimer, WatchCursor, off
+ ToolTip
+ Sleep, 200
+ Hotkey, RButton, NoKey, Off
+ Hotkey, Esc, EscNoKey, Off
+ WinActivate, ahk_id %CmdWin%
+ If (StopIt)
+ Exit
+ GuiControl,, DefCt, %control%
+ FoundTitle := ""
+ If (Ident1)
+ FoundTitle .= Title
+ If (Ident2)
+ FoundTitle .= " ahk_class " class
+ If (Ident3)
+ FoundTitle .= " ahk_exe " pname
+ If (Ident4)
+ FoundTitle .= " ahk_id " id
+ If (Ident5)
+ FoundTitle .= " ahk_pid " pid
+ FoundTitle := Trim(FoundTitle)
+ If (FoundTitle = "")
+ FoundTitle := " ahk_class " class
+ Window := FoundTitle
+ GuiControl,, Title, %FoundTitle%
+ StopIt := 1
return
WinTitle:
-Menu, WinTitleMenu, Add, Title, SetWinTitle
-Menu, WinTitleMenu, Add, Class, SetWinTitle
-Menu, WinTitleMenu, Add, Process, SetWinTitle
-Menu, WinTitleMenu, Add, ID, SetWinTitle
-Menu, WinTitleMenu, Add, PID, SetWinTitle
-
-StringSplit, Ident, GetWinTitle, `,
-Loop, 5
- Ident%A_Index% := Ident%A_Index% ? 1 : 0
-
-If (Ident1)
- Menu, WinTitleMenu, Check, Title
-If (Ident2)
- Menu, WinTitleMenu, Check, Class
-If (Ident3)
- Menu, WinTitleMenu, Check, Process
-If (Ident4)
- Menu, WinTitleMenu, Check, ID
-If (Ident5)
- Menu, WinTitleMenu, Check, PID
-
-GuiControlGet, ButPos, Pos, %A_GuiControl%
-Menu, WinTitleMenu, Show, % ButPosX + 2, % (ButPosY + ButPosH * 2) + 2
-Menu, WinTitleMenu, DeleteAll
+ Menu, WinTitleMenu, Add, Title, SetWinTitle
+ Menu, WinTitleMenu, Add, Class, SetWinTitle
+ Menu, WinTitleMenu, Add, Process, SetWinTitle
+ Menu, WinTitleMenu, Add, ID, SetWinTitle
+ Menu, WinTitleMenu, Add, PID, SetWinTitle
+
+ StringSplit, Ident, GetWinTitle, `,
+ Loop, 5
+ Ident%A_Index% := Ident%A_Index% ? 1 : 0
+
+ If (Ident1)
+ Menu, WinTitleMenu, Check, Title
+ If (Ident2)
+ Menu, WinTitleMenu, Check, Class
+ If (Ident3)
+ Menu, WinTitleMenu, Check, Process
+ If (Ident4)
+ Menu, WinTitleMenu, Check, ID
+ If (Ident5)
+ Menu, WinTitleMenu, Check, PID
+
+ GuiControlGet, ButPos, Pos, %A_GuiControl%
+ Menu, WinTitleMenu, Show, % ButPosX + 2, % (ButPosY + ButPosH * 2) + 2
+ Menu, WinTitleMenu, DeleteAll
return
SetWinTitle:
-GetWinTitle := ""
-Loop, 5
- GetWinTitle .= (A_Index = A_ThisMenuItemPos ? !Ident%A_Index% : Ident%A_Index%) ","
+ GetWinTitle := ""
+ Loop, 5
+ GetWinTitle .= (A_Index = A_ThisMenuItemPos ? !Ident%A_Index% : Ident%A_Index%) ","
return
GetWin:
-StringSplit, Ident, GetWinTitle, `,
-Loop, 5
- Ident%A_Index% := Ident%A_Index% ? 1 : 0
+ StringSplit, Ident, GetWinTitle, `,
+ Loop, 5
+ Ident%A_Index% := Ident%A_Index% ? 1 : 0
-CoordMode, Mouse, %CoordMouse%
-Gui, Submit, NoHide
-Hotkey, RButton, NoKey, On
-Hotkey, Esc, EscNoKey, On
-WinMinimize, ahk_id %CmdWin%
-SetTimer, WatchCursor, 100
-StopIt := 0
-Sleep, 100
-WaitFor.Key("RButton")
-SetTimer, WatchCursor, off
-ToolTip
-Sleep, 200
-Hotkey, RButton, NoKey, Off
-Hotkey, Esc, EscNoKey, Off
-WinActivate, ahk_id %CmdWin%
-If (StopIt)
- Exit
-StringSplit, Ident, GetWinTitle, `,
-Loop, 5
- Ident%A_Index% := Ident%A_Index% ? 1 : 0
-FoundTitle := ""
-EscCom(false, Title)
-If (Ident1)
- FoundTitle .= Title
-If (Ident2)
- FoundTitle .= " ahk_class " class
-If (Ident3)
- FoundTitle .= " ahk_exe " pname
-If (Ident4)
- FoundTitle .= " ahk_id " id
-If (Ident5)
- FoundTitle .= " ahk_pid " pid
-FoundTitle := Trim(FoundTitle)
-If (FoundTitle = "")
- FoundTitle := Title
-If (Label != "IfGet")
- GuiControl,, Title, %FoundTitle%
-StopIt := 1
+ CoordMode, Mouse, %CoordMouse%
+ Gui, Submit, NoHide
+ Hotkey, RButton, NoKey, On
+ Hotkey, Esc, EscNoKey, On
+ WinMinimize, ahk_id %CmdWin%
+ SetTimer, WatchCursor, 100
+ StopIt := 0
+ Sleep, 100
+ WaitFor.Key("RButton")
+ SetTimer, WatchCursor, off
+ ToolTip
+ Sleep, 200
+ Hotkey, RButton, NoKey, Off
+ Hotkey, Esc, EscNoKey, Off
+ WinActivate, ahk_id %CmdWin%
+ If (StopIt)
+ Exit
+ StringSplit, Ident, GetWinTitle, `,
+ Loop, 5
+ Ident%A_Index% := Ident%A_Index% ? 1 : 0
+ FoundTitle := ""
+ EscCom(false, Title)
+ If (Ident1)
+ FoundTitle .= Title
+ If (Ident2)
+ FoundTitle .= " ahk_class " class
+ If (Ident3)
+ FoundTitle .= " ahk_exe " pname
+ If (Ident4)
+ FoundTitle .= " ahk_id " id
+ If (Ident5)
+ FoundTitle .= " ahk_pid " pid
+ FoundTitle := Trim(FoundTitle)
+ If (FoundTitle = "")
+ FoundTitle := Title
+ If (Label != "IfGet")
+ GuiControl,, Title, %FoundTitle%
+ StopIt := 1
return
WinGetP:
-CoordMode, Mouse, %CoordMouse%
-Gui, Submit, NoHide
-Hotkey, RButton, NoKey, On
-Hotkey, Esc, EscNoKey, On
-WinMinimize, ahk_id %CmdWin%
-SetTimer, WatchCursor, 100
-StopIt := 0
-Sleep, 100
-WaitFor.Key("RButton")
-WinGetPos, X, Y, W, H, ahk_id %id%
-SetTimer, WatchCursor, off
-ToolTip
-Sleep, 200
-Hotkey, RButton, NoKey, Off
-Hotkey, Esc, EscNoKey, Off
-WinActivate, ahk_id %CmdWin%
-If (StopIt)
- Exit
-GuiControl,, PosX, %X%
-GuiControl,, PosY, %Y%
-GuiControl,, SizeX, %W%
-GuiControl,, SizeY, %H%
-StopIt := 1
+ CoordMode, Mouse, %CoordMouse%
+ Gui, Submit, NoHide
+ Hotkey, RButton, NoKey, On
+ Hotkey, Esc, EscNoKey, On
+ WinMinimize, ahk_id %CmdWin%
+ SetTimer, WatchCursor, 100
+ StopIt := 0
+ Sleep, 100
+ WaitFor.Key("RButton")
+ WinGetPos, X, Y, W, H, ahk_id %id%
+ SetTimer, WatchCursor, off
+ ToolTip
+ Sleep, 200
+ Hotkey, RButton, NoKey, Off
+ Hotkey, Esc, EscNoKey, Off
+ WinActivate, ahk_id %CmdWin%
+ If (StopIt)
+ Exit
+ GuiControl,, PosX, %X%
+ GuiControl,, PosY, %Y%
+ GuiControl,, SizeX, %W%
+ GuiControl,, SizeY, %H%
+ StopIt := 1
return
CtrlGetP:
-CoordMode, Mouse, %CoordMouse%
-Gui, Submit, NoHide
-Hotkey, RButton, NoKey, On
-Hotkey, Esc, EscNoKey, On
-WinMinimize, ahk_id %CmdWin%
-SetTimer, WatchCursor, 100
-StopIt := 0
-Sleep, 100
-WaitFor.Key("RButton")
-ControlGetPos, X, Y, W, H, %control%, ahk_id %id%
-SetTimer, WatchCursor, off
-ToolTip
-Sleep, 200
-Hotkey, RButton, NoKey, Off
-Hotkey, Esc, EscNoKey, Off
-WinActivate, ahk_id %CmdWin%
-If (StopIt)
- Exit
-GuiControl,, PosX, %X%
-GuiControl,, PosY, %Y%
-GuiControl,, SizeX, %W%
-GuiControl,, SizeY, %H%
-StopIt := 1
+ CoordMode, Mouse, %CoordMouse%
+ Gui, Submit, NoHide
+ Hotkey, RButton, NoKey, On
+ Hotkey, Esc, EscNoKey, On
+ WinMinimize, ahk_id %CmdWin%
+ SetTimer, WatchCursor, 100
+ StopIt := 0
+ Sleep, 100
+ WaitFor.Key("RButton")
+ ControlGetPos, X, Y, W, H, %control%, ahk_id %id%
+ SetTimer, WatchCursor, off
+ ToolTip
+ Sleep, 200
+ Hotkey, RButton, NoKey, Off
+ Hotkey, Esc, EscNoKey, Off
+ WinActivate, ahk_id %CmdWin%
+ If (StopIt)
+ Exit
+ GuiControl,, PosX, %X%
+ GuiControl,, PosY, %Y%
+ GuiControl,, SizeX, %W%
+ GuiControl,, SizeY, %H%
+ StopIt := 1
return
Screenshot:
-Gui, +OwnDialogs
-SS := 1
+ Gui, +OwnDialogs
+ SS := 1
GetArea:
-Gui, Submit, NoHide
-Draw := 1
-WinMinimize, ahk_id %CmdWin%
-FirstCall := true
-CoordMode, Mouse, Screen
-Gui, 20:-Caption +ToolWindow +LastFound +AlwaysOnTop
-Gui, 20:Color, %SearchAreaColor%
-SetTimer, WatchCursor, 100
+ Gui, Submit, NoHide
+ Draw := 1
+ WinMinimize, ahk_id %CmdWin%
+ FirstCall := true
+ CoordMode, Mouse, Screen
+ Gui, 20:-Caption +ToolWindow +LastFound +AlwaysOnTop
+ Gui, 20:Color, %SearchAreaColor%
+ SetTimer, WatchCursor, 100
return
DrawStart:
-AreaSet := False
-SetTimer, WatchCursor, Off
-CoordMode, Mouse, %CoordPixel%
-MouseGetPos, iX, iY
-CoordMode, Mouse, Screen
-MouseGetPos, OriginX, OriginY
-If (CoordPixel = "Window")
-{
- CoordMode, Mouse, Window
- MouseGetPos, xPos, yPos
-}
-SetTimer, DrawRectangle, 0
-KeyWait, %DrawButton%
-GoSub, DrawEnd
+ AreaSet := False
+ SetTimer, WatchCursor, Off
+ CoordMode, Mouse, %CoordPixel%
+ MouseGetPos, iX, iY
+ CoordMode, Mouse, Screen
+ MouseGetPos, OriginX, OriginY
+ If (CoordPixel = "Window")
+ {
+ CoordMode, Mouse, Window
+ MouseGetPos, xPos, yPos
+ }
+ SetTimer, DrawRectangle, 0
+ KeyWait, %DrawButton%
+ GoSub, DrawEnd
return
DrawEnd:
-SetTimer, DrawRectangle, Off
-FirstCall := true
-ToolTip
-CoordMode, Mouse, %CoordPixel%
-MouseGetPos, eX, eY
-If ((iX = eX) || (iY = eY))
- MarkArea(LineW)
-Else
- GoSub, ShowAreaTip
-If (OnRelease)
- GoSub, Restore
+ SetTimer, DrawRectangle, Off
+ FirstCall := true
+ ToolTip
+ CoordMode, Mouse, %CoordPixel%
+ MouseGetPos, eX, eY
+ If ((iX = eX) || (iY = eY))
+ MarkArea(LineW)
+ Else
+ GoSub, ShowAreaTip
+ If (OnRelease)
+ GoSub, Restore
return
Restore:
-Tooltip
-Gui, 20:+LastFound
-WinGetPos, wX, wY, wW, wH
-Gui, 20:Cancel
-AdjustCoords(iX, iY, eX, eY)
-Sleep, 200
-Draw := 0
-If (SS = 1)
-{
- If (ScreenDir = "")
- ScreenDir := SettingsFolder "\Screenshots"
- IfNotExist, %ScreenDir%
- FileCreateDir, %ScreenDir%
- file := ScreenDir "\Screen_" A_Now ".png", screen := wX "|" wY "|" wW "|" wH
- Screenshot(file, screen)
- GuiControl, 19:, ImgFile, %file%
- GoSub, MakePrev
- SS := 0
- If (!GetKeyState("Alt", "P"))
- {
- WinActivate, ahk_id %CmdWin%
- return
+ Tooltip
+ Gui, 20:+LastFound
+ WinGetPos, wX, wY, wW, wH
+ Gui, 20:Cancel
+ AdjustCoords(iX, iY, eX, eY)
+ Sleep, 200
+ Draw := 0
+ If (SS = 1)
+ {
+ If (ScreenDir = "")
+ ScreenDir := SettingsFolder "\Screenshots"
+ IfNotExist, %ScreenDir%
+ FileCreateDir, %ScreenDir%
+ file := ScreenDir "\Screen_" A_Now ".png", screen := wX "|" wY "|" wW "|" wH
+ Screenshot(file, screen)
+ GuiControl, 19:, ImgFile, %file%
+ GoSub, MakePrev
+ SS := 0
+ If (!GetKeyState("Alt", "P"))
+ {
+ WinActivate, ahk_id %CmdWin%
+ return
+ }
}
-}
-If (AreaSet)
- iX := wX, iY := wY, eX := wX + wW, eY := wY + wH
-Else If ((iX = eX) || (iY = eY)) && (control != "")
- GuiControl, 19:ChooseString, CoordPixel, Window
-Else If (CoordPixel = "Screen")
- iX := wX, iY := wY, eX := wX + wW, eY := wY + wH
-WinActivate, ahk_id %CmdWin%
-GuiControl, 19:, iPosX, %iX%
-GuiControl, 19:, iPosY, %iY%
-GuiControl, 19:, ePosX, %eX%
-GuiControl, 19:, ePosY, %eY%
+ If (AreaSet)
+ iX := wX, iY := wY, eX := wX + wW, eY := wY + wH
+ Else If ((iX = eX) || (iY = eY)) && (control != "")
+ GuiControl, 19:ChooseString, CoordPixel, Window
+ Else If (CoordPixel = "Screen")
+ iX := wX, iY := wY, eX := wX + wW, eY := wY + wH
+ WinActivate, ahk_id %CmdWin%
+ GuiControl, 19:, iPosX, %iX%
+ GuiControl, 19:, iPosY, %iY%
+ GuiControl, 19:, ePosX, %eX%
+ GuiControl, 19:, ePosY, %eY%
return
GetPixel:
-Gui, 19:Submit, NoHide
-If (A_GuiControl = "ColorPick")
- iPixel := 1
-Hotkey, RButton, NoKey, On
-Hotkey, Esc, EscNoKey, On
-WinMinimize, ahk_id %CmdWin%
-SetTimer, WatchCursor, 10
-StopIt := 0
-Sleep, 100
-WaitFor.Key("RButton")
-SetRegionNow := GetKeyState("Alt", "P")
-SetTimer, WatchCursor, off
-ToolTip
-Sleep, 200
-Hotkey, RButton, NoKey, Off
-Hotkey, Esc, EscNoKey, Off
-iPixel := 0
-WinActivate, ahk_id %CmdWin%
-If (StopIt)
- Exit
-If (A_GuiControl = "TransCS")
- GuiControl, 19:, TransC, %color%
-Else
-{
- GuiControl, 19:, ImgFile, %color%
- GuiControl, 19:+Background%color%, ColorPrev
- If (SetRegionNow)
+ Gui, 19:Submit, NoHide
+ If (A_GuiControl = "ColorPick")
+ iPixel := 1
+ Hotkey, RButton, NoKey, On
+ Hotkey, Esc, EscNoKey, On
+ WinMinimize, ahk_id %CmdWin%
+ SetTimer, WatchCursor, 10
+ StopIt := 0
+ Sleep, 100
+ WaitFor.Key("RButton")
+ SetRegionNow := GetKeyState("Alt", "P")
+ SetTimer, WatchCursor, off
+ ToolTip
+ Sleep, 200
+ Hotkey, RButton, NoKey, Off
+ Hotkey, Esc, EscNoKey, Off
+ iPixel := 0
+ WinActivate, ahk_id %CmdWin%
+ If (StopIt)
+ Exit
+ If (A_GuiControl = "TransCS")
+ GuiControl, 19:, TransC, %color%
+ Else
{
- GuiControl, 19:, iPosX, %xPos%
- GuiControl, 19:, iPosY, %yPos%
- GuiControl, 19:, ePosX, %xPos%
- GuiControl, 19:, ePosY, %yPos%
+ GuiControl, 19:, ImgFile, %color%
+ GuiControl, 19:+Background%color%, ColorPrev
+ If (SetRegionNow)
+ {
+ GuiControl, 19:, iPosX, %xPos%
+ GuiControl, 19:, iPosY, %yPos%
+ GuiControl, 19:, ePosX, %xPos%
+ GuiControl, 19:, ePosY, %yPos%
+ }
}
-}
-StopIt := 1
+ StopIt := 1
return
WatchCursor:
-CoordMode, Mouse, % (Draw || iPixel) ? CoordPixel : CoordMouse
-CoordMode, Pixel, % (Draw || iPixel) ? CoordPixel : CoordMouse
-ExtraTip := (iPixel || SS) ? d_Lang115 : ""
-MouseGetPos, xPos, yPos, id, control
-WinGetTitle, title, ahk_id %id%
-WinGetClass, class, ahk_id %id%
-WinGetText, text, ahk_id %id%
-text := SubStr(text, 1, 50)
-WinGet, pid, PID, ahk_id %id%
-PixelGetColor, color, %xPos%, %yPos%, % (iPixel) ? (RGB ? "RGB" : "") : "RGB"
-WinGet, pname, ProcessName, ahk_id %id%
-ControlGetPos, cX, cY, cW, cH, %control%, ahk_id %id%
-xcpos := Controlpos(xPos, cx), ycpos := Controlpos(yPos, cy)
-DrawTip := RegExReplace(d_Lang034, "%DrawButton%", DrawButton)
-If (Draw)
- ToolTip,
+ CoordMode, Mouse, % (Draw || iPixel) ? CoordPixel : CoordMouse
+ CoordMode, Pixel, % (Draw || iPixel) ? CoordPixel : CoordMouse
+ ExtraTip := (iPixel || SS) ? d_Lang115 : ""
+ MouseGetPos, xPos, yPos, id, control
+ WinGetTitle, title, ahk_id %id%
+ WinGetClass, class, ahk_id %id%
+ WinGetText, text, ahk_id %id%
+ text := SubStr(text, 1, 50)
+ WinGet, pid, PID, ahk_id %id%
+ PixelGetColor, color, %xPos%, %yPos%, % (iPixel) ? (RGB ? "RGB" : "") : "RGB"
+ WinGet, pname, ProcessName, ahk_id %id%
+ ControlGetPos, cX, cY, cW, cH, %control%, ahk_id %id%
+ xcpos := Controlpos(xPos, cx), ycpos := Controlpos(yPos, cy)
+ DrawTip := RegExReplace(d_Lang034, "%DrawButton%", DrawButton)
+ If (Draw)
+ ToolTip,
(LTrim
- X%xPos% Y%yPos%
- %c_Lang004%: %control%
- %DrawTip%
- %ExtraTip%
+ X%xPos% Y%yPos%
+ %c_Lang004%: %control%
+ %DrawTip%
+ %ExtraTip%
)
-Else
- ToolTip,
+ Else
+ ToolTip,
(LTrim
- X%xPos% Y%yPos%
- %c_Lang004%: %control% X%xcpos% Y%ycpos%
- %d_Lang018%: %color%
+ X%xPos% Y%yPos%
+ %c_Lang004%: %control% X%xcpos% Y%ycpos%
+ %d_Lang018%: %color%
- WinTitle: %title%
- Class: %class%
- Process: %pname%
- ID: %id%
- PID: %pid%
+ WinTitle: %title%
+ Class: %class%
+ Process: %pname%
+ ID: %id%
+ PID: %pid%
- WinText: %text% (...)
+ WinText: %text% (...)
- %d_Lang017%
- %ExtraTip%
+ %d_Lang017%
+ %ExtraTip%
)
return
WatchCursorIE:
-CoordMode, Mouse, Window
-MouseGetPos, xPos, yPos, id
-WinGetClass, class, ahk_id %id%
-WinGetTitle, title, ahk_id %id%
-If (class != "IEFrame")
-{
- Tooltip, %d_Lang045%
- return
-}
-If (L_Label = "InternetExplorer.Application")
- Tooltip, %d_Lang017%
-Else
-{
- ControlGetPos, IEFrameX, IEFrameY, IEFrameW, IEFrameH, Internet Explorer_Server1, ahk_class IEFrame
- Element := ie.document.elementFromPoint(xPos-IEFrameX, yPos-IEFrameY)
- oel_Name := Element.Name
- oel_ID := Element.ID
- oel_ClassName := Element.ClassName
- oel_TagName := Element.TagName
- oel_Value := Element.Value
- oel_InnerText := (StrLen(Element.InnerText) > 50) ? SubStr(Element.InnerText, 1, 50) "..." : Element.InnerText
- oel_Type := Element.Type
- oel_Checked := Element.Checked
- oel_SelectedIndex := Element.SelectedIndex
- oel_SourceIndex := Element.sourceindex
- oel_Links := "Links"
- oel_OffsetLeft := Element.OffsetLeft
- oel_OffsetTop := Element.OffsetTop
-
- Tooltip % "Name: " oel_Name
- . "`nID: " oel_ID
- . "`nClassName: " oel_ClassName
- . "`nTagName: " oel_TagName
- . "`nValue: " oel_Value
- . "`nInnerText: " oel_InnerText
- . "`nType: " oel_Type
- . "`nChecked: " oel_Checked
- . "`nSelectedIndex: " oel_SelectedIndex
- . "`nSourceIndex: " oel_SourceIndex
- . "`nPosition: " oel_OffsetLeft " x " oel_OffsetTop
-}
+ CoordMode, Mouse, Window
+ MouseGetPos, xPos, yPos, id
+ WinGetClass, class, ahk_id %id%
+ WinGetTitle, title, ahk_id %id%
+ If (class != "IEFrame")
+ {
+ Tooltip, %d_Lang045%
+ return
+ }
+ If (L_Label = "InternetExplorer.Application")
+ Tooltip, %d_Lang017%
+ Else
+ {
+ ControlGetPos, IEFrameX, IEFrameY, IEFrameW, IEFrameH, Internet Explorer_Server1, ahk_class IEFrame
+ Element := ie.document.elementFromPoint(xPos-IEFrameX, yPos-IEFrameY)
+ oel_Name := Element.Name
+ oel_ID := Element.ID
+ oel_ClassName := Element.ClassName
+ oel_TagName := Element.TagName
+ oel_Value := Element.Value
+ oel_InnerText := (StrLen(Element.InnerText) > 50) ? SubStr(Element.InnerText, 1, 50) "..." : Element.InnerText
+ oel_Type := Element.Type
+ oel_Checked := Element.Checked
+ oel_SelectedIndex := Element.SelectedIndex
+ oel_SourceIndex := Element.sourceindex
+ oel_Links := "Links"
+ oel_OffsetLeft := Element.OffsetLeft
+ oel_OffsetTop := Element.OffsetTop
+
+ Tooltip % "Name: " oel_Name
+ . "`nID: " oel_ID
+ . "`nClassName: " oel_ClassName
+ . "`nTagName: " oel_TagName
+ . "`nValue: " oel_Value
+ . "`nInnerText: " oel_InnerText
+ . "`nType: " oel_Type
+ . "`nChecked: " oel_Checked
+ . "`nSelectedIndex: " oel_SelectedIndex
+ . "`nSourceIndex: " oel_SourceIndex
+ . "`nPosition: " oel_OffsetLeft " x " oel_OffsetTop
+ }
return
WatchCursorXL:
-CoordMode, Mouse, Window
-MouseGetPos, xPos, yPos, id
-WinGetClass, class, ahk_id %id%
-If (class != "XLMAIN")
-{
- Tooltip, %d_Lang054%
- return
-}
-Tooltip, %d_Lang017%
+ CoordMode, Mouse, Window
+ MouseGetPos, xPos, yPos, id
+ WinGetClass, class, ahk_id %id%
+ If (class != "XLMAIN")
+ {
+ Tooltip, %d_Lang054%
+ return
+ }
+ Tooltip, %d_Lang017%
return
DrawRectangle:
-CoordMode, Mouse, Screen
-MouseGetPos, X2, Y2
-; Has the mouse moved?
-If (XO = X2) && (YO = Y2)
- Return
-Gui, 20:+LastFound
-XO := X2, YO := Y2
-; Allow dragging to the left of the click point.
-If (X2 < OriginX)
- X1 := X2, X2 := OriginX
-Else
- X1 := OriginX
-; Allow dragging above the click point.
-If (Y2 < OriginY)
- Y1 := Y2, Y2 := OriginY
-Else
- Y1 := OriginY
-; Draw the rectangle
-W1 := X2 - X1, H1 := Y2 - Y1, W2 := W1 - LineW, H2 := H1 - LineW
-WinSet, Region, 0-0 %W1%-0 %W1%-%H1% 0-%H1% 0-0 %LineW%-%LineW% %W2%-%LineW% %W2%-%H2% %LineW%-%H2% %LineW%-%LineW%
-If (FirstCall) {
- Gui, 20:Show, NA x%X1% y%Y1% w%W1% h%H1%
- FirstCall := false
-}
-WinMove, , , X1, Y1, W1, H1
-DrawTip := RegExReplace(d_Lang034, "%DrawButton%", DrawButton)
-If (CoordPixel = "Window")
-{
- CoordMode, Mouse, Window
- MouseGetPos, xPos2, yPos2
- If ((X2 > OriginX) || (Y2 > OriginY))
- ToolTip, X%xPos% Y%yPos%`nX%xPos2% Y%yPos2%`n%DrawTip%`n%ExtraTip%
+ CoordMode, Mouse, Screen
+ MouseGetPos, X2, Y2
+ ; Has the mouse moved?
+ If (XO = X2) && (YO = Y2)
+ Return
+ Gui, 20:+LastFound
+ XO := X2, YO := Y2
+ ; Allow dragging to the left of the click point.
+ If (X2 < OriginX)
+ X1 := X2, X2 := OriginX
Else
- ToolTip, X%xPos% Y%yPos%`nX%xPos2% Y%yPos2%`n%DrawTip%`n%ExtraTip%, % OriginX +8, % OriginY +8
-}
-Else
-{
- If ((X2 > OriginX) || (Y2 > OriginY))
- ToolTip, X%X1% Y%Y1%`nX%X2% Y%Y2%`n%DrawTip%`n%ExtraTip%
+ X1 := OriginX
+ ; Allow dragging above the click point.
+ If (Y2 < OriginY)
+ Y1 := Y2, Y2 := OriginY
Else
- ToolTip, X%X1% Y%Y1%`nX%X2% Y%Y2%`n%DrawTip%`n%ExtraTip%, % OriginX +8, % OriginY +8
-}
+ Y1 := OriginY
+ ; Draw the rectangle
+ W1 := X2 - X1, H1 := Y2 - Y1, W2 := W1 - LineW, H2 := H1 - LineW
+ WinSet, Region, 0-0 %W1%-0 %W1%-%H1% 0-%H1% 0-0 %LineW%-%LineW% %W2%-%LineW% %W2%-%H2% %LineW%-%H2% %LineW%-%LineW%
+ If (FirstCall) {
+ Gui, 20:Show, NA x%X1% y%Y1% w%W1% h%H1%
+ FirstCall := false
+ }
+ WinMove, , , X1, Y1, W1, H1
+ DrawTip := RegExReplace(d_Lang034, "%DrawButton%", DrawButton)
+ If (CoordPixel = "Window")
+ {
+ CoordMode, Mouse, Window
+ MouseGetPos, xPos2, yPos2
+ If ((X2 > OriginX) || (Y2 > OriginY))
+ ToolTip, X%xPos% Y%yPos%`nX%xPos2% Y%yPos2%`n%DrawTip%`n%ExtraTip%
+ Else
+ ToolTip, X%xPos% Y%yPos%`nX%xPos2% Y%yPos2%`n%DrawTip%`n%ExtraTip%, % OriginX +8, % OriginY +8
+ }
+ Else
+ {
+ If ((X2 > OriginX) || (Y2 > OriginY))
+ ToolTip, X%X1% Y%Y1%`nX%X2% Y%Y2%`n%DrawTip%`n%ExtraTip%
+ Else
+ ToolTip, X%X1% Y%Y1%`nX%X2% Y%Y2%`n%DrawTip%`n%ExtraTip%, % OriginX +8, % OriginY +8
+ }
return
ShowAreaTip:
-Gui, 20:+LastFound
-WinGetPos,,, gwW, gwH
-Tooltip,
+ Gui, 20:+LastFound
+ WinGetPos,,, gwW, gwH
+ Tooltip,
(
%c_Lang059%: %gwW% x %gwH%
%d_Lang057%
@@ -5809,128 +5805,128 @@ Tooltip,
return
EditText:
-s_Caller := "Edit"
+ s_Caller := "Edit"
Text:
-Gui 7:+LastFoundExist
-IfWinExist
- GoSub, InsertKeyClose
-Gui, 1:Submit, NoHide
-Gui, 8:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
-Gui, 1:+Disabled
-Gui, 8:Add, Custom, ClassToolbarWindow32 hwndhTbText gTbText H25 0x0800 0x0100 0x0040 0x0008 0x0004
-Gui, 8:Add, Edit, Section xm ym+25 vTextEdit gTextEdit WantTab W710 R25
-; Options
-Gui, 8:Add, GroupBox, Section W220 H135, %c_Lang163%:
-Gui, 8:Add, Radio, -Wrap Group Checked ys+20 xs+10 W200 vRaw gRaw R1, %c_Lang045%
-Gui, 8:Add, Radio, -Wrap W200 vComText gComText R1, %c_Lang046%
-Gui, 8:Add, Radio, -Wrap y+20 W200 vClip gClip R1, %c_Lang047%
-Gui, 8:Add, Radio, -Wrap W200 vEditPaste gEditPaste R1, %c_Lang048%
-Gui, 8:Add, Radio, -Wrap W200 vSetText gSetText R1, %c_Lang049%
-Gui, 8:Add, Checkbox, -Wrap yp-55 xp+15 W185 vComEvent gComEvent R1 Disabled, %c_Lang178%
-; Repeat
-Gui, 8:Add, GroupBox, Section ys x+20 W230 H135
-Gui, 8:Add, Text, -Wrap R1 ys+15 xs+10 W100 Right, %w_Lang015%:
-Gui, 8:Add, Edit, yp x+10 W100 R1 vEdRept
-Gui, 8:Add, UpDown, vTimesX 0x80 Range1-999999999, 1
-Gui, 8:Add, Text, -Wrap R1 y+5 xs+10 W100 Right, %c_Lang017%:
-Gui, 8:Add, Edit, yp x+10 W100 vDelayC
-Gui, 8:Add, UpDown, vDelayX 0x80 Range0-999999999, %DelayG%
-Gui, 8:Add, Radio, -Wrap Checked W100 vMsc R1, %c_Lang018%
-Gui, 8:Add, Radio, -Wrap W100 vSec R1, %c_Lang019%
-Gui, 8:Add, Text, -Wrap y+5 xs+10 W100 Right, %c_Lang179%:
-Gui, 8:Add, Edit, yp x+10 W100 vKeyDelayC Disabled
-Gui, 8:Add, UpDown, vKeyDelayX 0x80 Range-1-1000, -1
-; Control
-Gui, 8:Add, GroupBox, Section ys x+20 W240 H135
-Gui, 8:Add, Checkbox, -Wrap ys+15 xs+10 W150 vCSend gCSend R1, %c_Lang016%:
-Gui, 8:Add, Edit, vDefCt W190 Disabled
-Gui, 8:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetCtrl gGetCtrl Disabled, ...
-Gui, 8:Add, Text, -Wrap y+15 xs+10 W140 H20 vWinParsTip cGray, %Wcmd_Short%
-Gui, 8:Add, Button, yp-5 x+5 W75 vIdent gWinTitle Disabled, WinTitle
-Gui, 8:Add, Edit, y+5 xs+10 W190 vTitle Disabled, A
-Gui, 8:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetWin gGetWin Disabled, ...
-; Buttons
-Gui, 8:Add, Button, -Wrap Section Default xm W75 H23 gTextOK, %c_Lang020%
-Gui, 8:Add, Button, -Wrap ys W75 H23 gTextCancel, %c_Lang021%
-Gui, 8:Add, Button, -Wrap ys W75 H23 vTextApply gTextApply Disabled, %c_Lang131%
-Gui, 8:Add, Button, -Wrap ys W25 H23 hwndInsertKeyT vInsertKeyT gInsertKey Disabled
+ Gui 7:+LastFoundExist
+ IfWinExist
+ GoSub, InsertKeyClose
+ Gui, 1:Submit, NoHide
+ Gui, 8:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
+ Gui, 1:+Disabled
+ Gui, 8:Add, Custom, ClassToolbarWindow32 hwndhTbText gTbText H25 0x0800 0x0100 0x0040 0x0008 0x0004
+ Gui, 8:Add, Edit, Section xm ym+25 vTextEdit gTextEdit WantTab W710 R25
+ ; Options
+ Gui, 8:Add, GroupBox, Section W220 H135, %c_Lang163%:
+ Gui, 8:Add, Radio, -Wrap Group Checked ys+20 xs+10 W200 vRaw gRaw R1, %c_Lang045%
+ Gui, 8:Add, Radio, -Wrap W200 vComText gComText R1, %c_Lang046%
+ Gui, 8:Add, Radio, -Wrap y+20 W200 vClip gClip R1, %c_Lang047%
+ Gui, 8:Add, Radio, -Wrap W200 vEditPaste gEditPaste R1, %c_Lang048%
+ Gui, 8:Add, Radio, -Wrap W200 vSetText gSetText R1, %c_Lang049%
+ Gui, 8:Add, Checkbox, -Wrap yp-55 xp+15 W185 vComEvent gComEvent R1 Disabled, %c_Lang178%
+ ; Repeat
+ Gui, 8:Add, GroupBox, Section ys x+20 W230 H135
+ Gui, 8:Add, Text, -Wrap R1 ys+15 xs+10 W100 Right, %w_Lang015%:
+ Gui, 8:Add, Edit, yp x+10 W100 R1 vEdRept
+ Gui, 8:Add, UpDown, vTimesX 0x80 Range1-999999999, 1
+ Gui, 8:Add, Text, -Wrap R1 y+5 xs+10 W100 Right, %c_Lang017%:
+ Gui, 8:Add, Edit, yp x+10 W100 vDelayC
+ Gui, 8:Add, UpDown, vDelayX 0x80 Range0-999999999, %DelayG%
+ Gui, 8:Add, Radio, -Wrap Checked W100 vMsc R1, %c_Lang018%
+ Gui, 8:Add, Radio, -Wrap W100 vSec R1, %c_Lang019%
+ Gui, 8:Add, Text, -Wrap y+5 xs+10 W100 Right, %c_Lang179%:
+ Gui, 8:Add, Edit, yp x+10 W100 vKeyDelayC Disabled
+ Gui, 8:Add, UpDown, vKeyDelayX 0x80 Range-1-1000, -1
+ ; Control
+ Gui, 8:Add, GroupBox, Section ys x+20 W240 H135
+ Gui, 8:Add, Checkbox, -Wrap ys+15 xs+10 W150 vCSend gCSend R1, %c_Lang016%:
+ Gui, 8:Add, Edit, vDefCt W190 Disabled
+ Gui, 8:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetCtrl gGetCtrl Disabled, ...
+ Gui, 8:Add, Text, -Wrap y+15 xs+10 W140 H20 vWinParsTip cGray, %Wcmd_Short%
+ Gui, 8:Add, Button, yp-5 x+5 W75 vIdent gWinTitle Disabled, WinTitle
+ Gui, 8:Add, Edit, y+5 xs+10 W190 vTitle Disabled, A
+ Gui, 8:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetWin gGetWin Disabled, ...
+ ; Buttons
+ Gui, 8:Add, Button, -Wrap Section Default xm W75 H23 gTextOK, %c_Lang020%
+ Gui, 8:Add, Button, -Wrap ys W75 H23 gTextCancel, %c_Lang021%
+ Gui, 8:Add, Button, -Wrap ys W75 H23 vTextApply gTextApply Disabled, %c_Lang131%
+ Gui, 8:Add, Button, -Wrap ys W25 H23 hwndInsertKeyT vInsertKeyT gInsertKey Disabled
ILButton(InsertKeyT, ResDllPath ":" 91)
-Gui, 8:Add, Text, x+10 yp-3 W400 H25 cGray, %c_Lang025%
-Gui, 8:Add, StatusBar, gStatusBarHelp
-Gui, 8:Default
-SB_SetParts(600, 70)
-SB_SetText("length: " 0, 2)
-SB_SetText("lines: " 0, 3)
-SB_SetIcon(ResDllPath, IconsNames["help"])
-If (s_Caller = "Edit")
-{
- EscCom(true, Details, Target)
- StringReplace, Details, Details, ``n, `n, All
- GuiControl, 8:, TextEdit, %Details%
- GuiControl, 8:, TimesX, %TimesX%
- GuiControl, 8:, EdRept, %TimesX%
- GuiControl, 8:, DelayX, %DelayX%
- GuiControl, 8:, DelayC, %DelayX%
- If (InStr(Type, "Control"))
+ Gui, 8:Add, Text, x+10 yp-3 W400 H25 cGray, %c_Lang025%
+ Gui, 8:Add, StatusBar, gStatusBarHelp
+ Gui, 8:Default
+ SB_SetParts(600, 70)
+ SB_SetText("length: " 0, 2)
+ SB_SetText("lines: " 0, 3)
+ SB_SetIcon(ResDllPath, IconsNames["help"])
+ If (s_Caller = "Edit")
{
- GuiControl, 8:, CSend, 1
- GuiControl, 8:Enable, DefCt
- GuiControl, 8:Enable, GetCtrl
- GuiControl, 8:Enable, Ident
- GuiControl, 8:Enable, Title
- GuiControl, 8:Enable, GetWin
- GuiControl, 8:, Title, %Window%
- GuiControl, 8:, DefCt, %Target%
- }
- If ((Type = cType1) || (Type = cType2) || (Type = cType13))
- {
- GuiControl, 8:, ComText, 1
- If (!InStr(Type, "Control"))
- GuiControl, 8:Enable, ComEvent
- GuiControl, 8:Enable, InsertKeyT
- SBShowTip((CSend ? "Control" : "") "Send")
- If (Type = cType13)
+ EscCom(true, Details, Target)
+ StringReplace, Details, Details, ``n, `n, All
+ GuiControl, 8:, TextEdit, %Details%
+ GuiControl, 8:, TimesX, %TimesX%
+ GuiControl, 8:, EdRept, %TimesX%
+ GuiControl, 8:, DelayX, %DelayX%
+ GuiControl, 8:, DelayC, %DelayX%
+ If (InStr(Type, "Control"))
{
- GuiControl, 8:, ComEvent, 1
- GuiControl, 8:, DelayC, %DelayG%
- GuiControl, 8:, DelayX, %DelayG%
- GuiControl, 8:, KeyDelayX, %DelayX%
- GuiControl, 8:, KeyDelayC, %DelayX%
- GoSub, ComEvent
+ GuiControl, 8:, CSend, 1
+ GuiControl, 8:Enable, DefCt
+ GuiControl, 8:Enable, GetCtrl
+ GuiControl, 8:Enable, Ident
+ GuiControl, 8:Enable, Title
+ GuiControl, 8:Enable, GetWin
+ GuiControl, 8:, Title, %Window%
+ GuiControl, 8:, DefCt, %Target%
}
- }
- Else If ((Type = cType8) || (Type = cType9))
- {
- GuiControl, 8:, Raw, 1
- SBShowTip((CSend ? "Control" : "") "SendRaw")
- }
- Else If (Type = cType10)
- {
- GuiControl, 8:, SetText, 1
- GuiControl, 8:Disable, CSend
- SBShowTip("ControlSetText")
- }
- Else If (Type = cType22)
- {
- GuiControl, 8:, EditPaste, 1
- GuiControl, 8:Disable, CSend
- SBShowTip("ControlEditPaste")
- }
- Else If (Type = cType12)
- {
- GuiControl, 8:, Clip, 1
- SBShowTip("Clipboard")
- }
- Gui, 8:Default
+ If ((Type = cType1) || (Type = cType2) || (Type = cType13))
+ {
+ GuiControl, 8:, ComText, 1
+ If (!InStr(Type, "Control"))
+ GuiControl, 8:Enable, ComEvent
+ GuiControl, 8:Enable, InsertKeyT
+ SBShowTip((CSend ? "Control" : "") "Send")
+ If (Type = cType13)
+ {
+ GuiControl, 8:, ComEvent, 1
+ GuiControl, 8:, DelayC, %DelayG%
+ GuiControl, 8:, DelayX, %DelayG%
+ GuiControl, 8:, KeyDelayX, %DelayX%
+ GuiControl, 8:, KeyDelayC, %DelayX%
+ GoSub, ComEvent
+ }
+ }
+ Else If ((Type = cType8) || (Type = cType9))
+ {
+ GuiControl, 8:, Raw, 1
+ SBShowTip((CSend ? "Control" : "") "SendRaw")
+ }
+ Else If (Type = cType10)
+ {
+ GuiControl, 8:, SetText, 1
+ GuiControl, 8:Disable, CSend
+ SBShowTip("ControlSetText")
+ }
+ Else If (Type = cType22)
+ {
+ GuiControl, 8:, EditPaste, 1
+ GuiControl, 8:Disable, CSend
+ SBShowTip("ControlEditPaste")
+ }
+ Else If (Type = cType12)
+ {
+ GuiControl, 8:, Clip, 1
+ SBShowTip("Clipboard")
+ }
+ Gui, 8:Default
GoSub, TextEdit
- Gui, chMacro:Default
- GuiControl, 8:Enable, TextApply
-}
-If (s_Caller = "Find")
-{
- Gui, 8:Default
- Switch GotoRes1
+ Gui, chMacro:Default
+ GuiControl, 8:Enable, TextApply
+ }
+ If (s_Caller = "Find")
{
+ Gui, 8:Default
+ Switch GotoRes1
+ {
Case cType8:
GuiControl, 8:, Raw, 1
GoSub, Raw
@@ -5946,327 +5942,327 @@ If (s_Caller = "Find")
Case cType10:
GuiControl, 8:, SetText, 1
GoSub, SetText
+ }
}
-}
-Else
- SBShowTip("SendRaw")
-Gui, 8:Font, s%MacroFontSize%
-GuiControl, 8:Font, TextEdit
-Gui, 8:Show,, %c_Lang002%
-ChangeIcon(hIL_Icons, CmdWin, IconsNames["text"])
-TB_Define(TbText, hTbText, hIL_Icons, FixedBar.Text, FixedBar.TextOpt)
-TBHwndAll[9] := TbText
-GuiControl, 8:Focus, TextEdit
-Input
-Tooltip
+ Else
+ SBShowTip("SendRaw")
+ Gui, 8:Font, s%MacroFontSize%
+ GuiControl, 8:Font, TextEdit
+ Gui, 8:Show,, %c_Lang002%
+ ChangeIcon(hIL_Icons, CmdWin, IconsNames["text"])
+ TB_Define(TbText, hTbText, hIL_Icons, FixedBar.Text, FixedBar.TextOpt)
+ TBHwndAll[9] := TbText
+ GuiControl, 8:Focus, TextEdit
+ Input
+ Tooltip
return
TextApply:
TextOK:
-Gui, 8:+OwnDialogs
-Gui, 8:Submit, NoHide
-StringReplace, TextEdit, TextEdit, `n, ``n, All
-DelayX := (ComEvent) ? (InStr(KeyDelayC, "%") ? KeyDelayC : KeyDelayX)
-: InStr(DelayC, "%") ? DelayC : DelayX
-TimesX := InStr(EdRept, "%") ? EdRept : TimesX
-If (Raw = 1)
- Type := cType8
-Else If (ComText = 1)
- Type := (ComEvent) ? cType13 : cType1
-Else If (SetText = 1)
- Type := cType10
-Else If (EditPaste = 1)
- Type := cType22
-Else If (Clip = 1)
- Type := cType12
-GuiControlGet, CtrlState, Enabled, DefCt
-If (CtrlState = 1)
-{
- If (CSend = 1)
+ Gui, 8:+OwnDialogs
+ Gui, 8:Submit, NoHide
+ StringReplace, TextEdit, TextEdit, `n, ``n, All
+ DelayX := (ComEvent) ? (InStr(KeyDelayC, "%") ? KeyDelayC : KeyDelayX)
+ : InStr(DelayC, "%") ? DelayC : DelayX
+ TimesX := InStr(EdRept, "%") ? EdRept : TimesX
+ If (Raw = 1)
+ Type := cType8
+ Else If (ComText = 1)
+ Type := (ComEvent) ? cType13 : cType1
+ Else If (SetText = 1)
+ Type := cType10
+ Else If (EditPaste = 1)
+ Type := cType22
+ Else If (Clip = 1)
+ Type := cType12
+ GuiControlGet, CtrlState, Enabled, DefCt
+ If (CtrlState = 1)
{
- If (DefCt = "")
+ If (CSend = 1)
+ {
+ If (DefCt = "")
+ {
+ MsgBox, 52, %d_Lang011%, %d_Lang012%
+ IfMsgBox, No
+ return
+ }
+ Target := DefCt, Window := Title
+ If (Type = cType1)
+ Type := cType2
+ If (Type = cType8)
+ Type := cType9
+ }
+ Else
{
- MsgBox, 52, %d_Lang011%, %d_Lang012%
- IfMsgBox, No
- return
+ If (CSend = 0)
+ {
+ Target := "", Window := ""
+ If (Type = cType2)
+ Type := cType1
+ If (Type = cType9)
+ Type := cType8
+ }
}
- Target := DefCt, Window := Title
- If (Type = cType1)
- Type := cType2
- If (Type = cType8)
- Type := cType9
+ }
+ Else
+ Target := "", Window := ""
+ Action := "[Text]"
+ EscCom(false, TextEdit, Target)
+ If (A_ThisLabel != "TextApply")
+ {
+ Gui, 1:-Disabled
+ Gui, 8:Destroy
+ }
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col2", Action, TextEdit, TimesX, DelayX, Type, Target, Window)
+ Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
+ {
+ LV_Add("Check", ListCount%A_List%+1, Action, TextEdit, TimesX, DelayX, Type, Target, Window)
+ LV_Modify(ListCount%A_List%+1, "Vis")
}
Else
{
- If (CSend = 0)
+ GuiControl, chMacro:-g, InputList%A_List%
+ RowNumber := 0
+ Loop, %RowSelection%
{
- Target := "", Window := ""
- If (Type = cType2)
- Type := cType1
- If (Type = cType9)
- Type := cType8
+ RowNumber := LV_GetNext(RowNumber)
+ LV_Insert(RowNumber, "Check", RowNumber, Action, TextEdit, TimesX, DelayX, Type, Target, Window)
+ LVManager[A_List].InsertAtGroup(RowNumber)
+ RowNumber++
}
+ GuiControl, chMacro:+gInputList, InputList%A_List%
}
-}
-Else
- Target := "", Window := ""
-Action := "[Text]"
-EscCom(false, TextEdit, Target)
-If (A_ThisLabel != "TextApply")
-{
- Gui, 1:-Disabled
- Gui, 8:Destroy
-}
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
-If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col2", Action, TextEdit, TimesX, DelayX, Type, Target, Window)
-Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
-{
- LV_Add("Check", ListCount%A_List%+1, Action, TextEdit, TimesX, DelayX, Type, Target, Window)
- LV_Modify(ListCount%A_List%+1, "Vis")
-}
-Else
-{
- GuiControl, chMacro:-g, InputList%A_List%
- RowNumber := 0
- Loop, %RowSelection%
+ GoSub, RowCheck
+ GoSub, b_Start
+ If (A_ThisLabel = "TextApply")
+ Gui, 8:Default
+ Else
{
- RowNumber := LV_GetNext(RowNumber)
- LV_Insert(RowNumber, "Check", RowNumber, Action, TextEdit, TimesX, DelayX, Type, Target, Window)
- LVManager[A_List].InsertAtGroup(RowNumber)
- RowNumber++
+ s_Caller := ""
+ GuiControl, Focus, InputList%A_List%
}
- GuiControl, chMacro:+gInputList, InputList%A_List%
-}
-GoSub, RowCheck
-GoSub, b_Start
-If (A_ThisLabel = "TextApply")
- Gui, 8:Default
-Else
-{
- s_Caller := ""
- GuiControl, Focus, InputList%A_List%
-}
return
TextCancel:
8GuiClose:
8GuiEscape:
-Gui, 1:-Disabled
-Gui, 8:Destroy
-s_Caller := ""
+ Gui, 1:-Disabled
+ Gui, 8:Destroy
+ s_Caller := ""
return
Raw:
-GuiControl, Enable, CSend
-GuiControl, Enable, DefCt
-GuiControl, Enable, GetCtrl
-GuiControl, Disable, InsertKeyT
-GuiControl,, ComEvent, 0
-GuiControl, Disable, ComEvent
-GuiControl, Disable, KeyDelayC
-GuiControl, Disable, KeyDelayX
-GuiControl, Enable, DelayC
-GuiControl, Enable, DelayX
-GoSub, CSend
-Gui 7:+LastFoundExist
-IfWinExist
- GoSub, InsertKeyClose
-SBShowTip((CSend ? "Control" : "") "SendRaw")
+ GuiControl, Enable, CSend
+ GuiControl, Enable, DefCt
+ GuiControl, Enable, GetCtrl
+ GuiControl, Disable, InsertKeyT
+ GuiControl,, ComEvent, 0
+ GuiControl, Disable, ComEvent
+ GuiControl, Disable, KeyDelayC
+ GuiControl, Disable, KeyDelayX
+ GuiControl, Enable, DelayC
+ GuiControl, Enable, DelayX
+ GoSub, CSend
+ Gui 7:+LastFoundExist
+ IfWinExist
+ GoSub, InsertKeyClose
+ SBShowTip((CSend ? "Control" : "") "SendRaw")
return
ComText:
-GuiControl, Enable, CSend
-GuiControl, Enable, DefCt
-GuiControl, Enable, GetCtrl
-GuiControl, Enable, InsertKeyT
-GuiControl, Enable, ComEvent
-GoSub, CSend
-SBShowTip((CSend ? "Control" : "") "Send")
+ GuiControl, Enable, CSend
+ GuiControl, Enable, DefCt
+ GuiControl, Enable, GetCtrl
+ GuiControl, Enable, InsertKeyT
+ GuiControl, Enable, ComEvent
+ GoSub, CSend
+ SBShowTip((CSend ? "Control" : "") "Send")
return
SetText:
-GuiControl, , CSend, 1
-GuiControl, Disable, CSend
-GuiControl, Enable, DefCt
-GuiControl, Enable, GetCtrl
-GuiControl, Disable, InsertKeyT
-GuiControl,, ComEvent, 0
-GuiControl, Disable, ComEvent
-GuiControl, Disable, KeyDelayC
-GuiControl, Disable, KeyDelayX
-GuiControl, Enable, DelayC
-GuiControl, Enable, DelayX
-GoSub, CSend
-Gui 7:+LastFoundExist
-IfWinExist
- GoSub, InsertKeyClose
-SBShowTip("ControlSetText")
+ GuiControl, , CSend, 1
+ GuiControl, Disable, CSend
+ GuiControl, Enable, DefCt
+ GuiControl, Enable, GetCtrl
+ GuiControl, Disable, InsertKeyT
+ GuiControl,, ComEvent, 0
+ GuiControl, Disable, ComEvent
+ GuiControl, Disable, KeyDelayC
+ GuiControl, Disable, KeyDelayX
+ GuiControl, Enable, DelayC
+ GuiControl, Enable, DelayX
+ GoSub, CSend
+ Gui 7:+LastFoundExist
+ IfWinExist
+ GoSub, InsertKeyClose
+ SBShowTip("ControlSetText")
return
Clip:
-GuiControl, Enable, CSend
-GuiControl, Enable, DefCt
-GuiControl, Enable, GetCtrl
-GuiControl, Disable, InsertKeyT
-GuiControl,, ComEvent, 0
-GuiControl, Disable, ComEvent
-GuiControl, Disable, KeyDelayC
-GuiControl, Disable, KeyDelayX
-GuiControl, Enable, DelayC
-GuiControl, Enable, DelayX
-GoSub, CSend
-Gui 7:+LastFoundExist
-IfWinExist
- GoSub, InsertKeyClose
-SBShowTip("Clipboard")
+ GuiControl, Enable, CSend
+ GuiControl, Enable, DefCt
+ GuiControl, Enable, GetCtrl
+ GuiControl, Disable, InsertKeyT
+ GuiControl,, ComEvent, 0
+ GuiControl, Disable, ComEvent
+ GuiControl, Disable, KeyDelayC
+ GuiControl, Disable, KeyDelayX
+ GuiControl, Enable, DelayC
+ GuiControl, Enable, DelayX
+ GoSub, CSend
+ Gui 7:+LastFoundExist
+ IfWinExist
+ GoSub, InsertKeyClose
+ SBShowTip("Clipboard")
return
EditPaste:
-GuiControl, , CSend, 1
-GuiControl, Disable, CSend
-GuiControl, Enable, DefCt
-GuiControl, Enable, GetCtrl
-GuiControl, Disable, InsertKeyT
-GuiControl,, ComEvent, 0
-GuiControl, Disable, ComEvent
-GuiControl, Disable, KeyDelayC
-GuiControl, Disable, KeyDelayX
-GuiControl, Enable, DelayC
-GuiControl, Enable, DelayX
-GoSub, CSend
-Gui 7:+LastFoundExist
-IfWinExist
- GoSub, InsertKeyClose
-SBShowTip("ControlEditPaste")
+ GuiControl, , CSend, 1
+ GuiControl, Disable, CSend
+ GuiControl, Enable, DefCt
+ GuiControl, Enable, GetCtrl
+ GuiControl, Disable, InsertKeyT
+ GuiControl,, ComEvent, 0
+ GuiControl, Disable, ComEvent
+ GuiControl, Disable, KeyDelayC
+ GuiControl, Disable, KeyDelayX
+ GuiControl, Enable, DelayC
+ GuiControl, Enable, DelayX
+ GoSub, CSend
+ Gui 7:+LastFoundExist
+ IfWinExist
+ GoSub, InsertKeyClose
+ SBShowTip("ControlEditPaste")
return
ComEvent:
-Gui, Submit, NoHide
-GuiControl, Enable%ComEvent%, KeyDelayC
-GuiControl, Enable%ComEvent%, KeyDelayX
-GuiControl, Disable%ComEvent%, DelayC
-GuiControl, Disable%ComEvent%, DelayX
-GuiControl, Disable%ComEvent%, Sec
-GuiControl,, Msc, 1
+ Gui, Submit, NoHide
+ GuiControl, Enable%ComEvent%, KeyDelayC
+ GuiControl, Enable%ComEvent%, KeyDelayX
+ GuiControl, Disable%ComEvent%, DelayC
+ GuiControl, Disable%ComEvent%, DelayX
+ GuiControl, Disable%ComEvent%, Sec
+ GuiControl,, Msc, 1
return
TextEdit:
-Gui, Submit, NoHide
-StringSplit, cL, TextEdit, `n, `r
-SB_SetText("length: " StrLen(TextEdit), 2)
-SB_SetText("lines: " cL0, 3)
-If (InStr(TextEdit, ""))
- GuiControl,, IsHtml, 1
+ Gui, Submit, NoHide
+ StringSplit, cL, TextEdit, `n, `r
+ SB_SetText("length: " StrLen(TextEdit), 2)
+ SB_SetText("lines: " cL0, 3)
+ If (InStr(TextEdit, ""))
+ GuiControl,, IsHtml, 1
return
OpenT:
-Gui, +OwnDialogs
-FileSelectFile, TextFile, 3,, %AppName%
-FreeMemory()
-If (!TextFile)
- return
-FileRead, InText, %TextFile%
-GuiControl,, TextEdit, %InText%
-GoSub, TextEdit
+ Gui, +OwnDialogs
+ FileSelectFile, TextFile, 3,, %AppName%
+ FreeMemory()
+ If (!TextFile)
+ return
+ FileRead, InText, %TextFile%
+ GuiControl,, TextEdit, %InText%
+ GoSub, TextEdit
return
SaveT:
-Gui, Submit, NoHide
-Gui +OwnDialogs
-FileSelectFile, TextFile, S16,, %AppName%
-FreeMemory()
-If (TextFile = "")
- Exit
-SplitPath, TextFile,,, ext
-If (ext = "")
- TextFile .= ".txt"
-IfExist %TextFile%
-{
- FileDelete %TextFile%
- If (ErrorLevel)
+ Gui, Submit, NoHide
+ Gui +OwnDialogs
+ FileSelectFile, TextFile, S16,, %AppName%
+ FreeMemory()
+ If (TextFile = "")
+ Exit
+ SplitPath, TextFile,,, ext
+ If (ext = "")
+ TextFile .= ".txt"
+ IfExist %TextFile%
{
- MsgBox, 16, %d_Lang007%, %d_Lang006% "%TextFile%".
- return
+ FileDelete %TextFile%
+ If (ErrorLevel)
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang006% "%TextFile%".
+ return
+ }
}
-}
-FileAppend, %TextEdit%, %TextFile%
+ FileAppend, %TextEdit%, %TextFile%
return
39GuiDropfiles:
-Loop, Parse, A_GuiEvent, `n
-{
- Loop, % LV_GetCount()
+ Loop, Parse, A_GuiEvent, `n
{
- LV_GetText(RowText, A_Index)
- If (A_LoopField = RowText)
- continue 2
+ Loop, % LV_GetCount()
+ {
+ LV_GetText(RowText, A_Index)
+ If (A_LoopField = RowText)
+ continue 2
+ }
+ LV_Add("", A_LoopField)
}
- LV_Add("", A_LoopField)
-}
return
CutT:
-PostMessage, WM_CUT, 0, 0, Edit1, ahk_id %CmdWin%
+ PostMessage, WM_CUT, 0, 0, Edit1, ahk_id %CmdWin%
return
CopyT:
-PostMessage, WM_COPY, 0, 0, Edit1, ahk_id %CmdWin%
+ PostMessage, WM_COPY, 0, 0, Edit1, ahk_id %CmdWin%
return
PasteT:
-PostMessage, WM_PASTE, 0, 0, Edit1, ahk_id %CmdWin%
+ PostMessage, WM_PASTE, 0, 0, Edit1, ahk_id %CmdWin%
return
SelAllT:
-Gui, Submit, NoHide
-PostMessage, 0x00B1, 0, StrLen(TextEdit) + cL0, Edit1, ahk_id %CmdWin%
+ Gui, Submit, NoHide
+ PostMessage, 0x00B1, 0, StrLen(TextEdit) + cL0, Edit1, ahk_id %CmdWin%
return
RemoveT:
-PostMessage, WM_CLEAR, 0, 0, Edit1, ahk_id %CmdWin%
+ PostMessage, WM_CLEAR, 0, 0, Edit1, ahk_id %CmdWin%
return
EditKeyWait:
EditMsgBox:
EditSleep:
-s_Caller := "Edit"
-KeyWait:
-MsgBox:
-Sleep:
-Gui, 3:+owner1 -MinimizeBox +Delimiter%_x% +E0x00000400 +HwndCmdWin
-Gui, 1:+Disabled
-Gui, 3:Add, Tab2, W450 H0 vTabControl AltSubmit, CmdTab1%_x%CmdTab2%_x%CmdTab3
-; Sleep
-Gui, 3:Add, GroupBox, Section xm ym W450 H125
-Gui, 3:Add, Text, -Wrap R1 ys+20 xs+10 W180 Right, %c_Lang050%:
-Gui, 3:Add, Edit, yp-2 x+10 W100 vDelayC
-Gui, 3:Add, UpDown, vDelayX 0x80 Range0-2147483647, 300
-Gui, 3:Add, Radio, -Wrap Checked y+12 W170 vMsc R1, %c_Lang018%
-Gui, 3:Add, Radio, -Wrap W170 vSec R1, %c_Lang019%
-Gui, 3:Add, Radio, -Wrap W170 vMin R1, %c_Lang154%
-Gui, 3:Add, GroupBox, Section xs y+30 W450 H130
-Gui, 3:Add, Checkbox, -Wrap R1 ys+20 xs+10 W100 vRandom gRandomSleep, %c_Lang180%
-Gui, 3:Add, Text, Section -Wrap yp x+5 W75 R1 Right, %c_Lang181%:
-Gui, 3:Add, Edit, yp-2 x+10 W100 R1 vRandMin Disabled
-Gui, 3:Add, UpDown, vRandMinimum 0x80 Range0-2147483647, 0
-Gui, 3:Add, Text, -Wrap y+10 xs W75 R1 Right, %c_Lang182%:
-Gui, 3:Add, Edit, yp-2 x+10 W100 R1 vRandMax Disabled
-Gui, 3:Add, UpDown, vRandMaximum 0x80 Range0-2147483647, 500
-Gui, 3:Add, Checkbox, -Wrap y+20 xm+10 W400 vNoRandom gNoRandom, %c_Lang183%
-Gui, 3:Tab, 2
-; MsgBox
-Gui, 3:Add, GroupBox, Section ym xm W450 H105, %c_Lang015%:
-Gui, 3:Add, Edit, ys+20 xs+10 W430 R5 WantTab vMsgPt
-; Options
-Gui, 3:Add, Groupbox, Section y+17 xs W450 H150, %w_Lang003%:
-Gui, 3:Add, Text, -Wrap ys+17 xs+10 W70 R1 Right, %c_Lang189%:
-Gui, 3:Add, Edit, -Wrap yp-2 x+10 W160 R1 vTitle
-Gui, 3:Add, Text, -Wrap ys+17 x+10 W70 R1 Right, %c_Lang147%:
-Gui, 3:Add, DDL, yp-2 x+10 W100 AltSubmit vIcon, %c_Lang148%%_x%%_x%%c_Lang149%%_x%%c_Lang150%%_x%%c_Lang151%%_x%%c_Lang152%
-Gui, 3:Add, Text, -Wrap R1 y+12 xs+10 W70 Right, %c_Lang185%:
-Gui, 3:Add, DDL, yp-2 x+10 W160 AltSubmit vButtons,
+ s_Caller := "Edit"
+ KeyWait:
+ MsgBox:
+ Sleep:
+ Gui, 3:+owner1 -MinimizeBox +Delimiter%_x% +E0x00000400 +HwndCmdWin
+ Gui, 1:+Disabled
+ Gui, 3:Add, Tab2, W450 H0 vTabControl AltSubmit, CmdTab1%_x%CmdTab2%_x%CmdTab3
+ ; Sleep
+ Gui, 3:Add, GroupBox, Section xm ym W450 H125
+ Gui, 3:Add, Text, -Wrap R1 ys+20 xs+10 W180 Right, %c_Lang050%:
+ Gui, 3:Add, Edit, yp-2 x+10 W100 vDelayC
+ Gui, 3:Add, UpDown, vDelayX 0x80 Range0-2147483647, 300
+ Gui, 3:Add, Radio, -Wrap Checked y+12 W170 vMsc R1, %c_Lang018%
+ Gui, 3:Add, Radio, -Wrap W170 vSec R1, %c_Lang019%
+ Gui, 3:Add, Radio, -Wrap W170 vMin R1, %c_Lang154%
+ Gui, 3:Add, GroupBox, Section xs y+30 W450 H130
+ Gui, 3:Add, Checkbox, -Wrap R1 ys+20 xs+10 W100 vRandom gRandomSleep, %c_Lang180%
+ Gui, 3:Add, Text, Section -Wrap yp x+5 W75 R1 Right, %c_Lang181%:
+ Gui, 3:Add, Edit, yp-2 x+10 W100 R1 vRandMin Disabled
+ Gui, 3:Add, UpDown, vRandMinimum 0x80 Range0-2147483647, 0
+ Gui, 3:Add, Text, -Wrap y+10 xs W75 R1 Right, %c_Lang182%:
+ Gui, 3:Add, Edit, yp-2 x+10 W100 R1 vRandMax Disabled
+ Gui, 3:Add, UpDown, vRandMaximum 0x80 Range0-2147483647, 500
+ Gui, 3:Add, Checkbox, -Wrap y+20 xm+10 W400 vNoRandom gNoRandom, %c_Lang183%
+ Gui, 3:Tab, 2
+ ; MsgBox
+ Gui, 3:Add, GroupBox, Section ym xm W450 H105, %c_Lang015%:
+ Gui, 3:Add, Edit, ys+20 xs+10 W430 R5 WantTab vMsgPt
+ ; Options
+ Gui, 3:Add, Groupbox, Section y+17 xs W450 H150, %w_Lang003%:
+ Gui, 3:Add, Text, -Wrap ys+17 xs+10 W70 R1 Right, %c_Lang189%:
+ Gui, 3:Add, Edit, -Wrap yp-2 x+10 W160 R1 vTitle
+ Gui, 3:Add, Text, -Wrap ys+17 x+10 W70 R1 Right, %c_Lang147%:
+ Gui, 3:Add, DDL, yp-2 x+10 W100 AltSubmit vIcon, %c_Lang148%%_x%%_x%%c_Lang149%%_x%%c_Lang150%%_x%%c_Lang151%%_x%%c_Lang152%
+ Gui, 3:Add, Text, -Wrap R1 y+12 xs+10 W70 Right, %c_Lang185%:
+ Gui, 3:Add, DDL, yp-2 x+10 W160 AltSubmit vButtons,
(Join%_x%
%c_Lang170%%_x%
%c_Lang170%/%c_Lang171%
@@ -6276,419 +6272,419 @@ Gui, 3:Add, DDL, yp-2 x+10 W160 AltSubmit vButtons,
%c_Lang174%/%c_Lang171%
%c_Lang171%/%c_Lang176%/%c_Lang175%
)
-Gui, 3:Add, Text, -Wrap R1 yp+2 x+10 W70 Right, %t_Lang063%:
-Gui, 3:Add, DDL, yp-2 x+10 W100 AltSubmit vDefault, %c_Lang186%%_x%%_x%%c_Lang187%%_x%%c_Lang188%
-Gui, 3:Add, Checkbox, -Wrap W200 y+10 xs+10 vAot R1, %c_Lang153%
-Gui, 3:Add, Checkbox, -Wrap W200 yp x+10 vRightJ R1, %c_Lang243%
-Gui, 3:Add, Checkbox, -Wrap W200 y+10 xs+10 vRightRead R1, %c_Lang244%
-Gui, 3:Add, CheckBox, -Wrap W200 yp x+10 vAddIf, %c_Lang162%
-Gui, 3:Add, Text, -Wrap y+10 xs+10 W145 R1, %c_Lang177% (%c_Lang019%):
-Gui, 3:Add, Edit, yp-3 x+5 W50 vTimeoutM
-Gui, 3:Add, UpDown, vTimeoutMsg 0x80 Range0-2147483, 0
-Gui, 3:Add, Text, -Wrap R1 yp x+10 W110, %w_Lang015%:
-Gui, 3:Add, Edit, yp x+10 W100 R1 vEdRept
-Gui, 3:Add, UpDown, vTimesX 0x80 Range1-999999999, 1
-; KeyWait
-Gui, 3:Tab, 3
-Gui, 3:Add, GroupBox, Section xm ym W450 H140
-Gui, 3:Add, Text, -Wrap ys+40 xs+10 W180 R1 Right vWaitKeysT, %c_Lang052%:
-Gui, 3:Add, Hotkey, yp x+10 vWaitKeys gWaitKeys W120
-Gui, 3:Add, Checkbox, y+20 xs+10 -Wrap W180 R1 Right vWaitKeyList gWaitKeyList, %c_Lang184%:
-Gui, 3:Add, Combobox, yp-3 x+10 W120 vKeyW gAutoComplete Disabled, %KeybdList%
-Gui, 3:Add, GroupBox, Section xm y+45 W450 H118
-Gui, 3:Add, Text, -Wrap R1 ys+40 xs+10 vTimoutT W180 Right, %c_Lang053%:
-Gui, 3:Add, Edit, Section yp-2 x+10 W120 vTimeoutC
-Gui, 3:Add, UpDown, vTimeout 0x80 Range0-999999999, 0
-Gui, 3:Add, Text, -Wrap R1 y+10 xs, %c_Lang054%
-Gui, 3:Tab
-Gui, 3:Add, Button, -Wrap Section Default xm W75 H23 gPauseOK, %c_Lang020%
-Gui, 3:Add, Button, -Wrap ys W75 H23 gPauseCancel, %c_Lang021%
-Gui, 3:Add, Button, -Wrap ys W75 H23 vPauseApply gPauseApply Disabled, %c_Lang131%
-Gui, 3:Add, Text, x+10 yp-3 W190 H25 cGray, %c_Lang025%
-Gui, 3:Add, StatusBar, gStatusBarHelp
-Gui, 3:Default
-SB_SetIcon(ResDllPath, IconsNames["help"])
-If (s_Caller = "Edit")
-{
- EscCom(true, Details, Target, Window)
- StringReplace, Details, Details, ``n, `n, All
- If (Type = cType5)
+ Gui, 3:Add, Text, -Wrap R1 yp+2 x+10 W70 Right, %t_Lang063%:
+ Gui, 3:Add, DDL, yp-2 x+10 W100 AltSubmit vDefault, %c_Lang186%%_x%%_x%%c_Lang187%%_x%%c_Lang188%
+ Gui, 3:Add, Checkbox, -Wrap W200 y+10 xs+10 vAot R1, %c_Lang153%
+ Gui, 3:Add, Checkbox, -Wrap W200 yp x+10 vRightJ R1, %c_Lang243%
+ Gui, 3:Add, Checkbox, -Wrap W200 y+10 xs+10 vRightRead R1, %c_Lang244%
+ Gui, 3:Add, CheckBox, -Wrap W200 yp x+10 vAddIf, %c_Lang162%
+ Gui, 3:Add, Text, -Wrap y+10 xs+10 W145 R1, %c_Lang177% (%c_Lang019%):
+ Gui, 3:Add, Edit, yp-3 x+5 W50 vTimeoutM
+ Gui, 3:Add, UpDown, vTimeoutMsg 0x80 Range0-2147483, 0
+ Gui, 3:Add, Text, -Wrap R1 yp x+10 W110, %w_Lang015%:
+ Gui, 3:Add, Edit, yp x+10 W100 R1 vEdRept
+ Gui, 3:Add, UpDown, vTimesX 0x80 Range1-999999999, 1
+ ; KeyWait
+ Gui, 3:Tab, 3
+ Gui, 3:Add, GroupBox, Section xm ym W450 H140
+ Gui, 3:Add, Text, -Wrap ys+40 xs+10 W180 R1 Right vWaitKeysT, %c_Lang052%:
+ Gui, 3:Add, Hotkey, yp x+10 vWaitKeys gWaitKeys W120
+ Gui, 3:Add, Checkbox, y+20 xs+10 -Wrap W180 R1 Right vWaitKeyList gWaitKeyList, %c_Lang184%:
+ Gui, 3:Add, Combobox, yp-3 x+10 W120 vKeyW gAutoComplete Disabled, %KeybdList%
+ Gui, 3:Add, GroupBox, Section xm y+45 W450 H118
+ Gui, 3:Add, Text, -Wrap R1 ys+40 xs+10 vTimoutT W180 Right, %c_Lang053%:
+ Gui, 3:Add, Edit, Section yp-2 x+10 W120 vTimeoutC
+ Gui, 3:Add, UpDown, vTimeout 0x80 Range0-999999999, 0
+ Gui, 3:Add, Text, -Wrap R1 y+10 xs, %c_Lang054%
+ Gui, 3:Tab
+ Gui, 3:Add, Button, -Wrap Section Default xm W75 H23 gPauseOK, %c_Lang020%
+ Gui, 3:Add, Button, -Wrap ys W75 H23 gPauseCancel, %c_Lang021%
+ Gui, 3:Add, Button, -Wrap ys W75 H23 vPauseApply gPauseApply Disabled, %c_Lang131%
+ Gui, 3:Add, Text, x+10 yp-3 W190 H25 cGray, %c_Lang025%
+ Gui, 3:Add, StatusBar, gStatusBarHelp
+ Gui, 3:Default
+ SB_SetIcon(ResDllPath, IconsNames["help"])
+ If (s_Caller = "Edit")
{
- GuiControl, 3:, DelayX
- If (Details = "Random")
+ EscCom(true, Details, Target, Window)
+ StringReplace, Details, Details, ``n, `n, All
+ If (Type = cType5)
{
- GuiControl, 3:, Random, 1
- If (InStr(DelayX, "%"))
- GuiControl, 3:, RandMin, %DelayX%
- Else
- GuiControl, 3:, RandMinimum, %DelayX%
- If (InStr(Target, "%"))
- GuiControl, 3:, RandMax, %Target%
+ GuiControl, 3:, DelayX
+ If (Details = "Random")
+ {
+ GuiControl, 3:, Random, 1
+ If (InStr(DelayX, "%"))
+ GuiControl, 3:, RandMin, %DelayX%
+ Else
+ GuiControl, 3:, RandMinimum, %DelayX%
+ If (InStr(Target, "%"))
+ GuiControl, 3:, RandMax, %Target%
+ Else
+ GuiControl, 3:, RandMaximum, %Target%
+ GoSub, RandomSleep
+ }
Else
- GuiControl, 3:, RandMaximum, %Target%
- GoSub, RandomSleep
+ {
+ If (InStr(DelayX, "%"))
+ GuiControl, 3:, DelayC, %DelayX%
+ Else
+ GuiControl, 3:, DelayX, %DelayX%
+ }
+ If (Details = "NoRandom")
+ {
+ GuiControl, 3:, NoRandom, 1
+ GuiControl, 3:Disable%NoRandom%, Random
+ }
}
- Else
+ If (Type = cType6)
{
+ GuiControl, 3:, CancelB, 0
+ GuiControl, 3:, MsgPt, %Details%
+ GuiControl, 3:, Title, %Window%
+ GuiControl, 3:, TimesX, %TimesX%
+ GuiControl, 3:, EdRept, %TimesX%
+ GuiControl, 3:, DelayX, 0
If (InStr(DelayX, "%"))
- GuiControl, 3:, DelayC, %DelayX%
+ GuiControl, 3:, TimeoutM, %DelayX%
Else
- GuiControl, 3:, DelayX, %DelayX%
+ GuiControl, 3:, TimeoutMsg, %DelayX%
+ InStyles := "|", MsgButton := 0
+ For i, v in MsgBoxStyles
+ {
+ If (Target & v)
+ InStyles .= v "|", Target -= v
+ }
+ Loop, 6
+ {
+ ic := (7-A_Index)
+ If ((Target & ic) = ic)
+ {
+ MsgButton := ic, Target -= ic
+ break
+ }
+ }
+ GuiControl, 3:, RightRead, % InStr(InStyles, "|" MsgBoxStyles[1] "|") ? 1 : 0
+ GuiControl, 3:, RightJ, % InStr(InStyles, "|" MsgBoxStyles[2] "|") ? 1 : 0
+ GuiControl, 3:, Aot, % InStr(InStyles, "|" MsgBoxStyles[3] "|") ? 1 : 0
+ GuiControl, 3:Choose, Default, % (InStr(InStyles, "|" MsgBoxStyles[4] "|")) ? 3 : (InStr(InStyles, "|" MsgBoxStyles[5] "|")) ? 2 : 1
+ GuiControl, 3:Choose, Icon, % (Target = 64) ? 5 : (Target = 48) ? 4 : (Target = 32) ? 3 : (Target = 16) ? 2 : 1
+ GuiControl, 3:Choose, Buttons, % MsgButton + 1
}
- If (Details = "NoRandom")
+ Else If (Type = cType20)
{
- GuiControl, 3:, NoRandom, 1
- GuiControl, 3:Disable%NoRandom%, Random
+ GuiControl, 3:, WaitKeys, %Details%
+ GuiControl, 3:, Timeout
+ If (InStr(DelayX, "%"))
+ GuiControl, 3:, TimeoutC, %DelayX%
+ Else
+ GuiControl, 3:, Timeout, %DelayX%
}
+ GuiControl, 3:Enable, PauseApply
+ GuiControl, 3:, AddIf, 0
+ GuiControl, 3:Disable, AddIf
}
- If (Type = cType6)
+ If (InStr(A_ThisLabel, "MsgBox"))
{
- GuiControl, 3:, CancelB, 0
- GuiControl, 3:, MsgPt, %Details%
- GuiControl, 3:, Title, %Window%
- GuiControl, 3:, TimesX, %TimesX%
- GuiControl, 3:, EdRept, %TimesX%
- GuiControl, 3:, DelayX, 0
- If (InStr(DelayX, "%"))
- GuiControl, 3:, TimeoutM, %DelayX%
- Else
- GuiControl, 3:, TimeoutMsg, %DelayX%
- InStyles := "|", MsgButton := 0
- For i, v in MsgBoxStyles
- {
- If (Target & v)
- InStyles .= v "|", Target -= v
- }
- Loop, 6
- {
- ic := (7-A_Index)
- If ((Target & ic) = ic)
- {
- MsgButton := ic, Target -= ic
- break
- }
- }
- GuiControl, 3:, RightRead, % InStr(InStyles, "|" MsgBoxStyles[1] "|") ? 1 : 0
- GuiControl, 3:, RightJ, % InStr(InStyles, "|" MsgBoxStyles[2] "|") ? 1 : 0
- GuiControl, 3:, Aot, % InStr(InStyles, "|" MsgBoxStyles[3] "|") ? 1 : 0
- GuiControl, 3:Choose, Default, % (InStr(InStyles, "|" MsgBoxStyles[4] "|")) ? 3 : (InStr(InStyles, "|" MsgBoxStyles[5] "|")) ? 2 : 1
- GuiControl, 3:Choose, Icon, % (Target = 64) ? 5 : (Target = 48) ? 4 : (Target = 32) ? 3 : (Target = 16) ? 2 : 1
- GuiControl, 3:Choose, Buttons, % MsgButton + 1
- }
- Else If (Type = cType20)
- {
- GuiControl, 3:, WaitKeys, %Details%
- GuiControl, 3:, Timeout
- If (InStr(DelayX, "%"))
- GuiControl, 3:, TimeoutC, %DelayX%
- Else
- GuiControl, 3:, Timeout, %DelayX%
+ GuiControl, 3:Choose, TabControl, 2
+ GuiTitle := c_Lang051
}
- GuiControl, 3:Enable, PauseApply
- GuiControl, 3:, AddIf, 0
- GuiControl, 3:Disable, AddIf
-}
-If (InStr(A_ThisLabel, "MsgBox"))
-{
- GuiControl, 3:Choose, TabControl, 2
- GuiTitle := c_Lang051
-}
-Else If (InStr(A_ThisLabel, "KeyWait"))
-{
- GuiControl, 3:Choose, TabControl, 3
- GuiTitle := c_Lang066
-}
-Else
- GuiTitle := c_Lang003
-SBShowTip(LTrim(A_ThisLabel, "Edit"))
-Gui, 3:Show,, %GuiTitle%
-ChangeIcon(hIL_Icons, CmdWin, InStr(A_ThisLabel, "Sleep") ? IconsNames["pause"] : InStr(A_ThisLabel, "MsgBox") ? IconsNames["dialogs"] : IconsNames["wait"])
-Input
-Tooltip
+ Else If (InStr(A_ThisLabel, "KeyWait"))
+ {
+ GuiControl, 3:Choose, TabControl, 3
+ GuiTitle := c_Lang066
+ }
+ Else
+ GuiTitle := c_Lang003
+ SBShowTip(LTrim(A_ThisLabel, "Edit"))
+ Gui, 3:Show,, %GuiTitle%
+ ChangeIcon(hIL_Icons, CmdWin, InStr(A_ThisLabel, "Sleep") ? IconsNames["pause"] : InStr(A_ThisLabel, "MsgBox") ? IconsNames["dialogs"] : IconsNames["wait"])
+ Input
+ Tooltip
return
WaitKeys:
-GuiA := ActiveGui(WinExist())
-If %A_GuiControl% contains +^,+!,^!,+^!
- GuiControl, %GuiA%:, %A_GuiControl%
-If %A_GuiControl% contains +
- GuiControl, %GuiA%:, %A_GuiControl%, Shift
-If %A_GuiControl% contains ^
- GuiControl, %GuiA%:, %A_GuiControl%, Control
-If %A_GuiControl% contains !
- GuiControl, %GuiA%:, %A_GuiControl%, Alt
+ GuiA := ActiveGui(WinExist())
+ If %A_GuiControl% contains +^,+!,^!,+^!
+ GuiControl, %GuiA%:, %A_GuiControl%
+ If %A_GuiControl% contains +
+ GuiControl, %GuiA%:, %A_GuiControl%, Shift
+ If %A_GuiControl% contains ^
+ GuiControl, %GuiA%:, %A_GuiControl%, Control
+ If %A_GuiControl% contains !
+ GuiControl, %GuiA%:, %A_GuiControl%, Alt
return
RandomSleep:
-Gui, 3:Submit, NoHide
-GuiControl, 3:Disable%Random%, DelayC
-GuiControl, 3:Disable%Random%, DelayX
-GuiControl, 3:Disable%Random%, Msc
-GuiControl, 3:Disable%Random%, Sec
-GuiControl, 3:Disable%Random%, Min
-GuiControl, 3:Disable%Random%, NoRandom
-GuiControl, 3:Enable%Random%, RandMin
-GuiControl, 3:Enable%Random%, RandMinimum
-GuiControl, 3:Enable%Random%, RandMax
-GuiControl, 3:Enable%Random%, RandMaximum
+ Gui, 3:Submit, NoHide
+ GuiControl, 3:Disable%Random%, DelayC
+ GuiControl, 3:Disable%Random%, DelayX
+ GuiControl, 3:Disable%Random%, Msc
+ GuiControl, 3:Disable%Random%, Sec
+ GuiControl, 3:Disable%Random%, Min
+ GuiControl, 3:Disable%Random%, NoRandom
+ GuiControl, 3:Enable%Random%, RandMin
+ GuiControl, 3:Enable%Random%, RandMinimum
+ GuiControl, 3:Enable%Random%, RandMax
+ GuiControl, 3:Enable%Random%, RandMaximum
return
NoRandom:
-Gui, 3:Submit, NoHide
-GuiControl, 3:Disable%NoRandom%, Random
+ Gui, 3:Submit, NoHide
+ GuiControl, 3:Disable%NoRandom%, Random
return
WaitKeyList:
-Gui, 3:Submit, NoHide
-GuiControl, 3:Enable%WaitKeyList%, KeyW
-GuiControl, 3:Disable%WaitKeyList%, WaitKeys
+ Gui, 3:Submit, NoHide
+ GuiControl, 3:Enable%WaitKeyList%, KeyW
+ GuiControl, 3:Disable%WaitKeyList%, WaitKeys
return
PauseApply:
PauseOK:
-Gui, 3:Submit, NoHide
-DelayX := (Random) ? (InStr(RandMin, "%") ? RandMin : RandMinimum)
-: (InStr(DelayC, "%") ? DelayC : DelayX)
-If (Sec = 1)
- DelayX *= 1000
-Else If (Min = 1)
- DelayX *= 60000
-If (TabControl = 2)
-{
- Type := cType6, Details := MsgPT, DelayX := (InStr(TimeoutM, "%") ? TimeoutM : TimeoutMsg)
- Target := 0
- Target += Aot ? 262144 : 0
- Target += RightJ ? 524288 : 0
- Target += RightRead ? 1048576 : 0
- Target += (Default-1) * 256
- Target += (Icon-1) * 16
- Target += (Buttons-1)
- EscCom(false, Details, Title)
- TimesX := InStr(EdRept, "%") ? EdRept : TimesX
- StringReplace, Details, Details, `n, ``n, All
-}
-Else If (TabControl = 3)
-{
- If ((!WaitKeyList) && (WaitKeys = ""))
- {
- Gui, 3:Font, cRed
- GuiControl, 3:Font, WaitKeysT
- GuiControl, 3:Focus, WaitKeys
- return
+ Gui, 3:Submit, NoHide
+ DelayX := (Random) ? (InStr(RandMin, "%") ? RandMin : RandMinimum)
+ : (InStr(DelayC, "%") ? DelayC : DelayX)
+ If (Sec = 1)
+ DelayX *= 1000
+ Else If (Min = 1)
+ DelayX *= 60000
+ If (TabControl = 2)
+ {
+ Type := cType6, Details := MsgPT, DelayX := (InStr(TimeoutM, "%") ? TimeoutM : TimeoutMsg)
+ Target := 0
+ Target += Aot ? 262144 : 0
+ Target += RightJ ? 524288 : 0
+ Target += RightRead ? 1048576 : 0
+ Target += (Default-1) * 256
+ Target += (Icon-1) * 16
+ Target += (Buttons-1)
+ EscCom(false, Details, Title)
+ TimesX := InStr(EdRept, "%") ? EdRept : TimesX
+ StringReplace, Details, Details, `n, ``n, All
+ }
+ Else If (TabControl = 3)
+ {
+ If ((!WaitKeyList) && (WaitKeys = ""))
+ {
+ Gui, 3:Font, cRed
+ GuiControl, 3:Font, WaitKeysT
+ GuiControl, 3:Focus, WaitKeys
+ return
+ }
+ If ((WaitKeyList) && (KeyW = ""))
+ {
+ GuiControl, 3:Focus, KeyW
+ return
+ }
+ Type := cType20, tKey := (WaitKeyList) ? KeyW : WaitKeys
+ Details := tKey, Target := "", Title := ""
+ DelayX := InStr(TimeoutC, "%") ? TimeoutC : Timeout
}
- If ((WaitKeyList) && (KeyW = ""))
+ Else
{
- GuiControl, 3:Focus, KeyW
- return
+ Type := cType5, Title := "", Details := (NoRandom) ? "NoRandom" : ((Random) ? "Random" : "")
+ Target := (Random) ? (InStr(RandMax, "%") ? RandMax : RandMaximum) : ""
}
- Type := cType20, tKey := (WaitKeyList) ? KeyW : WaitKeys
- Details := tKey, Target := "", Title := ""
- DelayX := InStr(TimeoutC, "%") ? TimeoutC : Timeout
-}
-Else
-{
- Type := cType5, Title := "", Details := (NoRandom) ? "NoRandom" : ((Random) ? "Random" : "")
- Target := (Random) ? (InStr(RandMax, "%") ? RandMax : RandMaximum) : ""
-}
-If (A_ThisLabel != "PauseApply")
-{
- Gui, 1:-Disabled
- Gui, 3:Destroy
-}
-Action := (Type = cType5) ? "[Pause]" : "[" Type "]"
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
-If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col2", Action, Details, TimesX, DelayX, Type, Target, Title)
-Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
-{
- LV_Add("Check", ListCount%A_List%+1, Action, Details, 1, DelayX, Type, Target, Title)
- LV_Modify(ListCount%A_List%+1, "Vis")
-}
-Else
-{
- GuiControl, chMacro:-g, InputList%A_List%
- RowNumber := 0
- Loop, %RowSelection%
+ If (A_ThisLabel != "PauseApply")
{
- RowNumber := LV_GetNext(RowNumber)
- LV_Insert(RowNumber, "Check", RowNumber, Action, Details, 1, DelayX, Type, Target, Title)
- LVManager[A_List].InsertAtGroup(RowNumber)
- RowNumber++
- If (AddIf = 1)
- break
+ Gui, 1:-Disabled
+ Gui, 3:Destroy
}
- GuiControl, chMacro:+gInputList, InputList%A_List%
-}
-GoSub, RowCheck
-GoSub, b_Start
-If (AddIf = 1)
-{
- IfMsg := (Buttons < 3) ? IfMsg3 : (Buttons = 3) ? IfMsg5
- : ((Buttons > 3) && (Buttons < 6)) ? IfMsg1 : (Buttons > 5) ? IfMsg4
- If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
+ Action := (Type = cType5) ? "[Pause]" : "[" Type "]"
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col2", Action, Details, TimesX, DelayX, Type, Target, Title)
+ Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
{
- LV_Add("Check", ListCount%A_List%+1, If13, IfMsg, 1, 0, cType17)
- LV_Add("Check", ListCount%A_List%+2, "[End If]", "EndIf", 1, 0, cType17)
- LV_Modify(ListCount%A_List%+2, "Vis")
+ LV_Add("Check", ListCount%A_List%+1, Action, Details, 1, DelayX, Type, Target, Title)
+ LV_Modify(ListCount%A_List%+1, "Vis")
}
Else
{
- LV_Insert(LV_GetNext(), "Check",, If13, IfMsg, 1, 0, cType17)
- LVManager[A_List].InsertAtGroup(LV_GetNext()), RowNumber := 0, LastRow := 0
- Loop
+ GuiControl, chMacro:-g, InputList%A_List%
+ RowNumber := 0
+ Loop, %RowSelection%
{
RowNumber := LV_GetNext(RowNumber)
- If (!RowNumber)
- {
- LV_Insert(LastRow+1, "Check",LastRow+1, "[End If]", "EndIf", 1, 0, cType17)
- LVManager[A_List].InsertAtGroup(LastRow)
+ LV_Insert(RowNumber, "Check", RowNumber, Action, Details, 1, DelayX, Type, Target, Title)
+ LVManager[A_List].InsertAtGroup(RowNumber)
+ RowNumber++
+ If (AddIf = 1)
break
- }
- LastRow := LV_GetNext(LastRow)
}
+ GuiControl, chMacro:+gInputList, InputList%A_List%
}
GoSub, RowCheck
GoSub, b_Start
-}
-If (A_ThisLabel = "PauseApply")
- Gui, 3:Default
-Else
-{
- s_Caller := ""
- GuiControl, Focus, InputList%A_List%
-}
+ If (AddIf = 1)
+ {
+ IfMsg := (Buttons < 3) ? IfMsg3 : (Buttons = 3) ? IfMsg5
+ : ((Buttons > 3) && (Buttons < 6)) ? IfMsg1 : (Buttons > 5) ? IfMsg4
+ If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
+ {
+ LV_Add("Check", ListCount%A_List%+1, If13, IfMsg, 1, 0, cType17)
+ LV_Add("Check", ListCount%A_List%+2, "[End If]", "EndIf", 1, 0, cType17)
+ LV_Modify(ListCount%A_List%+2, "Vis")
+ }
+ Else
+ {
+ LV_Insert(LV_GetNext(), "Check",, If13, IfMsg, 1, 0, cType17)
+ LVManager[A_List].InsertAtGroup(LV_GetNext()), RowNumber := 0, LastRow := 0
+ Loop
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ If (!RowNumber)
+ {
+ LV_Insert(LastRow+1, "Check",LastRow+1, "[End If]", "EndIf", 1, 0, cType17)
+ LVManager[A_List].InsertAtGroup(LastRow)
+ break
+ }
+ LastRow := LV_GetNext(LastRow)
+ }
+ }
+ GoSub, RowCheck
+ GoSub, b_Start
+ }
+ If (A_ThisLabel = "PauseApply")
+ Gui, 3:Default
+ Else
+ {
+ s_Caller := ""
+ GuiControl, Focus, InputList%A_List%
+ }
return
PauseCancel:
3GuiClose:
3GuiEscape:
-Gui, 1:-Disabled
-Gui, 3:Destroy
-s_Caller := ""
+ Gui, 1:-Disabled
+ Gui, 3:Destroy
+ s_Caller := ""
return
EditGoto:
EditLoop:
EditTimer:
-s_Caller := "Edit"
+ s_Caller := "Edit"
TimedLabel:
ComGoto:
ComLoop:
-If (InStr(CopyMenuLabels[A_List], "()"))
-{
- If (A_ThisLabel = "ComGoto")
+ If (InStr(CopyMenuLabels[A_List], "()"))
{
- Gui, 1:+OwnDialogs
- MsgBox, 16, %d_Lang007%, %d_Lang100%
- return
+ If (A_ThisLabel = "ComGoto")
+ {
+ Gui, 1:+OwnDialogs
+ MsgBox, 16, %d_Lang007%, %d_Lang100%
+ return
+ }
}
-}
-Proj_Labels := ""
-Gui, chMacro:Default
-Loop, %TabCount%
-{
- Gui, chMacro:ListView, InputList%A_Index%
- Loop, % ListCount%A_Index%
+ Proj_Labels := ""
+ Gui, chMacro:Default
+ Loop, %TabCount%
{
- LV_GetText(Row_Type, A_Index, 6)
- If (Row_Type = cType35)
+ Gui, chMacro:ListView, InputList%A_Index%
+ Loop, % ListCount%A_Index%
{
- LV_GetText(Row_Label, A_Index, 3)
- Proj_Labels .= Row_Label "|"
+ LV_GetText(Row_Type, A_Index, 6)
+ If (Row_Type = cType35)
+ {
+ LV_GetText(Row_Label, A_Index, 3)
+ Proj_Labels .= Row_Label "|"
+ }
}
}
-}
-Gui, chMacro:ListView, InputList%A_List%
-Loop, %TabCount%
-{
- Lab := CopyMenuLabels[A_Index]
- Proj_Labels .= InStr(Lab, "()") ? "" : Lab "|"
-}
-Gui, 12:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
-Gui, 1:+Disabled
-Gui, 12:Add, Tab2, W450 H0 vTabControl AltSubmit, CmdTab1|CmdTab2|CmdTab3
-; Loop
-Gui, 12:Add, Groupbox, Section ym xm W260 H115
-Gui, 12:Add, Radio, -Wrap Checked ys+20 xs+10 W120 vLoop gLoopType R1, %c_Lang132%
-Gui, 12:Add, Radio, -Wrap y+10 xp W120 vLWhile gLoopType R1, While-%c_Lang132%
-Gui, 12:Add, Radio, -Wrap y+10 xp W120 vLFor gLoopType R1, For-%c_Lang132%
-Gui, 12:Add, Radio, -Wrap y+10 xp W120 vLParse gLoopType R1, %c_Lang134%
-Gui, 12:Add, Radio, -Wrap ys+20 x+5 W120 vLFilePattern gLoopType R1, %c_Lang133%
-Gui, 12:Add, Radio, -Wrap y+10 xp W120 R1 vLRegistry gLoopType R1, %c_Lang136%
-Gui, 12:Add, Radio, -Wrap y+10 xp W120 vLRead gLoopType R1, %c_Lang135%
-Gui, 12:Add, Groupbox, Section ym xs+270 W180 H115
-Gui, 12:Add, Text, -Wrap R1 ys+15 xs+10 W160, %w_Lang015% (%t_Lang004%):
-Gui, 12:Add, Edit, y+5 xp W120 R1 vEdRept
-Gui, 12:Add, UpDown, vTimesL 0x80 Range0-999999999, 0
-Gui, 12:Add, Checkbox, -Wrap y+10 xp W160 vLUntil gLUntil R1, %c_Lang155% (%c_Lang087%):
-Gui, 12:Add, Edit, y+5 xp W160 vUntilExpr Disabled
-Gui, 12:Add, Groupbox, Section xm y+17 W450 H110
-Gui, 12:Add, Text, -Wrap R1 ys+15 xs+10 W160 vField1, %c_Lang137%
-Gui, 12:Add, CheckBox, -Wrap yp x+10 W80 vIncFiles Disabled R1 Checked, %c_Lang145%
-Gui, 12:Add, CheckBox, -Wrap yp x+10 W80 vIncFolders Disabled R1, %c_Lang138%
-Gui, 12:Add, CheckBox, -Wrap yp x+10 W80 vRecurse Disabled R1, %c_Lang139%
-Gui, 12:Add, Edit, y+5 xs+10 W400 R1 vLParamsFile Disabled
-Gui, 12:Add, Button, -Wrap yp-1 x+0 W30 H23 vSearchLParams gSearch Disabled, ...
-Gui, 12:Add, Text, -Wrap R1 y+5 xs+10 W210 vField2, %c_Lang141%
-Gui, 12:Add, Text, -Wrap R1 yp x+10 W210 vField3, %c_Lang142%
-Gui, 12:Add, Edit, y+5 xs+10 W210 R1 vDelim Disabled
-Gui, 12:Add, Edit, yp x+10 W210 R1 vOmit Disabled
-Gui, 12:Add, Groupbox, Section xm y+15 W450 H50, %c_Lang123%:
-Gui, 12:Add, Button, -Wrap ys+18 xs+85 W75 H23 gAddBreak, %c_Lang075%
-Gui, 12:Add, Button, -Wrap yp x+10 W75 H23 gAddContinue, %c_Lang076%
-Gui, 12:Add, Button, -Wrap Section xm Default W75 H23 gLoopOK, %c_Lang020%
-Gui, 12:Add, Button, -Wrap ys W75 H23 gLoopCancel, %c_Lang021%
-Gui, 12:Add, Button, -Wrap ys W75 H23 vLoopApply gLoopApply Disabled, %c_Lang131%
-Gui, 12:Add, Text, x+10 yp-3 W190 H25 cGray vVarTxt, %c_Lang025%
-Gui, 12:Add, Link, -Wrap xp yp WP R1 vExprLink2 gExprLink Hidden, %c_Lang091%
-Gui, 12:Tab, 2
-; Goto / Label
-Gui, 12:Add, Groupbox, Section xm ym W450 H100
-Gui, 12:Add, Radio, -Wrap R1 Checked ys+20 xs+10 W150 vGoLabelT gGoto, %c_Lang078%:
-Gui, 12:Add, ComboBox, yp x+10 W150 vGoLabel gAutoComplete, %Proj_Labels%
-Gui, 12:Add, Radio, -Wrap R1 Section Checked vGoto gGoto, Goto
-Gui, 12:Add, Radio, -Wrap R1 yp x+25 vGosub gGoto, Gosub
-Gui, 12:Add, Text, -Wrap R1 y+15 xm+100 cGray, %c_Lang025%
-Gui, 12:Add, Groupbox, Section xm y+15 W450 H55
-Gui, 12:Add, Radio, -Wrap R1 ys+20 xs+10 W150 vNewLabelT gGoto, %c_Lang080%:
-Gui, 12:Add, Edit, yp x+10 W150 R1 vNewLabel Disabled
-Gui, 12:Add, Groupbox, Section xm y+17 W450 H50, %c_Lang123%:
-Gui, 12:Add, Button, -Wrap ys+18 xs+85 W75 H23 gAddReturn, %c_Lang258%
-Gui, 12:Add, Button, -Wrap Section xm y+15 W75 H23 vGotoOK gGotoOK, %c_Lang020%
-Gui, 12:Add, Button, -Wrap ys W75 H23 gLoopCancel, %c_Lang021%
-Gui, 12:Add, Button, -Wrap ys W75 H23 vGotoApply gGotoApply Disabled, %c_Lang131%
-Gui, 12:Tab, 3
-; SetTimer
-Gui, 12:Add, Groupbox, Section xm ym W450 H80
-Gui, 12:Add, Text, -Wrap R1 Checked ys+20 xs+10 W70 Right, %c_Lang079%:
-Gui, 12:Add, ComboBox, yp x+10 W150 vGoTimerLabel gAutoComplete, %Proj_Labels%
-Gui, 12:Add, Text, y+5 xp W190 H25 cGray, %c_Lang025%
-Gui, 12:Add, Groupbox, Section xm y+15 W220 H125, %c_Lang257%
-Gui, 12:Add, Edit, ys+30 xs+30 Limit W150 vTimerDelayE
-Gui, 12:Add, UpDown, vTimerDelayX 0x80 Range0-9999999, 250
-Gui, 12:Add, Radio, -Wrap Section Checked yp+25 W150 vTimerMsc R1, %c_Lang018%
-Gui, 12:Add, Radio, -Wrap W150 vTimerSec R1, %c_Lang019%
-Gui, 12:Add, Radio, -Wrap W150 vTimerMin R1, %c_Lang154%
-Gui, 12:Add, Groupbox, Section W220 H125 ys-55 x+50, %w_Lang003%:
-Gui, 12:Add, Radio, -Wrap Group Checked ys+20 xs+10 W200 vRunOnce gTimerOpt R1, %t_Lang078%
-Gui, 12:Add, Radio, -Wrap W200 vPeriod gTimerOpt R1, %t_Lang079%
-Gui, 12:Add, Radio, -Wrap W200 vTurnOn gTimerOpt R1, %c_Lang238%
-Gui, 12:Add, Radio, -Wrap W200 vTurnOff gTimerOpt R1, %c_Lang239%
-Gui, 12:Add, Radio, -Wrap W200 vDelete gTimerOpt R1, %t_Lang132%
-Gui, 12:Add, Button, -Wrap Section xm y+22 W75 H23 vTimedLabelOK gTimedLabelOK, %c_Lang020%
-Gui, 12:Add, Button, -Wrap ys W75 H23 gLoopCancel, %c_Lang021%
-Gui, 12:Add, Button, -Wrap ys W75 H23 vTimedLabelApply gTimedLabelApply Disabled, %c_Lang131%
-Gui, 12:Add, Text, -Wrap R1 ys x+5 W200 vTimersCount, % RegisteredTimers.Length() "/10 " c_Lang240
-Gui, 12:Add, Link, -Wrap y+0 xp W200 R1 gClearTimers, %c_Lang241%
-Gui, 12:Add, StatusBar, gStatusBarHelp
-Gui, 12:Default
-SB_SetIcon(ResDllPath, IconsNames["help"])
-GoSub, ClearPars
-If (s_Caller = "Edit")
-{
- Switch Type
+ Gui, chMacro:ListView, InputList%A_List%
+ Loop, %TabCount%
+ {
+ Lab := CopyMenuLabels[A_Index]
+ Proj_Labels .= InStr(Lab, "()") ? "" : Lab "|"
+ }
+ Gui, 12:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
+ Gui, 1:+Disabled
+ Gui, 12:Add, Tab2, W450 H0 vTabControl AltSubmit, CmdTab1|CmdTab2|CmdTab3
+ ; Loop
+ Gui, 12:Add, Groupbox, Section ym xm W260 H115
+ Gui, 12:Add, Radio, -Wrap Checked ys+20 xs+10 W120 vLoop gLoopType R1, %c_Lang132%
+ Gui, 12:Add, Radio, -Wrap y+10 xp W120 vLWhile gLoopType R1, While-%c_Lang132%
+ Gui, 12:Add, Radio, -Wrap y+10 xp W120 vLFor gLoopType R1, For-%c_Lang132%
+ Gui, 12:Add, Radio, -Wrap y+10 xp W120 vLParse gLoopType R1, %c_Lang134%
+ Gui, 12:Add, Radio, -Wrap ys+20 x+5 W120 vLFilePattern gLoopType R1, %c_Lang133%
+ Gui, 12:Add, Radio, -Wrap y+10 xp W120 R1 vLRegistry gLoopType R1, %c_Lang136%
+ Gui, 12:Add, Radio, -Wrap y+10 xp W120 vLRead gLoopType R1, %c_Lang135%
+ Gui, 12:Add, Groupbox, Section ym xs+270 W180 H115
+ Gui, 12:Add, Text, -Wrap R1 ys+15 xs+10 W160, %w_Lang015% (%t_Lang004%):
+ Gui, 12:Add, Edit, y+5 xp W120 R1 vEdRept
+ Gui, 12:Add, UpDown, vTimesL 0x80 Range0-999999999, 0
+ Gui, 12:Add, Checkbox, -Wrap y+10 xp W160 vLUntil gLUntil R1, %c_Lang155% (%c_Lang087%):
+ Gui, 12:Add, Edit, y+5 xp W160 vUntilExpr Disabled
+ Gui, 12:Add, Groupbox, Section xm y+17 W450 H110
+ Gui, 12:Add, Text, -Wrap R1 ys+15 xs+10 W160 vField1, %c_Lang137%
+ Gui, 12:Add, CheckBox, -Wrap yp x+10 W80 vIncFiles Disabled R1 Checked, %c_Lang145%
+ Gui, 12:Add, CheckBox, -Wrap yp x+10 W80 vIncFolders Disabled R1, %c_Lang138%
+ Gui, 12:Add, CheckBox, -Wrap yp x+10 W80 vRecurse Disabled R1, %c_Lang139%
+ Gui, 12:Add, Edit, y+5 xs+10 W400 R1 vLParamsFile Disabled
+ Gui, 12:Add, Button, -Wrap yp-1 x+0 W30 H23 vSearchLParams gSearch Disabled, ...
+ Gui, 12:Add, Text, -Wrap R1 y+5 xs+10 W210 vField2, %c_Lang141%
+ Gui, 12:Add, Text, -Wrap R1 yp x+10 W210 vField3, %c_Lang142%
+ Gui, 12:Add, Edit, y+5 xs+10 W210 R1 vDelim Disabled
+ Gui, 12:Add, Edit, yp x+10 W210 R1 vOmit Disabled
+ Gui, 12:Add, Groupbox, Section xm y+15 W450 H50, %c_Lang123%:
+ Gui, 12:Add, Button, -Wrap ys+18 xs+85 W75 H23 gAddBreak, %c_Lang075%
+ Gui, 12:Add, Button, -Wrap yp x+10 W75 H23 gAddContinue, %c_Lang076%
+ Gui, 12:Add, Button, -Wrap Section xm Default W75 H23 gLoopOK, %c_Lang020%
+ Gui, 12:Add, Button, -Wrap ys W75 H23 gLoopCancel, %c_Lang021%
+ Gui, 12:Add, Button, -Wrap ys W75 H23 vLoopApply gLoopApply Disabled, %c_Lang131%
+ Gui, 12:Add, Text, x+10 yp-3 W190 H25 cGray vVarTxt, %c_Lang025%
+ Gui, 12:Add, Link, -Wrap xp yp WP R1 vExprLink2 gExprLink Hidden, %c_Lang091%
+ Gui, 12:Tab, 2
+ ; Goto / Label
+ Gui, 12:Add, Groupbox, Section xm ym W450 H100
+ Gui, 12:Add, Radio, -Wrap R1 Checked ys+20 xs+10 W150 vGoLabelT gGoto, %c_Lang078%:
+ Gui, 12:Add, ComboBox, yp x+10 W150 vGoLabel gAutoComplete, %Proj_Labels%
+ Gui, 12:Add, Radio, -Wrap R1 Section Checked vGoto gGoto, Goto
+ Gui, 12:Add, Radio, -Wrap R1 yp x+25 vGosub gGoto, Gosub
+ Gui, 12:Add, Text, -Wrap R1 y+15 xm+100 cGray, %c_Lang025%
+ Gui, 12:Add, Groupbox, Section xm y+15 W450 H55
+ Gui, 12:Add, Radio, -Wrap R1 ys+20 xs+10 W150 vNewLabelT gGoto, %c_Lang080%:
+ Gui, 12:Add, Edit, yp x+10 W150 R1 vNewLabel Disabled
+ Gui, 12:Add, Groupbox, Section xm y+17 W450 H50, %c_Lang123%:
+ Gui, 12:Add, Button, -Wrap ys+18 xs+85 W75 H23 gAddReturn, %c_Lang258%
+ Gui, 12:Add, Button, -Wrap Section xm y+15 W75 H23 vGotoOK gGotoOK, %c_Lang020%
+ Gui, 12:Add, Button, -Wrap ys W75 H23 gLoopCancel, %c_Lang021%
+ Gui, 12:Add, Button, -Wrap ys W75 H23 vGotoApply gGotoApply Disabled, %c_Lang131%
+ Gui, 12:Tab, 3
+ ; SetTimer
+ Gui, 12:Add, Groupbox, Section xm ym W450 H80
+ Gui, 12:Add, Text, -Wrap R1 Checked ys+20 xs+10 W70 Right, %c_Lang079%:
+ Gui, 12:Add, ComboBox, yp x+10 W150 vGoTimerLabel gAutoComplete, %Proj_Labels%
+ Gui, 12:Add, Text, y+5 xp W190 H25 cGray, %c_Lang025%
+ Gui, 12:Add, Groupbox, Section xm y+15 W220 H125, %c_Lang257%
+ Gui, 12:Add, Edit, ys+30 xs+30 Limit W150 vTimerDelayE
+ Gui, 12:Add, UpDown, vTimerDelayX 0x80 Range0-9999999, 250
+ Gui, 12:Add, Radio, -Wrap Section Checked yp+25 W150 vTimerMsc R1, %c_Lang018%
+ Gui, 12:Add, Radio, -Wrap W150 vTimerSec R1, %c_Lang019%
+ Gui, 12:Add, Radio, -Wrap W150 vTimerMin R1, %c_Lang154%
+ Gui, 12:Add, Groupbox, Section W220 H125 ys-55 x+50, %w_Lang003%:
+ Gui, 12:Add, Radio, -Wrap Group Checked ys+20 xs+10 W200 vRunOnce gTimerOpt R1, %t_Lang078%
+ Gui, 12:Add, Radio, -Wrap W200 vPeriod gTimerOpt R1, %t_Lang079%
+ Gui, 12:Add, Radio, -Wrap W200 vTurnOn gTimerOpt R1, %c_Lang238%
+ Gui, 12:Add, Radio, -Wrap W200 vTurnOff gTimerOpt R1, %c_Lang239%
+ Gui, 12:Add, Radio, -Wrap W200 vDelete gTimerOpt R1, %t_Lang132%
+ Gui, 12:Add, Button, -Wrap Section xm y+22 W75 H23 vTimedLabelOK gTimedLabelOK, %c_Lang020%
+ Gui, 12:Add, Button, -Wrap ys W75 H23 gLoopCancel, %c_Lang021%
+ Gui, 12:Add, Button, -Wrap ys W75 H23 vTimedLabelApply gTimedLabelApply Disabled, %c_Lang131%
+ Gui, 12:Add, Text, -Wrap R1 ys x+5 W200 vTimersCount, % RegisteredTimers.Length() "/10 " c_Lang240
+ Gui, 12:Add, Link, -Wrap y+0 xp W200 R1 gClearTimers, %c_Lang241%
+ Gui, 12:Add, StatusBar, gStatusBarHelp
+ Gui, 12:Default
+ SB_SetIcon(ResDllPath, IconsNames["help"])
+ GoSub, ClearPars
+ If (s_Caller = "Edit")
{
+ Switch Type
+ {
Case cType35:
GuiControl, 12:, NewLabel, %Details%
GuiControl, 12:, NewLabelT, 1
@@ -6739,47 +6735,47 @@ If (s_Caller = "Edit")
}
Switch Type
{
- Case cType7:
- If (InStr(TimesX, "%"))
- GuiControl, 12:, EdRept, %TimesX%
- Else
- GuiControl, 12:, TimesL, %TimesX%
- Par1 := ""
- GoSub, LoopType
- Case cType38:
- GuiControl, 12:, LRead, 1
- GoSub, LoopType
- GuiControl, 12:, LParamsFile, %Details%
- Case cType39:
- GuiControl, 12:, LParse, 1
- GoSub, LoopType
- GuiControl, 12:, LParamsFile, %Par1%
- GuiControl, 12:, Delim, %Par2%
- GuiControl, 12:, Omit, %Par3%
- Case cType40:
- GuiControl, 12:, LFilePattern, 1
- GoSub, LoopType
- GuiControl, 12:, LParamsFile, %Par1%
- GuiControl, 12:, IncFiles, % InStr(Par2, "F") ? 1 : 0
- GuiControl, 12:, IncFolders, % InStr(Par2, "D") ? 1 : 0
- GuiControl, 12:, Recurse, % InStr(Par2, "R") ? 1 : 0
- Case cType41:
- GuiControl, 12:, LRegistry, 1
- GoSub, LoopType
- GuiControl, 12:, LParamsFile, %Par1%
- GuiControl, 12:, IncFiles, % InStr(Par2, "V") ? 1 : 0
- GuiControl, 12:, IncFolders, % InStr(Par2, "K") ? 1 : 0
- GuiControl, 12:, Recurse, % InStr(Par2, "R") ? 1 : 0
- Case cType45:
- GuiControl, 12:, LFor, 1
- GoSub, LoopType
- GuiControl, 12:, LParamsFile, %Par1%
- GuiControl, 12:, Delim, %Par2%
- GuiControl, 12:, Omit, %Par3%
- Case cType51:
- GuiControl, 12:, LWhile, 1
- GoSub, LoopType
- GuiControl, 12:, LParamsFile, %Details%
+ Case cType7:
+ If (InStr(TimesX, "%"))
+ GuiControl, 12:, EdRept, %TimesX%
+ Else
+ GuiControl, 12:, TimesL, %TimesX%
+ Par1 := ""
+ GoSub, LoopType
+ Case cType38:
+ GuiControl, 12:, LRead, 1
+ GoSub, LoopType
+ GuiControl, 12:, LParamsFile, %Details%
+ Case cType39:
+ GuiControl, 12:, LParse, 1
+ GoSub, LoopType
+ GuiControl, 12:, LParamsFile, %Par1%
+ GuiControl, 12:, Delim, %Par2%
+ GuiControl, 12:, Omit, %Par3%
+ Case cType40:
+ GuiControl, 12:, LFilePattern, 1
+ GoSub, LoopType
+ GuiControl, 12:, LParamsFile, %Par1%
+ GuiControl, 12:, IncFiles, % InStr(Par2, "F") ? 1 : 0
+ GuiControl, 12:, IncFolders, % InStr(Par2, "D") ? 1 : 0
+ GuiControl, 12:, Recurse, % InStr(Par2, "R") ? 1 : 0
+ Case cType41:
+ GuiControl, 12:, LRegistry, 1
+ GoSub, LoopType
+ GuiControl, 12:, LParamsFile, %Par1%
+ GuiControl, 12:, IncFiles, % InStr(Par2, "V") ? 1 : 0
+ GuiControl, 12:, IncFolders, % InStr(Par2, "K") ? 1 : 0
+ GuiControl, 12:, Recurse, % InStr(Par2, "R") ? 1 : 0
+ Case cType45:
+ GuiControl, 12:, LFor, 1
+ GoSub, LoopType
+ GuiControl, 12:, LParamsFile, %Par1%
+ GuiControl, 12:, Delim, %Par2%
+ GuiControl, 12:, Omit, %Par3%
+ Case cType51:
+ GuiControl, 12:, LWhile, 1
+ GoSub, LoopType
+ GuiControl, 12:, LParamsFile, %Details%
}
If (Target != "")
{
@@ -6789,573 +6785,573 @@ If (s_Caller = "Edit")
GuiControl, 12:, UntilExpr, %Target%
}
GoSub, ClearPars
+ }
+ GuiControl, 12:Enable, LoopApply
+ GuiControl, 12:Enable, GotoApply
+ GuiControl, 12:Enable, TimedLabelApply
}
- GuiControl, 12:Enable, LoopApply
- GuiControl, 12:Enable, GotoApply
- GuiControl, 12:Enable, TimedLabelApply
-}
-If (InStr(A_ThisLabel, "Time"))
-{
- GuiControl, 12:Choose, TabControl, 3
- GuiControl, 12:+Default, TimedLabelOK
- SBShowTip("SetTimer")
-}
-If (InStr(A_ThisLabel, "Goto"))
-{
- GuiControl, 12:Choose, TabControl, 2
- GuiControl, 12:+Default, GotoOK
- If (s_Caller = "Find")
+ If (InStr(A_ThisLabel, "Time"))
{
- GuiControl, 12:, %GotoRes1%, 1
- SBShowTip(GotoRes1)
+ GuiControl, 12:Choose, TabControl, 3
+ GuiControl, 12:+Default, TimedLabelOK
+ SBShowTip("SetTimer")
}
- Else
- GoSub, Goto
-}
-Else If ((s_Caller = "Find") && ((InStr(GotoRes1, "Loop"))
+ If (InStr(A_ThisLabel, "Goto"))
+ {
+ GuiControl, 12:Choose, TabControl, 2
+ GuiControl, 12:+Default, GotoOK
+ If (s_Caller = "Find")
+ {
+ GuiControl, 12:, %GotoRes1%, 1
+ SBShowTip(GotoRes1)
+ }
+ Else
+ GoSub, Goto
+ }
+ Else If ((s_Caller = "Find") && ((InStr(GotoRes1, "Loop"))
|| (GotoRes1 = "While") || (GotoRes1 = "For") || (GotoRes1 = "Until")))
-{
- StringReplace, GotoRes1, GotoRes1, Loop
- StringReplace, GotoRes1, GotoRes1, %A_Space%(files & folders), FilePattern
- StringReplace, GotoRes1, GotoRes1, %A_Space%(normal)
- StringReplace, GotoRes1, GotoRes1, %A_Space%(parse a string), Parse
- StringReplace, GotoRes1, GotoRes1, %A_Space%(read file contents), Read
- StringReplace, GotoRes1, GotoRes1, %A_Space%(registry), Registry
-
- GotoRes1 := "L" GotoRes1
- GuiControl, 12:, %GotoRes1%, 1
- GoSub, LoopType
- GuiControl, 12:Enable%LUntil%, UntilExpr
-}
-Else If (s_Caller != "Edit")
- SBShowTip("Loop (normal)")
-Gui, 12:Show, % InStr(A_ThisLabel, "Loop") ? "" : "H275", % InStr(A_ThisLabel, "Goto") ? c_Lang077 : InStr(A_ThisLabel, "Time") ? c_Lang242 : c_Lang073
-ChangeIcon(hIL_Icons, CmdWin, InStr(A_ThisLabel, "Goto") ? IconsNames["goto"] : InStr(A_ThisLabel, "Time") ? IconsNames["timer"] : IconsNames["loop"])
-Input
-Tooltip
+ {
+ StringReplace, GotoRes1, GotoRes1, Loop
+ StringReplace, GotoRes1, GotoRes1, %A_Space%(files & folders), FilePattern
+ StringReplace, GotoRes1, GotoRes1, %A_Space%(normal)
+ StringReplace, GotoRes1, GotoRes1, %A_Space%(parse a string), Parse
+ StringReplace, GotoRes1, GotoRes1, %A_Space%(read file contents), Read
+ StringReplace, GotoRes1, GotoRes1, %A_Space%(registry), Registry
+
+ GotoRes1 := "L" GotoRes1
+ GuiControl, 12:, %GotoRes1%, 1
+ GoSub, LoopType
+ GuiControl, 12:Enable%LUntil%, UntilExpr
+ }
+ Else If (s_Caller != "Edit")
+ SBShowTip("Loop (normal)")
+ Gui, 12:Show, % InStr(A_ThisLabel, "Loop") ? "" : "H275", % InStr(A_ThisLabel, "Goto") ? c_Lang077 : InStr(A_ThisLabel, "Time") ? c_Lang242 : c_Lang073
+ ChangeIcon(hIL_Icons, CmdWin, InStr(A_ThisLabel, "Goto") ? IconsNames["goto"] : InStr(A_ThisLabel, "Time") ? IconsNames["timer"] : IconsNames["loop"])
+ Input
+ Tooltip
return
LoopApply:
LoopOK:
-Gui, 12:+OwnDialogs
-Gui, 12:Submit, NoHide
-If (LRead = 1)
-{
- If (LParamsFile = "")
+ Gui, 12:+OwnDialogs
+ Gui, 12:Submit, NoHide
+ If (LRead = 1)
{
- Gui, 12:Font, cRed
- GuiControl, 12:Font, Field1
- GuiControl, 12:Focus, LParamsFile
- return
+ If (LParamsFile = "")
+ {
+ Gui, 12:Font, cRed
+ GuiControl, 12:Font, Field1
+ GuiControl, 12:Focus, LParamsFile
+ return
+ }
+ Details := RTrim(LParamsFile, ", ")
+ TimesL := 1, Type := cType38
}
- Details := RTrim(LParamsFile, ", ")
- TimesL := 1, Type := cType38
-}
-Else If (LParse = 1)
-{
- If (LParamsFile = "")
+ Else If (LParse = 1)
{
- Gui, 12:Font, cRed
- GuiControl, 12:Font, Field1
- GuiControl, 12:Focus, LParamsFile
- return
- }
- Try
+ If (LParamsFile = "")
+ {
+ Gui, 12:Font, cRed
+ GuiControl, 12:Font, Field1
+ GuiControl, 12:Focus, LParamsFile
+ return
+ }
+ Try
z_Check := VarSetCapacity(%LParamsFile%)
- Catch
+ Catch
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%LParamsFile%
+ return
+ }
+ EscCom(false, Delim), EscCom(false, Omit)
+ If (InStr(Delim, ";") && !InStr(Delim, "``;"))
+ Delim := RegExReplace(Delim, ";", "``;")
+ If (InStr(Delim, "%") && !InStr(Delim, "``%"))
+ Delim := RegExReplace(Delim, "%", "``%")
+ If (InStr(Omit, ";") && !InStr(Omit, "``;"))
+ Omit := RegExReplace(Omit, ";", "``;")
+ If (InStr(Omit, "%") && !InStr(Omit, "``%"))
+ Omit := RegExReplace(Omit, "%", "``%")
+ Details := LParamsFile ", " Delim ", " Omit
+ TimesL := 1, Type := cType39
+ }
+ Else If (LFor = 1)
+ {
+ If ((LParamsFile = "") || (Delim == ""))
+ {
+ Gui, 12:Font, cRed
+ GuiControl, 12:Font, Field1
+ GuiControl, 12:Font, Field2
+ GuiControl, 12:Focus, LParamsFile
+ return
+ }
+ Try
+ z_Check := VarSetCapacity(%Delim%)
+ Catch
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%Delim%
+ return
+ }
+ Try
+ z_Check := VarSetCapacity(%Omit%)
+ Catch
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%Omit%
+ return
+ }
+ EscCom(false, LParamsFile)
+ Details := LParamsFile ", " Delim ", " Omit
+ Details := RTrim(Details, ", ")
+ TimesL := 1, Type := cType45
+ }
+ Else If (LWhile = 1)
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%LParamsFile%
- return
+ If (LParamsFile = "")
+ {
+ Gui, 12:Font, cRed
+ GuiControl, 12:Font, Field1
+ GuiControl, 12:Focus, LParamsFile
+ return
+ }
+ Details := LParamsFile
+ TimesL := 1, Type := cType51
}
- EscCom(false, Delim), EscCom(false, Omit)
- If (InStr(Delim, ";") && !InStr(Delim, "``;"))
- Delim := RegExReplace(Delim, ";", "``;")
- If (InStr(Delim, "%") && !InStr(Delim, "``%"))
- Delim := RegExReplace(Delim, "%", "``%")
- If (InStr(Omit, ";") && !InStr(Omit, "``;"))
- Omit := RegExReplace(Omit, ";", "``;")
- If (InStr(Omit, "%") && !InStr(Omit, "``%"))
- Omit := RegExReplace(Omit, "%", "``%")
- Details := LParamsFile ", " Delim ", " Omit
- TimesL := 1, Type := cType39
-}
-Else If (LFor = 1)
-{
- If ((LParamsFile = "") || (Delim == ""))
+ Else If (LFilePattern = 1)
{
- Gui, 12:Font, cRed
- GuiControl, 12:Font, Field1
- GuiControl, 12:Font, Field2
- GuiControl, 12:Focus, LParamsFile
- return
+ If (LParamsFile = "")
+ {
+ Gui, 12:Font, cRed
+ GuiControl, 12:Font, Field1
+ GuiControl, 12:Focus, LParamsFile
+ return
+ }
+ Details := LParamsFile ", " (IncFiles ? "F" : "") (IncFolders ? "D" : "") (Recurse ? "R" : "")
+ TimesL := 1, Type := cType40
}
- Try
- z_Check := VarSetCapacity(%Delim%)
- Catch
+ Else If (LRegistry = 1)
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%Delim%
- return
+ Details := LParamsFile ", " (IncFiles ? "V" : "") (IncFolders ? "K" : "") (Recurse ? "R" : "")
+ TimesL := 1, Type := cType41
}
- Try
- z_Check := VarSetCapacity(%Omit%)
- Catch
+ Else
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%Omit%
- return
+ Details := "LoopStart", Type := cType7
+ TimesL := InStr(EdRept, "%") ? EdRept : TimesL
}
- EscCom(false, LParamsFile)
- Details := LParamsFile ", " Delim ", " Omit
- Details := RTrim(Details, ", ")
- TimesL := 1, Type := cType45
-}
-Else If (LWhile = 1)
-{
- If (LParamsFile = "")
+ If (LUntil = 1)
{
- Gui, 12:Font, cRed
- GuiControl, 12:Font, Field1
- GuiControl, 12:Focus, LParamsFile
- return
+ If (UntilExpr = "")
+ {
+ GuiControl, 12:Focus, UntilExpr
+ return
+ }
+ Target := UntilExpr
}
- Details := LParamsFile
- TimesL := 1, Type := cType51
-}
-Else If (LFilePattern = 1)
-{
- If (LParamsFile = "")
+ Else
+ Target := ""
+ EscCom(false, Details)
+ If (A_ThisLabel != "LoopApply")
{
- Gui, 12:Font, cRed
- GuiControl, 12:Font, Field1
- GuiControl, 12:Focus, LParamsFile
- return
+ Gui, 1:-Disabled
+ Gui, 12:Destroy
}
- Details := LParamsFile ", " (IncFiles ? "F" : "") (IncFolders ? "D" : "") (Recurse ? "R" : "")
- TimesL := 1, Type := cType40
-}
-Else If (LRegistry = 1)
-{
- Details := LParamsFile ", " (IncFiles ? "V" : "") (IncFolders ? "K" : "") (Recurse ? "R" : "")
- TimesL := 1, Type := cType41
-}
-Else
-{
- Details := "LoopStart", Type := cType7
- TimesL := InStr(EdRept, "%") ? EdRept : TimesL
-}
-If (LUntil = 1)
-{
- If (UntilExpr = "")
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col3", Details, TimesL, DelayX, Type, Target)
+ Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
{
- GuiControl, 12:Focus, UntilExpr
- return
+ LV_Add("Check", ListCount%A_List%+1, "[LoopStart]", Details, TimesL, 0, Type, Target)
+ LV_Add("Check", ListCount%A_List%+2, "[LoopEnd]", "LoopEnd", 1, 0, "Loop")
+ LV_Modify(ListCount%A_List%+2, "Vis")
}
- Target := UntilExpr
-}
-Else
- Target := ""
-EscCom(false, Details)
-If (A_ThisLabel != "LoopApply")
-{
- Gui, 1:-Disabled
- Gui, 12:Destroy
-}
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
-If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col3", Details, TimesL, DelayX, Type, Target)
-Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
-{
- LV_Add("Check", ListCount%A_List%+1, "[LoopStart]", Details, TimesL, 0, Type, Target)
- LV_Add("Check", ListCount%A_List%+2, "[LoopEnd]", "LoopEnd", 1, 0, "Loop")
- LV_Modify(ListCount%A_List%+2, "Vis")
-}
-Else
-{
- LV_Insert(LV_GetNext(), "Check",, "[LoopStart]", Details, TimesL, 0, Type, Target)
- LVManager[A_List].InsertAtGroup(LV_GetNext() - 1), RowNumber := 0, LastRow := 0
- Loop
+ Else
{
- RowNumber := LV_GetNext(RowNumber)
- If (!RowNumber)
+ LV_Insert(LV_GetNext(), "Check",, "[LoopStart]", Details, TimesL, 0, Type, Target)
+ LVManager[A_List].InsertAtGroup(LV_GetNext() - 1), RowNumber := 0, LastRow := 0
+ Loop
{
- LV_Insert(LastRow+1, "Check", LastRow+1, "[LoopEnd]", "LoopEnd", 1, 0, "Loop")
- LVManager[A_List].InsertAtGroup(LastRow)
- break
+ RowNumber := LV_GetNext(RowNumber)
+ If (!RowNumber)
+ {
+ LV_Insert(LastRow+1, "Check", LastRow+1, "[LoopEnd]", "LoopEnd", 1, 0, "Loop")
+ LVManager[A_List].InsertAtGroup(LastRow)
+ break
+ }
+ LastRow := LV_GetNext(LastRow)
}
- LastRow := LV_GetNext(LastRow)
}
-}
-GoSub, RowCheck
-GoSub, b_Start
-If (A_ThisLabel = "LoopApply")
- Gui, 12:Default
-Else
-{
- s_Caller := ""
- GuiControl, Focus, InputList%A_List%
-}
+ GoSub, RowCheck
+ GoSub, b_Start
+ If (A_ThisLabel = "LoopApply")
+ Gui, 12:Default
+ Else
+ {
+ s_Caller := ""
+ GuiControl, Focus, InputList%A_List%
+ }
return
Goto:
-If (A_GuiControl = "GoLabelT")
-{
- GuiControl, 12:, NewLabelT, 0
- GuiControl, 12:Enable, GoLabel
- GuiControl, 12:Enable, Goto
- GuiControl, 12:Enable, Gosub
- GuiControl, 12:Disable, NewLabel
-}
-Else If (A_GuiControl = "NewLabelT")
-{
- GuiControl, 12:, GoLabelT, 0
- GuiControl, 12:Disable, GoLabel
- GuiControl, 12:Disable, Goto
- GuiControl, 12:Disable, Gosub
- GuiControl, 12:Enable, NewLabel
-}
-Gui, 12:Submit, NoHide
-SBShowTip(NewLabelT ? "Label" : (Goto = 1) ? "Goto" : "Gosub")
+ If (A_GuiControl = "GoLabelT")
+ {
+ GuiControl, 12:, NewLabelT, 0
+ GuiControl, 12:Enable, GoLabel
+ GuiControl, 12:Enable, Goto
+ GuiControl, 12:Enable, Gosub
+ GuiControl, 12:Disable, NewLabel
+ }
+ Else If (A_GuiControl = "NewLabelT")
+ {
+ GuiControl, 12:, GoLabelT, 0
+ GuiControl, 12:Disable, GoLabel
+ GuiControl, 12:Disable, Goto
+ GuiControl, 12:Disable, Gosub
+ GuiControl, 12:Enable, NewLabel
+ }
+ Gui, 12:Submit, NoHide
+ SBShowTip(NewLabelT ? "Label" : (Goto = 1) ? "Goto" : "Gosub")
return
GotoApply:
GotoOK:
-Gui, 12:+OwnDialogs
-Gui, 12:Submit, NoHide
-If (GoLabelT)
-{
- If (GoLabel = "")
- return
- If (!RegExMatch(GoLabel, "^%\s+"))
+ Gui, 12:+OwnDialogs
+ Gui, 12:Submit, NoHide
+ If (GoLabelT)
+ {
+ If (GoLabel = "")
+ return
+ If (!RegExMatch(GoLabel, "^%\s+"))
+ {
+ If (!RegExMatch(GoLabel, "^[\w%]+$"))
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang049%
+ return
+ }
+ If ((!InStr(GoLabel, "%")) && (!InStr(Proj_Labels, GoLabel "|")))
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang109%
+ return
+ }
+ }
+ Details := GoLabel, Type := (Goto = 1) ? "Goto" : "Gosub"
+ }
+ If (NewLabelT)
{
- If (!RegExMatch(GoLabel, "^[\w%]+$"))
+ If (NewLabel = "")
+ return
+ If (!RegExMatch(NewLabel, "^\w+$"))
{
MsgBox, 16, %d_Lang007%, %d_Lang049%
return
}
- If ((!InStr(GoLabel, "%")) && (!InStr(Proj_Labels, GoLabel "|")))
+ Loop, Parse, Proj_Labels, |
{
- MsgBox, 16, %d_Lang007%, %d_Lang109%
- return
+ If (A_LoopField = NewLabel)
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang050%
+ return
+ }
}
+ Details := NewLabel, Type := cType35
}
- Details := GoLabel, Type := (Goto = 1) ? "Goto" : "Gosub"
-}
-If (NewLabelT)
-{
- If (NewLabel = "")
- return
- If (!RegExMatch(NewLabel, "^\w+$"))
+ If (A_ThisLabel != "GotoApply")
{
- MsgBox, 16, %d_Lang007%, %d_Lang049%
- return
+ Gui, 1:-Disabled
+ Gui, 12:Destroy
+ }
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected")
+ If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col2", "[" Type "]", Details, TimesX, DelayX, Type)
+ Else If (RowSelection = 0)
+ {
+ LV_Add("Check", ListCount%A_List%+1, "[" Type "]", Details, 1, 0, Type)
+ LV_Modify(ListCount%A_List%+1, "Vis")
}
- Loop, Parse, Proj_Labels, |
+ Else
{
- If (A_LoopField = NewLabel)
- {
- MsgBox, 16, %d_Lang007%, %d_Lang050%
- return
- }
+ LV_Insert(LV_GetNext(), "Check",, "[" Type "]", Details, 1, 0, Type)
+ LVManager[A_List].InsertAtGroup(LV_GetNext())
+ }
+ GoSub, RowCheck
+ GoSub, b_Start
+ If (A_ThisLabel = "GotoApply")
+ Gui, 12:Default
+ Else
+ {
+ s_Caller := ""
+ GuiControl, Focus, InputList%A_List%
}
- Details := NewLabel, Type := cType35
-}
-If (A_ThisLabel != "GotoApply")
-{
- Gui, 1:-Disabled
- Gui, 12:Destroy
-}
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected")
-If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col2", "[" Type "]", Details, TimesX, DelayX, Type)
-Else If (RowSelection = 0)
-{
- LV_Add("Check", ListCount%A_List%+1, "[" Type "]", Details, 1, 0, Type)
- LV_Modify(ListCount%A_List%+1, "Vis")
-}
-Else
-{
- LV_Insert(LV_GetNext(), "Check",, "[" Type "]", Details, 1, 0, Type)
- LVManager[A_List].InsertAtGroup(LV_GetNext())
-}
-GoSub, RowCheck
-GoSub, b_Start
-If (A_ThisLabel = "GotoApply")
- Gui, 12:Default
-Else
-{
- s_Caller := ""
- GuiControl, Focus, InputList%A_List%
-}
return
TimerOpt:
-If A_GuiControl in TurnOn,TurnOff,Delete
-{
- GuiControl, 12:Disable, TimerDelayE
- GuiControl, 12:Disable, TimerDelayX
- GuiControl, 12:Disable, TimerMsc
- GuiControl, 12:Disable, TimerSec
- GuiControl, 12:Disable, TimerMin
-}
-Else
-{
- GuiControl, 12:Enable, TimerDelayE
- GuiControl, 12:Enable, TimerDelayX
- GuiControl, 12:Enable, TimerMsc
- GuiControl, 12:Enable, TimerSec
- GuiControl, 12:Enable, TimerMin
-}
+ If A_GuiControl in TurnOn,TurnOff,Delete
+ {
+ GuiControl, 12:Disable, TimerDelayE
+ GuiControl, 12:Disable, TimerDelayX
+ GuiControl, 12:Disable, TimerMsc
+ GuiControl, 12:Disable, TimerSec
+ GuiControl, 12:Disable, TimerMin
+ }
+ Else
+ {
+ GuiControl, 12:Enable, TimerDelayE
+ GuiControl, 12:Enable, TimerDelayX
+ GuiControl, 12:Enable, TimerMsc
+ GuiControl, 12:Enable, TimerSec
+ GuiControl, 12:Enable, TimerMin
+ }
return
ClearTimers:
-Loop, 10
- SetTimer, RunTimerOn%A_Index%, Delete
-RegisteredTimers.RemoveAt(1, RegisteredTimers.Length())
-GuiControl, 12:, TimersCount, % RegisteredTimers.Length() "/10 " c_Lang240
+ Loop, 10
+ SetTimer, RunTimerOn%A_Index%, Delete
+ RegisteredTimers.RemoveAt(1, RegisteredTimers.Length())
+ GuiControl, 12:, TimersCount, % RegisteredTimers.Length() "/10 " c_Lang240
return
TimedLabelApply:
TimedLabelOK:
-Gui, 12:+OwnDialogs
-Gui, 12:Submit, NoHide
-If (GoTimerLabel = "")
- return
-If (!RegExMatch(GoTimerLabel, "^%\s+"))
-{
- If (!RegExMatch(GoTimerLabel, "^[\w%]+$"))
- {
- MsgBox, 16, %d_Lang007%, %d_Lang049%
+ Gui, 12:+OwnDialogs
+ Gui, 12:Submit, NoHide
+ If (GoTimerLabel = "")
return
+ If (!RegExMatch(GoTimerLabel, "^%\s+"))
+ {
+ If (!RegExMatch(GoTimerLabel, "^[\w%]+$"))
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang049%
+ return
+ }
+ If ((!InStr(GoTimerLabel, "%")) && (!InStr(Proj_Labels, GoTimerLabel "|")))
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang109%
+ return
+ }
}
- If ((!InStr(GoTimerLabel, "%")) && (!InStr(Proj_Labels, GoTimerLabel "|")))
+ If ((RunOnce) || (Period))
{
- MsgBox, 16, %d_Lang007%, %d_Lang109%
- return
+ DelayX := (InStr(TimerDelayE, "%") ? TimerDelayE : TimerDelayX)
+ If (TimerSec = 1)
+ DelayX := TimerDelayX * 1000
+ Else If (TimerMin = 1)
+ DelayX := TimerDelayX * 60000
+ Action := Period ? "Period" : "Run Once"
+ }
+ Else
+ DelayX := 0, Action := TurnOn ? "Turn On" : TurnOff ? "Turn Off" : "Delete"
+ If (A_ThisLabel != "TimedLabelApply")
+ {
+ Gui, 1:-Disabled
+ Gui, 12:Destroy
+ }
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected")
+ If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col2", Action, GoTimerLabel, 1, DelayX, cType50)
+ Else If (RowSelection = 0)
+ {
+ LV_Add("Check", ListCount%A_List%+1, Action, GoTimerLabel, 1, DelayX, cType50)
+ LV_Modify(ListCount%A_List%+1, "Vis")
+ }
+ Else
+ {
+ LV_Insert(LV_GetNext(), "Check",, Action, GoTimerLabel, 1, DelayX, cType50)
+ LVManager[A_List].InsertAtGroup(LV_GetNext())
+ }
+ GoSub, RowCheck
+ GoSub, b_Start
+ If (A_ThisLabel = "TimedLabelApply")
+ Gui, 12:Default
+ Else
+ {
+ s_Caller := ""
+ GuiControl, Focus, InputList%A_List%
}
-}
-If ((RunOnce) || (Period))
-{
- DelayX := (InStr(TimerDelayE, "%") ? TimerDelayE : TimerDelayX)
- If (TimerSec = 1)
- DelayX := TimerDelayX * 1000
- Else If (TimerMin = 1)
- DelayX := TimerDelayX * 60000
- Action := Period ? "Period" : "Run Once"
-}
-Else
- DelayX := 0, Action := TurnOn ? "Turn On" : TurnOff ? "Turn Off" : "Delete"
-If (A_ThisLabel != "TimedLabelApply")
-{
- Gui, 1:-Disabled
- Gui, 12:Destroy
-}
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected")
-If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col2", Action, GoTimerLabel, 1, DelayX, cType50)
-Else If (RowSelection = 0)
-{
- LV_Add("Check", ListCount%A_List%+1, Action, GoTimerLabel, 1, DelayX, cType50)
- LV_Modify(ListCount%A_List%+1, "Vis")
-}
-Else
-{
- LV_Insert(LV_GetNext(), "Check",, Action, GoTimerLabel, 1, DelayX, cType50)
- LVManager[A_List].InsertAtGroup(LV_GetNext())
-}
-GoSub, RowCheck
-GoSub, b_Start
-If (A_ThisLabel = "TimedLabelApply")
- Gui, 12:Default
-Else
-{
- s_Caller := ""
- GuiControl, Focus, InputList%A_List%
-}
return
LoopCancel:
12GuiClose:
12GuiEscape:
-Gui, 1:-Disabled
-Gui, 12:Destroy
-s_Caller := ""
+ Gui, 1:-Disabled
+ Gui, 12:Destroy
+ s_Caller := ""
return
LoopS:
-GuiControl, Enable, EdRept
-GuiControl, Enable, TimesX
+ GuiControl, Enable, EdRept
+ GuiControl, Enable, TimesX
return
LoopE:
-GuiControl, Disable, EdRept
-GuiControl, Disable, TimesX
+ GuiControl, Disable, EdRept
+ GuiControl, Disable, TimesX
return
AddBreak:
AddContinue:
AddReturn:
-Gui, 12:Submit, NoHide
-Gui, 1:-Disabled
-Gui, 12:Destroy
-Gui, chMacro:Default
-Type := LTrim(A_ThisLabel, "Add")
-RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
-If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
-{
- LV_Add("Check", ListCount%A_List%+1, Type,, 1, 0, Type)
- LV_Modify(ListCount%A_List%+1, "Vis")
-}
-Else
-{
- LV_Insert(LV_GetNext(), "Check",, Type,, 1, 0, Type)
- LVManager[A_List].InsertAtGroup(LV_GetNext())
-}
-GoSub, RowCheck
-GoSub, b_Start
-GuiControl, Focus, InputList%A_List%
+ Gui, 12:Submit, NoHide
+ Gui, 1:-Disabled
+ Gui, 12:Destroy
+ Gui, chMacro:Default
+ Type := LTrim(A_ThisLabel, "Add")
+ RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
+ {
+ LV_Add("Check", ListCount%A_List%+1, Type,, 1, 0, Type)
+ LV_Modify(ListCount%A_List%+1, "Vis")
+ }
+ Else
+ {
+ LV_Insert(LV_GetNext(), "Check",, Type,, 1, 0, Type)
+ LVManager[A_List].InsertAtGroup(LV_GetNext())
+ }
+ GoSub, RowCheck
+ GoSub, b_Start
+ GuiControl, Focus, InputList%A_List%
return
LUntil:
-Gui, 12:Submit, NoHide
-GuiControl, 12:Enable%LUntil%, UntilExpr
+ Gui, 12:Submit, NoHide
+ GuiControl, 12:Enable%LUntil%, UntilExpr
return
LoopType:
-Gui, 12:Submit, NoHide
-GuiControl, 12:Enable%Loop%, EdRept
-GuiControl, 12:Disable%Loop%, LParamsFile
-GuiControl, 12:Enable%LParse%, Omit
-If (LFilePattern || LRegistry)
-{
- GuiControl, 12:Enable, IncFiles
- GuiControl, 12:Enable, IncFolders
- GuiControl, 12:Enable, Recurse
-}
-Else
-{
- GuiControl, 12:Disable, IncFiles
- GuiControl, 12:Disable, IncFolders
- GuiControl, 12:Disable, Recurse
-}
-If (LParse || LFor)
- GuiControl, 12:Enable, Delim
-Else
- GuiControl, 12:Disable, Delim
-If (LRead || LFilePattern)
- GuiControl, 12:Enable, SearchLParams
-Else
- GuiControl, 12:Disable, SearchLParams
-If (LFor)
-{
- GuiControl, 12:Enable, Omit
- GuiControl, 12:, Field1, %c_Lang207% / %c_Lang211% / %c_Lang087%
- GuiControl, 12:, Field2, %c_Lang208%
- GuiControl, 12:, Field3, %c_Lang209%
- GuiControl, 12:, Delim, % Par2 ? Par2 : "key"
- GuiControl, 12:, Omit, % Par3 ? Par3 : "value"
-}
-Else
-{
- GuiControl, 12:, Field1, % LWhile ? c_Lang087 : LParse ? c_Lang140 : LRead ? c_Lang143 : LRegistry ? c_Lang144 : c_Lang137
- GuiControl, 12:, Field2, %c_Lang141%
- GuiControl, 12:, Field3, %c_Lang142%
- If (!InStr(A_GuiControl, "InputList"))
+ Gui, 12:Submit, NoHide
+ GuiControl, 12:Enable%Loop%, EdRept
+ GuiControl, 12:Disable%Loop%, LParamsFile
+ GuiControl, 12:Enable%LParse%, Omit
+ If (LFilePattern || LRegistry)
{
- GuiControl, 12:, Delim
- GuiControl, 12:, Omit
+ GuiControl, 12:Enable, IncFiles
+ GuiControl, 12:Enable, IncFolders
+ GuiControl, 12:Enable, Recurse
+ }
+ Else
+ {
+ GuiControl, 12:Disable, IncFiles
+ GuiControl, 12:Disable, IncFolders
+ GuiControl, 12:Disable, Recurse
+ }
+ If (LParse || LFor)
+ GuiControl, 12:Enable, Delim
+ Else
+ GuiControl, 12:Disable, Delim
+ If (LRead || LFilePattern)
+ GuiControl, 12:Enable, SearchLParams
+ Else
+ GuiControl, 12:Disable, SearchLParams
+ If (LFor)
+ {
+ GuiControl, 12:Enable, Omit
+ GuiControl, 12:, Field1, %c_Lang207% / %c_Lang211% / %c_Lang087%
+ GuiControl, 12:, Field2, %c_Lang208%
+ GuiControl, 12:, Field3, %c_Lang209%
+ GuiControl, 12:, Delim, % Par2 ? Par2 : "key"
+ GuiControl, 12:, Omit, % Par3 ? Par3 : "value"
+ }
+ Else
+ {
+ GuiControl, 12:, Field1, % LWhile ? c_Lang087 : LParse ? c_Lang140 : LRead ? c_Lang143 : LRegistry ? c_Lang144 : c_Lang137
+ GuiControl, 12:, Field2, %c_Lang141%
+ GuiControl, 12:, Field3, %c_Lang142%
+ If (!InStr(A_GuiControl, "InputList"))
+ {
+ GuiControl, 12:, Delim
+ GuiControl, 12:, Omit
+ }
+ }
+ If (LWhile)
+ {
+ GuiControl, 12:, LUntil, 0
+ GuiControl, 12:Disable, LUntil
+ GuiControl, 12:Disable, UntilExpr
+ }
+ Else
+ GuiControl, 12:Enable, LUntil
+ GuiControl, 12:Text, IncFiles, % (LRegistry ? c_Lang210 : c_Lang145)
+ GuiControl, 12:Text, IncFolders, % (LRegistry ? c_Lang146 : c_Lang138)
+ GuiControl, 12:, LParamsFile, % Par1 ? Par1 : ""
+ If (Loop)
+ SBShowTip("Loop (normal)")
+ Else If (LFilePattern)
+ SBShowTip("Loop (files & folders)")
+ Else If (LParse)
+ SBShowTip("Loop (parse a string)")
+ Else If (LFor)
+ SBShowTip("For")
+ Else If (LWhile)
+ SBShowTip("While")
+ Else If (LRead)
+ SBShowTip("Loop (read file contents)")
+ Else If (LRegistry)
+ SBShowTip("Loop (registry)")
+ If (LWhile || LFor)
+ {
+ GuiControl, 12:Hide, VarTxt
+ GuiControl, 12:Show, ExprLink2
+ }
+ Else
+ {
+ GuiControl, 12:Show, VarTxt
+ GuiControl, 12:Hide, ExprLink2
}
-}
-If (LWhile)
-{
- GuiControl, 12:, LUntil, 0
- GuiControl, 12:Disable, LUntil
- GuiControl, 12:Disable, UntilExpr
-}
-Else
- GuiControl, 12:Enable, LUntil
-GuiControl, 12:Text, IncFiles, % (LRegistry ? c_Lang210 : c_Lang145)
-GuiControl, 12:Text, IncFolders, % (LRegistry ? c_Lang146 : c_Lang138)
-GuiControl, 12:, LParamsFile, % Par1 ? Par1 : ""
-If (Loop)
- SBShowTip("Loop (normal)")
-Else If (LFilePattern)
- SBShowTip("Loop (files & folders)")
-Else If (LParse)
- SBShowTip("Loop (parse a string)")
-Else If (LFor)
- SBShowTip("For")
-Else If (LWhile)
- SBShowTip("While")
-Else If (LRead)
- SBShowTip("Loop (read file contents)")
-Else If (LRegistry)
- SBShowTip("Loop (registry)")
-If (LWhile || LFor)
-{
- GuiControl, 12:Hide, VarTxt
- GuiControl, 12:Show, ExprLink2
-}
-Else
-{
- GuiControl, 12:Show, VarTxt
- GuiControl, 12:Hide, ExprLink2
-}
return
EditWindow:
-s_Caller := "Edit"
+ s_Caller := "Edit"
Window:
-Gui, 11:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
-Gui, 1:+Disabled
-Gui, 11:Add, Groupbox, Section W450 H220
-Gui, 11:Add, Text, -Wrap R1 ys+15 xs+10 W120, %c_Lang055%:
-Gui, 11:Add, DDL, W120 vWinCom gWinCom, %WinCmdList%
-Gui, 11:Add, Text, -Wrap R1 W120, %c_Lang035%:
-Gui, 11:Add, DDL, W120 -Multi vWCmd gWCmd, %WinCmd%
-Gui, 11:Add, Text, -Wrap R1 yp-10 x+10 W180 vTValue Disabled, 255
-Gui, 11:Add, Slider, y+0 W100 Buddy2TValue vN gN Range0-255 Disabled, 255
-Gui, 11:Add, Radio, -Wrap Checked yp+2 x+30 W70 vAoT1 R1, Toggle
-Gui, 11:Add, Radio, -Wrap yp x+5 W45 R1 vAoT2, On
-Gui, 11:Add, Radio, -Wrap yp x+5 W45 R1 vAoT3, Off
-Gui, 11:Add, Text, -Wrap R1 xs+10 y+10 W180 vValueT, %c_Lang056%:
-Gui, 11:Add, Edit, W430 -Multi Disabled vValue
-Gui, 11:Add, Text, -Wrap R1 W180, %c_Lang057%:
-Gui, 11:Add, Edit, W430 -Multi Disabled vVarName
-Gui, 11:Add, Text, -Wrap R1 xs+10 y+5 W430 vCPosT
-Gui, 11:Add, Groupbox, Section xs y+15 W450 H80
-Gui, 11:Add, Text, -Wrap ys+20 xs+10 W350 H20 cGray, %Wcmd_All%
-Gui, 11:Add, Button, yp-5 x+5 W75 vIdent gWinTitle, WinTitle
-Gui, 11:Add, Edit, xs+10 y+5 W400 vTitle, A
-Gui, 11:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetWin gGetWin, ...
-Gui, 11:Add, Text, -Wrap R1 Section ym+20 xm+130 W105 Right, %c_Lang058%
-Gui, 11:Add, Text, -Wrap R1 yp x+5 W15 Right, X:
-Gui, 11:Add, Edit, yp-3 x+5 vPosX W55 Disabled
-Gui, 11:Add, Text, -Wrap R1 yp+3 x+10 W15 Right, Y:
-Gui, 11:Add, Edit, yp-3 x+5 vPosY W55 Disabled
-Gui, 11:Add, Button, -Wrap yp-1 x+5 W30 H23 vWinGetP gWinGetP Disabled, ...
-Gui, 11:Add, Text, -Wrap R1 xs W105 Right, %c_Lang059%
-Gui, 11:Add, Text, -Wrap R1 yp x+5 W15 Right, W:
-Gui, 11:Add, Edit, yp-3 x+5 vSizeX W55 Disabled
-Gui, 11:Add, Text, -Wrap R1 yp+3 x+10 W15 Right, H:
-Gui, 11:Add, Edit, yp-3 x+5 vSizeY W55 Disabled
-Gui, 11:Add, Button, -Wrap Section Default xm W75 H23 gWinOK, %c_Lang020%
-Gui, 11:Add, Button, -Wrap ys W75 H23 gWinCancel, %c_Lang021%
-Gui, 11:Add, Button, -Wrap ys W75 H23 vWinApply gWinApply Disabled, %c_Lang131%
-Gui, 11:Add, Text, x+10 yp-3 W190 H25 cGray, %c_Lang025%
-Gui, 11:Add, StatusBar, gStatusBarHelp
-Gui, 11:Default
-SB_SetIcon(ResDllPath, IconsNames["help"])
-If (s_Caller = "Edit")
-{
- WinCom := Type
- GuiControl, 11:ChooseString, WinCom, %WinCom%
- GoSub, WinCom
- If (WinCom = "WinSetTitle")
- EscCom(true, Details)
- Switch Type
+ Gui, 11:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
+ Gui, 1:+Disabled
+ Gui, 11:Add, Groupbox, Section W450 H220
+ Gui, 11:Add, Text, -Wrap R1 ys+15 xs+10 W120, %c_Lang055%:
+ Gui, 11:Add, DDL, W120 vWinCom gWinCom, %WinCmdList%
+ Gui, 11:Add, Text, -Wrap R1 W120, %c_Lang035%:
+ Gui, 11:Add, DDL, W120 -Multi vWCmd gWCmd, %WinCmd%
+ Gui, 11:Add, Text, -Wrap R1 yp-10 x+10 W180 vTValue Disabled, 255
+ Gui, 11:Add, Slider, y+0 W100 Buddy2TValue vN gN Range0-255 Disabled, 255
+ Gui, 11:Add, Radio, -Wrap Checked yp+2 x+30 W70 vAoT1 R1, Toggle
+ Gui, 11:Add, Radio, -Wrap yp x+5 W45 R1 vAoT2, On
+ Gui, 11:Add, Radio, -Wrap yp x+5 W45 R1 vAoT3, Off
+ Gui, 11:Add, Text, -Wrap R1 xs+10 y+10 W180 vValueT, %c_Lang056%:
+ Gui, 11:Add, Edit, W430 -Multi Disabled vValue
+ Gui, 11:Add, Text, -Wrap R1 W180, %c_Lang057%:
+ Gui, 11:Add, Edit, W430 -Multi Disabled vVarName
+ Gui, 11:Add, Text, -Wrap R1 xs+10 y+5 W430 vCPosT
+ Gui, 11:Add, Groupbox, Section xs y+15 W450 H80
+ Gui, 11:Add, Text, -Wrap ys+20 xs+10 W350 H20 cGray, %Wcmd_All%
+ Gui, 11:Add, Button, yp-5 x+5 W75 vIdent gWinTitle, WinTitle
+ Gui, 11:Add, Edit, xs+10 y+5 W400 vTitle, A
+ Gui, 11:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetWin gGetWin, ...
+ Gui, 11:Add, Text, -Wrap R1 Section ym+20 xm+130 W105 Right, %c_Lang058%
+ Gui, 11:Add, Text, -Wrap R1 yp x+5 W15 Right, X:
+ Gui, 11:Add, Edit, yp-3 x+5 vPosX W55 Disabled
+ Gui, 11:Add, Text, -Wrap R1 yp+3 x+10 W15 Right, Y:
+ Gui, 11:Add, Edit, yp-3 x+5 vPosY W55 Disabled
+ Gui, 11:Add, Button, -Wrap yp-1 x+5 W30 H23 vWinGetP gWinGetP Disabled, ...
+ Gui, 11:Add, Text, -Wrap R1 xs W105 Right, %c_Lang059%
+ Gui, 11:Add, Text, -Wrap R1 yp x+5 W15 Right, W:
+ Gui, 11:Add, Edit, yp-3 x+5 vSizeX W55 Disabled
+ Gui, 11:Add, Text, -Wrap R1 yp+3 x+10 W15 Right, H:
+ Gui, 11:Add, Edit, yp-3 x+5 vSizeY W55 Disabled
+ Gui, 11:Add, Button, -Wrap Section Default xm W75 H23 gWinOK, %c_Lang020%
+ Gui, 11:Add, Button, -Wrap ys W75 H23 gWinCancel, %c_Lang021%
+ Gui, 11:Add, Button, -Wrap ys W75 H23 vWinApply gWinApply Disabled, %c_Lang131%
+ Gui, 11:Add, Text, x+10 yp-3 W190 H25 cGray, %c_Lang025%
+ Gui, 11:Add, StatusBar, gStatusBarHelp
+ Gui, 11:Default
+ SB_SetIcon(ResDllPath, IconsNames["help"])
+ If (s_Caller = "Edit")
{
+ WinCom := Type
+ GuiControl, 11:ChooseString, WinCom, %WinCom%
+ GoSub, WinCom
+ If (WinCom = "WinSetTitle")
+ EscCom(true, Details)
+ Switch Type
+ {
Case "WinSet":
WCmd := RegExReplace(Details, "(^\w*).*", "$1")
Values := RegExReplace(Details, "^\w*, ?(.*)", "$1")
@@ -7391,1208 +7387,1207 @@ If (s_Caller = "Edit")
}
Else
GuiControl, 11:, Value, %Details%
+ }
+ GuiControl, 11:, Title, %Window%
+ GuiControl, 11:Enable, WinApply
}
- GuiControl, 11:, Title, %Window%
- GuiControl, 11:Enable, WinApply
-}
-Else If (s_Caller = "Find")
-{
- GuiControl, 11:ChooseString, WinCom, %GotoRes1%
- GoSub, WinCom
-
-
- If (InStr(WinCmd, GotoRes1))
- {
- GuiControl, 11:ChooseString, WCmd, %GotoRes1%
- GoSub, WCmd
- }
- Else If (InStr(WinGetCmd, GotoRes1))
- {
- GuiControl, 11:ChooseString, WinCom, WinGet
- GoSub, WinCom
- GuiControl, 11:ChooseString, WCmd, %GotoRes1%
- GoSub, WCmd
- }
- Else
+ Else If (s_Caller = "Find")
{
GuiControl, 11:ChooseString, WinCom, %GotoRes1%
GoSub, WinCom
+
+ If (InStr(WinCmd, GotoRes1))
+ {
+ GuiControl, 11:ChooseString, WCmd, %GotoRes1%
+ GoSub, WCmd
+ }
+ Else If (InStr(WinGetCmd, GotoRes1))
+ {
+ GuiControl, 11:ChooseString, WinCom, WinGet
+ GoSub, WinCom
+ GuiControl, 11:ChooseString, WCmd, %GotoRes1%
+ GoSub, WCmd
+ }
+ Else
+ {
+ GuiControl, 11:ChooseString, WinCom, %GotoRes1%
+ GoSub, WinCom
+ }
}
-}
-Else
- SBShowTip("WinSet")
-Gui, 11:Show, , %c_Lang005%
-ChangeIcon(hIL_Icons, CmdWin, IconsNames["window"])
-Tooltip
+ Else
+ SBShowTip("WinSet")
+ Gui, 11:Show, , %c_Lang005%
+ ChangeIcon(hIL_Icons, CmdWin, IconsNames["window"])
+ Tooltip
return
WinApply:
WinOK:
-Gui, 11:+OwnDialogs
-Gui, 11:Submit, NoHide
-GuiControlGet, VState, 11:Enabled, VarName
-Details := ""
-If (VState = 0)
- VarName := ""
-GuiControlGet, VState, 11:Enabled, Value
-If (VState = 0)
- Value := ""
-If (WinCom = "WinSet")
-{
- Details := WCmd
- If (WCmd = "AlwaysOnTop")
- Details .= ", " (Aot1 ? "Toggle" : Aot2 ? "On" : "Off")
- Else If (WCmd = "Transparent")
- Details .= ", " N
- Else If (VState = 1)
- Details .= ", " Value
+ Gui, 11:+OwnDialogs
+ Gui, 11:Submit, NoHide
+ GuiControlGet, VState, 11:Enabled, VarName
+ Details := ""
+ If (VState = 0)
+ VarName := ""
+ GuiControlGet, VState, 11:Enabled, Value
+ If (VState = 0)
+ Value := ""
+ If (WinCom = "WinSet")
+ {
+ Details := WCmd
+ If (WCmd = "AlwaysOnTop")
+ Details .= ", " (Aot1 ? "Toggle" : Aot2 ? "On" : "Off")
+ Else If (WCmd = "Transparent")
+ Details .= ", " N
+ Else If (VState = 1)
+ Details .= ", " Value
+ Else
+ Details .= ", "
+ }
+ Else If (WinCom = "WinMove")
+ Details := PosX ", " PosY ", " SizeX ", " SizeY
Else
- Details .= ", "
-}
-Else If (WinCom = "WinMove")
- Details := PosX ", " PosY ", " SizeX ", " SizeY
-Else
- Details := Value
-If (WinCom = "WinSetTitle")
- EscCom(false, Details)
-If (InStr(WinCom, "MinimizeAll"))
- Title := ""
-If (InStr(WinCom, "Get"))
-{
- If (VarName = "")
+ Details := Value
+ If (WinCom = "WinSetTitle")
+ EscCom(false, Details)
+ If (InStr(WinCom, "MinimizeAll"))
+ Title := ""
+ If (InStr(WinCom, "Get"))
{
- Tooltip, %c_Lang127%, 25, 220
- return
- }
- Try
+ If (VarName = "")
+ {
+ Tooltip, %c_Lang127%, 25, 220
+ return
+ }
+ Try
z_Check := VarSetCapacity(%VarName%)
- Catch
+ Catch
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%VarName%
+ return
+ }
+ If (WinCom = "WinGet")
+ Details := VarName ", " WCmd
+ Else
+ Details := VarName
+ DelayWX := DelayG
+ }
+ Else
+ DelayWX := DelayW
+ If (A_ThisLabel != "WinApply")
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%VarName%
- return
+ Gui, 1:-Disabled
+ Gui, 11:Destroy
+ }
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col2", WinCom, Details, TimesX, DelayX, WinCom,, Title)
+ Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
+ {
+ LV_Add("Check", ListCount%A_List%+1, WinCom, Details, 1, DelayWX, WinCom,, Title)
+ LV_Modify(ListCount%A_List%+1, "Vis")
}
- If (WinCom = "WinGet")
- Details := VarName ", " WCmd
Else
- Details := VarName
- DelayWX := DelayG
-}
-Else
- DelayWX := DelayW
-If (A_ThisLabel != "WinApply")
-{
- Gui, 1:-Disabled
- Gui, 11:Destroy
-}
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
-If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col2", WinCom, Details, TimesX, DelayX, WinCom,, Title)
-Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
-{
- LV_Add("Check", ListCount%A_List%+1, WinCom, Details, 1, DelayWX, WinCom,, Title)
- LV_Modify(ListCount%A_List%+1, "Vis")
-}
-Else
-{
- GuiControl, chMacro:-g, InputList%A_List%
- RowNumber := 0
- Loop, %RowSelection%
{
- RowNumber := LV_GetNext(RowNumber)
- LV_Insert(RowNumber, "Check", RowNumber, WinCom, Details, 1, DelayWX, WinCom,, Title)
- LVManager[A_List].InsertAtGroup(RowNumber)
- RowNumber++
+ GuiControl, chMacro:-g, InputList%A_List%
+ RowNumber := 0
+ Loop, %RowSelection%
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ LV_Insert(RowNumber, "Check", RowNumber, WinCom, Details, 1, DelayWX, WinCom,, Title)
+ LVManager[A_List].InsertAtGroup(RowNumber)
+ RowNumber++
+ }
+ GuiControl, chMacro:+gInputList, InputList%A_List%
+ }
+ GoSub, RowCheck
+ GoSub, b_Start
+ If (A_ThisLabel = "WinApply")
+ Gui, 11:Default
+ Else
+ {
+ s_Caller := ""
+ GuiControl, Focus, InputList%A_List%
}
- GuiControl, chMacro:+gInputList, InputList%A_List%
-}
-GoSub, RowCheck
-GoSub, b_Start
-If (A_ThisLabel = "WinApply")
- Gui, 11:Default
-Else
-{
- s_Caller := ""
- GuiControl, Focus, InputList%A_List%
-}
return
WinCancel:
11GuiClose:
11GuiEscape:
-Gui, 1:-Disabled
-Gui, 11:Destroy
-s_Caller := ""
+ Gui, 1:-Disabled
+ Gui, 11:Destroy
+ s_Caller := ""
return
WinCom:
-Gui, 11:Submit, NoHide
-SBShowTip(WinCom)
-If (InStr(WinCom, "Get"))
-{
- GuiControl, 11:, WCmd, |%WinGetCmd%
- GuiControl, 11:Enable, VarName
-}
-Else
-{
- GuiControl, 11:, WCmd, |%WinCmd%
- GuiControl, 11:Disable, VarName
-}
-If ((WinCom = "WinSet") || (WinCom = "WinGet"))
- GuiControl, 11:Enable, WCmd
-Else
- GuiControl, 11:Disable, WCmd
-If (WinCom = "WinMove")
-{
- GuiControl, 11:Enable, PosX
- GuiControl, 11:Enable, PosY
- GuiControl, 11:Enable, WinGetP
- GuiControl, 11:Enable, SizeX
- GuiControl, 11:Enable, SizeY
- GuiControl, 11:Enable, SizeY
-}
-Else
-{
- GuiControl, 11:Disable, PosX
- GuiControl, 11:Disable, PosY
- GuiControl, 11:Disable, WinGetP
- GuiControl, 11:Disable, SizeX
- GuiControl, 11:Disable, SizeY
-}
-If (WinCom = "WinGetPos")
- GuiControl, 11:, CPosT, * %c_Lang060%
-Else
- GuiControl, 11:, CPosT
-GoSub, WCmd
-If WinCom contains Close,Kill,Wait
-{
- GuiControl, 11:Enable, Value
- GuiControl, 11:, ValueT, %c_Lang177% (%c_Lang019%):
-}
-Else If WinCom contains SetTitle
-{
- GuiControl, 11:Enable, Value
- GuiControl, 11:, ValueT, %c_Lang056%:
-}
-Else
-{
- GuiControl, 11:Disable, Value
- GuiControl, 11:, ValueT, %c_Lang056%:
-}
-If (InStr(WinCom, "MinimizeAll"))
-{
- GuiControl, 11:Disable, Ident
- GuiControl, 11:Disable, Title
- GuiControl, 11:Disable, GetWin
-}
-Else
-{
- GuiControl, 11:Enable, Ident
- GuiControl, 11:Enable, Title
- GuiControl, 11:Enable, GetWin
-}
-return
-
-WCmd:
-Gui, 11:Submit, NoHide
-If ((WinCom = "WinSet") && (WCmd = "Transparent"))
-{
- GuiControl, 11:Enable, TValue
- GuiControl, 11:Enable, N
-}
-Else
-{
- GuiControl, 11:Disable, TValue
- GuiControl, 11:Disable, N
-}
-If ((WinCom = "WinSet") && (WCmd = "AlwaysOnTop"))
-{
- GuiControl, 11:Enable, AoT1
- GuiControl, 11:Enable, AoT2
- GuiControl, 11:Enable, AoT3
-}
-Else
-{
- GuiControl, 11:Disable, AoT1
- GuiControl, 11:Disable, AoT2
- GuiControl, 11:Disable, AoT3
-}
-If (WinCom = "WinSet")
-{
- If WCmd in Style,ExStyle,Region,TransColor
+ Gui, 11:Submit, NoHide
+ SBShowTip(WinCom)
+ If (InStr(WinCom, "Get"))
+ {
+ GuiControl, 11:, WCmd, |%WinGetCmd%
+ GuiControl, 11:Enable, VarName
+ }
+ Else
+ {
+ GuiControl, 11:, WCmd, |%WinCmd%
+ GuiControl, 11:Disable, VarName
+ }
+ If ((WinCom = "WinSet") || (WinCom = "WinGet"))
+ GuiControl, 11:Enable, WCmd
+ Else
+ GuiControl, 11:Disable, WCmd
+ If (WinCom = "WinMove")
+ {
+ GuiControl, 11:Enable, PosX
+ GuiControl, 11:Enable, PosY
+ GuiControl, 11:Enable, WinGetP
+ GuiControl, 11:Enable, SizeX
+ GuiControl, 11:Enable, SizeY
+ GuiControl, 11:Enable, SizeY
+ }
+ Else
+ {
+ GuiControl, 11:Disable, PosX
+ GuiControl, 11:Disable, PosY
+ GuiControl, 11:Disable, WinGetP
+ GuiControl, 11:Disable, SizeX
+ GuiControl, 11:Disable, SizeY
+ }
+ If (WinCom = "WinGetPos")
+ GuiControl, 11:, CPosT, * %c_Lang060%
+ Else
+ GuiControl, 11:, CPosT
+ GoSub, WCmd
+ If WinCom contains Close,Kill,Wait
+ {
+ GuiControl, 11:Enable, Value
+ GuiControl, 11:, ValueT, %c_Lang177% (%c_Lang019%):
+ }
+ Else If WinCom contains SetTitle
+ {
GuiControl, 11:Enable, Value
+ GuiControl, 11:, ValueT, %c_Lang056%:
+ }
Else
+ {
GuiControl, 11:Disable, Value
-}
-Else
- GuiControl, 11:Disable, Value
-return
-
-N:
-Gui, 11:Submit, NoHide
-GuiControl, 11:, TValue, %N%
-return
-
-EditImage:
-s_Caller := "Edit"
-Image:
-TessLangs := ""
-Loop, Files, %SettingsFolder%\Bin\tesseract\tessdata_fast\*.traineddata, F
- TessLangs .= A_LoopFileName "|"
-TessSelectedLangs := "eng"
-Gui, 1:Submit, NoHide
-Gui, 19:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
-Gui, 1:+Disabled
-; Region
-Gui, 19:Add, GroupBox, Section W275 H80, %c_Lang205%:
-Gui, 19:Add, Text, -Wrap R1 ys+20 xs+10, %c_Lang061%
-Gui, 19:Add, Text, -Wrap R1 yp xs+65, X:
-Gui, 19:Add, Edit, yp x+5 viPosX W60, 0
-Gui, 19:Add, Text, -Wrap R1 yp x+15, Y:
-Gui, 19:Add, Edit, yp x+5 viPosY W60, 0
-Gui, 19:Add, Button, -Wrap yp-1 x+5 W30 H23 vGetArea gGetArea, ...
-Gui, 19:Add, Text, -Wrap R1 y+10 xs+10, %c_Lang062%
-Gui, 19:Add, Text, -Wrap R1 yp xs+65, X:
-Gui, 19:Add, Edit, yp-3 x+5 vePosX W60, %A_ScreenWidth%
-Gui, 19:Add, Text, -Wrap R1 yp x+15, Y:
-Gui, 19:Add, Edit, yp x+5 vePosY W60, %A_ScreenHeight%
-; Search
-Gui, 19:Add, GroupBox, Section y+12 xs W275 H158, %c_Lang034%:
-Gui, 19:Add, DDL, AltSubmit ys+20 xs+10 W100 vImageS gImageS, %c_Lang063%||%c_Lang064%|%c_Lang260% (OCR)
-Gui, 19:Add, Text, -Wrap R1 yp+5 x+5 W140 vOutputVarT Hidden, %c_Lang057%/%c_Lang261%:
-Gui, 19:Add, Button, -Wrap yp-1 xs+240 W25 H23 hwndScreenshot vScreenshot gScreenshot
- ILButton(Screenshot, ResDllPath ":" 60)
-Gui, 19:Add, Button, -Wrap yp xs+240 W25 H23 hwndColorPick vColorPick gGetPixel Disabled Hidden
- ILButton(ColorPick, ResDllPath ":" 100)
-Gui, 19:Add, Edit, y+5 xs+10 vImgFile W225 R1 -Multi
-Gui, 19:Add, Button, -Wrap yp-1 x+0 W30 H23 hwndhSearchImg vSearchImg gSearchImg, ...
-Gui, 19:Add, Text, Section -Wrap R1 y+5 xs+10 W163 Right vIfFoundT, %c_Lang067%:
-Gui, 19:Add, DDL, yp-2 x+10 W80 vIfFound gIfFound, Continue||Break|Stop|Prompt|Move|Left Click|Right Click|Middle Click|Play Sound
-Gui, 19:Add, Text, -Wrap R1 y+5 xs W163 Right vIfNotFoundT, %c_Lang068%:
-Gui, 19:Add, DDL, yp-2 x+10 W80 vIfNotFound, Continue||Break|Stop|Prompt|Play Sound
-Gui, 19:Add, CheckBox, Checked -Wrap y+0 xs+10 W180 vAddIf, %c_Lang162%
-Gui, 19:Add, CheckBox, -Wrap ys xs+10 W180 vFileOCR gFileOCR Hidden, %c_Lang133%
-Gui, 19:Add, Edit, y+5 xs+0 vImgFileOCR W225 R1 -Multi Hidden Disabled
-Gui, 19:Add, Button, -Wrap yp-1 x+0 W30 H23 vSearchImgOCR gSearchImg Hidden Disabled, ...
-; Preview
-Gui, 19:Add, Groupbox, Section ym xs+280 W275 H240, %c_Lang072%:
-Gui, 19:Add, Pic, ys+20 xs+10 W255 H200 0x100 vPicPrev gPicOpen
-Gui, 19:Add, Progress, ys+20 xs+10 W255 H200 Disabled Hidden vColorPrev
-Gui, 19:Add, Text, -Wrap R1 y+0 xs+10 W150 vImgSize
-; Variables
-Gui, 19:Add, Groupbox, Section y+8 xm W555 H50, %c_Lang010%:
-Gui, 19:Add, Text, -Wrap ys+20 xs+10 W95 R1 vOutVarT, %c_Lang069%
-Gui, 19:Add, Text, yp x+0 R1, X:
-Gui, 19:Add, Edit, yp-5 x+5 W60 H20 vOutVarX, FoundX
-Gui, 19:Add, Text, yp+5 x+10 R1, Y:
-Gui, 19:Add, Edit, yp-5 x+5 W60 H20 vOutVarY, FoundY
-Gui, 19:Add, Checkbox, yp+5 x+20 W260 R1 vFixFoundVars, %c_Lang256%
-; Options
-Gui, 19:Add, GroupBox, Section y+17 xm W275 H115, %c_Lang159%:
-Gui, 19:Add, Text, -Wrap R1 ys+20 xs+10 W40 Right, %c_Lang070%:
-Gui, 19:Add, DDL, yp x+10 W65 vCoordPixel, Window||Screen|Client
-GuiControl, 19:ChooseString, CoordPixel, %CoordMouse%
-Gui, 19:Add, Text, -Wrap R1 yp+3 x+0 W85 Right, %c_Lang071%:
-Gui, 19:Add, Edit, yp-3 x+10 vVariatT W45 Number Limit
-Gui, 19:Add, UpDown, vVariat 0x80 Range0-255, 0
-Gui, 19:Add, Text, -Wrap R1 y+10 xs+10 W40 Right, %c_Lang147%:
-Gui, 19:Add, Edit, yp-3 x+10 W45 vIconN
-Gui, 19:Add, Text, -Wrap R1 yp+3 x+0 W75 Right, %c_Lang160%:
-Gui, 19:Add, Edit, yp-3 x+10 W50 vTransC
-Gui, 19:Add, Button, -Wrap yp-1 x+0 W25 H23 hwndTransCS vTransCS gGetPixel
- ILButton(TransCS, ResDllPath ":" 100)
-Gui, 19:Add, Checkbox, -Wrap R1 Checked y+5 xs+10 W100 vFast Disabled, %t_Lang103%
-Gui, 19:Add, Checkbox, -Wrap R1 Checked y+5 xs+10 W100 vRGB Disabled, RGB
-Gui, 19:Add, Text, -Wrap R1 yp-10 x+0 W70 Right, %c_Lang161%:
-Gui, 19:Add, Edit, yp-3 x+10 W35 vWScale
-Gui, 19:Add, Text, -Wrap R1 yp+5 x+0, x
-Gui, 19:Add, Edit, yp-5 x+0 W35 vHScale
-; Repeat
-Gui, 19:Add, GroupBox, Section ys xs+280 W275 H115
-Gui, 19:Add, Text, -Wrap R1 ys+20 xs+35 W100 Right, %w_Lang015%:
-Gui, 19:Add, Edit, yp x+10 W120 R1 vEdRept
-Gui, 19:Add, UpDown, vTimesX 0x80 Range1-999999999, 1
-Gui, 19:Add, Text, -Wrap R1 y+5 xs+35 W100 Right, %c_Lang017%:
-Gui, 19:Add, Edit, yp x+10 W120 vDelayC
-Gui, 19:Add, UpDown, vDelayX 0x80 Range0-999999999, %DelayG%
-Gui, 19:Add, Radio, -Wrap Checked W120 vMsc R1, %c_Lang018%
-Gui, 19:Add, Radio, -Wrap W120 vSec R1, %c_Lang019%
-Gui, 19:Add, Checkbox, -Wrap ys+65 xs+10 W125 vBreakLoop gLoopUntil R1, %c_Lang130%
-Gui, 19:Add, DDL, -Wrap W100 vLoopUntil Disabled, Found||Not Found
-Gui, 19:Add, Button, -Wrap Section Default xm W75 H23 gImageOK, %c_Lang020%
-Gui, 19:Add, Button, -Wrap ys W75 H23 gImageCancel, %c_Lang021%
-Gui, 19:Add, Button, -Wrap ys W75 H23 vImageApply gImageApply Disabled, %c_Lang131%
-Gui, 19:Add, Link, -Wrap R1 W100 ys+5 gImageOpt, %w_Lang003%
-Gui, 19:Add, Text, x+10 yp-3 W190 H25 cGray, %c_Lang025%
-Gui, 19:Add, StatusBar, gStatusBarHelp
-Gui, 19:Default
-SB_SetIcon(ResDllPath, IconsNames["help"])
-If (s_Caller = "Edit")
-{
- GuiControl, 19:, TimesX, %TimesX%
- GuiControl, 19:, EdRept, %TimesX%
- GuiControl, 19:, DelayX, %DelayX%
- GuiControl, 19:, DelayC, %DelayX%
- Loop, 5
- Act%A_Index% := ""
- Pars := GetPars(Action)
- For i, v in Pars
- Act%A_Index% := v
- GuiControl, 19:ChooseString, IfFound, %Act1%
- GuiControl, 19:ChooseString, IfNotFound, %Act2%
- If (Act3 != "")
- GuiControl, 19:, OutVarX, %Act3%
- If (Act4 != "")
- GuiControl, 19:, OutVarY, %Act4%
- If (Act5)
- GuiControl, 19:, FixFoundVars, 1
- Pars := GetPars(Details)
- For i, v in Pars
- Det%A_Index% := v
- If (Type = cType16)
- {
- GuiControl, 19:Choose, ImageS, 1
- RegExMatch(Det5, "\*(\d+?)\s+(.*)", ImgOpt)
- Variat := ImgOpt1, Det5 := ImgOpt2 ? ImgOpt2 : Det5
- RegExMatch(Det5, "\*Icon(.+?)\s+(.*)", ImgOpt)
- IconN := ImgOpt1, Det5 := ImgOpt2 ? ImgOpt2 : Det5
- RegExMatch(Det5, "\*Trans(.+?)\s+(.*)", ImgOpt)
- TransC := ImgOpt1, Det5 := ImgOpt2 ? ImgOpt2 : Det5
- RegExMatch(Det5, "\*W(.+?)\s+(.*)", ImgOpt)
- WScale := ImgOpt1, Det5 := ImgOpt2 ? ImgOpt2 : Det5
- RegExMatch(Det5, "\*H(.+?)\s+(.*)", ImgOpt)
- HScale := ImgOpt1, Det5 := ImgOpt2 ? ImgOpt2 : Det5
- File := Det5
- GuiControl, 19:, Variat, %Variat%
- GuiControl, 19:, IconN, %IconN%
- GuiControl, 19:, TransC, %TransC%
- GuiControl, 19:, WScale, %WScale%
- GuiControl, 19:, HScale, %HScale%
- GoSub, MakePrev
+ GuiControl, 11:, ValueT, %c_Lang056%:
}
- Else If (Type = cType15)
+ If (InStr(WinCom, "MinimizeAll"))
{
- color := Det5, Fast := InStr(Det7, "Fast") ? 1 : 0, RGB := InStr(Det7, "RGB") ? 1 : 0
- GuiControl, 19:Choose, ImageS, 2
- GuiControl, 19:Hide, PicPrev
- GuiControl, 19:Show, ColorPrev
- GuiControl, 19:, Fast, %Fast%
- GuiControl, 19:, RGB, %RGB%
- GuiControl, 19:, Variat, %Det6%
- GuiControl, 19:Disable, Screenshot
- GoSub, PixelS
- GuiControl, 19:+Background%color%, ColorPrev
+ GuiControl, 11:Disable, Ident
+ GuiControl, 11:Disable, Title
+ GuiControl, 11:Disable, GetWin
}
- Else If (Type = cType56)
+ Else
{
- TessSelectedLangs := ""
- Loop, Parse, Target, +
- TessSelectedLangs .= InStr(TessLangs, A_LoopField) ? A_LoopField "+" : ""
- TessSelectedLangs := SubStr(TessSelectedLangs, 1, -1)
- GuiControl, 19:Choose, ImageS, 3
- GuiControl, 19:, ImgFile, %Details%
- GoSub, OcrS
+ GuiControl, 11:Enable, Ident
+ GuiControl, 11:Enable, Title
+ GuiControl, 11:Enable, GetWin
}
- If (Window = "File")
+return
+
+WCmd:
+ Gui, 11:Submit, NoHide
+ If ((WinCom = "WinSet") && (WCmd = "Transparent"))
{
- File := Det1
- GuiControl, 19:, FileOCR, 1
- GuiControl, 19:, ImgFileOCR, %File%
- GuiControl, 19:, ImgFile, %Det2%
- GoSub, FileOCR
- GuiControl, 19:ChooseString, CoordPixel, Screen
- GoSub, MakePrev
+ GuiControl, 11:Enable, TValue
+ GuiControl, 11:Enable, N
}
Else
{
- GuiControl, 19:, iPosX, %Det1%
- GuiControl, 19:, iPosY, %Det2%
- GuiControl, 19:, ePosX, %Det3%
- GuiControl, 19:, ePosY, %Det4%
- GuiControl, 19:, ImgFile, %Det5%
- GuiControl, 19:ChooseString, CoordPixel, %Window%
+ GuiControl, 11:Disable, TValue
+ GuiControl, 11:Disable, N
}
- If (Target = "UntilFound")
+ If ((WinCom = "WinSet") && (WCmd = "AlwaysOnTop"))
{
- GuiControl, 19:, BreakLoop, 1
- GoSub, LoopUntil
+ GuiControl, 11:Enable, AoT1
+ GuiControl, 11:Enable, AoT2
+ GuiControl, 11:Enable, AoT3
}
- Else If (Target = "UntilNotFound")
+ Else
{
- GuiControl, 19:, BreakLoop, 1
- GoSub, LoopUntil
- GuiControl, 19:Choose, LoopUntil, 2
+ GuiControl, 11:Disable, AoT1
+ GuiControl, 11:Disable, AoT2
+ GuiControl, 11:Disable, AoT3
}
- GuiControl, 19:Enable, ImageApply
- GuiControl, 19:, AddIf, 0
- GuiControl, 19:Disable, AddIf
-}
-Else If (s_Caller = "Find")
-{
- If (GotoRes1 = "PixelSearch")
+ If (WinCom = "WinSet")
{
- GuiControl, 19:Choose, ImageS, 2
- GoSub, PixelS
+ If WCmd in Style,ExStyle,Region,TransColor
+ GuiControl, 11:Enable, Value
+ Else
+ GuiControl, 11:Disable, Value
}
- Else If ((GotoRes1 = "ImageToText") || (GotoRes1 = "OCR"))
+ Else
+ GuiControl, 11:Disable, Value
+return
+
+N:
+ Gui, 11:Submit, NoHide
+ GuiControl, 11:, TValue, %N%
+return
+
+EditImage:
+ s_Caller := "Edit"
+Image:
+ TessLangs := ""
+ Loop, Files, %SettingsFolder%\Bin\tesseract\tessdata_fast\*.traineddata, F
+ TessLangs .= A_LoopFileName "|"
+ TessSelectedLangs := "eng"
+ Gui, 1:Submit, NoHide
+ Gui, 19:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
+ Gui, 1:+Disabled
+ ; Region
+ Gui, 19:Add, GroupBox, Section W275 H80, %c_Lang205%:
+ Gui, 19:Add, Text, -Wrap R1 ys+20 xs+10, %c_Lang061%
+ Gui, 19:Add, Text, -Wrap R1 yp xs+65, X:
+ Gui, 19:Add, Edit, yp x+5 viPosX W60, 0
+ Gui, 19:Add, Text, -Wrap R1 yp x+15, Y:
+ Gui, 19:Add, Edit, yp x+5 viPosY W60, 0
+ Gui, 19:Add, Button, -Wrap yp-1 x+5 W30 H23 vGetArea gGetArea, ...
+ Gui, 19:Add, Text, -Wrap R1 y+10 xs+10, %c_Lang062%
+ Gui, 19:Add, Text, -Wrap R1 yp xs+65, X:
+ Gui, 19:Add, Edit, yp-3 x+5 vePosX W60, %A_ScreenWidth%
+ Gui, 19:Add, Text, -Wrap R1 yp x+15, Y:
+ Gui, 19:Add, Edit, yp x+5 vePosY W60, %A_ScreenHeight%
+ ; Search
+ Gui, 19:Add, GroupBox, Section y+12 xs W275 H158, %c_Lang034%:
+ Gui, 19:Add, DDL, AltSubmit ys+20 xs+10 W100 vImageS gImageS, %c_Lang063%||%c_Lang064%|%c_Lang260% (OCR)
+ Gui, 19:Add, Text, -Wrap R1 yp+5 x+5 W140 vOutputVarT Hidden, %c_Lang057%/%c_Lang261%:
+ Gui, 19:Add, Button, -Wrap yp-1 xs+240 W25 H23 hwndScreenshot vScreenshot gScreenshot
+ ILButton(Screenshot, ResDllPath ":" 60)
+ Gui, 19:Add, Button, -Wrap yp xs+240 W25 H23 hwndColorPick vColorPick gGetPixel Disabled Hidden
+ ILButton(ColorPick, ResDllPath ":" 100)
+ Gui, 19:Add, Edit, y+5 xs+10 vImgFile W225 R1 -Multi
+ Gui, 19:Add, Button, -Wrap yp-1 x+0 W30 H23 hwndhSearchImg vSearchImg gSearchImg, ...
+ Gui, 19:Add, Text, Section -Wrap R1 y+5 xs+10 W163 Right vIfFoundT, %c_Lang067%:
+ Gui, 19:Add, DDL, yp-2 x+10 W80 vIfFound gIfFound, Continue||Break|Stop|Prompt|Move|Left Click|Right Click|Middle Click|Play Sound
+ Gui, 19:Add, Text, -Wrap R1 y+5 xs W163 Right vIfNotFoundT, %c_Lang068%:
+ Gui, 19:Add, DDL, yp-2 x+10 W80 vIfNotFound, Continue||Break|Stop|Prompt|Play Sound
+ Gui, 19:Add, CheckBox, Checked -Wrap y+0 xs+10 W180 vAddIf, %c_Lang162%
+ Gui, 19:Add, CheckBox, -Wrap ys xs+10 W180 vFileOCR gFileOCR Hidden, %c_Lang133%
+ Gui, 19:Add, Edit, y+5 xs+0 vImgFileOCR W225 R1 -Multi Hidden Disabled
+ Gui, 19:Add, Button, -Wrap yp-1 x+0 W30 H23 vSearchImgOCR gSearchImg Hidden Disabled, ...
+ ; Preview
+ Gui, 19:Add, Groupbox, Section ym xs+280 W275 H240, %c_Lang072%:
+ Gui, 19:Add, Pic, ys+20 xs+10 W255 H200 0x100 vPicPrev gPicOpen
+ Gui, 19:Add, Progress, ys+20 xs+10 W255 H200 Disabled Hidden vColorPrev
+ Gui, 19:Add, Text, -Wrap R1 y+0 xs+10 W150 vImgSize
+ ; Variables
+ Gui, 19:Add, Groupbox, Section y+8 xm W555 H50, %c_Lang010%:
+ Gui, 19:Add, Text, -Wrap ys+20 xs+10 W95 R1 vOutVarT, %c_Lang069%
+ Gui, 19:Add, Text, yp x+0 R1, X:
+ Gui, 19:Add, Edit, yp-5 x+5 W60 H20 vOutVarX, FoundX
+ Gui, 19:Add, Text, yp+5 x+10 R1, Y:
+ Gui, 19:Add, Edit, yp-5 x+5 W60 H20 vOutVarY, FoundY
+ Gui, 19:Add, Checkbox, yp+5 x+20 W260 R1 vFixFoundVars, %c_Lang256%
+ ; Options
+ Gui, 19:Add, GroupBox, Section y+17 xm W275 H115, %c_Lang159%:
+ Gui, 19:Add, Text, -Wrap R1 ys+20 xs+10 W40 Right, %c_Lang070%:
+ Gui, 19:Add, DDL, yp x+10 W65 vCoordPixel, Window||Screen|Client
+ GuiControl, 19:ChooseString, CoordPixel, %CoordMouse%
+ Gui, 19:Add, Text, -Wrap R1 yp+3 x+0 W85 Right, %c_Lang071%:
+ Gui, 19:Add, Edit, yp-3 x+10 vVariatT W45 Number Limit
+ Gui, 19:Add, UpDown, vVariat 0x80 Range0-255, 0
+ Gui, 19:Add, Text, -Wrap R1 y+10 xs+10 W40 Right, %c_Lang147%:
+ Gui, 19:Add, Edit, yp-3 x+10 W45 vIconN
+ Gui, 19:Add, Text, -Wrap R1 yp+3 x+0 W75 Right, %c_Lang160%:
+ Gui, 19:Add, Edit, yp-3 x+10 W50 vTransC
+ Gui, 19:Add, Button, -Wrap yp-1 x+0 W25 H23 hwndTransCS vTransCS gGetPixel
+ ILButton(TransCS, ResDllPath ":" 100)
+ Gui, 19:Add, Checkbox, -Wrap R1 Checked y+5 xs+10 W100 vFast Disabled, %t_Lang103%
+ Gui, 19:Add, Checkbox, -Wrap R1 Checked y+5 xs+10 W100 vRGB Disabled, RGB
+ Gui, 19:Add, Text, -Wrap R1 yp-10 x+0 W70 Right, %c_Lang161%:
+ Gui, 19:Add, Edit, yp-3 x+10 W35 vWScale
+ Gui, 19:Add, Text, -Wrap R1 yp+5 x+0, x
+ Gui, 19:Add, Edit, yp-5 x+0 W35 vHScale
+ ; Repeat
+ Gui, 19:Add, GroupBox, Section ys xs+280 W275 H115
+ Gui, 19:Add, Text, -Wrap R1 ys+20 xs+35 W100 Right, %w_Lang015%:
+ Gui, 19:Add, Edit, yp x+10 W120 R1 vEdRept
+ Gui, 19:Add, UpDown, vTimesX 0x80 Range1-999999999, 1
+ Gui, 19:Add, Text, -Wrap R1 y+5 xs+35 W100 Right, %c_Lang017%:
+ Gui, 19:Add, Edit, yp x+10 W120 vDelayC
+ Gui, 19:Add, UpDown, vDelayX 0x80 Range0-999999999, %DelayG%
+ Gui, 19:Add, Radio, -Wrap Checked W120 vMsc R1, %c_Lang018%
+ Gui, 19:Add, Radio, -Wrap W120 vSec R1, %c_Lang019%
+ Gui, 19:Add, Checkbox, -Wrap ys+65 xs+10 W125 vBreakLoop gLoopUntil R1, %c_Lang130%
+ Gui, 19:Add, DDL, -Wrap W100 vLoopUntil Disabled, Found||Not Found
+ Gui, 19:Add, Button, -Wrap Section Default xm W75 H23 gImageOK, %c_Lang020%
+ Gui, 19:Add, Button, -Wrap ys W75 H23 gImageCancel, %c_Lang021%
+ Gui, 19:Add, Button, -Wrap ys W75 H23 vImageApply gImageApply Disabled, %c_Lang131%
+ Gui, 19:Add, Link, -Wrap R1 W100 ys+5 gImageOpt, %w_Lang003%
+ Gui, 19:Add, Text, x+10 yp-3 W190 H25 cGray, %c_Lang025%
+ Gui, 19:Add, StatusBar, gStatusBarHelp
+ Gui, 19:Default
+ SB_SetIcon(ResDllPath, IconsNames["help"])
+ If (s_Caller = "Edit")
{
- GuiControl, 19:Choose, ImageS, 3
- GoSub, OcrS
+ GuiControl, 19:, TimesX, %TimesX%
+ GuiControl, 19:, EdRept, %TimesX%
+ GuiControl, 19:, DelayX, %DelayX%
+ GuiControl, 19:, DelayC, %DelayX%
+ Loop, 5
+ Act%A_Index% := ""
+ Pars := GetPars(Action)
+ For i, v in Pars
+ Act%A_Index% := v
+ GuiControl, 19:ChooseString, IfFound, %Act1%
+ GuiControl, 19:ChooseString, IfNotFound, %Act2%
+ If (Act3 != "")
+ GuiControl, 19:, OutVarX, %Act3%
+ If (Act4 != "")
+ GuiControl, 19:, OutVarY, %Act4%
+ If (Act5)
+ GuiControl, 19:, FixFoundVars, 1
+ Pars := GetPars(Details)
+ For i, v in Pars
+ Det%A_Index% := v
+ If (Type = cType16)
+ {
+ GuiControl, 19:Choose, ImageS, 1
+ RegExMatch(Det5, "\*(\d+?)\s+(.*)", ImgOpt)
+ Variat := ImgOpt1, Det5 := ImgOpt2 ? ImgOpt2 : Det5
+ RegExMatch(Det5, "\*Icon(.+?)\s+(.*)", ImgOpt)
+ IconN := ImgOpt1, Det5 := ImgOpt2 ? ImgOpt2 : Det5
+ RegExMatch(Det5, "\*Trans(.+?)\s+(.*)", ImgOpt)
+ TransC := ImgOpt1, Det5 := ImgOpt2 ? ImgOpt2 : Det5
+ RegExMatch(Det5, "\*W(.+?)\s+(.*)", ImgOpt)
+ WScale := ImgOpt1, Det5 := ImgOpt2 ? ImgOpt2 : Det5
+ RegExMatch(Det5, "\*H(.+?)\s+(.*)", ImgOpt)
+ HScale := ImgOpt1, Det5 := ImgOpt2 ? ImgOpt2 : Det5
+ File := Det5
+ GuiControl, 19:, Variat, %Variat%
+ GuiControl, 19:, IconN, %IconN%
+ GuiControl, 19:, TransC, %TransC%
+ GuiControl, 19:, WScale, %WScale%
+ GuiControl, 19:, HScale, %HScale%
+ GoSub, MakePrev
+ }
+ Else If (Type = cType15)
+ {
+ color := Det5, Fast := InStr(Det7, "Fast") ? 1 : 0, RGB := InStr(Det7, "RGB") ? 1 : 0
+ GuiControl, 19:Choose, ImageS, 2
+ GuiControl, 19:Hide, PicPrev
+ GuiControl, 19:Show, ColorPrev
+ GuiControl, 19:, Fast, %Fast%
+ GuiControl, 19:, RGB, %RGB%
+ GuiControl, 19:, Variat, %Det6%
+ GuiControl, 19:Disable, Screenshot
+ GoSub, PixelS
+ GuiControl, 19:+Background%color%, ColorPrev
+ }
+ Else If (Type = cType56)
+ {
+ TessSelectedLangs := ""
+ Loop, Parse, Target, +
+ TessSelectedLangs .= InStr(TessLangs, A_LoopField) ? A_LoopField "+" : ""
+ TessSelectedLangs := SubStr(TessSelectedLangs, 1, -1)
+ GuiControl, 19:Choose, ImageS, 3
+ GuiControl, 19:, ImgFile, %Details%
+ GoSub, OcrS
+ }
+ If (Window = "File")
+ {
+ File := Det1
+ GuiControl, 19:, FileOCR, 1
+ GuiControl, 19:, ImgFileOCR, %File%
+ GuiControl, 19:, ImgFile, %Det2%
+ GoSub, FileOCR
+ GuiControl, 19:ChooseString, CoordPixel, Screen
+ GoSub, MakePrev
+ }
+ Else
+ {
+ GuiControl, 19:, iPosX, %Det1%
+ GuiControl, 19:, iPosY, %Det2%
+ GuiControl, 19:, ePosX, %Det3%
+ GuiControl, 19:, ePosY, %Det4%
+ GuiControl, 19:, ImgFile, %Det5%
+ GuiControl, 19:ChooseString, CoordPixel, %Window%
+ }
+ If (Target = "UntilFound")
+ {
+ GuiControl, 19:, BreakLoop, 1
+ GoSub, LoopUntil
+ }
+ Else If (Target = "UntilNotFound")
+ {
+ GuiControl, 19:, BreakLoop, 1
+ GoSub, LoopUntil
+ GuiControl, 19:Choose, LoopUntil, 2
+ }
+ GuiControl, 19:Enable, ImageApply
+ GuiControl, 19:, AddIf, 0
+ GuiControl, 19:Disable, AddIf
}
-}
-Gui, Submit, NoHide
-SBShowTip(ImageS = 1 ? "ImageSearch" : ImageS = 2 ? "PixelSearch" : "ImageToText")
-Gui, 19:Show,, %c_Lang006% / %c_Lang007% / %c_Lang260%
-ChangeIcon(hIL_Icons, CmdWin, IconsNames["image"])
-Input
-Tooltip
+ Else If (s_Caller = "Find")
+ {
+ If (GotoRes1 = "PixelSearch")
+ {
+ GuiControl, 19:Choose, ImageS, 2
+ GoSub, PixelS
+ }
+ Else If ((GotoRes1 = "ImageToText") || (GotoRes1 = "OCR"))
+ {
+ GuiControl, 19:Choose, ImageS, 3
+ GoSub, OcrS
+ }
+ }
+ Gui, Submit, NoHide
+ SBShowTip(ImageS = 1 ? "ImageSearch" : ImageS = 2 ? "PixelSearch" : "ImageToText")
+ Gui, 19:Show,, %c_Lang006% / %c_Lang007% / %c_Lang260%
+ ChangeIcon(hIL_Icons, CmdWin, IconsNames["image"])
+ Input
+ Tooltip
return
ImageApply:
ImageOK:
-Gui, 19:Submit, NoHide
-If (ImgFile = "")
-{
- GuiControl, 19:Focus, ImgFile
- return
-}
-If (ImageS = 3)
-{
- Try
- z_Check := VarSetCapacity(%ImgFile%)
- Catch
+ Gui, 19:Submit, NoHide
+ If (ImgFile = "")
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%ImgFile%
+ GuiControl, 19:Focus, ImgFile
return
}
-}
-Else
-{
- If ((OutVarX = "") || (OutVarY = ""))
+ If (ImageS = 3)
{
- Gui, 19:Font, cRed
- GuiControl, 19:Font, OutVarT
- GuiControl, 19:Focus, OutVarX
- return
+ Try
+ z_Check := VarSetCapacity(%ImgFile%)
+ Catch
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%ImgFile%
+ return
+ }
}
- Try
+ Else
+ {
+ If ((OutVarX = "") || (OutVarY = ""))
+ {
+ Gui, 19:Font, cRed
+ GuiControl, 19:Font, OutVarT
+ GuiControl, 19:Focus, OutVarX
+ return
+ }
+ Try
z_Check := VarSetCapacity(%OutVarX%)
- Catch
+ Catch
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%OutVarX%
+ return
+ }
+ Try
+ z_Check := VarSetCapacity(%OutVarY%)
+ Catch
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%OutVarY%
+ return
+ }
+ }
+ DelayX := InStr(DelayC, "%") ? DelayC : DelayX
+ If (Sec = 1)
+ DelayX *= 1000
+ TimesX := InStr(EdRept, "%") ? EdRept : TimesX
+ If (TimesX = 0)
+ TimesX := 1
+ Action := (ImageS = 3) ? "OCR" : IfFound "`, " IfNotFound ", " OutVarX ", " OutVarY
+ EscCom(false, ImgFile)
+ EscCom(false, ImgFileOCR)
+ If (ImageS = 1)
+ {
+ Action .= ", " FixFoundVars
+ ImgOptions := ""
+ If (Variat > 0)
+ ImgOptions .= "*" Variat " "
+ If (IconN != "")
+ ImgOptions .= "*Icon" IconN " "
+ If (TransC != "")
+ ImgOptions .= "*Trans" TransC " "
+ If (WScale != "")
+ ImgOptions .= "*W" WScale " "
+ If (HScale != "")
+ ImgOptions .= "*H" HScale " "
+ Type := cType16, ImgFile := ImgOptions ImgFile
+ }
+ Details := iPosX "`, " iPosY "`, " ePosX "`, " ePosY "`, " ImgFile
+ If (ImageS = 2)
+ Type := cType15, Details .= ", " Variat "," (Fast ? " Fast" : "") (RGB ? " RGB" : "")
+ If (ImageS = 3)
+ Type := cType56
+ Details := RTrim(Details, ", ")
+ If (BreakLoop)
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%OutVarX%
- return
+ If (LoopUntil = "Found")
+ Target := "UntilFound"
+ Else
+ Target := "UntilNotFound"
}
- Try
- z_Check := VarSetCapacity(%OutVarY%)
- Catch
+ Else If (ImageS = 3)
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%OutVarY%
- return
+ If (FileOCR)
+ {
+ Details := ImgFileOCR "`, " ImgFile
+ CoordPixel := "File"
+ }
+ Target := TessSelectedLangs != "" ? TessSelectedLangs : "eng"
}
-}
-DelayX := InStr(DelayC, "%") ? DelayC : DelayX
-If (Sec = 1)
- DelayX *= 1000
-TimesX := InStr(EdRept, "%") ? EdRept : TimesX
-If (TimesX = 0)
- TimesX := 1
-Action := (ImageS = 3) ? "OCR" : IfFound "`, " IfNotFound ", " OutVarX ", " OutVarY
-EscCom(false, ImgFile)
-EscCom(false, ImgFileOCR)
-If (ImageS = 1)
-{
- Action .= ", " FixFoundVars
- ImgOptions := ""
- If (Variat > 0)
- ImgOptions .= "*" Variat " "
- If (IconN != "")
- ImgOptions .= "*Icon" IconN " "
- If (TransC != "")
- ImgOptions .= "*Trans" TransC " "
- If (WScale != "")
- ImgOptions .= "*W" WScale " "
- If (HScale != "")
- ImgOptions .= "*H" HScale " "
- Type := cType16, ImgFile := ImgOptions ImgFile
-}
-Details := iPosX "`, " iPosY "`, " ePosX "`, " ePosY "`, " ImgFile
-If (ImageS = 2)
- Type := cType15, Details .= ", " Variat "," (Fast ? " Fast" : "") (RGB ? " RGB" : "")
-If (ImageS = 3)
- Type := cType56
-Details := RTrim(Details, ", ")
-If (BreakLoop)
-{
- If (LoopUntil = "Found")
- Target := "UntilFound"
Else
- Target := "UntilNotFound"
-}
-Else If (ImageS = 3)
-{
- If (FileOCR)
+ Target := ""
+ If (A_ThisLabel != "ImageApply")
{
- Details := ImgFileOCR "`, " ImgFile
- CoordPixel := "File"
+ Gui, 1:-Disabled
+ Gui, 19:Destroy
}
- Target := TessSelectedLangs != "" ? TessSelectedLangs : "eng"
-}
-Else
- Target := ""
-If (A_ThisLabel != "ImageApply")
-{
- Gui, 1:-Disabled
- Gui, 19:Destroy
-}
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
-If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col2", Action, Details, TimesX, DelayX, Type, Target, CoordPixel)
-Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
-{
- LV_Add("Check", ListCount%A_List%+1, Action, Details, TimesX, DelayX, Type, Target, CoordPixel)
- LV_Modify(ListCount%A_List%+1, "Vis")
-}
-Else
-{
- LV_Insert(LV_GetNext(), "Check", LV_GetNext(), Action, Details, TimesX, DelayX, Type, Target, CoordPixel)
- LVManager[A_List].InsertAtGroup(LV_GetNext())
-}
-GoSub, RowCheck
-GoSub, b_Start
-If (AddIf = 1)
-{
- If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col2", Action, Details, TimesX, DelayX, Type, Target, CoordPixel)
+ Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
{
- LV_Add("Check", ListCount%A_List%+1, If9,, 1, 0, cType17)
- LV_Add("Check", ListCount%A_List%+2, "[End If]", "EndIf", 1, 0, cType17)
- LV_Modify(ListCount%A_List%+2, "Vis")
+ LV_Add("Check", ListCount%A_List%+1, Action, Details, TimesX, DelayX, Type, Target, CoordPixel)
+ LV_Modify(ListCount%A_List%+1, "Vis")
}
Else
{
- LV_Insert(LV_GetNext(), "Check",, If9,, 1, 0, cType17)
- LVManager[A_List].InsertAtGroup(LV_GetNext()), RowNumber := 0, LastRow := 0
- Loop
+ LV_Insert(LV_GetNext(), "Check", LV_GetNext(), Action, Details, TimesX, DelayX, Type, Target, CoordPixel)
+ LVManager[A_List].InsertAtGroup(LV_GetNext())
+ }
+ GoSub, RowCheck
+ GoSub, b_Start
+ If (AddIf = 1)
+ {
+ If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
{
- RowNumber := LV_GetNext(RowNumber)
- If (!RowNumber)
+ LV_Add("Check", ListCount%A_List%+1, If9,, 1, 0, cType17)
+ LV_Add("Check", ListCount%A_List%+2, "[End If]", "EndIf", 1, 0, cType17)
+ LV_Modify(ListCount%A_List%+2, "Vis")
+ }
+ Else
+ {
+ LV_Insert(LV_GetNext(), "Check",, If9,, 1, 0, cType17)
+ LVManager[A_List].InsertAtGroup(LV_GetNext()), RowNumber := 0, LastRow := 0
+ Loop
{
- LV_Insert(LastRow+1, "Check",LastRow+1, "[End If]", "EndIf", 1, 0, cType17)
- LVManager[A_List].InsertAtGroup(LastRow)
- break
+ RowNumber := LV_GetNext(RowNumber)
+ If (!RowNumber)
+ {
+ LV_Insert(LastRow+1, "Check",LastRow+1, "[End If]", "EndIf", 1, 0, cType17)
+ LVManager[A_List].InsertAtGroup(LastRow)
+ break
+ }
+ LastRow := LV_GetNext(LastRow)
}
- LastRow := LV_GetNext(LastRow)
}
+ GoSub, RowCheck
+ GoSub, b_Start
+ }
+ If (A_ThisLabel = "ImageApply")
+ Gui, 19:Default
+ Else
+ {
+ s_Caller := ""
+ GuiControl, Focus, InputList%A_List%
}
- GoSub, RowCheck
- GoSub, b_Start
-}
-If (A_ThisLabel = "ImageApply")
- Gui, 19:Default
-Else
-{
- s_Caller := ""
- GuiControl, Focus, InputList%A_List%
-}
return
ImageCancel:
PixelCancel:
19GuiClose:
19GuiEscape:
-Gui, 1:-Disabled
-Gui, 19:Destroy
-s_Caller := ""
+ Gui, 1:-Disabled
+ Gui, 19:Destroy
+ s_Caller := ""
return
-
-SearchImg:
-Gui, 19:+OwnDialogs
-Gui, 19:Submit, NoHide
-If (ImageS = 1)
- GoSub, GetImage
-Else If (ImageS = 2)
- GoSub, EditColor
-Else If (ImageS = 3)
-{
- If (A_GuiControl = "SearchImg")
- GoSub, ShowTessMenu
- Else
+
+SearchImg:
+ Gui, 19:+OwnDialogs
+ Gui, 19:Submit, NoHide
+ If (ImageS = 1)
GoSub, GetImage
-}
+ Else If (ImageS = 2)
+ GoSub, EditColor
+ Else If (ImageS = 3)
+ {
+ If (A_GuiControl = "SearchImg")
+ GoSub, ShowTessMenu
+ Else
+ GoSub, GetImage
+ }
return
GetImage:
-FileSelectFile, File,,, %AppName%, Images (*.gif; *.jpg; *.bmp; *.png; *.tif; *.ico; *.cur; *.ani; *.exe; *.dll)
-FreeMemory()
-If (File = "")
- return
-If (A_GuiControl = "SearchImg")
- GuiControl, 19:, ImgFile, %File%
-Else
- GuiControl, 19:, ImgFileOCR, %File%
+ FileSelectFile, File,,, %AppName%, Images (*.gif; *.jpg; *.bmp; *.png; *.tif; *.ico; *.cur; *.ani; *.exe; *.dll)
+ FreeMemory()
+ If (File = "")
+ return
+ If (A_GuiControl = "SearchImg")
+ GuiControl, 19:, ImgFile, %File%
+ Else
+ GuiControl, 19:, ImgFileOCR, %File%
MakePrev:
-If (InStr(File, "%"))
- File := DerefVars(File)
-PicGetSize(File, LoadedPicW, LoadedPicH)
-Width := 255
-Height := 200
-PropH := LoadedPicH * Width // LoadedPicW, PropW := LoadedPicW * Height // LoadedPicH
-If ((LoadedPicW <= Width) && (LoadedPicH <= Height))
- GuiControl, 19:, PicPrev, *W0 *H0 %File%
-Else If (PropH > Height)
- GuiControl, 19:, PicPrev, *W-1 *H%Height% %File%
-Else
- GuiControl, 19:, PicPrev, *W%Width% *H-1 %File%
-GuiControl, 19:, ImgSize, %c_Lang059%: %LoadedPicW% x %LoadedPicH%
+ If (InStr(File, "%"))
+ File := DerefVars(File)
+ PicGetSize(File, LoadedPicW, LoadedPicH)
+ Width := 255
+ Height := 200
+ PropH := LoadedPicH * Width // LoadedPicW, PropW := LoadedPicW * Height // LoadedPicH
+ If ((LoadedPicW <= Width) && (LoadedPicH <= Height))
+ GuiControl, 19:, PicPrev, *W0 *H0 %File%
+ Else If (PropH > Height)
+ GuiControl, 19:, PicPrev, *W-1 *H%Height% %File%
+ Else
+ GuiControl, 19:, PicPrev, *W%Width% *H-1 %File%
+ GuiControl, 19:, ImgSize, %c_Lang059%: %LoadedPicW% x %LoadedPicH%
return
ImageS:
-Gui, 19:Submit, NoHide
-If (ImageS = 3)
-{
- GoSub, OcrS
- return
-}
-Else
-{
- GuiControl, 19:Hide, OutputVarT
- GuiControl, 19:Hide, FileOCR
- GuiControl, 19:Hide, ImgFileOCR
- GuiControl, 19:Hide, SearchImgOCR
- GuiControl, 19:Show, IfFound
- GuiControl, 19:Show, IfFoundT
- GuiControl, 19:Show, IfNotFound
- GuiControl, 19:Show, IfNotFoundT
- GuiControl, 19:Show, AddIf
- GuiControl, 19:Enable, OutVarX
- GuiControl, 19:Enable, OutVarY
- GuiControl, 19:Enable, CoordPixel
- GuiControl, 19:Enable, VariatT
- GuiControl, 19:Enable, BreakLoop
-}
-GuiControl, 19:, FileOCR, 0
-GuiControl, 19:Enable, iPosX
-GuiControl, 19:Enable, iPosY
-GuiControl, 19:Enable, ePosX
-GuiControl, 19:Enable, ePosY
-If (ImageS = 1)
-{
+ Gui, 19:Submit, NoHide
+ If (ImageS = 3)
+ {
+ GoSub, OcrS
+ return
+ }
+ Else
+ {
+ GuiControl, 19:Hide, OutputVarT
+ GuiControl, 19:Hide, FileOCR
+ GuiControl, 19:Hide, ImgFileOCR
+ GuiControl, 19:Hide, SearchImgOCR
+ GuiControl, 19:Show, IfFound
+ GuiControl, 19:Show, IfFoundT
+ GuiControl, 19:Show, IfNotFound
+ GuiControl, 19:Show, IfNotFoundT
+ GuiControl, 19:Show, AddIf
+ GuiControl, 19:Enable, OutVarX
+ GuiControl, 19:Enable, OutVarY
+ GuiControl, 19:Enable, CoordPixel
+ GuiControl, 19:Enable, VariatT
+ GuiControl, 19:Enable, BreakLoop
+ }
+ GuiControl, 19:, FileOCR, 0
+ GuiControl, 19:Enable, iPosX
+ GuiControl, 19:Enable, iPosY
+ GuiControl, 19:Enable, ePosX
+ GuiControl, 19:Enable, ePosY
+ If (ImageS = 1)
+ {
+ GuiControl, 19:, ImgFile
+ GuiControl, 19:, PicPrev
+ GuiControl, 19:, ImgSize
+ GuiControl, +BackgroundDefault, ColorPrev
+ GuiControl, 19:Show, PicPrev
+ GuiControl, 19:Hide, ColorPrev
+ GuiControl, 19:Disable, ColorPick
+ GuiControl, 19:Hide, ColorPick
+ GuiControl, 19:Disable, Fast
+ GuiControl, 19:Disable, RGB
+ GuiControl, 19:Show, Screenshot
+ GuiControl, 19:Enable, Screenshot
+ GuiControl, 19:Enable, IconN
+ GuiControl, 19:Enable, TransC
+ GuiControl, 19:Enable, TransCS
+ GuiControl, 19:Enable, WScale
+ GuiControl, 19:Enable, HScale
+ GuiControl, 19:Enable, FixFoundVars
+ SBShowTip("ImageSearch")
+ }
+ Else If (ImageS = 2)
+ {
+ GoSub, PixelS
+ }
+return
+
+PixelS:
+ Gui, 19:Submit, NoHide
GuiControl, 19:, ImgFile
GuiControl, 19:, PicPrev
GuiControl, 19:, ImgSize
GuiControl, +BackgroundDefault, ColorPrev
+ GuiControl, 19:Hide, PicPrev
+ GuiControl, 19:Show, ColorPrev
+ GuiControl, 19:Enable, ColorPick
+ GuiControl, 19:Show, ColorPick
+ GuiControl, 19:Enable, Fast
+ GuiControl, 19:Enable, RGB
+ GuiControl, 19:Disable, Screenshot
+ GuiControl, 19:Hide, Screenshot
+ GuiControl, 19:Disable, IconN
+ GuiControl, 19:Disable, TransC
+ GuiControl, 19:Disable, TransCS
+ GuiControl, 19:Disable, WScale
+ GuiControl, 19:Disable, HScale
+ GuiControl, 19:Disable, FixFoundVars
+ SBShowTip("PixelSearch")
+return
+
+OcrS:
+ GuiControl, 19:, ImgFile
+ GuiControl, 19:, PicPrev
+ GuiControl, 19:, ImgSize
+ GuiControl, +BackgroundDefault, ColorPrev
+ GuiControl, 19:Show, OutputVarT
+ GuiControl, 19:Show, FileOCR
+ GuiControl, 19:Show, ImgFileOCR
+ GuiControl, 19:Show, SearchImgOCR
GuiControl, 19:Show, PicPrev
GuiControl, 19:Hide, ColorPrev
GuiControl, 19:Disable, ColorPick
GuiControl, 19:Hide, ColorPick
GuiControl, 19:Disable, Fast
GuiControl, 19:Disable, RGB
- GuiControl, 19:Show, Screenshot
- GuiControl, 19:Enable, Screenshot
- GuiControl, 19:Enable, IconN
- GuiControl, 19:Enable, TransC
- GuiControl, 19:Enable, TransCS
- GuiControl, 19:Enable, WScale
- GuiControl, 19:Enable, HScale
- GuiControl, 19:Enable, FixFoundVars
- SBShowTip("ImageSearch")
-}
-Else If (ImageS = 2)
-{
- GoSub, PixelS
-}
-return
-
-PixelS:
-Gui, 19:Submit, NoHide
-GuiControl, 19:, ImgFile
-GuiControl, 19:, PicPrev
-GuiControl, 19:, ImgSize
-GuiControl, +BackgroundDefault, ColorPrev
-GuiControl, 19:Hide, PicPrev
-GuiControl, 19:Show, ColorPrev
-GuiControl, 19:Enable, ColorPick
-GuiControl, 19:Show, ColorPick
-GuiControl, 19:Enable, Fast
-GuiControl, 19:Enable, RGB
-GuiControl, 19:Disable, Screenshot
-GuiControl, 19:Hide, Screenshot
-GuiControl, 19:Disable, IconN
-GuiControl, 19:Disable, TransC
-GuiControl, 19:Disable, TransCS
-GuiControl, 19:Disable, WScale
-GuiControl, 19:Disable, HScale
-GuiControl, 19:Disable, FixFoundVars
-SBShowTip("PixelSearch")
-return
+ GuiControl, 19:Disable, Screenshot
+ GuiControl, 19:Hide, Screenshot
+ GuiControl, 19:Disable, IconN
+ GuiControl, 19:Disable, TransC
+ GuiControl, 19:Disable, TransCS
+ GuiControl, 19:Disable, WScale
+ GuiControl, 19:Disable, HScale
+ GuiControl, 19:Disable, FixFoundVars
-OcrS:
-GuiControl, 19:, ImgFile
-GuiControl, 19:, PicPrev
-GuiControl, 19:, ImgSize
-GuiControl, +BackgroundDefault, ColorPrev
-GuiControl, 19:Show, OutputVarT
-GuiControl, 19:Show, FileOCR
-GuiControl, 19:Show, ImgFileOCR
-GuiControl, 19:Show, SearchImgOCR
-GuiControl, 19:Show, PicPrev
-GuiControl, 19:Hide, ColorPrev
-GuiControl, 19:Disable, ColorPick
-GuiControl, 19:Hide, ColorPick
-GuiControl, 19:Disable, Fast
-GuiControl, 19:Disable, RGB
-GuiControl, 19:Disable, Screenshot
-GuiControl, 19:Hide, Screenshot
-GuiControl, 19:Disable, IconN
-GuiControl, 19:Disable, TransC
-GuiControl, 19:Disable, TransCS
-GuiControl, 19:Disable, WScale
-GuiControl, 19:Disable, HScale
-GuiControl, 19:Disable, FixFoundVars
-
-GuiControl, 19:, AddIf, 0
-GuiControl, 19:, FixFoundVars, 0
-GuiControl, 19:, BreakLoop, 0
-GuiControl, 19:ChooseString, CoordPixel, Screen
-GuiControl, 19:Hide, IfFound
-GuiControl, 19:Hide, IfFoundT
-GuiControl, 19:Hide, IfNotFound
-GuiControl, 19:Hide, IfNotFoundT
-GuiControl, 19:Hide, AddIf
-GuiControl, 19:Disable, OutVarX
-GuiControl, 19:Disable, OutVarY
-GuiControl, 19:Disable, CoordPixel
-GuiControl, 19:Disable, VariatT
-GuiControl, 19:Disable, BreakLoop
-
-SBShowTip("ImageToText")
+ GuiControl, 19:, AddIf, 0
+ GuiControl, 19:, FixFoundVars, 0
+ GuiControl, 19:, BreakLoop, 0
+ GuiControl, 19:ChooseString, CoordPixel, Screen
+ GuiControl, 19:Hide, IfFound
+ GuiControl, 19:Hide, IfFoundT
+ GuiControl, 19:Hide, IfNotFound
+ GuiControl, 19:Hide, IfNotFoundT
+ GuiControl, 19:Hide, AddIf
+ GuiControl, 19:Disable, OutVarX
+ GuiControl, 19:Disable, OutVarY
+ GuiControl, 19:Disable, CoordPixel
+ GuiControl, 19:Disable, VariatT
+ GuiControl, 19:Disable, BreakLoop
+
+ SBShowTip("ImageToText")
return
FileOCR:
-Gui, 19:Submit, NoHide
-If (FileOCR)
-{
- GuiControl, 19:Disable, iPosX
- GuiControl, 19:Disable, iPosY
- GuiControl, 19:Disable, ePosX
- GuiControl, 19:Disable, ePosY
- GuiControl, 19:Enable, ImgFileOCR
- GuiControl, 19:Enable, SearchImgOCR
-}
-Else
-{
- GuiControl, 19:Enable, iPosX
- GuiControl, 19:Enable, iPosY
- GuiControl, 19:Enable, ePosX
- GuiControl, 19:Enable, ePosY
- GuiControl, 19:Disable, ImgFileOCR
- GuiControl, 19:Disable, SearchImgOCR
-}
+ Gui, 19:Submit, NoHide
+ If (FileOCR)
+ {
+ GuiControl, 19:Disable, iPosX
+ GuiControl, 19:Disable, iPosY
+ GuiControl, 19:Disable, ePosX
+ GuiControl, 19:Disable, ePosY
+ GuiControl, 19:Enable, ImgFileOCR
+ GuiControl, 19:Enable, SearchImgOCR
+ }
+ Else
+ {
+ GuiControl, 19:Enable, iPosX
+ GuiControl, 19:Enable, iPosY
+ GuiControl, 19:Enable, ePosX
+ GuiControl, 19:Enable, ePosY
+ GuiControl, 19:Disable, ImgFileOCR
+ GuiControl, 19:Disable, SearchImgOCR
+ }
return
PicOpen:
-If (A_GuiEvent != "DoubleClick")
- return
-Gui, 19:Submit, NoHide
-Gui, 19:+OwnDialogs
-If (InStr(FileExist(ImgFile), "A"))
-Try
+ If (A_GuiEvent != "DoubleClick")
+ return
+ Gui, 19:Submit, NoHide
+ Gui, 19:+OwnDialogs
+ If (InStr(FileExist(ImgFile), "A"))
+ Try
Run, %ImgFile%
-Catch e
- MsgBox, 16, %d_Lang007%, % d_Lang007 ":`t`t" e.Message "`n" d_Lang066 ":`t" e.Extra
+ Catch e
+ MsgBox, 16, %d_Lang007%, % d_Lang007 ":`t`t" e.Message "`n" d_Lang066 ":`t" e.Extra
return
IfFound:
-Gui, 19:Submit, NoHide
-If (IfFound != "Continue")
- GuiControl, 19:, AddIf, 0
+ Gui, 19:Submit, NoHide
+ If (IfFound != "Continue")
+ GuiControl, 19:, AddIf, 0
return
ImageOpt:
-; Screenshots
-Gui, 25:+owner19 +ToolWindow
-Gui, 19:+Disabled
-OldAreaColor := SearchAreaColor
-Gui, 25:Add, GroupBox, Section ym xm W400 H175, %t_Lang046%:
-Gui, 25:Add, Text, -Wrap R1 ys+20 xs+10 W200, %t_Lang047%:
-Gui, 25:Add, DDL, yp-5 x+0 vDrawButton W75, RButton||LButton|MButton
-Gui, 25:Add, Text, -Wrap R1 y+10 xs+10 W200, %t_Lang048%:
-Gui, 25:Add, Edit, Limit Number yp-2 x+0 W40 R1 vLineT
-Gui, 25:Add, UpDown, yp x+20 vLineW 0x80 Range1-5, %LineW%
-Gui, 25:Add, Text, -Wrap R1 y+10 xs+10 W200, %w_Lang039%:
-Gui, 25:Add, Text, -Wrap R1 yp x+0 W75 vSearchAreaColor gEditColor c%SearchAreaColor%, ███████
-Gui, 25:Add, Radio, -Wrap y+10 xs+10 W190 vOnRelease R1, %t_Lang049%
-Gui, 25:Add, Radio, -Wrap yp x+10 W180 vOnEnter R1, %t_Lang050%
-Gui, 25:Add, Text, -Wrap R1 y+10 xs+10 W380, %t_Lang051%:
-Gui, 25:Add, Edit, vScreenDir W350 R1 -Multi, %ScreenDir%
-Gui, 25:Add, Button, -Wrap yp-1 x+0 W30 H23 vSearchScreen gSearchDir, ...
-Gui, 25:Add, Button, -Wrap Default Section xm W75 H23 gImgConfigOK, %c_Lang020%
-Gui, 25:Add, Button, -Wrap ys W75 H23 gImgConfigCancel, %c_Lang021%
-GuiControl, 25:ChooseString, DrawButton, %DrawButton%
-GuiControl, 25:, OnRelease, %OnRelease%
-GuiControl, 25:, OnEnter, %OnEnter%
-Gui, 25:Show,, %t_Lang017%
-Gui, 25:Default
-Tooltip
+ ; Screenshots
+ Gui, 25:+owner19 +ToolWindow
+ Gui, 19:+Disabled
+ OldAreaColor := SearchAreaColor
+ Gui, 25:Add, GroupBox, Section ym xm W400 H175, %t_Lang046%:
+ Gui, 25:Add, Text, -Wrap R1 ys+20 xs+10 W200, %t_Lang047%:
+ Gui, 25:Add, DDL, yp-5 x+0 vDrawButton W75, RButton||LButton|MButton
+ Gui, 25:Add, Text, -Wrap R1 y+10 xs+10 W200, %t_Lang048%:
+ Gui, 25:Add, Edit, Limit Number yp-2 x+0 W40 R1 vLineT
+ Gui, 25:Add, UpDown, yp x+20 vLineW 0x80 Range1-5, %LineW%
+ Gui, 25:Add, Text, -Wrap R1 y+10 xs+10 W200, %w_Lang039%:
+ Gui, 25:Add, Text, -Wrap R1 yp x+0 W75 vSearchAreaColor gEditColor c%SearchAreaColor%, ███████
+ Gui, 25:Add, Radio, -Wrap y+10 xs+10 W190 vOnRelease R1, %t_Lang049%
+ Gui, 25:Add, Radio, -Wrap yp x+10 W180 vOnEnter R1, %t_Lang050%
+ Gui, 25:Add, Text, -Wrap R1 y+10 xs+10 W380, %t_Lang051%:
+ Gui, 25:Add, Edit, vScreenDir W350 R1 -Multi, %ScreenDir%
+ Gui, 25:Add, Button, -Wrap yp-1 x+0 W30 H23 vSearchScreen gSearchDir, ...
+ Gui, 25:Add, Button, -Wrap Default Section xm W75 H23 gImgConfigOK, %c_Lang020%
+ Gui, 25:Add, Button, -Wrap ys W75 H23 gImgConfigCancel, %c_Lang021%
+ GuiControl, 25:ChooseString, DrawButton, %DrawButton%
+ GuiControl, 25:, OnRelease, %OnRelease%
+ GuiControl, 25:, OnEnter, %OnEnter%
+ Gui, 25:Show,, %t_Lang017%
+ Gui, 25:Default
+ Tooltip
return
ImgConfigOK:
-Gui, 25:Submit, NoHide
-If (OnRelease = 1)
- SSMode := "OnRelease"
-Else If (OnEnter = 1)
- SSMode := "OnEnter"
-Gui, 19:-Disabled
-Gui, 25:Destroy
-Gui, 19:Default
+ Gui, 25:Submit, NoHide
+ If (OnRelease = 1)
+ SSMode := "OnRelease"
+ Else If (OnEnter = 1)
+ SSMode := "OnEnter"
+ Gui, 19:-Disabled
+ Gui, 25:Destroy
+ Gui, 19:Default
return
ImgConfigCancel:
25GuiClose:
25GuiEscape:
-SearchAreaColor := OldAreaColor
-Gui, 19:-Disabled
-Gui, 25:Destroy
-Gui, 19:Default
+ SearchAreaColor := OldAreaColor
+ Gui, 19:-Disabled
+ Gui, 25:Destroy
+ Gui, 19:Default
return
LoopUntil:
-Gui, 19:Submit, NoHide
-GuiControl, 19:Enable%BreakLoop%, LoopUntil
+ Gui, 19:Submit, NoHide
+ GuiControl, 19:Enable%BreakLoop%, LoopUntil
return
EditRun:
-s_Caller := "Edit"
-Run:
-s_Filter := "All"
-Gui, 10:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
-Gui, 1:+Disabled
-Gui, 10:Add, Groupbox, Section W600 H55
-Gui, 10:Add, Text, -Wrap R1 ys+20 xs+10 W200 Right, %c_Lang055%:
-Gui, 10:Add, ComboBox, yp x+10 W170 vFileCmdL gFileCmd, %FileCmdList%
-Gui, 10:Add, Button, yp-1 x+0 W25 H23 hwndCmdFilter vCmdFilter gCmdFilter
+ s_Caller := "Edit"
+ Run:
+ s_Filter := "All"
+ Gui, 10:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
+ Gui, 1:+Disabled
+ Gui, 10:Add, Groupbox, Section W600 H55
+ Gui, 10:Add, Text, -Wrap R1 ys+20 xs+10 W200 Right, %c_Lang055%:
+ Gui, 10:Add, ComboBox, yp x+10 W170 vFileCmdL gFileCmd, %FileCmdList%
+ Gui, 10:Add, Button, yp-1 x+0 W25 H23 hwndCmdFilter vCmdFilter gCmdFilter
ILButton(CmdFilter, ResDllPath ":" 102)
-Gui, 10:Add, Button, yp x+5 W25 H23 hwndCmdSort vCmdSort gCmdSort
+ Gui, 10:Add, Button, yp x+5 W25 H23 hwndCmdSort vCmdSort gCmdSort
ILButton(CmdSort, ResDllPath ":" 110)
-Gui, 10:Add, Groupbox, Section xs y+20 W600 H380
-Gui, 10:Add, Text, -Wrap R1 ys+15 xs+10 W550 vFCmd1
-Gui, 10:Add, Edit, vPar1File W550 R1 -Multi
-Gui, 10:Add, Button, -Wrap yp-1 x+0 W30 H23 vSearchPar1 gSearch, ...
-Gui, 10:Add, Text, -Wrap R1 xs+10 y+5 W550 vFCmd2
-Gui, 10:Add, Edit, vPar2File W550 R1 -Multi
-Gui, 10:Add, Button, -Wrap yp-1 x+0 W30 H23 vSearchPar2 gSearch, ...
-Gui, 10:Add, Button, -Wrap yp xp W30 H23 vMouseGet gMouseGetI Hidden, ...
-Gui, 10:Add, Text, -Wrap R1 xs+10 y+5 W550 vFCmd3
-Gui, 10:Add, Edit, vPar3File W550 R1 -Multi
-Gui, 10:Add, Button, -Wrap yp-1 x+0 W30 H23 vSearchPar3 gSearch, ...
-Gui, 10:Add, Text, -Wrap R1 xs+10 y+5 W550 vFCmd4
-Gui, 10:Add, Edit, vPar4File W550 R1 -Multi
-Gui, 10:Add, Text, -Wrap R1 xs+10 y+5 W550 vFCmd5
-Gui, 10:Add, Edit, vPar5File W550 R1 -Multi
-Gui, 10:Add, Text, -Wrap R1 xs+10 y+5 W270 vFCmd6
-Gui, 10:Add, Edit, vPar6File W270 R1 -Multi
-Gui, 10:Add, Text, -Wrap R1 x+10 yp-20 W270 vFCmd7
-Gui, 10:Add, Edit, vPar7File W270 R1 -Multi
-Gui, 10:Add, Text, -Wrap R1 xs+10 y+5 W270 vFCmd8
-Gui, 10:Add, Edit, vPar8File W270 R1 -Multi
-Gui, 10:Add, Text, -Wrap R1 x+10 yp-20 W270 vFCmd9
-Gui, 10:Add, Edit, vPar9File W270 R1 -Multi
-Gui, 10:Add, Text, -Wrap R1 xs+10 y+5 W270 vFCmd10
-Gui, 10:Add, Edit, vPar10File W270 R1 -Multi
-Gui, 10:Add, Text, -Wrap R1 x+10 yp-20 W270 vFCmd11
-Gui, 10:Add, Edit, vPar11File W270 R1 -Multi
-Gui, 10:Add, Button, -Wrap Section Default xm W75 H23 vRunOK gRunOK, %c_Lang020%
-Gui, 10:Add, Button, -Wrap ys W75 H23 gRunCancel, %c_Lang021%
-Gui, 10:Add, Button, -Wrap ys W75 H23 vRunApply gRunApply Disabled, %c_Lang131%
-Gui, 10:Add, Text, x+10 yp-3 W320 H25 cGray, %c_Lang025%
-Gui, 10:Add, StatusBar, gStatusBarHelp
-Gui, 10:Default
-SB_SetIcon(ResDllPath, IconsNames["help"])
-If (s_Caller = "Edit")
-{
- GuiControl, 10:ChooseString, FileCmdL, %Type%
- StringReplace, Details, Details, `````,, %_x%, All
- Loop, Parse, Details, `,, %A_Space%
+ Gui, 10:Add, Groupbox, Section xs y+20 W600 H380
+ Gui, 10:Add, Text, -Wrap R1 ys+15 xs+10 W550 vFCmd1
+ Gui, 10:Add, Edit, vPar1File W550 R1 -Multi
+ Gui, 10:Add, Button, -Wrap yp-1 x+0 W30 H23 vSearchPar1 gSearch, ...
+ Gui, 10:Add, Text, -Wrap R1 xs+10 y+5 W550 vFCmd2
+ Gui, 10:Add, Edit, vPar2File W550 R1 -Multi
+ Gui, 10:Add, Button, -Wrap yp-1 x+0 W30 H23 vSearchPar2 gSearch, ...
+ Gui, 10:Add, Button, -Wrap yp xp W30 H23 vMouseGet gMouseGetI Hidden, ...
+ Gui, 10:Add, Text, -Wrap R1 xs+10 y+5 W550 vFCmd3
+ Gui, 10:Add, Edit, vPar3File W550 R1 -Multi
+ Gui, 10:Add, Button, -Wrap yp-1 x+0 W30 H23 vSearchPar3 gSearch, ...
+ Gui, 10:Add, Text, -Wrap R1 xs+10 y+5 W550 vFCmd4
+ Gui, 10:Add, Edit, vPar4File W550 R1 -Multi
+ Gui, 10:Add, Text, -Wrap R1 xs+10 y+5 W550 vFCmd5
+ Gui, 10:Add, Edit, vPar5File W550 R1 -Multi
+ Gui, 10:Add, Text, -Wrap R1 xs+10 y+5 W270 vFCmd6
+ Gui, 10:Add, Edit, vPar6File W270 R1 -Multi
+ Gui, 10:Add, Text, -Wrap R1 x+10 yp-20 W270 vFCmd7
+ Gui, 10:Add, Edit, vPar7File W270 R1 -Multi
+ Gui, 10:Add, Text, -Wrap R1 xs+10 y+5 W270 vFCmd8
+ Gui, 10:Add, Edit, vPar8File W270 R1 -Multi
+ Gui, 10:Add, Text, -Wrap R1 x+10 yp-20 W270 vFCmd9
+ Gui, 10:Add, Edit, vPar9File W270 R1 -Multi
+ Gui, 10:Add, Text, -Wrap R1 xs+10 y+5 W270 vFCmd10
+ Gui, 10:Add, Edit, vPar10File W270 R1 -Multi
+ Gui, 10:Add, Text, -Wrap R1 x+10 yp-20 W270 vFCmd11
+ Gui, 10:Add, Edit, vPar11File W270 R1 -Multi
+ Gui, 10:Add, Button, -Wrap Section Default xm W75 H23 vRunOK gRunOK, %c_Lang020%
+ Gui, 10:Add, Button, -Wrap ys W75 H23 gRunCancel, %c_Lang021%
+ Gui, 10:Add, Button, -Wrap ys W75 H23 vRunApply gRunApply Disabled, %c_Lang131%
+ Gui, 10:Add, Text, x+10 yp-3 W320 H25 cGray, %c_Lang025%
+ Gui, 10:Add, StatusBar, gStatusBarHelp
+ Gui, 10:Default
+ SB_SetIcon(ResDllPath, IconsNames["help"])
+ If (s_Caller = "Edit")
{
- StringReplace, LoopField, A_LoopField, %_x%, `,, All
- GuiControl, 10:, Par%A_Index%File, %LoopField%
+ GuiControl, 10:ChooseString, FileCmdL, %Type%
+ StringReplace, Details, Details, `````,, %_x%, All
+ Loop, Parse, Details, `,, %A_Space%
+ {
+ StringReplace, LoopField, A_LoopField, %_x%, `,, All
+ GuiControl, 10:, Par%A_Index%File, %LoopField%
+ }
+ GuiControl, 10:Enable, RunApply
}
- GuiControl, 10:Enable, RunApply
-}
-GoSub, FileCmd
-If (s_Caller = "Find")
-{
- GuiControl, 10:ChooseString, FileCmdL, %GotoRes1%
GoSub, FileCmd
-}
-SetFilter := t_Lang007
-Gui, 10:Show,, %c_Lang008%
-ChangeIcon(hIL_Icons, CmdWin, IconsNames["run"])
-Tooltip
-Input
+ If (s_Caller = "Find")
+ {
+ GuiControl, 10:ChooseString, FileCmdL, %GotoRes1%
+ GoSub, FileCmd
+ }
+ SetFilter := t_Lang007
+ Gui, 10:Show,, %c_Lang008%
+ ChangeIcon(hIL_Icons, CmdWin, IconsNames["run"])
+ Tooltip
+ Input
return
Search:
-Gui, +OwnDialogs
-Gui, Submit, NoHide
-GuiControlGet, FcCmd,, FileCmdL
-GuiControlGet, FcCtrl,, % "FCmd" SubStr(A_GuiControl, 0, 1)
-GuiControlGet, LFile,, LFilePattern
-If (InStr(FcCmd, "Dir") || InStr(FcCmd, "Folder") || InStr(FcCtrl, "WorkingDir")
-|| InStr(FcCtrl, "Drive") || InStr(FcCtrl, "Path")) || (LFile = 1)
-{
- GoSub, SearchDir
- EdField := SubStr(A_GuiControl, 7) "File"
- If (EdField = "LParamsFile")
+ Gui, +OwnDialogs
+ Gui, Submit, NoHide
+ GuiControlGet, FcCmd,, FileCmdL
+ GuiControlGet, FcCtrl,, % "FCmd" SubStr(A_GuiControl, 0, 1)
+ GuiControlGet, LFile,, LFilePattern
+ If (InStr(FcCmd, "Dir") || InStr(FcCmd, "Folder") || InStr(FcCtrl, "WorkingDir")
+ || InStr(FcCtrl, "Drive") || InStr(FcCtrl, "Path")) || (LFile = 1)
+ {
+ GoSub, SearchDir
+ EdField := SubStr(A_GuiControl, 7) "File"
+ If (EdField = "LParamsFile")
Folder .= "\*.*"
- GuiControl,, %EdField%, %Folder%
- return
-}
-FileSelectFile, File, 2,, %AppName%
-FreeMemory()
-If (File = "")
- return
-EdField := SubStr(A_GuiControl, 7) "File"
-GuiControl,, %EdField%, %File%
+ GuiControl,, %EdField%, %Folder%
+ return
+ }
+ FileSelectFile, File, 2,, %AppName%
+ FreeMemory()
+ If (File = "")
+ return
+ EdField := SubStr(A_GuiControl, 7) "File"
+ GuiControl,, %EdField%, %File%
return
SearchDir:
-Gui, +OwnDialogs
-Gui, Submit, NoHide
-FileSelectFolder, Folder, *%A_ScriptDir%,, %AppName%
-FreeMemory()
-If (Folder = "")
- return
-EdField := SubStr(A_GuiControl, 7) "Dir"
-GuiControl,, %EdField%, %Folder%
+ Gui, +OwnDialogs
+ Gui, Submit, NoHide
+ FileSelectFolder, Folder, *%A_ScriptDir%,, %AppName%
+ FreeMemory()
+ If (Folder = "")
+ return
+ EdField := SubStr(A_GuiControl, 7) "Dir"
+ GuiControl,, %EdField%, %Folder%
return
RunApply:
RunOK:
-Gui, 10:Submit, NoHide
-Details := ""
-Loop, 11
-{
- GuiControlGet, fTxt, 10:, FCmd%A_Index%
- If (InStr(fTxt, "OutputVar") || InStr(fTxt, "InputVar"))
+ Gui, 10:Submit, NoHide
+ Details := ""
+ Loop, 11
{
- VarName := Par%A_Index%File
- If (VarName = "")
+ GuiControlGet, fTxt, 10:, FCmd%A_Index%
+ If (InStr(fTxt, "OutputVar") || InStr(fTxt, "InputVar"))
{
- If fTxt not in OutputVarPID,OutputVarX,OutputVarY,OutputVarWin,OutputVarControl
+ VarName := Par%A_Index%File
+ If (VarName = "")
+ {
+ If fTxt not in OutputVarPID,OutputVarX,OutputVarY,OutputVarWin,OutputVarControl
+ {
+ Tooltip, %c_Lang127%, 25, % (A_Index = 1) ? 125 : 170
+ return
+ }
+ }
+ Try
+ z_Check := VarSetCapacity(%VarName%)
+ Catch
{
- Tooltip, %c_Lang127%, 25, % (A_Index = 1) ? 125 : 170
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%VarName%
return
}
}
- Try
- z_Check := VarSetCapacity(%VarName%)
- Catch
+ GuiControlGet, fState, 10:Enabled, Par%A_Index%File
+ If (fState = 1)
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%VarName%
- return
+ IfInString, Par%A_Index%File, `,
+ StringReplace, Par%A_Index%File, Par%A_Index%File, `,, `````,, All
+ Details .= Par%A_Index%File "`, "
}
}
- GuiControlGet, fState, 10:Enabled, Par%A_Index%File
- If (fState = 1)
+ StringReplace, Details, Details, ```,, %_x%, All
+ Details := RTrim(Details, ", ")
+ StringReplace, Details, Details, %_x%, ```,, All
+ If (A_ThisLabel != "RunApply")
{
- IfInString, Par%A_Index%File, `,
- StringReplace, Par%A_Index%File, Par%A_Index%File, `,, `````,, All
- Details .= Par%A_Index%File "`, "
+ Gui, 1:-Disabled
+ Gui, 10:Destroy
}
-}
-StringReplace, Details, Details, ```,, %_x%, All
-Details := RTrim(Details, ", ")
-StringReplace, Details, Details, %_x%, ```,, All
-If (A_ThisLabel != "RunApply")
-{
- Gui, 1:-Disabled
- Gui, 10:Destroy
-}
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
-If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col2", FileCmdL, Details, TimesX, DelayX, FileCmdL)
-Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
-{
- LV_Add("Check", ListCount%A_List%+1, FileCmdL, Details, 1, DelayG, FileCmdL)
- LV_Modify(ListCount%A_List%+1, "Vis")
-}
-Else
-{
- GuiControl, chMacro:-g, InputList%A_List%
- RowNumber := 0
- Loop, %RowSelection%
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col2", FileCmdL, Details, TimesX, DelayX, FileCmdL)
+ Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
{
- RowNumber := LV_GetNext(RowNumber)
- LV_Insert(RowNumber, "Check", RowNumber, FileCmdL, Details, 1, DelayG, FileCmdL)
- LVManager[A_List].InsertAtGroup(RowNumber)
- RowNumber++
+ LV_Add("Check", ListCount%A_List%+1, FileCmdL, Details, 1, DelayG, FileCmdL)
+ LV_Modify(ListCount%A_List%+1, "Vis")
+ }
+ Else
+ {
+ GuiControl, chMacro:-g, InputList%A_List%
+ RowNumber := 0
+ Loop, %RowSelection%
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ LV_Insert(RowNumber, "Check", RowNumber, FileCmdL, Details, 1, DelayG, FileCmdL)
+ LVManager[A_List].InsertAtGroup(RowNumber)
+ RowNumber++
+ }
+ GuiControl, chMacro:+gInputList, InputList%A_List%
+ }
+ GoSub, RowCheck
+ GoSub, b_Start
+ If (A_ThisLabel = "RunApply")
+ Gui, 10:Default
+ Else
+ {
+ s_Caller := ""
+ GuiControl, Focus, InputList%A_List%
}
- GuiControl, chMacro:+gInputList, InputList%A_List%
-}
-GoSub, RowCheck
-GoSub, b_Start
-If (A_ThisLabel = "RunApply")
- Gui, 10:Default
-Else
-{
- s_Caller := ""
- GuiControl, Focus, InputList%A_List%
-}
return
RunCancel:
10GuiClose:
10GuiEscape:
-Gui, 1:-Disabled
-Gui, 10:Destroy
-s_Caller := ""
+ Gui, 1:-Disabled
+ Gui, 10:Destroy
+ s_Caller := ""
return
FileCmd:
-CbAutoComplete()
-Gui, 10:Submit, NoHide
-SBShowTip(FileCmdL)
-Loop, 11
-{
- Try
+ CbAutoComplete()
+ Gui, 10:Submit, NoHide
+ SBShowTip(FileCmdL)
+ Loop, 11
{
- GuiControl, 10:, FCmd%A_Index%, % %FileCmdL%%A_Index%
- If (!%FileCmdL%%A_Index%)
+ Try
+ {
+ GuiControl, 10:, FCmd%A_Index%, % %FileCmdL%%A_Index%
+ If (!%FileCmdL%%A_Index%)
+ GuiControl, 10:Disable, Par%A_Index%File
+ Else
+ GuiControl, 10:Enable, Par%A_Index%File
+ }
+ Catch
+ {
+ GuiControl, 10:, FCmd%A_Index%
GuiControl, 10:Disable, Par%A_Index%File
- Else
- GuiControl, 10:Enable, Par%A_Index%File
+ }
+ Try
+ {
+ If %FileCmdL%%A_Index% contains Target,Dir,File,Source,Dest,Starting,Drive,Path
+ GuiControl, 10:Enable, SearchPar%A_Index%
+ Else
+ GuiControl, 10:Disable, SearchPar%A_Index%
+ }
+ Catch
+ GuiControl, 10:Disable, SearchPar%A_Index%
}
- Catch
+ If (FileCmdL = "InputBox")
{
- GuiControl, 10:, FCmd%A_Index%
- GuiControl, 10:Disable, Par%A_Index%File
+ GuiControl, 10:, Par9File
+ GuiControl, 10:+ReadOnly, Par9File
}
- Try
+ Else
+ GuiControl, 10:-ReadOnly, Par9File
+ If ((FileCmdL = "PixelGetColor") || (FileCmdL = "Tooltip"))
{
- If %FileCmdL%%A_Index% contains Target,Dir,File,Source,Dest,Starting,Drive,Path
- GuiControl, 10:Enable, SearchPar%A_Index%
- Else
- GuiControl, 10:Disable, SearchPar%A_Index%
+ GuiControl, 10:Hide, SearchPar2
+ GuiControl, 10:Show, MouseGet
+ }
+ Else
+ {
+ GuiControl, 10:Hide, MouseGet
+ GuiControl, 10:Show, SearchPar2
+ }
+ If FileCmdL not in %FileCmdML%
+ {
+ GuiControl, 10:Disable, RunOK
+ GuiControl, 10:Disable, RunApply
+ }
+ Else
+ {
+ GuiControl, 10:Enable, RunOK
+ If (s_Caller = "Edit")
+ GuiControl, 10:Enable, RunApply
}
- Catch
- GuiControl, 10:Disable, SearchPar%A_Index%
-}
-If (FileCmdL = "InputBox")
-{
- GuiControl, 10:, Par9File
- GuiControl, 10:+ReadOnly, Par9File
-}
-Else
- GuiControl, 10:-ReadOnly, Par9File
-If ((FileCmdL = "PixelGetColor") || (FileCmdL = "Tooltip"))
-{
- GuiControl, 10:Hide, SearchPar2
- GuiControl, 10:Show, MouseGet
-}
-Else
-{
- GuiControl, 10:Hide, MouseGet
- GuiControl, 10:Show, SearchPar2
-}
-If FileCmdL not in %FileCmdML%
-{
- GuiControl, 10:Disable, RunOK
- GuiControl, 10:Disable, RunApply
-}
-Else
-{
- GuiControl, 10:Enable, RunOK
- If (s_Caller = "Edit")
- GuiControl, 10:Enable, RunApply
-}
return
CmdFilter:
-Menu, RunFilterMenu, Add, %t_Lang007%, SetRunFilter
-Menu, RunFilterMenu, Add, %t_Lang166%, SetRunFilter
-Menu, RunFilterMenu, Add, %t_Lang167%, SetRunFilter
-Menu, RunFilterMenu, Add, %t_Lang168%, SetRunFilter
-Menu, RunFilterMenu, Add, %t_Lang169%, SetRunFilter
-Menu, RunFilterMenu, Add, %t_Lang170%, SetRunFilter
-Menu, RunFilterMenu, Add, %t_Lang171%, SetRunFilter
-Menu, RunFilterMenu, Add, %t_Lang172%, SetRunFilter
-Menu, RunFilterMenu, Add, %t_Lang173%, SetRunFilter
-Menu, RunFilterMenu, Add, %t_Lang174%, SetRunFilter
-Menu, RunFilterMenu, Add, %t_Lang175%, SetRunFilter
-Menu, RunFilterMenu, Check, %SetFilter%
-Menu, RunFilterMenu, Show
-Menu, RunFilterMenu, DeleteAll
+ Menu, RunFilterMenu, Add, %t_Lang007%, SetRunFilter
+ Menu, RunFilterMenu, Add, %t_Lang166%, SetRunFilter
+ Menu, RunFilterMenu, Add, %t_Lang167%, SetRunFilter
+ Menu, RunFilterMenu, Add, %t_Lang168%, SetRunFilter
+ Menu, RunFilterMenu, Add, %t_Lang169%, SetRunFilter
+ Menu, RunFilterMenu, Add, %t_Lang170%, SetRunFilter
+ Menu, RunFilterMenu, Add, %t_Lang171%, SetRunFilter
+ Menu, RunFilterMenu, Add, %t_Lang172%, SetRunFilter
+ Menu, RunFilterMenu, Add, %t_Lang173%, SetRunFilter
+ Menu, RunFilterMenu, Add, %t_Lang174%, SetRunFilter
+ Menu, RunFilterMenu, Add, %t_Lang175%, SetRunFilter
+ Menu, RunFilterMenu, Check, %SetFilter%
+ Menu, RunFilterMenu, Show
+ Menu, RunFilterMenu, DeleteAll
return
SetRunFilter:
-s_Filter := Run_Filter_%A_ThisMenuItemPos%
-If (s_Filter = "All")
- GuiControl, 10:, FileCmdL, |%FileCmdList%
-Else
- GuiControl, 10:, FileCmdL, % "|" RunList_%s_Filter%
-GuiControl, 10:Choose, FileCmdL, 1
-GoSub, FileCmd
-SetFilter := A_ThisMenuItem
+ s_Filter := Run_Filter_%A_ThisMenuItemPos%
+ If (s_Filter = "All")
+ GuiControl, 10:, FileCmdL, |%FileCmdList%
+ Else
+ GuiControl, 10:, FileCmdL, % "|" RunList_%s_Filter%
+ GuiControl, 10:Choose, FileCmdL, 1
+ GoSub, FileCmd
+ SetFilter := A_ThisMenuItem
return
CmdSort:
-Gui, 10:Submit, NoHide
-If (s_Filter = "All")
- SortedCmdList := StrReplace(FileCmdList, "||", "|")
-Else
- SortedCmdList := RunList_%s_Filter%
-Sort, SortedCmdList, D|
-GuiControl, 10:, FileCmdL, |%SortedCmdList%
-GuiControl, 10:Choose, FileCmdL, %FileCmdL%
+ Gui, 10:Submit, NoHide
+ If (s_Filter = "All")
+ SortedCmdList := StrReplace(FileCmdList, "||", "|")
+ Else
+ SortedCmdList := RunList_%s_Filter%
+ Sort, SortedCmdList, D|
+ GuiControl, 10:, FileCmdL, |%SortedCmdList%
+ GuiControl, 10:Choose, FileCmdL, %FileCmdL%
return
EditFunc:
EditVar:
EditSt:
-s_Caller := "Edit"
-If ((Action = "[End If]") || (Action = "[Else]"))
- return
+ s_Caller := "Edit"
+ If ((Action = "[End If]") || (Action = "[Else]"))
+ return
AsFunc:
AsVar:
IfSt:
-Proj_Funcs := ""
-Gui, chMacro:Default
-Loop, %TabCount%
-{
- Gui, chMacro:ListView, InputList%A_Index%
- Loop, % ListCount%A_Index%
+ Proj_Funcs := ""
+ Gui, chMacro:Default
+ Loop, %TabCount%
{
- LV_GetText(Row_Type, A_Index, 6)
- If (Row_Type = cType47)
+ Gui, chMacro:ListView, InputList%A_Index%
+ Loop, % ListCount%A_Index%
{
- LV_GetText(Row_Func, A_Index, 3)
- Proj_Funcs .= Row_Func "$"
- %Row_Func%_Hint := "(", HasDefault := false
- Loop, % A_Index - 1
+ LV_GetText(Row_Type, A_Index, 6)
+ If (Row_Type = cType47)
{
- LV_GetText(Row_Type, A_Index, 6)
- If (Row_Type != cType48)
- continue
- LV_GetText(Row_Param, A_Index, 3)
- HasDefault := InStr(Row_Param, " :=")
- If (HasDefault)
+ LV_GetText(Row_Func, A_Index, 3)
+ Proj_Funcs .= Row_Func "$"
+ %Row_Func%_Hint := "(", HasDefault := false
+ Loop, % A_Index - 1
{
- If (!InStr(%Row_Func%_Hint, "["))
- %Row_Func%_Hint := Trim(%Row_Func%_Hint, ", ") (%Row_Func%_Hint = "(" ? "[" : " [, ")
- %Row_Func%_Hint .= SubStr(Row_Param, 1, HasDefault-1) ", "
+ LV_GetText(Row_Type, A_Index, 6)
+ If (Row_Type != cType48)
+ continue
+ LV_GetText(Row_Param, A_Index, 3)
+ HasDefault := InStr(Row_Param, " :=")
+ If (HasDefault)
+ {
+ If (!InStr(%Row_Func%_Hint, "["))
+ %Row_Func%_Hint := Trim(%Row_Func%_Hint, ", ") (%Row_Func%_Hint = "(" ? "[" : " [, ")
+ %Row_Func%_Hint .= SubStr(Row_Param, 1, HasDefault-1) ", "
+ }
+ Else
+ %Row_Func%_Hint .= Row_Param ", "
}
- Else
- %Row_Func%_Hint .= Row_Param ", "
+ %Row_Func%_Hint := Trim(%Row_Func%_Hint, ", ") . (HasDefault ? "])" : ")")
}
- %Row_Func%_Hint := Trim(%Row_Func%_Hint, ", ") . (HasDefault ? "])" : ")")
}
}
-}
-Statements := "
+ Statements := "
(Join$
" c_Lang190 "$
" c_Lang191 "
@@ -8611,946 +8606,946 @@ Statements := "
" c_Lang204 "
)"
-Gui, 21:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin +Delimiter$
-Gui, 1:+Disabled
-Gui, 21:Add, Tab2, W450 H0 vTabControl AltSubmit, CmdTab1$CmdTab2$CmdTab3
-; Statements
-Gui, 21:Add, GroupBox, Section xm ym W450 H240
-Gui, 21:Add, DDL, ys+15 xs+10 W190 vStatement gStatement AltSubmit, %Statements%
-Gui, 21:Add, Text, yp x+5 h25 0x11
-Gui, 21:Add, DDL, yp x+0 W105 vIfMsgB AltSubmit Disabled, %c_Lang168%$$%c_Lang169%$%c_Lang170%$%c_Lang171%$%c_Lang172%$%c_Lang173%$%c_Lang174%$%c_Lang175%$%c_Lang176%$%c_Lang177%
-Gui, 21:Add, Text, yp x+5 h25 0x11
-Gui, 21:Add, Button, yp x+0 W75 vIdent gWinTitle, WinTitle
-Gui, 21:Add, Button, -Wrap yp x+5 W30 H23 vIfGet gIfGet, ...
-Gui, 21:Add, Text, -Wrap R1 y+5 xs+10 W400 vFormatTip, %Wcmd_All%
-Gui, 21:Add, Edit, y+5 xs+10 W430 R4 -vScroll vTestVar
-Gui, 21:Add, Text, -Wrap R1 y+11 xs+10 W135 vFormatTip2
-Gui, 21:Add, DDL, yp-5 x+0 W100 vIfOper gCoOper Disabled, =$$==$!=$>$<$>=$<=$in$not in$contains$not contains$between$not between$is$is not
-Gui, 21:Add, Text, -Wrap R1 yp+5 x+5 W150 vCoOper cGray, %Co_Oper_01%
-Gui, 21:Add, Text, -Wrap yp xs+10 W430 R6 vExpTxt Hidden, %d_Lang097%
-Gui, 21:Add, Edit, yp+20 xs+10 W430 R4 -vScroll vTestVar2 Disabled
-Gui, 21:Add, Text, -Wrap R1 W430 cGray vVarTxt, %c_Lang025%
-Gui, 21:Add, Link, -Wrap xp yp W430 R1 vExprLink1 gExprLink Hidden, %c_Lang091%
-Gui, 21:Add, Groupbox, Section xs y+15 W450 H50, %c_Lang123%:
-Gui, 21:Add, Button, -Wrap ys+18 xs+85 W75 H23 vAddElse gAddElse, %c_Lang083%
-Gui, 21:Add, Button, -Wrap Section Default xm y+14 W75 H23 gIfOK, %c_Lang020%
-Gui, 21:Add, Button, -Wrap ys W75 H23 gIfCancel, %c_Lang021%
-Gui, 21:Add, Button, -Wrap ys W75 H23 vIfApply gIfApply Disabled, %c_Lang131%
-Gui, 21:Add, Checkbox, -Wrap R1 ys+5 W190 vElseIf, %c_Lang083% %c_Lang247%
-Gui, 21:Tab, 2
-; Variables
-Gui, 21:Add, GroupBox, Section xm ym W450 H240
-Gui, 21:Add, Text, -Wrap R1 ys+15 xs+10 vVarNameT, %c_Lang057%:
-Gui, 21:Add, Edit, W200 R1 -Multi vVarName
-Gui, 21:Add, Text, -Wrap R1 yp-20 x+5 W120, %c_Lang086%:
-Gui, 21:Add, DDL, y+7 W60 vOper gAsOper, %AssignOperators%
-Gui, 21:Add, Text, -Wrap R1 yp+5 x+5 W150 vAsOper cGray, %As_Oper_01%
-Gui, 21:Add, Text, -Wrap R1 y+9 xs+10 W200, %c_Lang056%:
-Gui, 21:Add, Checkbox, -Wrap Checked%EvalDefault% yp x+5 W220 vUseEval gUseEval R1, %c_Lang087% / %c_Lang211%
-Gui, 21:Add, Edit, y+10 xs+10 W430 H110 vVarValue
-Gui, 21:Add, Text, -Wrap R1 W430 cGray vVarTip, %c_Lang025%
-Gui, 21:Add, Link, -Wrap xp yp W430 R1 vExprLink2 gExprLink Hidden, %c_Lang091%
-Gui, 21:Add, Text, -Wrap R1 y+5 W430 cGray vArrayTip Hidden, %c_Lang206%
-Gui, 21:Add, Groupbox, Section xs y+14 W450 H50, %c_Lang010%:
-Gui, 21:Add, Button, -Wrap ys+18 xs+85 W75 H23 vVarCopyA gVarCopy, %c_Lang023%
-Gui, 21:Add, Button, -Wrap x+10 yp W75 H23 gReset, %c_Lang088%
-Gui, 21:Add, Button, -Wrap Section xm y+14 W75 H23 vVarOK gVarOK, %c_Lang020%
-Gui, 21:Add, Button, -Wrap ys W75 H23 gIfCancel, %c_Lang021%
-Gui, 21:Add, Button, -Wrap ys W75 H23 vVarApplyA gVarApply Disabled, %c_Lang131%
-Gui, 21:Tab, 3
-; Functions
-Gui, 21:Add, GroupBox, Section xm ym W450 H240
-Gui, 21:Add, Text, -Wrap R1 ys+20 xs+10 W200, %c_Lang057%:
-Gui, 21:Add, Edit, W200 R1 -Multi vVarNameF
-Gui, 21:Add, Checkbox, -Wrap R1 ys+20 x+5 W200 vIsArray gIsArray, %c_Lang207% / %c_Lang211%:
-Gui, 21:Add, Edit, W200 R1 -Multi vArrayName Disabled
-Gui, 21:Add, Checkbox, -Wrap R1 y+10 xs+10 W430 vUseExtFunc gUseExtFunc, %c_Lang128%
-Gui, 21:Add, Edit, W400 R1 -Multi vFileNameEx Disabled, %StdLibFile%
-Gui, 21:Add, Button, -Wrap yp-1 x+0 W30 H23 vSearchFEX gSearchAHK Disabled, ...
-Gui, 21:Add, Text, -Wrap R1 y+10 xs+10 W130 vFuncNameT, %c_Lang089% / %c_Lang095%:
-Gui, 21:Add, Combobox, W400 -Multi vFuncName gFuncName, %Proj_Funcs%%BuiltinFuncList%
-Gui, 21:Add, Button, -Wrap W25 yp-1 x+5 hwndFuncHelp vFuncHelp gFuncHelp Disabled
+ Gui, 21:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin +Delimiter$
+ Gui, 1:+Disabled
+ Gui, 21:Add, Tab2, W450 H0 vTabControl AltSubmit, CmdTab1$CmdTab2$CmdTab3
+ ; Statements
+ Gui, 21:Add, GroupBox, Section xm ym W450 H240
+ Gui, 21:Add, DDL, ys+15 xs+10 W190 vStatement gStatement AltSubmit, %Statements%
+ Gui, 21:Add, Text, yp x+5 h25 0x11
+ Gui, 21:Add, DDL, yp x+0 W105 vIfMsgB AltSubmit Disabled, %c_Lang168%$$%c_Lang169%$%c_Lang170%$%c_Lang171%$%c_Lang172%$%c_Lang173%$%c_Lang174%$%c_Lang175%$%c_Lang176%$%c_Lang177%
+ Gui, 21:Add, Text, yp x+5 h25 0x11
+ Gui, 21:Add, Button, yp x+0 W75 vIdent gWinTitle, WinTitle
+ Gui, 21:Add, Button, -Wrap yp x+5 W30 H23 vIfGet gIfGet, ...
+ Gui, 21:Add, Text, -Wrap R1 y+5 xs+10 W400 vFormatTip, %Wcmd_All%
+ Gui, 21:Add, Edit, y+5 xs+10 W430 R4 -vScroll vTestVar
+ Gui, 21:Add, Text, -Wrap R1 y+11 xs+10 W135 vFormatTip2
+ Gui, 21:Add, DDL, yp-5 x+0 W100 vIfOper gCoOper Disabled, =$$==$!=$>$<$>=$<=$in$not in$contains$not contains$between$not between$is$is not
+ Gui, 21:Add, Text, -Wrap R1 yp+5 x+5 W150 vCoOper cGray, %Co_Oper_01%
+ Gui, 21:Add, Text, -Wrap yp xs+10 W430 R6 vExpTxt Hidden, %d_Lang097%
+ Gui, 21:Add, Edit, yp+20 xs+10 W430 R4 -vScroll vTestVar2 Disabled
+ Gui, 21:Add, Text, -Wrap R1 W430 cGray vVarTxt, %c_Lang025%
+ Gui, 21:Add, Link, -Wrap xp yp W430 R1 vExprLink1 gExprLink Hidden, %c_Lang091%
+ Gui, 21:Add, Groupbox, Section xs y+15 W450 H50, %c_Lang123%:
+ Gui, 21:Add, Button, -Wrap ys+18 xs+85 W75 H23 vAddElse gAddElse, %c_Lang083%
+ Gui, 21:Add, Button, -Wrap Section Default xm y+14 W75 H23 gIfOK, %c_Lang020%
+ Gui, 21:Add, Button, -Wrap ys W75 H23 gIfCancel, %c_Lang021%
+ Gui, 21:Add, Button, -Wrap ys W75 H23 vIfApply gIfApply Disabled, %c_Lang131%
+ Gui, 21:Add, Checkbox, -Wrap R1 ys+5 W190 vElseIf, %c_Lang083% %c_Lang247%
+ Gui, 21:Tab, 2
+ ; Variables
+ Gui, 21:Add, GroupBox, Section xm ym W450 H240
+ Gui, 21:Add, Text, -Wrap R1 ys+15 xs+10 vVarNameT, %c_Lang057%:
+ Gui, 21:Add, Edit, W200 R1 -Multi vVarName
+ Gui, 21:Add, Text, -Wrap R1 yp-20 x+5 W120, %c_Lang086%:
+ Gui, 21:Add, DDL, y+7 W60 vOper gAsOper, %AssignOperators%
+ Gui, 21:Add, Text, -Wrap R1 yp+5 x+5 W150 vAsOper cGray, %As_Oper_01%
+ Gui, 21:Add, Text, -Wrap R1 y+9 xs+10 W200, %c_Lang056%:
+ Gui, 21:Add, Checkbox, -Wrap Checked%EvalDefault% yp x+5 W220 vUseEval gUseEval R1, %c_Lang087% / %c_Lang211%
+ Gui, 21:Add, Edit, y+10 xs+10 W430 H110 vVarValue
+ Gui, 21:Add, Text, -Wrap R1 W430 cGray vVarTip, %c_Lang025%
+ Gui, 21:Add, Link, -Wrap xp yp W430 R1 vExprLink2 gExprLink Hidden, %c_Lang091%
+ Gui, 21:Add, Text, -Wrap R1 y+5 W430 cGray vArrayTip Hidden, %c_Lang206%
+ Gui, 21:Add, Groupbox, Section xs y+14 W450 H50, %c_Lang010%:
+ Gui, 21:Add, Button, -Wrap ys+18 xs+85 W75 H23 vVarCopyA gVarCopy, %c_Lang023%
+ Gui, 21:Add, Button, -Wrap x+10 yp W75 H23 gReset, %c_Lang088%
+ Gui, 21:Add, Button, -Wrap Section xm y+14 W75 H23 vVarOK gVarOK, %c_Lang020%
+ Gui, 21:Add, Button, -Wrap ys W75 H23 gIfCancel, %c_Lang021%
+ Gui, 21:Add, Button, -Wrap ys W75 H23 vVarApplyA gVarApply Disabled, %c_Lang131%
+ Gui, 21:Tab, 3
+ ; Functions
+ Gui, 21:Add, GroupBox, Section xm ym W450 H240
+ Gui, 21:Add, Text, -Wrap R1 ys+20 xs+10 W200, %c_Lang057%:
+ Gui, 21:Add, Edit, W200 R1 -Multi vVarNameF
+ Gui, 21:Add, Checkbox, -Wrap R1 ys+20 x+5 W200 vIsArray gIsArray, %c_Lang207% / %c_Lang211%:
+ Gui, 21:Add, Edit, W200 R1 -Multi vArrayName Disabled
+ Gui, 21:Add, Checkbox, -Wrap R1 y+10 xs+10 W430 vUseExtFunc gUseExtFunc, %c_Lang128%
+ Gui, 21:Add, Edit, W400 R1 -Multi vFileNameEx Disabled, %StdLibFile%
+ Gui, 21:Add, Button, -Wrap yp-1 x+0 W30 H23 vSearchFEX gSearchAHK Disabled, ...
+ Gui, 21:Add, Text, -Wrap R1 y+10 xs+10 W130 vFuncNameT, %c_Lang089% / %c_Lang095%:
+ Gui, 21:Add, Combobox, W400 -Multi vFuncName gFuncName, %Proj_Funcs%%BuiltinFuncList%
+ Gui, 21:Add, Button, -Wrap W25 yp-1 x+5 hwndFuncHelp vFuncHelp gFuncHelp Disabled
ILButton(FuncHelp, ResDllPath ":" 24)
-Gui, 21:Add, Text, -Wrap R1 W430 y+11 xs+10, %c_Lang090%:
-Gui, 21:Add, Edit, W430 R1 -Multi vVarValueF
-Gui, 21:Add, Text, -Wrap R1 W430 vFuncTip
-Gui, 21:Add, Groupbox, Section xs y+12 W450 H50, %c_Lang010%:
-Gui, 21:Add, Button, -Wrap ys+18 xs+85 W75 H23 vVarCopyB gVarCopy, %c_Lang023%
-Gui, 21:Add, Button, -Wrap x+10 yp W75 H23 gReset, %c_Lang088%
-Gui, 21:Add, Button, -Wrap Section xm y+14 W75 H23 vFuncOK gVarOK, %c_Lang020%
-Gui, 21:Add, Button, -Wrap ys W75 H23 gIfCancel, %c_Lang021%
-Gui, 21:Add, Button, -Wrap ys W75 H23 vVarApplyB gVarApply Disabled, %c_Lang131%
-Gui, 21:Add, Link, -Wrap R1 x+10 yp+3 W190 vExprLink3 gExprLink, %c_Lang091%
-Gui, 21:Add, StatusBar, gStatusBarHelp
-Gui, 21:Default
-SB_SetIcon(ResDllPath, IconsNames["help"])
-If (s_Caller = "Edit")
-{
- If (A_ThisLabel = "EditSt")
+ Gui, 21:Add, Text, -Wrap R1 W430 y+11 xs+10, %c_Lang090%:
+ Gui, 21:Add, Edit, W430 R1 -Multi vVarValueF
+ Gui, 21:Add, Text, -Wrap R1 W430 vFuncTip
+ Gui, 21:Add, Groupbox, Section xs y+12 W450 H50, %c_Lang010%:
+ Gui, 21:Add, Button, -Wrap ys+18 xs+85 W75 H23 vVarCopyB gVarCopy, %c_Lang023%
+ Gui, 21:Add, Button, -Wrap x+10 yp W75 H23 gReset, %c_Lang088%
+ Gui, 21:Add, Button, -Wrap Section xm y+14 W75 H23 vFuncOK gVarOK, %c_Lang020%
+ Gui, 21:Add, Button, -Wrap ys W75 H23 gIfCancel, %c_Lang021%
+ Gui, 21:Add, Button, -Wrap ys W75 H23 vVarApplyB gVarApply Disabled, %c_Lang131%
+ Gui, 21:Add, Link, -Wrap R1 x+10 yp+3 W190 vExprLink3 gExprLink, %c_Lang091%
+ Gui, 21:Add, StatusBar, gStatusBarHelp
+ Gui, 21:Default
+ SB_SetIcon(ResDllPath, IconsNames["help"])
+ If (s_Caller = "Edit")
{
- If (Action != If15)
- StringReplace, Details, Details, ``n, `n, All
- If (InStr(Action, "[ElseIf] "))
+ If (A_ThisLabel = "EditSt")
{
- Action := SubStr(Action, 10)
- GuiControl, 21:, ElseIf, 1
- GuiControl, 21:Disable, ElseIf
- }
- Loop, 15
- {
- If (IfList%A_Index% = Action)
- GuiControl, 21:Choose, Statement, %A_Index%
+ If (Action != If15)
+ StringReplace, Details, Details, ``n, `n, All
+ If (InStr(Action, "[ElseIf] "))
+ {
+ Action := SubStr(Action, 10)
+ GuiControl, 21:, ElseIf, 1
+ GuiControl, 21:Disable, ElseIf
+ }
+ Loop, 15
+ {
+ If (IfList%A_Index% = Action)
+ GuiControl, 21:Choose, Statement, %A_Index%
+ }
+ If (InStr(Action, "String"))
+ {
+ RegExMatch(Details, "^(\w*?)(,)(.*)", aMatch)
+ GuiControl, 21:, TestVar, % Trim(aMatch1)
+ GuiControl, 21:, TestVar2, % Trim(aMatch3)
+ }
+ Else If (InStr(Action, "Compare"))
+ {
+ CompareParse(Details, VarName, Oper, VarValue), Opers := "=$==$!=$>$<$>=$<=$in$not in$contains$not contains$between$not between$is$is not"
+ StringReplace, VarValue, VarValue, ```,, `,, All
+ GuiControl, 21:, TestVar, %VarName%
+ GuiControl, 21:, TestVar2, %VarValue%
+ Loop, Parse, Opers, $
+ If (A_LoopField = Oper)
+ GuiControl, 21:Choose, IfOper, %A_Index%
+ Opers := ""
+ }
+ Else If (Action = "If Message Box")
+ {
+ Loop, %IfMsg0%
+ {
+ If (IfMsg%A_Index% = Details)
+ GuiControl, 21:Choose, IfMsgB, %A_Index%
+ }
+ }
+ Else
+ GuiControl, 21:, TestVar, %Details%
+ GoSub, Statement
+ If (InStr(Action, "Image"))
+ GuiControl, 21:Disable, TestVar
+ GuiControl, 21:, TabControl, $%c_Lang009%
+ GoSub, CoOper
+ GuiTitle := c_Lang009
}
- If (InStr(Action, "String"))
+ Else If (A_ThisLabel = "EditVar")
{
- RegExMatch(Details, "^(\w*?)(,)(.*)", aMatch)
- GuiControl, 21:, TestVar, % Trim(aMatch1)
- GuiControl, 21:, TestVar2, % Trim(aMatch3)
+ If (Target != "Expression")
+ StringReplace, Details, Details, ``n, `n, All
+ AssignReplace(Details, VarName, Oper, VarValue), GuiTitle := c_Lang010
+ GuiControl, 21:Choose, TabControl, 2
+ GuiControl, 21:+Default, VarOK
+ GuiControl, 21:, VarName, %VarName%
+ GuiControl, 21:ChooseString, Oper, %Oper%
+ If (Target = "Expression")
+ {
+ GuiControl, 21:, UseEval, 1
+ GuiControl, 21:Hide, VarTip
+ GuiControl, 21:Show, ArrayTip
+ GuiControl, 21:Show, ExprLink2
+ }
+ Else
+ {
+ GuiControl, 21:, UseEval, 0
+ GuiControl, 21:Hide, ArrayTip
+ GuiControl, 21:Hide, ExprLink2
+ GuiControl, 21:Show, VarTip
+ }
+ GuiControl, 21:, VarValue, %VarValue%
+ SBShowTip("Variable")
+ GoSub, AsOper
}
- Else If (InStr(Action, "Compare"))
+ Else If (A_ThisLabel = "EditFunc")
{
- CompareParse(Details, VarName, Oper, VarValue), Opers := "=$==$!=$>$<$>=$<=$in$not in$contains$not contains$between$not between$is$is not"
- StringReplace, VarValue, VarValue, ```,, `,, All
- GuiControl, 21:, TestVar, %VarName%
- GuiControl, 21:, TestVar2, %VarValue%
- Loop, Parse, Opers, $
- If (A_LoopField = Oper)
- GuiControl, 21:Choose, IfOper, %A_Index%
- Opers := ""
+ AssignReplace(Details, VarName, Oper, VarValue), FuncName := Action, ArrayName := Target, GuiTitle := c_Lang011
+ GuiControl, 21:Choose, TabControl, 3
+ GuiControl, 21:+Default, FuncOK
+ If (VarName != "_null")
+ GuiControl, 21:, VarNameF, %VarName%
+ If (Type = cType46)
+ {
+ GuiControl, 21:, IsArray, 1
+ GuiControl, 21:, UseExtFunc, 0
+ GuiControl, 21:Disable, UseExtFunc
+ GuiControl, 21:Enable, ArrayName
+ GuiControl, 21:, FuncName, $%ArrayMethodsList%
+ GuiControl, 21:, ArrayName, %ArrayName%
+ If (InStr(ArrayMethodsList, FuncName))
+ GuiControl, 21:ChooseString, FuncName, %FuncName%
+ Else
+ GuiControl, 21:, FuncName, %FuncName%$$
+ }
+ Else
+ {
+ Try IsBuiltIn := Func(FuncName).IsBuiltIn ? 1 : 0
+ If (IsBuiltIn)
+ GuiControl, 21:ChooseString, FuncName, %FuncName%
+ Else
+ GuiControl, 21:, FuncName, %FuncName%$$
+ }
+ GuiControl, 21:, VarValueF, %VarValue%
+ If ((Type = cType44) && (Target != ""))
+ {
+ UseExtFunc := 1, FileNameEx := Target
+ GuiControl, 21:, UseExtFunc, 1
+ GuiControl, 21:, FileNameEx, %Target%
+ GuiControl, 21:Enable, SearchAHK
+ GoSub, UseExtFunc
+ GuiControl, 21:, FuncName, %FuncName%$$
+ }
+ GoSub, FuncName
}
- Else If (Action = "If Message Box")
+ GuiControl, 21:Enable, IfApply
+ GuiControl, 21:Enable, VarApplyA
+ GuiControl, 21:Enable, VarApplyB
+ }
+ Else
+ ExtList := ReadFunctions(StdLibFile)
+ If (A_ThisLabel = "IfSt")
+ {
+ GuiTitle := c_Lang009
+ If (s_Caller = "Find")
{
- Loop, %IfMsg0%
+ If (InStr(IfCmd, GotoRes1))
{
- If (IfMsg%A_Index% = Details)
- GuiControl, 21:Choose, IfMsgB, %A_Index%
+ Loop, Parse, IfCmd, `n
+ {
+ cIf := RTrim(c_If%A_Index%, " ,=0")
+ If (GotoRes1 = cIf)
+ {
+ GuiControl, 21:Choose, Statement, %A_Index%
+ break
+ }
+ }
+ }
+ Else
+ {
+ GotoRes1 := If_Replace[GotoRes1]
+ GuiControl, 21:ChooseString, Statement, %GotoRes1%
}
+ GoSub, Statement
}
Else
- GuiControl, 21:, TestVar, %Details%
- GoSub, Statement
- If (InStr(Action, "Image"))
- GuiControl, 21:Disable, TestVar
- GuiControl, 21:, TabControl, $%c_Lang009%
- GoSub, CoOper
- GuiTitle := c_Lang009
+ SBShowTip(Trim(c_If1, "=0, "))
}
- Else If (A_ThisLabel = "EditVar")
+ Else If (A_ThisLabel = "AsVar")
{
- If (Target != "Expression")
- StringReplace, Details, Details, ``n, `n, All
- AssignReplace(Details, VarName, Oper, VarValue), GuiTitle := c_Lang010
GuiControl, 21:Choose, TabControl, 2
- GuiControl, 21:+Default, VarOK
- GuiControl, 21:, VarName, %VarName%
- GuiControl, 21:ChooseString, Oper, %Oper%
- If (Target = "Expression")
+ GuiTitle := c_Lang010
+ SBShowTip("Variable")
+ If (EvalDefault)
{
- GuiControl, 21:, UseEval, 1
GuiControl, 21:Hide, VarTip
GuiControl, 21:Show, ArrayTip
GuiControl, 21:Show, ExprLink2
}
- Else
- {
- GuiControl, 21:, UseEval, 0
- GuiControl, 21:Hide, ArrayTip
- GuiControl, 21:Hide, ExprLink2
- GuiControl, 21:Show, VarTip
- }
- GuiControl, 21:, VarValue, %VarValue%
- SBShowTip("Variable")
- GoSub, AsOper
}
- Else If (A_ThisLabel = "EditFunc")
+ Else If (A_ThisLabel = "AsFunc")
{
- AssignReplace(Details, VarName, Oper, VarValue), FuncName := Action, ArrayName := Target, GuiTitle := c_Lang011
GuiControl, 21:Choose, TabControl, 3
- GuiControl, 21:+Default, FuncOK
- If (VarName != "_null")
- GuiControl, 21:, VarNameF, %VarName%
- If (Type = cType46)
- {
- GuiControl, 21:, IsArray, 1
- GuiControl, 21:, UseExtFunc, 0
- GuiControl, 21:Disable, UseExtFunc
- GuiControl, 21:Enable, ArrayName
- GuiControl, 21:, FuncName, $%ArrayMethodsList%
- GuiControl, 21:, ArrayName, %ArrayName%
- If (InStr(ArrayMethodsList, FuncName))
- GuiControl, 21:ChooseString, FuncName, %FuncName%
- Else
- GuiControl, 21:, FuncName, %FuncName%$$
- }
- Else
+ GuiTitle := c_Lang011
+ If (s_Caller = "Find")
{
- Try IsBuiltIn := Func(FuncName).IsBuiltIn ? 1 : 0
- If (IsBuiltIn)
- GuiControl, 21:ChooseString, FuncName, %FuncName%
- Else
- GuiControl, 21:, FuncName, %FuncName%$$
+ If (!IsFunc(GotoRes1))
+ {
+ If GotoRes1 in Delete,HasKey,InsertAt,Length,MaxIndex,MinIndex,RemoveAt,Pop,Push
+ {
+ GuiControl, 21:, IsArray, 1
+ GoSub, IsArray
+ }
+ }
+ GuiControl, 21:ChooseString, FuncName, %GotoRes1%
+ GoSub, FuncName
}
- GuiControl, 21:, VarValueF, %VarValue%
- If ((Type = cType44) && (Target != ""))
+ }
+ Gui, 21:Show,, %GuiTitle%
+ ChangeIcon(hIL_Icons, CmdWin, InStr(A_ThisLabel, "Var") ? IconsNames["variables"] : InStr(A_ThisLabel, "Func") ? IconsNames["functions"] : IconsNames["ifstatements"])
+ Tooltip
+return
+
+IfApply:
+IfOK:
+ Gui, 21:+OwnDialogs
+ Gui, 21:Submit, NoHide
+ Statement := IfList%Statement%, TestVar := Trim(TestVar)
+ EscCom(false, TestVar2)
+ If (InStr(Statement, "Image") || (Statement = "If Message Box"))
+ TestVar := ""
+ Else
+ {
+ If (TestVar = "")
{
- UseExtFunc := 1, FileNameEx := Target
- GuiControl, 21:, UseExtFunc, 1
- GuiControl, 21:, FileNameEx, %Target%
- GuiControl, 21:Enable, SearchAHK
- GoSub, UseExtFunc
- GuiControl, 21:, FuncName, %FuncName%$$
+ GuiControl, 21:Focus, TestVar
+ return
}
- GoSub, FuncName
}
- GuiControl, 21:Enable, IfApply
- GuiControl, 21:Enable, VarApplyA
- GuiControl, 21:Enable, VarApplyB
-}
-Else
- ExtList := ReadFunctions(StdLibFile)
-If (A_ThisLabel = "IfSt")
-{
- GuiTitle := c_Lang009
- If (s_Caller = "Find")
+ If (InStr(Statement, "Compare"))
{
- If (InStr(IfCmd, GotoRes1))
+ Try
+ z_Check := VarSetCapacity(%TestVar%)
+ Catch
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%TestVar%
+ return
+ }
+ TestVar := TestVar " " IfOper " " TestVar2
+ If IfOper in =,==,!=,>,<,>=,<=
{
- Loop, Parse, IfCmd, `n
+ If (RegExMatch(TestVar2, "%\w+%"))
{
- cIf := RTrim(c_If%A_Index%, " ,=0")
- If (GotoRes1 = cIf)
- {
- GuiControl, 21:Choose, Statement, %A_Index%
- break
- }
+ MsgBox, 52, %d_Lang011%, %d_Lang097%`n`n%d_Lang035%
+ IfMsgBox, No
+ return
}
}
- Else
+ }
+ Else If (InStr(Statement, "String"))
+ {
+ Try
+ z_Check := VarSetCapacity(%TestVar%)
+ Catch
{
- GotoRes1 := If_Replace[GotoRes1]
- GuiControl, 21:ChooseString, Statement, %GotoRes1%
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%TestVar%
+ return
}
- GoSub, Statement
+ TestVar := TestVar ", " TestVar2
}
- Else
- SBShowTip(Trim(c_If1, "=0, "))
-}
-Else If (A_ThisLabel = "AsVar")
-{
- GuiControl, 21:Choose, TabControl, 2
- GuiTitle := c_Lang010
- SBShowTip("Variable")
- If (EvalDefault)
+ Else If (Statement = "If Message Box")
+ TestVar := IfMsg%IfMsgB%
+ If (ElseIf)
+ Statement := "[ElseIf] " Statement
+ StringReplace, TestVar, TestVar, `n, ``n, All
+ Target := ""
+ If (A_ThisLabel != "IfApply")
{
- GuiControl, 21:Hide, VarTip
- GuiControl, 21:Show, ArrayTip
- GuiControl, 21:Show, ExprLink2
+ Gui, 1:-Disabled
+ Gui, 21:Destroy
}
-}
-Else If (A_ThisLabel = "AsFunc")
-{
- GuiControl, 21:Choose, TabControl, 3
- GuiTitle := c_Lang011
- If (s_Caller = "Find")
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col2", Statement, TestVar, 1, 0, cType17, Target)
+ Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
+ {
+ LV_Add("Check", ListCount%A_List%+1, Statement, TestVar, 1, 0, cType17, Target)
+ If (!ElseIf)
+ LV_Add("Check", ListCount%A_List%+2, "[End If]", "EndIf", 1, 0, cType17)
+ LV_Modify(ListCount%A_List%+2, "Vis")
+ }
+ Else
{
- If (!IsFunc(GotoRes1))
+ LV_Insert(LV_GetNext(), "Check",, Statement, TestVar, 1, 0, cType17, Target)
+ LVManager[A_List].InsertAtGroup(LV_GetNext() - 1), RowNumber := 0, LastRow := 0
+ Loop
{
- If GotoRes1 in Delete,HasKey,InsertAt,Length,MaxIndex,MinIndex,RemoveAt,Pop,Push
+ If (ElseIf)
+ break
+ RowNumber := LV_GetNext(RowNumber)
+ If (!RowNumber)
{
- GuiControl, 21:, IsArray, 1
- GoSub, IsArray
+ LV_Insert(LastRow+1, "Check",LastRow+1, "[End If]", "EndIf", 1, 0, cType17)
+ LVManager[A_List].InsertAtGroup(LastRow)
+ break
}
+ LastRow := LV_GetNext(LastRow)
}
- GuiControl, 21:ChooseString, FuncName, %GotoRes1%
- GoSub, FuncName
}
-}
-Gui, 21:Show,, %GuiTitle%
-ChangeIcon(hIL_Icons, CmdWin, InStr(A_ThisLabel, "Var") ? IconsNames["variables"] : InStr(A_ThisLabel, "Func") ? IconsNames["functions"] : IconsNames["ifstatements"])
-Tooltip
+ GoSub, RowCheck
+ GoSub, b_Start
+ If (A_ThisLabel = "IfApply")
+ Gui, 21:Default
+ Else
+ {
+ s_Caller := ""
+ GuiControl, Focus, InputList%A_List%
+ }
return
-IfApply:
-IfOK:
-Gui, 21:+OwnDialogs
-Gui, 21:Submit, NoHide
-Statement := IfList%Statement%, TestVar := Trim(TestVar)
-EscCom(false, TestVar2)
-If (InStr(Statement, "Image") || (Statement = "If Message Box"))
- TestVar := ""
-Else
-{
- If (TestVar = "")
+VarApply:
+VarOK:
+ Gui, 21:+OwnDialogs
+ Gui, 21:Submit, NoHide
+ If (TabControl = 3)
+ {
+ If (FuncName = "")
+ {
+ Gui, 21:Font, cRed
+ GuiControl, 21:Font, FuncNameT
+ GuiControl, 21:Focus, FuncName
+ return
+ }
+ If (UseExtFunc)
+ {
+ SplitPath, FileNameEx,,, ext
+ If ((ext != "ahk") || (FuncName = ""))
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang055%
+ return
+ }
+ Target := FileNameEx
+ }
+ Else If (IsArray)
+ Target := ArrayName
+ Else
+ Target := ""
+ VarName := VarNameF
+ If (VarName = "")
+ VarName := "_null"
+ }
+ If (VarName = "")
{
- GuiControl, 21:Focus, TestVar
+ Gui, 21:Font, cRed
+ GuiControl, 21:Font, VarNameT
+ GuiControl, 21:Focus, VarName
+ Tooltip, %c_Lang127%, 25, 65
return
}
-}
-If (InStr(Statement, "Compare"))
-{
- Try
- z_Check := VarSetCapacity(%TestVar%)
- Catch
+ If ((IsArray) && (ArrayName = ""))
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%TestVar%
+ GuiControl, 21:Focus, ArrayName
return
}
- TestVar := TestVar " " IfOper " " TestVar2
- If IfOper in =,==,!=,>,<,>=,<=
+ If (RegExMatch(VarName, "^(\w+)(\[\S+\]|\.\w+)+", lMatch))
{
- If (RegExMatch(TestVar2, "%\w+%"))
+ Try
+ z_Check := VarSetCapacity(%lMatch1%)
+ Catch
{
- MsgBox, 52, %d_Lang011%, %d_Lang097%`n`n%d_Lang035%
- IfMsgBox, No
- return
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%lMatch1%
+ return
}
}
-}
-Else If (InStr(Statement, "String"))
-{
- Try
- z_Check := VarSetCapacity(%TestVar%)
- Catch
- {
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%TestVar%
- return
- }
- TestVar := TestVar ", " TestVar2
-}
-Else If (Statement = "If Message Box")
- TestVar := IfMsg%IfMsgB%
-If (ElseIf)
- Statement := "[ElseIf] " Statement
-StringReplace, TestVar, TestVar, `n, ``n, All
-Target := ""
-If (A_ThisLabel != "IfApply")
-{
- Gui, 1:-Disabled
- Gui, 21:Destroy
-}
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
-If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col2", Statement, TestVar, 1, 0, cType17, Target)
-Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
-{
- LV_Add("Check", ListCount%A_List%+1, Statement, TestVar, 1, 0, cType17, Target)
- If (!ElseIf)
- LV_Add("Check", ListCount%A_List%+2, "[End If]", "EndIf", 1, 0, cType17)
- LV_Modify(ListCount%A_List%+2, "Vis")
-}
-Else
-{
- LV_Insert(LV_GetNext(), "Check",, Statement, TestVar, 1, 0, cType17, Target)
- LVManager[A_List].InsertAtGroup(LV_GetNext() - 1), RowNumber := 0, LastRow := 0
- Loop
+ Else
{
- If (ElseIf)
- break
- RowNumber := LV_GetNext(RowNumber)
- If (!RowNumber)
+ Try
+ z_Check := VarSetCapacity(%VarName%)
+ Catch
{
- LV_Insert(LastRow+1, "Check",LastRow+1, "[End If]", "EndIf", 1, 0, cType17)
- LVManager[A_List].InsertAtGroup(LastRow)
- break
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%VarName%
+ return
}
- LastRow := LV_GetNext(LastRow)
}
-}
-GoSub, RowCheck
-GoSub, b_Start
-If (A_ThisLabel = "IfApply")
- Gui, 21:Default
-Else
-{
- s_Caller := ""
- GuiControl, Focus, InputList%A_List%
-}
-return
-
-VarApply:
-VarOK:
-Gui, 21:+OwnDialogs
-Gui, 21:Submit, NoHide
-If (TabControl = 3)
-{
- If (FuncName = "")
+ StringReplace, VarValue, VarValue, `n, ``n, All
+ If (TabControl = 3)
+ Action := FuncName, Details := VarName " := " VarValueF, Type := IsArray ? cType46 : cType44
+ Else
{
- Gui, 21:Font, cRed
- GuiControl, 21:Font, FuncNameT
- GuiControl, 21:Focus, FuncName
- return
+ Details := VarName " " Oper " " VarValue, Type := cType21
+ GuiControl, 21:+AltSubmit, Oper
+ Gui, 21:Submit, NoHide
+ Action := "[" ExprOper%Oper% " Variable]"
+ GuiControl, 21:-AltSubmit, Oper
+ If (UseEval = 1)
+ Target := "Expression"
+ Else
+ Target := ""
}
- If (UseExtFunc)
+ If ((UseEval = 1) && (RegExMatch(Details, "%\w+%")))
{
- SplitPath, FileNameEx,,, ext
- If ((ext != "ahk") || (FuncName = ""))
- {
- MsgBox, 16, %d_Lang007%, %d_Lang055%
+ MsgBox, 52, %d_Lang011%, %d_Lang097%`n`n%d_Lang035%
+ IfMsgBox, No
return
- }
- Target := FileNameEx
}
- Else If (IsArray)
- Target := ArrayName
- Else
- Target := ""
- VarName := VarNameF
- If (VarName = "")
- VarName := "_null"
-}
-If (VarName = "")
-{
- Gui, 21:Font, cRed
- GuiControl, 21:Font, VarNameT
- GuiControl, 21:Focus, VarName
- Tooltip, %c_Lang127%, 25, 65
- return
-}
-If ((IsArray) && (ArrayName = ""))
-{
- GuiControl, 21:Focus, ArrayName
- return
-}
-If (RegExMatch(VarName, "^(\w+)(\[\S+\]|\.\w+)+", lMatch))
-{
- Try
- z_Check := VarSetCapacity(%lMatch1%)
- Catch
+ If (A_ThisLabel != "VarApply")
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%lMatch1%
- return
+ Gui, 1:-Disabled
+ Gui, 21:Destroy
}
-}
-Else
-{
- Try
- z_Check := VarSetCapacity(%VarName%)
- Catch
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col2", Action, Details, TimesX, DelayX, Type, Target)
+ Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%VarName%
- return
+ LV_Add("Check", ListCount%A_List%+1, Action, Details, 1, 0, Type, Target)
+ LV_Modify(ListCount%A_List%+1, "Vis")
+ }
+ Else
+ {
+ LV_Insert(LV_GetNext(), "Check",, Action, Details, 1, 0, Type, Target)
+ LVManager[A_List].InsertAtGroup(LV_GetNext())
}
-}
-StringReplace, VarValue, VarValue, `n, ``n, All
-If (TabControl = 3)
- Action := FuncName, Details := VarName " := " VarValueF, Type := IsArray ? cType46 : cType44
-Else
-{
- Details := VarName " " Oper " " VarValue, Type := cType21
- GuiControl, 21:+AltSubmit, Oper
- Gui, 21:Submit, NoHide
- Action := "[" ExprOper%Oper% " Variable]"
- GuiControl, 21:-AltSubmit, Oper
- If (UseEval = 1)
- Target := "Expression"
+ GoSub, RowCheck
+ GoSub, b_Start
+ If (A_ThisLabel = "VarApply")
+ Gui, 21:Default
Else
- Target := ""
-}
-If ((UseEval = 1) && (RegExMatch(Details, "%\w+%")))
-{
- MsgBox, 52, %d_Lang011%, %d_Lang097%`n`n%d_Lang035%
- IfMsgBox, No
- return
-}
-If (A_ThisLabel != "VarApply")
-{
- Gui, 1:-Disabled
- Gui, 21:Destroy
-}
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
-If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col2", Action, Details, TimesX, DelayX, Type, Target)
-Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
-{
- LV_Add("Check", ListCount%A_List%+1, Action, Details, 1, 0, Type, Target)
- LV_Modify(ListCount%A_List%+1, "Vis")
-}
-Else
-{
- LV_Insert(LV_GetNext(), "Check",, Action, Details, 1, 0, Type, Target)
- LVManager[A_List].InsertAtGroup(LV_GetNext())
-}
-GoSub, RowCheck
-GoSub, b_Start
-If (A_ThisLabel = "VarApply")
- Gui, 21:Default
-Else
-{
- s_Caller := ""
- GuiControl, Focus, InputList%A_List%
-}
+ {
+ s_Caller := ""
+ GuiControl, Focus, InputList%A_List%
+ }
return
CoOper:
-GuiControl, 21:+AltSubmit, IfOper
-Gui, 21:Submit, NoHide
-GuiControl, 21:, CoOper, % IfOper < 10 ? Co_Oper_0%IfOper% : Co_Oper_%IfOper%
-GuiControl, 21:-AltSubmit, IfOper
-Gui, 21:Submit, NoHide
-If (IfList%Statement% = If14)
-{
- If IfOper in =,==,!=,>,<,>=,<=
- {
- GuiControl, 21:Hide, VarTxt
- GuiControl, 21:Show, ExprLink1
- }
- Else
+ GuiControl, 21:+AltSubmit, IfOper
+ Gui, 21:Submit, NoHide
+ GuiControl, 21:, CoOper, % IfOper < 10 ? Co_Oper_0%IfOper% : Co_Oper_%IfOper%
+ GuiControl, 21:-AltSubmit, IfOper
+ Gui, 21:Submit, NoHide
+ If (IfList%Statement% = If14)
{
- GuiControl, 21:Hide, ExprLink1
- GuiControl, 21:Show, VarTxt
+ If IfOper in =,==,!=,>,<,>=,<=
+ {
+ GuiControl, 21:Hide, VarTxt
+ GuiControl, 21:Show, ExprLink1
+ }
+ Else
+ {
+ GuiControl, 21:Hide, ExprLink1
+ GuiControl, 21:Show, VarTxt
+ }
}
-}
return
AsOper:
-GuiControl, 21:+AltSubmit, Oper
-Gui, 21:Submit, NoHide
-GuiControl, 21:, AsOper, % Oper < 10 ? As_Oper_0%Oper% : As_Oper_%Oper%
-GuiControl, 21:-AltSubmit, Oper
+ GuiControl, 21:+AltSubmit, Oper
+ Gui, 21:Submit, NoHide
+ GuiControl, 21:, AsOper, % Oper < 10 ? As_Oper_0%Oper% : As_Oper_%Oper%
+ GuiControl, 21:-AltSubmit, Oper
return
AddElse:
-Gui, 21:Submit, NoHide
-Gui, 1:-Disabled
-Gui, 21:Destroy
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
-If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
-{
- LV_Add("Check", ListCount%A_List%+1, "[Else]", "Else", 1, 0, cType17)
- LV_Modify(ListCount%A_List%+1, "Vis")
-}
-Else
-{
- LV_Insert(LV_GetNext(), "Check",, "[Else]", "Else", 1, 0, cType17)
- LVManager[A_List].InsertAtGroup(LV_GetNext())
-}
-GoSub, RowCheck
-GoSub, b_Start
-GuiControl, Focus, InputList%A_List%
+ Gui, 21:Submit, NoHide
+ Gui, 1:-Disabled
+ Gui, 21:Destroy
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
+ {
+ LV_Add("Check", ListCount%A_List%+1, "[Else]", "Else", 1, 0, cType17)
+ LV_Modify(ListCount%A_List%+1, "Vis")
+ }
+ Else
+ {
+ LV_Insert(LV_GetNext(), "Check",, "[Else]", "Else", 1, 0, cType17)
+ LVManager[A_List].InsertAtGroup(LV_GetNext())
+ }
+ GoSub, RowCheck
+ GoSub, b_Start
+ GuiControl, Focus, InputList%A_List%
return
VarCopy:
-Gui, 21:Submit, NoHide
-If (TabControl = 3)
-{
- If (VarNameF = "")
- return
- Clipboard := %VarNameF%
-}
-Else
-{
- If (VarName = "")
- return
- Clipboard := %VarName%
-}
+ Gui, 21:Submit, NoHide
+ If (TabControl = 3)
+ {
+ If (VarNameF = "")
+ return
+ Clipboard := %VarNameF%
+ }
+ Else
+ {
+ If (VarName = "")
+ return
+ Clipboard := %VarName%
+ }
return
Reset:
-Gui, 21:Submit, NoHide
-If (TabControl = 3)
-{
- If (VarNameF = "")
- return
- %VarNameF% := ""
- SavedVars(VarNameF)
-}
-Else
-{
- If (VarName = "")
- return
- %VarName% := ""
- SavedVars(VarName)
-}
+ Gui, 21:Submit, NoHide
+ If (TabControl = 3)
+ {
+ If (VarNameF = "")
+ return
+ %VarNameF% := ""
+ SavedVars(VarNameF)
+ }
+ Else
+ {
+ If (VarName = "")
+ return
+ %VarName% := ""
+ SavedVars(VarName)
+ }
return
UseEval:
-Gui, 21:Submit, NoHide
-If (UseEval)
-{
- GuiControl, 21:Hide, VarTip
- GuiControl, 21:Show, ArrayTip
- GuiControl, 21:Show, ExprLink2
-}
-Else
-{
- GuiControl, 21:Hide, ArrayTip
- GuiControl, 21:Hide, ExprLink2
- GuiControl, 21:Show, VarTip
-}
+ Gui, 21:Submit, NoHide
+ If (UseEval)
+ {
+ GuiControl, 21:Hide, VarTip
+ GuiControl, 21:Show, ArrayTip
+ GuiControl, 21:Show, ExprLink2
+ }
+ Else
+ {
+ GuiControl, 21:Hide, ArrayTip
+ GuiControl, 21:Hide, ExprLink2
+ GuiControl, 21:Show, VarTip
+ }
return
IfCancel:
21GuiClose:
21GuiEscape:
-Gui, 1:-Disabled
-Gui, 21:Destroy
-s_Caller := ""
+ Gui, 1:-Disabled
+ Gui, 21:Destroy
+ s_Caller := ""
return
FuncName:
-CbAutoComplete()
-Gui, 21:Submit, NoHide
-If FuncName in Delete,HasKey,InsertAt,Length,MaxIndex,MinIndex,RemoveAt,Pop,Push
- IsBuiltIn := 1
-Else
- Try IsBuiltIn := Func(FuncName).IsBuiltIn ? 1 : 0
+ CbAutoComplete()
+ Gui, 21:Submit, NoHide
+ If FuncName in Delete,HasKey,InsertAt,Length,MaxIndex,MinIndex,RemoveAt,Pop,Push
+ IsBuiltIn := 1
+ Else
+ Try IsBuiltIn := Func(FuncName).IsBuiltIn ? 1 : 0
Catch
IsBuiltIn := 0
-GuiControl, 21:Enable%IsBuiltIn%, FuncHelp
-Try GuiControl, 21:, FuncTip, % %FuncName%_Hint
-SBShowTip(FuncName)
+ GuiControl, 21:Enable%IsBuiltIn%, FuncHelp
+ Try GuiControl, 21:, FuncTip, % %FuncName%_Hint
+ SBShowTip(FuncName)
return
IsArray:
-Gui, 21:Submit, NoHide
-If (IsArray)
-{
- GuiControl, 21:, UseExtFunc, 0
- GoSub, UseExtFunc
-}
-GuiControl, 21:Disable%IsArray%, UseExtFunc
-GuiControl, 21:Enable%IsArray%, ArrayName
-GuiControl, 21:, FuncName, % "$" (IsArray ? ArrayMethodsList : Proj_Funcs . BuiltinFuncList)
+ Gui, 21:Submit, NoHide
+ If (IsArray)
+ {
+ GuiControl, 21:, UseExtFunc, 0
+ GoSub, UseExtFunc
+ }
+ GuiControl, 21:Disable%IsArray%, UseExtFunc
+ GuiControl, 21:Enable%IsArray%, ArrayName
+ GuiControl, 21:, FuncName, % "$" (IsArray ? ArrayMethodsList : Proj_Funcs . BuiltinFuncList)
return
UseExtFunc:
-Gui, 21:Submit, NoHide
-Gui, 21:+OwnDialogs
-If (!A_AhkPath)
-{
- GuiControl, 21:, UseExtFunc, 0
- MsgBox, 17, %d_Lang007%, %d_Lang056%
- IfMsgBox, OK
- Run, https://www.autohotkey.com/
- return
-}
-GuiControl, 21:Enable%UseExtFunc%, FileNameEx
-GuiControl, 21:Enable%UseExtFunc%, SearchFEX
-GuiControl, 21:Disable, FuncHelp
-GuiControl, 21:, FuncName, $
-If (UseExtFunc = 1)
- ExtList := ReadFunctions(FileNameEx, t_Lang086)
-GuiControl, 21:, FuncName, % (UseExtFunc) ? "$" ExtList : "$" Proj_Funcs . BuiltinFuncList
-SB_SetText("")
+ Gui, 21:Submit, NoHide
+ Gui, 21:+OwnDialogs
+ If (!A_AhkPath)
+ {
+ GuiControl, 21:, UseExtFunc, 0
+ MsgBox, 17, %d_Lang007%, %d_Lang056%
+ IfMsgBox, OK
+ Run, https://www.autohotkey.com/
+ return
+ }
+ GuiControl, 21:Enable%UseExtFunc%, FileNameEx
+ GuiControl, 21:Enable%UseExtFunc%, SearchFEX
+ GuiControl, 21:Disable, FuncHelp
+ GuiControl, 21:, FuncName, $
+ If (UseExtFunc = 1)
+ ExtList := ReadFunctions(FileNameEx, t_Lang086)
+ GuiControl, 21:, FuncName, % (UseExtFunc) ? "$" ExtList : "$" Proj_Funcs . BuiltinFuncList
+ SB_SetText("")
return
SearchAHK:
-Gui, +OwnDialogs
-Gui, Submit, NoHide
-FileSelectFile, File, 1,, %AppName%, AutoHotkey Scripts (*.ahk)
-FreeMemory()
-If (File = "")
- return
-If (A_GuiControl = "StdLib")
- GuiControl, 4:, StdLibFile, %File%
-Else
-{
- GuiControl, 21:, FileNameEx, %File%
- GuiControl, 21:, FuncName, $
- ExtList := ReadFunctions(File, t_Lang086)
- GuiControl, 21:, FuncName, % (UseExtFunc) ? "$" ExtList : "$" BuiltinFuncList
-}
+ Gui, +OwnDialogs
+ Gui, Submit, NoHide
+ FileSelectFile, File, 1,, %AppName%, AutoHotkey Scripts (*.ahk)
+ FreeMemory()
+ If (File = "")
+ return
+ If (A_GuiControl = "StdLib")
+ GuiControl, 4:, StdLibFile, %File%
+ Else
+ {
+ GuiControl, 21:, FileNameEx, %File%
+ GuiControl, 21:, FuncName, $
+ ExtList := ReadFunctions(File, t_Lang086)
+ GuiControl, 21:, FuncName, % (UseExtFunc) ? "$" ExtList : "$" BuiltinFuncList
+ }
return
FuncHelp:
-Gui, Submit, NoHide
-If FuncName in Abs,ACos,Asc,ASin,ATan,Ceil,Chr,Exp,FileExist,Floor,Func
-,GetKeyName,GetKeySC,GetKeyState,GetKeyVK,InStr,IsByRef,IsFunc,IsLabel
-,IsObject,Ln,Log,LTrim,Mod,NumGet,NumPut,Ord,Round,RTrim,Sin,Sqrt,StrGet
-,StrLen,StrPut,SubStr,Tan,Trim,WinActive,WinExist
- Run, %HelpDocsUrl%/Functions.htm#%FuncName%
-Else If (FuncName = "Array")
- Run, %HelpDocsUrl%/misc/Arrays.htm
-Else If (FuncName = "StrSplit")
- Run, %HelpDocsUrl%/commands/StringSplit.htm
-Else If (FuncName = "StrReplace")
- Run, %HelpDocsUrl%/commands/StringReplace.htm
-Else If FuncName in Delete,HasKey,InsertAt,Length,MaxIndex,MinIndex,RemoveAt,Pop,Push
- Run, %HelpDocsUrl%/objects/Object.htm#%FuncName%
-Else
- Run, %HelpDocsUrl%/commands/%FuncName%.htm
+ Gui, Submit, NoHide
+ If FuncName in Abs,ACos,Asc,ASin,ATan,Ceil,Chr,Exp,FileExist,Floor,Func
+ ,GetKeyName,GetKeySC,GetKeyState,GetKeyVK,InStr,IsByRef,IsFunc,IsLabel
+ ,IsObject,Ln,Log,LTrim,Mod,NumGet,NumPut,Ord,Round,RTrim,Sin,Sqrt,StrGet
+ ,StrLen,StrPut,SubStr,Tan,Trim,WinActive,WinExist
+ Run, %HelpDocsUrl%/Functions.htm#%FuncName%
+ Else If (FuncName = "Array")
+ Run, %HelpDocsUrl%/misc/Arrays.htm
+ Else If (FuncName = "StrSplit")
+ Run, %HelpDocsUrl%/commands/StringSplit.htm
+ Else If (FuncName = "StrReplace")
+ Run, %HelpDocsUrl%/commands/StringReplace.htm
+ Else If FuncName in Delete,HasKey,InsertAt,Length,MaxIndex,MinIndex,RemoveAt,Pop,Push
+ Run, %HelpDocsUrl%/objects/Object.htm#%FuncName%
+ Else
+ Run, %HelpDocsUrl%/commands/%FuncName%.htm
return
Statement:
-Gui, 21:Submit, NoHide
-SBShowTip(Trim(c_If%Statement%, "=0, "))
-Statement := IfList%Statement%
-If (InStr(Statement, "Window"))
- GuiControl, 21:Enable, Ident
-If (!InStr(Statement, "Window"))
- GuiControl, 21:Disable, Ident
-If (!InStr(Statement, "Window") && !InStr(Statement, "File"))
- GuiControl, 21:Disable, IfGet
-Else
- GuiControl, 21:Enable, IfGet
-If (InStr(Statement, "Image"))
- GuiControl, 21:Disable, TestVar
-Else
- GuiControl, 21:Enable, TestVar
-If (InStr(Statement, "String"))
-{
- GuiControl, 21:, FormatTip, %c_Lang081%
- GuiControl, 21:, FormatTip2, %c_Lang056%
- GuiControl, 21:Enable, TestVar2
-}
-Else If (InStr(Statement, "Compare"))
-{
- GuiControl, 21:, FormatTip, %c_Lang082%
- GuiControl, 21:, FormatTip2, %c_Lang056%
- GuiControl, 21:Enable, TestVar2
- GuiControl, 21:Enable, IfOper
-}
-Else If (InStr(Statement, "Window"))
-{
- GuiControl, 21:, FormatTip, %Wcmd_All%
- GuiControl, 21:, FormatTip2
-}
-Else
-{
- GuiControl, 21:, FormatTip
- GuiControl, 21:, FormatTip2
- GuiControl, 21:Disable, TestVar2
- GuiControl, 21:Disable, IfOper
-}
-If (Statement = If13)
-{
- GuiControl, 21:Enable, IfMsgB
- GuiControl, 21:Disable, TestVar
-}
-Else
-{
- GuiControl, 21:Disable, IfMsgB
-}
-If (Statement = If15)
-{
- GuiControl, 21:Hide, CoOper
- GuiControl, 21:Hide, IfOper
- GuiControl, 21:Hide, TestVar2
- GuiControl, 21:Hide, VarTxt
- GuiControl, 21:Show, ExpTxt
- GuiControl, 21:Show, ExprLink1
-}
-Else If (Statement = If14)
-{
- If IfOper in =,==,!=,>,<,>=,<=
+ Gui, 21:Submit, NoHide
+ SBShowTip(Trim(c_If%Statement%, "=0, "))
+ Statement := IfList%Statement%
+ If (InStr(Statement, "Window"))
+ GuiControl, 21:Enable, Ident
+ If (!InStr(Statement, "Window"))
+ GuiControl, 21:Disable, Ident
+ If (!InStr(Statement, "Window") && !InStr(Statement, "File"))
+ GuiControl, 21:Disable, IfGet
+ Else
+ GuiControl, 21:Enable, IfGet
+ If (InStr(Statement, "Image"))
+ GuiControl, 21:Disable, TestVar
+ Else
+ GuiControl, 21:Enable, TestVar
+ If (InStr(Statement, "String"))
+ {
+ GuiControl, 21:, FormatTip, %c_Lang081%
+ GuiControl, 21:, FormatTip2, %c_Lang056%
+ GuiControl, 21:Enable, TestVar2
+ }
+ Else If (InStr(Statement, "Compare"))
+ {
+ GuiControl, 21:, FormatTip, %c_Lang082%
+ GuiControl, 21:, FormatTip2, %c_Lang056%
+ GuiControl, 21:Enable, TestVar2
+ GuiControl, 21:Enable, IfOper
+ }
+ Else If (InStr(Statement, "Window"))
+ {
+ GuiControl, 21:, FormatTip, %Wcmd_All%
+ GuiControl, 21:, FormatTip2
+ }
+ Else
+ {
+ GuiControl, 21:, FormatTip
+ GuiControl, 21:, FormatTip2
+ GuiControl, 21:Disable, TestVar2
+ GuiControl, 21:Disable, IfOper
+ }
+ If (Statement = If13)
+ {
+ GuiControl, 21:Enable, IfMsgB
+ GuiControl, 21:Disable, TestVar
+ }
+ Else
+ {
+ GuiControl, 21:Disable, IfMsgB
+ }
+ If (Statement = If15)
{
+ GuiControl, 21:Hide, CoOper
+ GuiControl, 21:Hide, IfOper
+ GuiControl, 21:Hide, TestVar2
GuiControl, 21:Hide, VarTxt
+ GuiControl, 21:Show, ExpTxt
GuiControl, 21:Show, ExprLink1
}
+ Else If (Statement = If14)
+ {
+ If IfOper in =,==,!=,>,<,>=,<=
+ {
+ GuiControl, 21:Hide, VarTxt
+ GuiControl, 21:Show, ExprLink1
+ }
+ Else
+ {
+ GuiControl, 21:Hide, ExprLink1
+ GuiControl, 21:Show, VarTxt
+ }
+ GuiControl, 21:Hide, ExpTxt
+ GuiControl, 21:Show, CoOper
+ GuiControl, 21:Show, IfOper
+ GuiControl, 21:Show, TestVar2
+ }
Else
{
+ GuiControl, 21:Hide, ExpTxt
GuiControl, 21:Hide, ExprLink1
+ GuiControl, 21:Show, CoOper
+ GuiControl, 21:Show, IfOper
GuiControl, 21:Show, VarTxt
+ GuiControl, 21:Show, TestVar2
}
- GuiControl, 21:Hide, ExpTxt
- GuiControl, 21:Show, CoOper
- GuiControl, 21:Show, IfOper
- GuiControl, 21:Show, TestVar2
-}
-Else
-{
- GuiControl, 21:Hide, ExpTxt
- GuiControl, 21:Hide, ExprLink1
- GuiControl, 21:Show, CoOper
- GuiControl, 21:Show, IfOper
- GuiControl, 21:Show, VarTxt
- GuiControl, 21:Show, TestVar2
-}
return
IfGet:
-Gui, 21:Submit, NoHide
-Statement := IfList%Statement%
-If (InStr(Statement, "Window"))
-{
- Label := "IfGet"
- GoSub, GetWin
- Label := ""
- GuiControl, 21:, TestVar, %FoundTitle%
- return
-}
-If (InStr(Statement, "File"))
-{
- GoSub, Search
- GuiControl, 21:, TestVar, %File%
- return
-}
+ Gui, 21:Submit, NoHide
+ Statement := IfList%Statement%
+ If (InStr(Statement, "Window"))
+ {
+ Label := "IfGet"
+ GoSub, GetWin
+ Label := ""
+ GuiControl, 21:, TestVar, %FoundTitle%
+ return
+ }
+ If (InStr(Statement, "File"))
+ {
+ GoSub, Search
+ GuiControl, 21:, TestVar, %File%
+ return
+ }
return
EditMsg:
-s_Caller := "Edit"
+ s_Caller := "Edit"
SendMsg:
-Gui, 22:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
-Gui, 1:+Disabled
-Gui, 22:Add, Groupbox, Section W450 H190
-Gui, 22:Add, DDL, ys+15 xs+10 W150 vMsgType gMsgType, PostMessage||SendMessage
-Gui, 22:Add, DDL, yp x+10 W270 vWinMsg gWinMsg, %WM_Msgs%
-Gui, 22:Add, Text, -Wrap R1 xs+10 y+10 W120 vMsgNumT, %c_Lang102%:
-Gui, 22:Add, Edit, W430 -Multi vMsgNum
-Gui, 22:Add, Text, -Wrap R1 W430, wParam:
-Gui, 22:Add, Edit, W430 -Multi vwParam
-Gui, 22:Add, Text, -Wrap R1 W430, lParam:
-Gui, 22:Add, Edit, W430 -Multi vlParam
-Gui, 22:Add, Groupbox, Section xs y+15 W450 H130
-Gui, 22:Add, Text, -Wrap R1 ys+15 xs+10, %c_Lang004%:
-Gui, 22:Add, Edit, vDefCt W400
-Gui, 22:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetCtrl gGetCtrl, ...
-Gui, 22:Add, Text, -Wrap y+10 xs+10 W350 H20 vWinParsTip cGray, %Wcmd_All%
-Gui, 22:Add, Button, yp-5 x+5 W75 vIdent gWinTitle, WinTitle
-Gui, 22:Add, Edit, y+5 xs+10 W400 vTitle, A
-Gui, 22:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetWin gGetWin, ...
-Gui, 22:Add, Button, -Wrap Section Default xm W75 H23 gSendMsgOK, %c_Lang020%
-Gui, 22:Add, Button, -Wrap ys W75 H23 gSendMsgCancel, %c_Lang021%
-Gui, 22:Add, Button, -Wrap ys W75 H23 vSendMsgApply gSendMsgApply Disabled, %c_Lang131%
-Gui, 22:Add, Text, x+10 yp-3 W190 H25 cGray, %c_Lang025%
-Gui, 22:Add, StatusBar, gStatusBarHelp
-Gui, 22:Default
-SB_SetIcon(ResDllPath, IconsNames["help"])
-If (s_Caller = "Edit")
-{
- EscCom(true, Details, Target)
- Loop, Parse, Details, `,,%A_Space%
- {
- StringReplace, LoopField, A_LoopField, %_x%, `,, All
- Par%A_Index% := LoopField
- }
- GuiControl, 22:ChooseString, MsgType, %Type%
- GuiControl, 22:, MsgNum, %Par1%
- GuiControl, 22:, wParam, %Par2%
- GuiControl, 22:, lParam, %Par3%
- GuiControl, 22:, DefCt, %Target%
- GuiControl, 22:, Title, %Window%
- GuiControl, 22:Enable, SendMsgApply
-}
-If (s_Caller = "Find")
- GuiControl, 22:ChooseString, MsgType, %GotoRes1%
-GoSub, MsgType
-Gui, 22:Show, , % cType19 " / " cType18
-ChangeIcon(hIL_Icons, CmdWin, IconsNames["sendmsg"])
-Tooltip
-return
-
-SendMsgApply:
-SendMsgOK:
-Gui, 22:+OwnDialogs
-Gui, 22:Submit, NoHide
-If (MsgNum = "")
-{
- Gui, 22:Font, cRed
- GuiControl, 22:Font, MsgNumT
- GuiControl, 22:Focus, MsgNum
- return
-}
-EscCom(false, lParam, wParam, DefCt)
-Details := MsgNum ", " wParam ", " lParam
-If (A_ThisLabel != "SendMsgApply")
-{
- Gui, 1:-Disabled
- Gui, 22:Destroy
-}
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
-If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col2", "[Windows Message]", Details, TimesX, DelayX, MsgType, DefCt, Title)
-Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
-{
- LV_Add("Check", ListCount%A_List%+1, "[Windows Message]", Details, 1, DelayG, MsgType, DefCt, Title)
- LV_Modify(ListCount%A_List%+1, "Vis")
-}
-Else
-{
- GuiControl, chMacro:-g, InputList%A_List%
- RowNumber := 0
- Loop, %RowSelection%
+ Gui, 22:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
+ Gui, 1:+Disabled
+ Gui, 22:Add, Groupbox, Section W450 H190
+ Gui, 22:Add, DDL, ys+15 xs+10 W150 vMsgType gMsgType, PostMessage||SendMessage
+ Gui, 22:Add, DDL, yp x+10 W270 vWinMsg gWinMsg, %WM_Msgs%
+ Gui, 22:Add, Text, -Wrap R1 xs+10 y+10 W120 vMsgNumT, %c_Lang102%:
+ Gui, 22:Add, Edit, W430 -Multi vMsgNum
+ Gui, 22:Add, Text, -Wrap R1 W430, wParam:
+ Gui, 22:Add, Edit, W430 -Multi vwParam
+ Gui, 22:Add, Text, -Wrap R1 W430, lParam:
+ Gui, 22:Add, Edit, W430 -Multi vlParam
+ Gui, 22:Add, Groupbox, Section xs y+15 W450 H130
+ Gui, 22:Add, Text, -Wrap R1 ys+15 xs+10, %c_Lang004%:
+ Gui, 22:Add, Edit, vDefCt W400
+ Gui, 22:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetCtrl gGetCtrl, ...
+ Gui, 22:Add, Text, -Wrap y+10 xs+10 W350 H20 vWinParsTip cGray, %Wcmd_All%
+ Gui, 22:Add, Button, yp-5 x+5 W75 vIdent gWinTitle, WinTitle
+ Gui, 22:Add, Edit, y+5 xs+10 W400 vTitle, A
+ Gui, 22:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetWin gGetWin, ...
+ Gui, 22:Add, Button, -Wrap Section Default xm W75 H23 gSendMsgOK, %c_Lang020%
+ Gui, 22:Add, Button, -Wrap ys W75 H23 gSendMsgCancel, %c_Lang021%
+ Gui, 22:Add, Button, -Wrap ys W75 H23 vSendMsgApply gSendMsgApply Disabled, %c_Lang131%
+ Gui, 22:Add, Text, x+10 yp-3 W190 H25 cGray, %c_Lang025%
+ Gui, 22:Add, StatusBar, gStatusBarHelp
+ Gui, 22:Default
+ SB_SetIcon(ResDllPath, IconsNames["help"])
+ If (s_Caller = "Edit")
{
- RowNumber := LV_GetNext(RowNumber)
- LV_Insert(RowNumber, "Check", RowNumber, "[Windows Message]", Details, 1, DelayG, MsgType, DefCt, Title)
- LVManager[A_List].InsertAtGroup(RowNumber)
- RowNumber++
+ EscCom(true, Details, Target)
+ Loop, Parse, Details, `,,%A_Space%
+ {
+ StringReplace, LoopField, A_LoopField, %_x%, `,, All
+ Par%A_Index% := LoopField
+ }
+ GuiControl, 22:ChooseString, MsgType, %Type%
+ GuiControl, 22:, MsgNum, %Par1%
+ GuiControl, 22:, wParam, %Par2%
+ GuiControl, 22:, lParam, %Par3%
+ GuiControl, 22:, DefCt, %Target%
+ GuiControl, 22:, Title, %Window%
+ GuiControl, 22:Enable, SendMsgApply
+ }
+ If (s_Caller = "Find")
+ GuiControl, 22:ChooseString, MsgType, %GotoRes1%
+ GoSub, MsgType
+ Gui, 22:Show, , % cType19 " / " cType18
+ ChangeIcon(hIL_Icons, CmdWin, IconsNames["sendmsg"])
+ Tooltip
+return
+
+SendMsgApply:
+SendMsgOK:
+ Gui, 22:+OwnDialogs
+ Gui, 22:Submit, NoHide
+ If (MsgNum = "")
+ {
+ Gui, 22:Font, cRed
+ GuiControl, 22:Font, MsgNumT
+ GuiControl, 22:Focus, MsgNum
+ return
+ }
+ EscCom(false, lParam, wParam, DefCt)
+ Details := MsgNum ", " wParam ", " lParam
+ If (A_ThisLabel != "SendMsgApply")
+ {
+ Gui, 1:-Disabled
+ Gui, 22:Destroy
+ }
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col2", "[Windows Message]", Details, TimesX, DelayX, MsgType, DefCt, Title)
+ Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
+ {
+ LV_Add("Check", ListCount%A_List%+1, "[Windows Message]", Details, 1, DelayG, MsgType, DefCt, Title)
+ LV_Modify(ListCount%A_List%+1, "Vis")
+ }
+ Else
+ {
+ GuiControl, chMacro:-g, InputList%A_List%
+ RowNumber := 0
+ Loop, %RowSelection%
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ LV_Insert(RowNumber, "Check", RowNumber, "[Windows Message]", Details, 1, DelayG, MsgType, DefCt, Title)
+ LVManager[A_List].InsertAtGroup(RowNumber)
+ RowNumber++
+ }
+ GuiControl, chMacro:+gInputList, InputList%A_List%
+ }
+ GoSub, RowCheck
+ GoSub, b_Start
+ If (A_ThisLabel = "SendMsgApply")
+ Gui, 22:Default
+ Else
+ {
+ s_Caller := ""
+ GuiControl, Focus, InputList%A_List%
}
- GuiControl, chMacro:+gInputList, InputList%A_List%
-}
-GoSub, RowCheck
-GoSub, b_Start
-If (A_ThisLabel = "SendMsgApply")
- Gui, 22:Default
-Else
-{
- s_Caller := ""
- GuiControl, Focus, InputList%A_List%
-}
return
MsgType:
-Gui, 22:Submit, NoHide
-SBShowTip(MsgType)
+ Gui, 22:Submit, NoHide
+ SBShowTip(MsgType)
return
WinMsg:
-Gui, 22:Submit, NoHide
-GuiControl, 22:, MsgNum, % %WinMsg%
+ Gui, 22:Submit, NoHide
+ GuiControl, 22:, MsgNum, % %WinMsg%
return
SendMsgCancel:
22GuiClose:
22GuiEscape:
-Gui, 1:-Disabled
-Gui, 22:Destroy
-s_Caller := ""
+ Gui, 1:-Disabled
+ Gui, 22:Destroy
+ s_Caller := ""
return
EditControl:
-s_Caller := "Edit"
+ s_Caller := "Edit"
ControlCmd:
-Gui, 23:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
-Gui, 1:+Disabled
-Gui, 23:Add, Groupbox, Section W450 H220
-Gui, 23:Add, Text, -Wrap R1 ys+15 xs+10 W120, %c_Lang055%:
-Gui, 23:Add, DDL, W120 vControlCmd gCtlCmd, %CtrlCmdList%
-Gui, 23:Add, Text, -Wrap R1 W120, %c_Lang035%:
-Gui, 23:Add, DDL, W120 -Multi vCmd gCmd, %CtrlCmd%
-Gui, 23:Add, Text, -Wrap R1 W80, %c_Lang056% / %w_Lang003%:
-Gui, 23:Add, Edit, W430 -Multi Disabled vValue
-Gui, 23:Add, Text, -Wrap R1 W180, %c_Lang057%:
-Gui, 23:Add, Edit, W430 -Multi Disabled vVarName
-Gui, 23:Add, Text, -Wrap R1 xs+10 y+5 W430 vCPosT
-Gui, 23:Add, Groupbox, Section xs y+15 W450 H130
-Gui, 23:Add, Text, -Wrap R1 ys+15 xs+10, %c_Lang004%:
-Gui, 23:Add, Edit, vDefCt W400
-Gui, 23:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetCtrl gGetCtrl, ...
-Gui, 23:Add, Text, -Wrap y+10 xs+10 W350 H20 vWinParsTip cGray, %Wcmd_All%
-Gui, 23:Add, Button, yp-5 x+5 W75 vIdent gWinTitle, WinTitle
-Gui, 23:Add, Edit, xs+10 y+5 W400 vTitle, A
-Gui, 23:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetWin gGetWin, ...
-Gui, 23:Add, Text, -Wrap R1 Section ym+20 xm+130 W105 Right, %c_Lang058%
-Gui, 23:Add, Text, -Wrap R1 yp x+5 W15 Right, X:
-Gui, 23:Add, Edit, yp-3 x+5 vPosX W55 Disabled
-Gui, 23:Add, Text, -Wrap R1 yp+3 x+15 W10, Y:
-Gui, 23:Add, Edit, yp-3 x+5 vPosY W55 Disabled
-Gui, 23:Add, Button, -Wrap yp-1 x+5 W30 H23 vGetCtrlP gCtrlGetP Disabled, ...
-Gui, 23:Add, Text, -Wrap R1 xs W105 Right, %c_Lang059%
-Gui, 23:Add, Text, -Wrap R1 yp x+5 W15 Right, W:
-Gui, 23:Add, Edit, yp-3 x+5 vSizeX W55 Disabled
-Gui, 23:Add, Text, -Wrap R1 yp+3 x+10 W15 Right, H:
-Gui, 23:Add, Edit, yp-3 x+5 vSizeY W55 Disabled
-Gui, 23:Add, Button, -Wrap Section Default xm W75 H23 gControlOK, %c_Lang020%
-Gui, 23:Add, Button, -Wrap ys W75 H23 gControlCancel, %c_Lang021%
-Gui, 23:Add, Button, -Wrap ys W75 H23 vControlApply gControlApply Disabled, %c_Lang131%
-Gui, 23:Add, Text, x+10 yp-3 W190 H25 cGray, %c_Lang025%
-Gui, 23:Add, StatusBar, gStatusBarHelp
-Gui, 23:Default
-SB_SetIcon(ResDllPath, IconsNames["help"])
-If (s_Caller = "Edit")
-{
- Details := StrReplace(Details, "``,", _x)
- EscCom(true, Details, Target)
- ControlCmd := Type
- GuiControl, 23:ChooseString, ControlCmd, %ControlCmd%
- Switch Type
+ Gui, 23:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
+ Gui, 1:+Disabled
+ Gui, 23:Add, Groupbox, Section W450 H220
+ Gui, 23:Add, Text, -Wrap R1 ys+15 xs+10 W120, %c_Lang055%:
+ Gui, 23:Add, DDL, W120 vControlCmd gCtlCmd, %CtrlCmdList%
+ Gui, 23:Add, Text, -Wrap R1 W120, %c_Lang035%:
+ Gui, 23:Add, DDL, W120 -Multi vCmd gCmd, %CtrlCmd%
+ Gui, 23:Add, Text, -Wrap R1 W80, %c_Lang056% / %w_Lang003%:
+ Gui, 23:Add, Edit, W430 -Multi Disabled vValue
+ Gui, 23:Add, Text, -Wrap R1 W180, %c_Lang057%:
+ Gui, 23:Add, Edit, W430 -Multi Disabled vVarName
+ Gui, 23:Add, Text, -Wrap R1 xs+10 y+5 W430 vCPosT
+ Gui, 23:Add, Groupbox, Section xs y+15 W450 H130
+ Gui, 23:Add, Text, -Wrap R1 ys+15 xs+10, %c_Lang004%:
+ Gui, 23:Add, Edit, vDefCt W400
+ Gui, 23:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetCtrl gGetCtrl, ...
+ Gui, 23:Add, Text, -Wrap y+10 xs+10 W350 H20 vWinParsTip cGray, %Wcmd_All%
+ Gui, 23:Add, Button, yp-5 x+5 W75 vIdent gWinTitle, WinTitle
+ Gui, 23:Add, Edit, xs+10 y+5 W400 vTitle, A
+ Gui, 23:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetWin gGetWin, ...
+ Gui, 23:Add, Text, -Wrap R1 Section ym+20 xm+130 W105 Right, %c_Lang058%
+ Gui, 23:Add, Text, -Wrap R1 yp x+5 W15 Right, X:
+ Gui, 23:Add, Edit, yp-3 x+5 vPosX W55 Disabled
+ Gui, 23:Add, Text, -Wrap R1 yp+3 x+15 W10, Y:
+ Gui, 23:Add, Edit, yp-3 x+5 vPosY W55 Disabled
+ Gui, 23:Add, Button, -Wrap yp-1 x+5 W30 H23 vGetCtrlP gCtrlGetP Disabled, ...
+ Gui, 23:Add, Text, -Wrap R1 xs W105 Right, %c_Lang059%
+ Gui, 23:Add, Text, -Wrap R1 yp x+5 W15 Right, W:
+ Gui, 23:Add, Edit, yp-3 x+5 vSizeX W55 Disabled
+ Gui, 23:Add, Text, -Wrap R1 yp+3 x+10 W15 Right, H:
+ Gui, 23:Add, Edit, yp-3 x+5 vSizeY W55 Disabled
+ Gui, 23:Add, Button, -Wrap Section Default xm W75 H23 gControlOK, %c_Lang020%
+ Gui, 23:Add, Button, -Wrap ys W75 H23 gControlCancel, %c_Lang021%
+ Gui, 23:Add, Button, -Wrap ys W75 H23 vControlApply gControlApply Disabled, %c_Lang131%
+ Gui, 23:Add, Text, x+10 yp-3 W190 H25 cGray, %c_Lang025%
+ Gui, 23:Add, StatusBar, gStatusBarHelp
+ Gui, 23:Default
+ SB_SetIcon(ResDllPath, IconsNames["help"])
+ If (s_Caller = "Edit")
{
+ Details := StrReplace(Details, "``,", _x)
+ EscCom(true, Details, Target)
+ ControlCmd := Type
+ GuiControl, 23:ChooseString, ControlCmd, %ControlCmd%
+ Switch Type
+ {
Case cType24:
Details := StrReplace(Details, _x, ",")
GuiControl, 23:ChooseString, Cmd, % cmd := RegExReplace(Details, "(^\w*).*", "$1")
@@ -9579,1488 +9574,1534 @@ If (s_Caller = "Edit")
GuiControl, 23:, PosY, %Par2%
GuiControl, 23:, SizeX, %Par3%
GuiControl, 23:, SizeY, %Par4%
+ }
+ GuiControl, 23:, DefCt, %Target%
+ GuiControl, 23:, Title, %Window%
+ If (Type = cType25)
+ GoSub, CtlCmd
+ GuiControl, 23:Enable, ControlApply
}
- GuiControl, 23:, DefCt, %Target%
- GuiControl, 23:, Title, %Window%
- If (Type = cType25)
- GoSub, CtlCmd
- GuiControl, 23:Enable, ControlApply
-}
-Else If (s_Caller = "Find")
-{
- If (InStr(CtrlCmd, GotoRes1))
- {
- GoSub, CtlCmd
- GuiControl, 23:ChooseString, Cmd, %GotoRes1%
- GoSub, Cmd
- }
- Else If (InStr(CtrlGetCmd, GotoRes1))
+ Else If (s_Caller = "Find")
{
- GuiControl, 23:ChooseString, ControlCmd, ControlGet
- GoSub, CtlCmd
- GuiControl, 23:ChooseString, Cmd, %GotoRes1%
- GoSub, Cmd
+ If (InStr(CtrlCmd, GotoRes1))
+ {
+ GoSub, CtlCmd
+ GuiControl, 23:ChooseString, Cmd, %GotoRes1%
+ GoSub, Cmd
+ }
+ Else If (InStr(CtrlGetCmd, GotoRes1))
+ {
+ GuiControl, 23:ChooseString, ControlCmd, ControlGet
+ GoSub, CtlCmd
+ GuiControl, 23:ChooseString, Cmd, %GotoRes1%
+ GoSub, Cmd
+ }
+ Else
+ {
+ GuiControl, 23:ChooseString, ControlCmd, %GotoRes1%
+ GoSub, CtlCmd
+ }
}
Else
- {
- GuiControl, 23:ChooseString, ControlCmd, %GotoRes1%
- GoSub, CtlCmd
- }
-}
-Else
- SBShowTip("Control")
-Gui, 23:Show, , %c_Lang004%
-ChangeIcon(hIL_Icons, CmdWin, IconsNames["control"])
-Tooltip
+ SBShowTip("Control")
+ Gui, 23:Show, , %c_Lang004%
+ ChangeIcon(hIL_Icons, CmdWin, IconsNames["control"])
+ Tooltip
return
ControlApply:
ControlOK:
-Gui, 23:+OwnDialogs
-Gui, 23:Submit, NoHide
-GuiControlGet, VState, 23:Enabled, Value
-If (VState = 0)
- Value := ""
-GuiControlGet, VState, 23:Enabled, VarName
-EscCom(false, Value)
-If (VState = 0)
- VarName := ""
-If (ControlCmd = cType24)
- Details := Cmd ", " Value
-If (ControlCmd = cType25)
- Details := ""
-If (ControlCmd = cType26)
- Details := PosX ", " PosY ", " SizeX ", " SizeY
-If (ControlCmd = cType10)
- Details := Value
-If (ControlCmd = cType27)
- DefCt := ""
-If ((ControlCmd = cType23) || (ControlCmd = cType27)
-|| (ControlCmd = cType28) || (ControlCmd = cType31))
-{
- If (VarName = "")
+ Gui, 23:+OwnDialogs
+ Gui, 23:Submit, NoHide
+ GuiControlGet, VState, 23:Enabled, Value
+ If (VState = 0)
+ Value := ""
+ GuiControlGet, VState, 23:Enabled, VarName
+ EscCom(false, Value)
+ If (VState = 0)
+ VarName := ""
+ If (ControlCmd = cType24)
+ Details := Cmd ", " Value
+ If (ControlCmd = cType25)
+ Details := ""
+ If (ControlCmd = cType26)
+ Details := PosX ", " PosY ", " SizeX ", " SizeY
+ If (ControlCmd = cType10)
+ Details := Value
+ If (ControlCmd = cType27)
+ DefCt := ""
+ If ((ControlCmd = cType23) || (ControlCmd = cType27)
+ || (ControlCmd = cType28) || (ControlCmd = cType31))
{
- Tooltip, %c_Lang127%, 25, 185
- return
- }
- Try
+ If (VarName = "")
+ {
+ Tooltip, %c_Lang127%, 25, 185
+ return
+ }
+ Try
z_Check := VarSetCapacity(%VarName%)
- Catch
+ Catch
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%VarName%
+ return
+ }
+ If (ControlCmd = cType28)
+ Details := VarName ", " Cmd ", " Value
+ Else
+ Details := VarName
+ }
+ EscCom(false, DefCt)
+ If (A_ThisLabel != "ControlApply")
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%VarName%
- return
+ Gui, 1:-Disabled
+ Gui, 23:Destroy
+ }
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col2", "[Control]", Details, TimesX, DelayX, ControlCmd, DefCt, Title)
+ Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
+ {
+ LV_Add("Check", ListCount%A_List%+1, "[Control]", Details, 1, DelayG, ControlCmd, DefCt, Title)
+ LV_Modify(ListCount%A_List%+1, "Vis")
}
- If (ControlCmd = cType28)
- Details := VarName ", " Cmd ", " Value
Else
- Details := VarName
-}
-EscCom(false, DefCt)
-If (A_ThisLabel != "ControlApply")
-{
- Gui, 1:-Disabled
- Gui, 23:Destroy
-}
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
-If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col2", "[Control]", Details, TimesX, DelayX, ControlCmd, DefCt, Title)
-Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
-{
- LV_Add("Check", ListCount%A_List%+1, "[Control]", Details, 1, DelayG, ControlCmd, DefCt, Title)
- LV_Modify(ListCount%A_List%+1, "Vis")
-}
-Else
-{
- GuiControl, chMacro:-g, InputList%A_List%
- RowNumber := 0
- Loop, %RowSelection%
{
- RowNumber := LV_GetNext(RowNumber)
- LV_Insert(RowNumber, "Check", RowNumber, "[Control]", Details, 1, DelayG, ControlCmd, DefCt, Title)
- LVManager[A_List].InsertAtGroup(RowNumber)
- RowNumber++
+ GuiControl, chMacro:-g, InputList%A_List%
+ RowNumber := 0
+ Loop, %RowSelection%
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ LV_Insert(RowNumber, "Check", RowNumber, "[Control]", Details, 1, DelayG, ControlCmd, DefCt, Title)
+ LVManager[A_List].InsertAtGroup(RowNumber)
+ RowNumber++
+ }
+ GuiControl, chMacro:+gInputList, InputList%A_List%
+ }
+ GoSub, RowCheck
+ GoSub, b_Start
+ If (A_ThisLabel = "ControlApply")
+ Gui, 23:Default
+ Else
+ {
+ s_Caller := ""
+ GuiControl, Focus, InputList%A_List%
}
- GuiControl, chMacro:+gInputList, InputList%A_List%
-}
-GoSub, RowCheck
-GoSub, b_Start
-If (A_ThisLabel = "ControlApply")
- Gui, 23:Default
-Else
-{
- s_Caller := ""
- GuiControl, Focus, InputList%A_List%
-}
return
ControlCancel:
23GuiClose:
23GuiEscape:
-Gui, 1:-Disabled
-Gui, 23:Destroy
-s_Caller := ""
+ Gui, 1:-Disabled
+ Gui, 23:Destroy
+ s_Caller := ""
return
CtlCmd:
-Gui, 23:Submit, NoHide
-SBShowTip(ControlCmd)
-If ((ControlCmd != cType24) && (ControlCmd != cType28))
- GuiControl, 23:Disable, Cmd
-Else
- GuiControl, 23:Enable, Cmd
-If ((ControlCmd = cType24) || (ControlCmd = cType10))
- GuiControl, 23:Enable, Value
-Else
- GuiControl, 23:Disable, Value
-If (ControlCmd = cType24)
- GuiControl, 23:, Cmd, |%CtrlCmd%
-Else If (ControlCmd = cType28)
- GuiControl, 23:, Cmd, |%CtrlGetCmd%
-If ((ControlCmd = cType23) || (ControlCmd = cType27)
-|| (ControlCmd = cType28) || (ControlCmd = cType31))
- GuiControl, 23:Enable, VarName
-Else
- GuiControl, 23:Disable, VarName
-If (ControlCmd = cType26)
-{
- GuiControl, 23:Enable, PosX
- GuiControl, 23:Enable, PosY
- GuiControl, 23:Enable, GetCtrlP
- GuiControl, 23:Enable, SizeX
- GuiControl, 23:Enable, SizeY
-}
-Else
-{
- GuiControl, 23:Disable, PosX
- GuiControl, 23:Disable, PosY
- GuiControl, 23:Disable, GetCtrlP
- GuiControl, 23:Disable, SizeX
- GuiControl, 23:Disable, SizeY
-}
-If (ControlCmd = cType31)
- GuiControl, 23:, CPosT, * %c_Lang060%
-Else
- GuiControl, 23:, CPosT
-GoSub, Cmd
-return
-
-Cmd:
-Gui, 23:Submit, NoHide
-If (ControlCmd = cType24)
-{
- If Cmd in Style,ExStyle,TabLeft,TabRight,Add,Delete,Choose,ChooseString,EditPaste
- GuiControl, 23:Enable, Value
+ Gui, 23:Submit, NoHide
+ SBShowTip(ControlCmd)
+ If ((ControlCmd != cType24) && (ControlCmd != cType28))
+ GuiControl, 23:Disable, Cmd
Else
- GuiControl, 23:Disable, Value
-}
-Else If (ControlCmd = cType28)
-{
- If Cmd in List,FindString,Line
+ GuiControl, 23:Enable, Cmd
+ If ((ControlCmd = cType24) || (ControlCmd = cType10))
GuiControl, 23:Enable, Value
Else
GuiControl, 23:Disable, Value
-}
+ If (ControlCmd = cType24)
+ GuiControl, 23:, Cmd, |%CtrlCmd%
+ Else If (ControlCmd = cType28)
+ GuiControl, 23:, Cmd, |%CtrlGetCmd%
+ If ((ControlCmd = cType23) || (ControlCmd = cType27)
+ || (ControlCmd = cType28) || (ControlCmd = cType31))
+ GuiControl, 23:Enable, VarName
+ Else
+ GuiControl, 23:Disable, VarName
+ If (ControlCmd = cType26)
+ {
+ GuiControl, 23:Enable, PosX
+ GuiControl, 23:Enable, PosY
+ GuiControl, 23:Enable, GetCtrlP
+ GuiControl, 23:Enable, SizeX
+ GuiControl, 23:Enable, SizeY
+ }
+ Else
+ {
+ GuiControl, 23:Disable, PosX
+ GuiControl, 23:Disable, PosY
+ GuiControl, 23:Disable, GetCtrlP
+ GuiControl, 23:Disable, SizeX
+ GuiControl, 23:Disable, SizeY
+ }
+ If (ControlCmd = cType31)
+ GuiControl, 23:, CPosT, * %c_Lang060%
+ Else
+ GuiControl, 23:, CPosT
+ GoSub, Cmd
+return
+
+Cmd:
+ Gui, 23:Submit, NoHide
+ If (ControlCmd = cType24)
+ {
+ If Cmd in Style,ExStyle,TabLeft,TabRight,Add,Delete,Choose,ChooseString,EditPaste
+ GuiControl, 23:Enable, Value
+ Else
+ GuiControl, 23:Disable, Value
+ }
+ Else If (ControlCmd = cType28)
+ {
+ If Cmd in List,FindString,Line
+ GuiControl, 23:Enable, Value
+ Else
+ GuiControl, 23:Disable, Value
+ }
return
EditEmail:
-s_Caller := "Edit"
+ s_Caller := "Edit"
Email:
-User_Accounts := UserMailAccounts.Get(true), MailList := ""
-For _each, _Section in User_Accounts
- MailList .= _Section.email "|"
-Gui, 1:Submit, NoHide
-Gui, 39:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
-Gui, 1:+Disabled
-Gui, 39:Add, Custom, ClassToolbarWindow32 hwndhTbText gTbText H25 0x0800 0x0100 0x0040 0x0008 0x0004
-Gui, 39:Add, Edit, Section xm ym+25 vTextEdit gTextEdit W525 R16
-Gui, 39:Add, Checkbox, -Wrap R1 xm y+5 W100 vIsHtml, %c_Lang234%
-; From/To
-Gui, 39:Add, GroupBox, Section W525 H160
-Gui, 39:Add, Text, -Wrap R1 xs+10 ys+20 W80 Right vToT, %c_Lang230%:
-Gui, 39:Add, Edit, x+5 yp W410 R1 vTo
-Gui, 39:Add, Text, -Wrap R1 xs+10 y+5 W80 Right, %c_Lang231%:
-Gui, 39:Add, Edit, x+5 yp W410 R1 vCc
-Gui, 39:Add, Text, -Wrap R1 xs+10 y+5 W80 Right, %c_Lang232%:
-Gui, 39:Add, Edit, x+5 yp W410 R1 vBcc
-Gui, 39:Add, Text, -Wrap R1 xs+10 y+5 W80 Right vFromT, %c_Lang226%:
-Gui, 39:Add, DDL, x+5 yp W200 vFrom, %MailList%
-GuiControl, 39:Choose, From, 1
-Gui, 39:Add, Link, -Wrap yp+5 x+10 W200 R1 vAccounts gAccounts, %t_Lang191%
-Gui, 39:Add, Text, -Wrap R1 xs+10 y+10 W80 Right, %c_Lang228%:
-Gui, 39:Add, Edit, x+5 yp W410 R1 vSubject
-; Attachments
-Gui, 39:Add, GroupBox, Section xm y+20 W325 H120, %c_Lang245% (%c_Lang233%)
-Gui, 39:Add, ListView, xs+10 ys+20 W275 R5 vAttachments -ReadOnly -Hdr Grid LV0x4000, FilePath
-Gui, 39:Add, Button, -Wrap x+5 ys+20 W25 H23 vAddAtt gAddAtt, ...
-Gui, 39:Add, Button, -Wrap xp y+10 W25 H23 gAddLine, +
-Gui, 39:Add, Button, -Wrap xp y+10 W25 H23 gDelAtt, -
-; Repeat
-Gui, 39:Add, GroupBox, Section ys x+20 W190 H120, %w_Lang003%:
-Gui, 39:Add, Text, -Wrap R1 ys+20 xs+10 W80 Right, %w_Lang015%:
-Gui, 39:Add, Edit, yp x+10 W80 R1 vEdRept
-Gui, 39:Add, UpDown, vTimesX 0x80 Range1-999999999, 1
-Gui, 39:Add, Text, -Wrap R1 y+5 xs+10 W80 Right, %c_Lang017%:
-Gui, 39:Add, Edit, yp x+10 W80 vDelayC
-Gui, 39:Add, UpDown, vDelayX 0x80 Range0-999999999, %DelayG%
-Gui, 39:Add, Radio, -Wrap Checked W80 vMsc R1, %c_Lang018%
-Gui, 39:Add, Radio, -Wrap W80 vSec R1, %c_Lang019%
-Gui, 39:Add, Button, -Wrap Section Default xm W75 H23 gEmailOK, %c_Lang020%
-Gui, 39:Add, Button, -Wrap ys W75 H23 gEmailCancel, %c_Lang021%
-Gui, 39:Add, Button, -Wrap ys W75 H23 vEmailApply gEmailApply Disabled, %c_Lang131%
-Gui, 39:Add, Text, x+10 yp-3 W190 H25 cGray, %c_Lang025%
-Gui, 39:Add, StatusBar, gStatusBarHelp
-Gui, 39:Default
-SB_SetParts(420, 70)
-SB_SetText("length: " 0, 2)
-SB_SetText("lines: " 0, 3)
-SB_SetIcon(ResDllPath, IconsNames["help"])
-If (s_Caller = "Edit")
-{
- Subject := SubStr(Details, 1, RegExMatch(Details, "=\d:") - 1)
- Details := SubStr(Details, RegExMatch(Details, "=\d:") + 1)
- StringReplace, Details, Details, ``n, `n, All
- StringSplit, Tar, Target, /
- GuiControl, 39:, IsHtml, % SubStr(Details, 1, 1)
- GuiControl, 39:, TextEdit, % SubStr(Details, 3)
- GuiControl, 39:, To, % SubStr(Tar1, 4)
- GuiControl, 39:, Cc, % SubStr(Tar2, 4)
- GuiControl, 39:, Bcc, % SubStr(Tar3, 5)
- GuiControl, 39:ChooseString, From, %Action%
- GuiControl, 39:, Subject, %Subject%
- GuiControl, 39:, TimesX, %TimesX%
- GuiControl, 39:, EdRept, %TimesX%
- GuiControl, 39:, DelayX, %DelayX%
- GuiControl, 39:, DelayC, %DelayX%
- Loop, Parse, Window, `;,
- If (A_LoopField != "")
- LV_Add("", A_LoopField)
-}
-SBShowTip("CDO")
-Gui, 39:Font, s%MacroFontSize%
-GuiControl, 39:Font, TextEdit
-Gui, 39:Show,, %c_Lang235%
-ChangeIcon(hIL_Icons, CmdWin, IconsNames["email"])
-TB_Define(TbText, hTbText, hIL_Icons, FixedBar.Text, FixedBar.TextOpt)
-TBHwndAll[9] := TbText
-GuiControl, 39:Focus, TextEdit
-Input
-Tooltip
+ User_Accounts := UserMailAccounts.Get(true), MailList := ""
+ For _each, _Section in User_Accounts
+ MailList .= _Section.email "|"
+ Gui, 1:Submit, NoHide
+ Gui, 39:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
+ Gui, 1:+Disabled
+ Gui, 39:Add, Custom, ClassToolbarWindow32 hwndhTbText gTbText H25 0x0800 0x0100 0x0040 0x0008 0x0004
+ Gui, 39:Add, Edit, Section xm ym+25 vTextEdit gTextEdit W525 R16
+ Gui, 39:Add, Checkbox, -Wrap R1 xm y+5 W100 vIsHtml, %c_Lang234%
+ ; From/To
+ Gui, 39:Add, GroupBox, Section W525 H160
+ Gui, 39:Add, Text, -Wrap R1 xs+10 ys+20 W80 Right vToT, %c_Lang230%:
+ Gui, 39:Add, Edit, x+5 yp W410 R1 vTo
+ Gui, 39:Add, Text, -Wrap R1 xs+10 y+5 W80 Right, %c_Lang231%:
+ Gui, 39:Add, Edit, x+5 yp W410 R1 vCc
+ Gui, 39:Add, Text, -Wrap R1 xs+10 y+5 W80 Right, %c_Lang232%:
+ Gui, 39:Add, Edit, x+5 yp W410 R1 vBcc
+ Gui, 39:Add, Text, -Wrap R1 xs+10 y+5 W80 Right vFromT, %c_Lang226%:
+ Gui, 39:Add, DDL, x+5 yp W200 vFrom, %MailList%
+ GuiControl, 39:Choose, From, 1
+ Gui, 39:Add, Link, -Wrap yp+5 x+10 W200 R1 vAccounts gAccounts, %t_Lang191%
+ Gui, 39:Add, Text, -Wrap R1 xs+10 y+10 W80 Right, %c_Lang228%:
+ Gui, 39:Add, Edit, x+5 yp W410 R1 vSubject
+ ; Attachments
+ Gui, 39:Add, GroupBox, Section xm y+20 W325 H120, %c_Lang245% (%c_Lang233%)
+ Gui, 39:Add, ListView, xs+10 ys+20 W275 R5 vAttachments -ReadOnly -Hdr Grid LV0x4000, FilePath
+ Gui, 39:Add, Button, -Wrap x+5 ys+20 W25 H23 vAddAtt gAddAtt, ...
+ Gui, 39:Add, Button, -Wrap xp y+10 W25 H23 gAddLine, +
+ Gui, 39:Add, Button, -Wrap xp y+10 W25 H23 gDelAtt, -
+ ; Repeat
+ Gui, 39:Add, GroupBox, Section ys x+20 W190 H120, %w_Lang003%:
+ Gui, 39:Add, Text, -Wrap R1 ys+20 xs+10 W80 Right, %w_Lang015%:
+ Gui, 39:Add, Edit, yp x+10 W80 R1 vEdRept
+ Gui, 39:Add, UpDown, vTimesX 0x80 Range1-999999999, 1
+ Gui, 39:Add, Text, -Wrap R1 y+5 xs+10 W80 Right, %c_Lang017%:
+ Gui, 39:Add, Edit, yp x+10 W80 vDelayC
+ Gui, 39:Add, UpDown, vDelayX 0x80 Range0-999999999, %DelayG%
+ Gui, 39:Add, Radio, -Wrap Checked W80 vMsc R1, %c_Lang018%
+ Gui, 39:Add, Radio, -Wrap W80 vSec R1, %c_Lang019%
+ Gui, 39:Add, Button, -Wrap Section Default xm W75 H23 gEmailOK, %c_Lang020%
+ Gui, 39:Add, Button, -Wrap ys W75 H23 gEmailCancel, %c_Lang021%
+ Gui, 39:Add, Button, -Wrap ys W75 H23 vEmailApply gEmailApply Disabled, %c_Lang131%
+ Gui, 39:Add, Text, x+10 yp-3 W190 H25 cGray, %c_Lang025%
+ Gui, 39:Add, StatusBar, gStatusBarHelp
+ Gui, 39:Default
+ SB_SetParts(420, 70)
+ SB_SetText("length: " 0, 2)
+ SB_SetText("lines: " 0, 3)
+ SB_SetIcon(ResDllPath, IconsNames["help"])
+ If (s_Caller = "Edit")
+ {
+ Subject := SubStr(Details, 1, RegExMatch(Details, "=\d:") - 1)
+ Details := SubStr(Details, RegExMatch(Details, "=\d:") + 1)
+ StringReplace, Details, Details, ``n, `n, All
+ StringSplit, Tar, Target, /
+ GuiControl, 39:, IsHtml, % SubStr(Details, 1, 1)
+ GuiControl, 39:, TextEdit, % SubStr(Details, 3)
+ GuiControl, 39:, To, % SubStr(Tar1, 4)
+ GuiControl, 39:, Cc, % SubStr(Tar2, 4)
+ GuiControl, 39:, Bcc, % SubStr(Tar3, 5)
+ GuiControl, 39:ChooseString, From, %Action%
+ GuiControl, 39:, Subject, %Subject%
+ GuiControl, 39:, TimesX, %TimesX%
+ GuiControl, 39:, EdRept, %TimesX%
+ GuiControl, 39:, DelayX, %DelayX%
+ GuiControl, 39:, DelayC, %DelayX%
+ Loop, Parse, Window, `;,
+ If (A_LoopField != "")
+ LV_Add("", A_LoopField)
+ }
+ SBShowTip("CDO")
+ Gui, 39:Font, s%MacroFontSize%
+ GuiControl, 39:Font, TextEdit
+ Gui, 39:Show,, %c_Lang235%
+ ChangeIcon(hIL_Icons, CmdWin, IconsNames["email"])
+ TB_Define(TbText, hTbText, hIL_Icons, FixedBar.Text, FixedBar.TextOpt)
+ TBHwndAll[9] := TbText
+ GuiControl, 39:Focus, TextEdit
+ Input
+ Tooltip
return
EmailApply:
EmailOK:
-Gui, 39:+OwnDialogs
-Gui, 39:Submit, NoHide
-If (To = "")
-{
- Gui, 39:Font, cRed
- GuiControl, 39:Font, ToT
- GuiControl, 39:Focus, To
- return
-}
-If (From = "")
-{
- Gui, 39:Font, cRed
- GuiControl, 39:Font, FromT
- GuiControl, 39:Focus, Accounts
- return
-}
-StringReplace, TextEdit, TextEdit, `n, ``n, All
-Action := From, Details := Subject "=" IsHtml ":" TextEdit, Type := cType52
-Target := "To=" To "/CC=" Cc "/BCC=" Bcc
-DelayX := InStr(DelayC, "%") ? DelayC : DelayX
-TimesX := InStr(EdRept, "%") ? EdRept : TimesX
-Attach := ""
-Loop, % LV_GetCount()
-{
- LV_GetText(RowText, A_Index)
- If (RowText != "")
- Attach .= RowText ";"
-}
-Attach := RTrim(Attach, "; ")
-If (A_ThisLabel != "EmailApply")
-{
- Gui, 1:-Disabled
- Gui, 39:Destroy
-}
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
-If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col2", Action, Details, TimesX, DelayX, Type, Target, Attach)
-Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
-{
- LV_Add("Check", ListCount%A_List%+1, Action, Details, TimesX, DelayX, Type, Target, Attach)
- LV_Modify(ListCount%A_List%+1, "Vis")
-}
-Else
-{
- LV_Insert(LV_GetNext(), "Check",, Action, Details, TimesX, DelayX, Type, Target, Attach)
- LVManager[A_List].InsertAtGroup(LV_GetNext())
-}
-GoSub, RowCheck
-GoSub, b_Start
-If (A_ThisLabel = "EmailApply")
- Gui, 39:Default
-Else
-{
- s_Caller := ""
- GuiControl, Focus, InputList%A_List%
-}
+ Gui, 39:+OwnDialogs
+ Gui, 39:Submit, NoHide
+ If (To = "")
+ {
+ Gui, 39:Font, cRed
+ GuiControl, 39:Font, ToT
+ GuiControl, 39:Focus, To
+ return
+ }
+ If (From = "")
+ {
+ Gui, 39:Font, cRed
+ GuiControl, 39:Font, FromT
+ GuiControl, 39:Focus, Accounts
+ return
+ }
+ StringReplace, TextEdit, TextEdit, `n, ``n, All
+ Action := From, Details := Subject "=" IsHtml ":" TextEdit, Type := cType52
+ Target := "To=" To "/CC=" Cc "/BCC=" Bcc
+ DelayX := InStr(DelayC, "%") ? DelayC : DelayX
+ TimesX := InStr(EdRept, "%") ? EdRept : TimesX
+ Attach := ""
+ Loop, % LV_GetCount()
+ {
+ LV_GetText(RowText, A_Index)
+ If (RowText != "")
+ Attach .= RowText ";"
+ }
+ Attach := RTrim(Attach, "; ")
+ If (A_ThisLabel != "EmailApply")
+ {
+ Gui, 1:-Disabled
+ Gui, 39:Destroy
+ }
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col2", Action, Details, TimesX, DelayX, Type, Target, Attach)
+ Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
+ {
+ LV_Add("Check", ListCount%A_List%+1, Action, Details, TimesX, DelayX, Type, Target, Attach)
+ LV_Modify(ListCount%A_List%+1, "Vis")
+ }
+ Else
+ {
+ LV_Insert(LV_GetNext(), "Check",, Action, Details, TimesX, DelayX, Type, Target, Attach)
+ LVManager[A_List].InsertAtGroup(LV_GetNext())
+ }
+ GoSub, RowCheck
+ GoSub, b_Start
+ If (A_ThisLabel = "EmailApply")
+ Gui, 39:Default
+ Else
+ {
+ s_Caller := ""
+ GuiControl, Focus, InputList%A_List%
+ }
return
39GuiEscape:
39GuiClose:
EmailCancel:
-Gui, 1:-Disabled
-Gui, 39:Destroy
-s_Caller := ""
+ Gui, 1:-Disabled
+ Gui, 39:Destroy
+ s_Caller := ""
return
AddAtt:
-Gui, +OwnDialogs
-FileSelectFile, AttFile, M3,, %AppName%
-FreeMemory()
+ Gui, +OwnDialogs
+ FileSelectFile, AttFile, M3,, %AppName%
+ FreeMemory()
AddAttOn:
-If (!AttFile)
- return
-Loop, Parse, AttFile, `n, Ë‹r
-{
- If (A_Index = 1)
- FilePath := RTrim(A_LoopField, "\") "\"
- Else
+ If (!AttFile)
+ return
+ Loop, Parse, AttFile, `n, Ë‹r
{
- File := FilePath . A_LoopField
- Loop, % LV_GetCount()
+ If (A_Index = 1)
+ FilePath := RTrim(A_LoopField, "\") "\"
+ Else
{
- LV_GetText(RowText, A_Index)
- If (File = RowText)
- continue 2
+ File := FilePath . A_LoopField
+ Loop, % LV_GetCount()
+ {
+ LV_GetText(RowText, A_Index)
+ If (File = RowText)
+ continue 2
+ }
+ LV_Add("", File)
}
- LV_Add("", File)
}
-}
return
AddLine:
-LV_Add()
-LV_Modify(0, "-Select")
-LV_Modify(LV_GetCount(), "Select Vis")
+ LV_Add()
+ LV_Modify(0, "-Select")
+ LV_Modify(LV_GetCount(), "Select Vis")
return
DelAtt:
-LV_Rows.Delete()
+ LV_Rows.Delete()
return
Accounts:
-; Email accounts
-Gui, 9:+owner39 +ToolWindow
-Gui, 39:+Disabled
-Gui, 9:Add, GroupBox, Section ym xm W400 H395, %t_Lang191%:
-Gui, 9:Add, Text, -Wrap R1 ys+20 xs+10 W80 vAccEmailT, %c_Lang227%*:
-Gui, 9:Add, Edit, yp x+5 W295 vAccEmail
-Gui, 9:Add, Text, -Wrap R1 y+5 xs+10 W80, %t_Lang194%*:
-Gui, 9:Add, Edit, yp x+5 W150 vAccServer
-Gui, 9:Add, Text, -Wrap R1 yp x+10 W80, %t_Lang195%*:
-Gui, 9:Add, Edit, yp x+5 W50 vAccPort, 25
-Gui, 9:Add, Text, -Wrap R1 y+5 xs+10 W80, %t_Lang197%:
-Gui, 9:Add, Edit, yp x+5 W110 vAccUser
-Gui, 9:Add, Text, -Wrap R1 yp x+10 W80, %t_Lang198%:
-Gui, 9:Add, Edit, yp x+5 W90 vAccPass
-Gui, 9:Add, Checkbox, -Wrap R1 Checked y+5 xs+10 W110 vAccAuth, %t_Lang196%
-Gui, 9:Add, Checkbox, -Wrap R1 yp x+10 W50 vAccSsl, %t_Lang199%
-Gui, 9:Add, Text, -Wrap yp x+10 W145, %c_Lang177% (%c_Lang019%):
-Gui, 9:Add, Edit, Limit Number yp x+5 W50 R1
-Gui, 9:Add, UpDown, yp x+0 vAccTimeout 0x80 Range0-999, 30
-Gui, 9:Add, Button, -Wrap y+15 xs+10 W75 H23 gAccAdd, %c_Lang123%
-Gui, 9:Add, Button, -Wrap yp x+10 W75 H23 gAccUpdate, %t_Lang192%
-Gui, 9:Add, Button, -Wrap yp x+10 W75 H23 gAccDel, %c_Lang024%
-Gui, 9:Add, Link, -Wrap yp+2 x+10 W130 R1 gEmailTest, %t_Lang201%
-Gui, 9:Add, Text, -Wrap R1 y+12 xs+10 W380 cGray, %t_Lang193%
-Gui, 9:Add, ListView, y+8 xs+10 W380 R10 vAccList gAccSub LV0x4000, %c_Lang227%|%t_Lang194%|%t_Lang195%|%t_Lang197%|%t_Lang198%|%t_Lang196%|%t_Lang199%|%c_Lang177%|%t_Lang200%
-Gui, 9:Add, Button, -Wrap Default Section xm W75 H23 gAccConfigOK, %c_Lang020%
-Gui, 9:Add, Button, -Wrap ys W75 H23 gAccConfigCancel, %c_Lang021%
-Gui, 9:Default
-LoadMailAccounts()
-LV_ModifyCol(1, 80)
-Gui, 9:Show,, %t_Lang017%
-Tooltip
+ ; Email accounts
+ Gui, 9:+owner39 +ToolWindow
+ Gui, 39:+Disabled
+ Gui, 9:Add, GroupBox, Section ym xm W400 H395, %t_Lang191%:
+ Gui, 9:Add, Text, -Wrap R1 ys+20 xs+10 W80 vAccEmailT, %c_Lang227%*:
+ Gui, 9:Add, Edit, yp x+5 W295 vAccEmail
+ Gui, 9:Add, Text, -Wrap R1 y+5 xs+10 W80, %t_Lang194%*:
+ Gui, 9:Add, Edit, yp x+5 W150 vAccServer
+ Gui, 9:Add, Text, -Wrap R1 yp x+10 W80, %t_Lang195%*:
+ Gui, 9:Add, Edit, yp x+5 W50 vAccPort, 25
+ Gui, 9:Add, Text, -Wrap R1 y+5 xs+10 W80, %t_Lang197%:
+ Gui, 9:Add, Edit, yp x+5 W110 vAccUser
+ Gui, 9:Add, Text, -Wrap R1 yp x+10 W80, %t_Lang198%:
+ Gui, 9:Add, Edit, yp x+5 W90 vAccPass
+ Gui, 9:Add, Checkbox, -Wrap R1 Checked y+5 xs+10 W110 vAccAuth, %t_Lang196%
+ Gui, 9:Add, Checkbox, -Wrap R1 yp x+10 W50 vAccSsl, %t_Lang199%
+ Gui, 9:Add, Text, -Wrap yp x+10 W145, %c_Lang177% (%c_Lang019%):
+ Gui, 9:Add, Edit, Limit Number yp x+5 W50 R1
+ Gui, 9:Add, UpDown, yp x+0 vAccTimeout 0x80 Range0-999, 30
+ Gui, 9:Add, Button, -Wrap y+15 xs+10 W75 H23 gAccAdd, %c_Lang123%
+ Gui, 9:Add, Button, -Wrap yp x+10 W75 H23 gAccUpdate, %t_Lang192%
+ Gui, 9:Add, Button, -Wrap yp x+10 W75 H23 gAccDel, %c_Lang024%
+ Gui, 9:Add, Link, -Wrap yp+2 x+10 W130 R1 gEmailTest, %t_Lang201%
+ Gui, 9:Add, Text, -Wrap R1 y+12 xs+10 W380 cGray, %t_Lang193%
+ Gui, 9:Add, ListView, y+8 xs+10 W380 R10 vAccList gAccSub LV0x4000, %c_Lang227%|%t_Lang194%|%t_Lang195%|%t_Lang197%|%t_Lang198%|%t_Lang196%|%t_Lang199%|%c_Lang177%|%t_Lang200%
+ Gui, 9:Add, Button, -Wrap Default Section xm W75 H23 gAccConfigOK, %c_Lang020%
+ Gui, 9:Add, Button, -Wrap ys W75 H23 gAccConfigCancel, %c_Lang021%
+ Gui, 9:Default
+ LoadMailAccounts()
+ LV_ModifyCol(1, 80)
+ Gui, 9:Show,, %t_Lang017%
+ Tooltip
return
AccConfigOK:
-Gui, 9:Submit, NoHide
-Gui, 9:ListView, AccList
-UpdateMailAccounts()
-User_Accounts := UserMailAccounts.Get(true), MailList := ""
-For _each, _Section in User_Accounts
- MailList .= _Section.email "|"
-GuiControl, 39:, From, |%MailList%
-GuiControl, 39:Choose, From, 1
-Gui, 39:-Disabled
-Gui, 9:Destroy
-Gui, 39:Default
+ Gui, 9:Submit, NoHide
+ Gui, 9:ListView, AccList
+ UpdateMailAccounts()
+ User_Accounts := UserMailAccounts.Get(true), MailList := ""
+ For _each, _Section in User_Accounts
+ MailList .= _Section.email "|"
+ GuiControl, 39:, From, |%MailList%
+ GuiControl, 39:Choose, From, 1
+ Gui, 39:-Disabled
+ Gui, 9:Destroy
+ Gui, 39:Default
return
9GuiClose:
9GuiEscape:
AccConfigCancel:
-Gui, 39:-Disabled
-Gui, 9:Destroy
+ Gui, 39:-Disabled
+ Gui, 9:Destroy
return
EditDownload:
EditZip:
-s_Caller := "Edit"
+ s_Caller := "Edit"
ZipFiles:
DownloadFiles:
-Gui, 40:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
-Gui, 1:+Disabled
-Gui, 40:Add, Tab2, W450 H0 vTabControl AltSubmit, CmdTab1|CmdTab2
-; Download
-Gui, 40:Add, GroupBox, Section xm ym W450 H235
-Gui, 40:Add, Text, -Wrap R1 ys+20 xs+10 W180 vDlFolderT, %c_Lang253%:
-Gui, 40:Add, Edit, y+5 xs+10 W400 R1 vDlFolderVar
-Gui, 40:Add, Button, -Wrap yp-1 x+0 W30 H23 vDlFolder gDlSearch, ...
-Gui, 40:Add, Text, -Wrap R1 y+10 xs+10 W180 vDlLinksT, %c_Lang252%:
-Gui, 40:Add, Edit, R9 y+5 xs+10 W430 vDlLinks
-Gui, 40:Add, Text, -Wrap R1 y+3 xs+10 W400 cGray, %c_Lang255%
-Gui, 40:Tab, 2
-; Zip / Unzip
-Gui, 40:Add, GroupBox, Section xm ym W450 H235
-Gui, 40:Add, Radio, Checked -Wrap R1 ys+20 xs+10 W180 vZip gZipMode, %c_Lang250%
-Gui, 40:Add, Radio, -Wrap R1 yp x+10 W180 vUnzip gZipMode, %c_Lang251%
-Gui, 40:Add, Text, -Wrap R1 y+10 xs+10 W180 vZipFileT, %c_Lang254%:
-Gui, 40:Add, Edit, y+5 xs+10 W400 R1 vZipFileVar
-Gui, 40:Add, Button, -Wrap yp-1 x+0 W30 H23 vZipFile gDlSearch, ...
-Gui, 40:Add, Text, -Wrap R1 y+10 xs+10 W180 vZipFilesT, %c_Lang145%:
-Gui, 40:Add, Edit, R5 y+5 xs+10 W400 vZipFilesVar
-Gui, 40:Add, Button, -Wrap yp-1 x+0 W30 H23 vZipFiles gDlSearch, ...
-Gui, 40:Add, Text, -Wrap R1 y+55 xs+10 W400 cGray, %c_Lang255%
-Gui, 40:Add, Checkbox, -Wrap R1 y+10 xs+10 W400 vSeparate, %c_Lang248%
-Gui, 40:Tab
-Gui, 40:Add, Button, -Wrap Section xm Default W75 H23 gDownloadOK, %c_Lang020%
-Gui, 40:Add, Button, -Wrap ys W75 H23 gDownloadCancel, %c_Lang021%
-Gui, 40:Add, Button, -Wrap ys W75 H23 gDownloadApply Disabled, %c_Lang131%
-Gui, 40:Add, Text, x+10 yp-3 W190 H25 cGray, %c_Lang025%
-Gui, 40:Add, StatusBar, gStatusBarHelp
-Gui, 40:Default
-LV_ModifyCol(1, 185)
-LV_ModifyCol(2, 185)
-SB_SetIcon(ResDllPath, IconsNames["help"])
-If (s_Caller = "Edit")
-{
- StringReplace, Details, Details, ``n, `n, All
- If (A_ThisLabel = "EditDownload")
+ Gui, 40:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
+ Gui, 1:+Disabled
+ Gui, 40:Add, Tab2, W450 H0 vTabControl AltSubmit, CmdTab1|CmdTab2
+ ; Download
+ Gui, 40:Add, GroupBox, Section xm ym W450 H235
+ Gui, 40:Add, Text, -Wrap R1 ys+20 xs+10 W180 vDlFolderT, %c_Lang253%:
+ Gui, 40:Add, Edit, y+5 xs+10 W400 R1 vDlFolderVar
+ Gui, 40:Add, Button, -Wrap yp-1 x+0 W30 H23 vDlFolder gDlSearch, ...
+ Gui, 40:Add, Text, -Wrap R1 y+10 xs+10 W180 vDlLinksT, %c_Lang252%:
+ Gui, 40:Add, Edit, R9 y+5 xs+10 W430 vDlLinks
+ Gui, 40:Add, Text, -Wrap R1 y+3 xs+10 W400 cGray, %c_Lang255%
+ Gui, 40:Tab, 2
+ ; Zip / Unzip
+ Gui, 40:Add, GroupBox, Section xm ym W450 H235
+ Gui, 40:Add, Radio, Checked -Wrap R1 ys+20 xs+10 W180 vZip gZipMode, %c_Lang250%
+ Gui, 40:Add, Radio, -Wrap R1 yp x+10 W180 vUnzip gZipMode, %c_Lang251%
+ Gui, 40:Add, Text, -Wrap R1 y+10 xs+10 W180 vZipFileT, %c_Lang254%:
+ Gui, 40:Add, Edit, y+5 xs+10 W400 R1 vZipFileVar
+ Gui, 40:Add, Button, -Wrap yp-1 x+0 W30 H23 vZipFile gDlSearch, ...
+ Gui, 40:Add, Text, -Wrap R1 y+10 xs+10 W180 vZipFilesT, %c_Lang145%:
+ Gui, 40:Add, Edit, R5 y+5 xs+10 W400 vZipFilesVar
+ Gui, 40:Add, Button, -Wrap yp-1 x+0 W30 H23 vZipFiles gDlSearch, ...
+ Gui, 40:Add, Text, -Wrap R1 y+55 xs+10 W400 cGray, %c_Lang255%
+ Gui, 40:Add, Checkbox, -Wrap R1 y+10 xs+10 W400 vSeparate, %c_Lang248%
+ Gui, 40:Tab
+ Gui, 40:Add, Button, -Wrap Section xm Default W75 H23 gDownloadOK, %c_Lang020%
+ Gui, 40:Add, Button, -Wrap ys W75 H23 gDownloadCancel, %c_Lang021%
+ Gui, 40:Add, Button, -Wrap ys W75 H23 gDownloadApply Disabled, %c_Lang131%
+ Gui, 40:Add, Text, x+10 yp-3 W190 H25 cGray, %c_Lang025%
+ Gui, 40:Add, StatusBar, gStatusBarHelp
+ Gui, 40:Default
+ LV_ModifyCol(1, 185)
+ LV_ModifyCol(2, 185)
+ SB_SetIcon(ResDllPath, IconsNames["help"])
+ If (s_Caller = "Edit")
+ {
+ StringReplace, Details, Details, ``n, `n, All
+ If (A_ThisLabel = "EditDownload")
+ {
+ GuiControl, 40:, DlFolderVar, %Target%
+ GuiControl, 40:, DlLinks, %Details%
+ }
+ Else
+ {
+ If (Type = cType55)
+ GuiControl, 40:, Unzip, 1
+ GoSub, ZipMode
+ GuiControl, 40:, ZipFileVar, %Target%
+ GuiControl, 40:, ZipFilesVar, %Details%
+ If (Window = "Separate")
+ GuiControl, 40:, Separate, 1
+ }
+ }
+ If (InStr(A_ThisLabel, "Download"))
{
- GuiControl, 40:, DlFolderVar, %Target%
- GuiControl, 40:, DlLinks, %Details%
+ GuiTitle := c_Lang236
+ SBShowTip("WinHttpDownloadToFile")
}
Else
{
- If (Type = cType55)
- GuiControl, 40:, Unzip, 1
- GoSub, ZipMode
- GuiControl, 40:, ZipFileVar, %Target%
- GuiControl, 40:, ZipFilesVar, %Details%
- If (Window = "Separate")
- GuiControl, 40:, Separate, 1
+ GuiControl, 40:Choose, TabControl, 2
+ GuiTitle := c_Lang237
+ SBShowTip("Zip")
}
-}
-If (InStr(A_ThisLabel, "Download"))
-{
- GuiTitle := c_Lang236
- SBShowTip("WinHttpDownloadToFile")
-}
-Else
-{
- GuiControl, 40:Choose, TabControl, 2
- GuiTitle := c_Lang237
- SBShowTip("Zip")
-}
-Gui, 40:Show,, %GuiTitle%
-ChangeIcon(hIL_Icons, CmdWin, InStr(A_ThisLabel, "Download") ? IconsNames["download"] : IconsNames["zip"])
-Input
-Tooltip
+ Gui, 40:Show,, %GuiTitle%
+ ChangeIcon(hIL_Icons, CmdWin, InStr(A_ThisLabel, "Download") ? IconsNames["download"] : IconsNames["zip"])
+ Input
+ Tooltip
return
DownloadApply:
DownloadOK:
-Gui, 40:Submit, NoHide
-If (TabControl = 1)
-{
- If ((DlFolderVar = "") || (DlLinks = ""))
+ Gui, 40:Submit, NoHide
+ If (TabControl = 1)
{
- Gui, 40:Font, cRed
- GuiControl, 40:Font, DlFolderT
- GuiControl, 40:Font, DlLinksT
- return
+ If ((DlFolderVar = "") || (DlLinks = ""))
+ {
+ Gui, 40:Font, cRed
+ GuiControl, 40:Font, DlFolderT
+ GuiControl, 40:Font, DlLinksT
+ return
+ }
+ StringReplace, DlLinks, DlLinks, `n, ``n, All
+ Type := cType53, Action := "[Download]", Details := DlLinks, Target := DlFolderVar, Window := ""
+ If (A_ThisLabel != "DownloadApply")
+ {
+ Gui, 1:-Disabled
+ Gui, 40:Destroy
+ }
}
- StringReplace, DlLinks, DlLinks, `n, ``n, All
- Type := cType53, Action := "[Download]", Details := DlLinks, Target := DlFolderVar, Window := ""
- If (A_ThisLabel != "DownloadApply")
+ Else
{
- Gui, 1:-Disabled
- Gui, 40:Destroy
+ If ((ZipFileVar = "") || (ZipFilesVar = ""))
+ {
+ Gui, 40:Font, cRed
+ GuiControl, 40:Font, ZipFileT
+ GuiControl, 40:Font, ZipFilesT
+ return
+ }
+ StringReplace, ZipFilesVar, ZipFilesVar, `n, ``n, All
+ Type := Zip ? cType54 : cType55, Action := "[" Type "]", Details := ZipFilesVar, Target := ZipFileVar, Window := Separate ? "Separate" : ""
+ If (A_ThisLabel != "ZipApply")
+ {
+ Gui, 1:-Disabled
+ Gui, 40:Destroy
+ }
}
-}
-Else
-{
- If ((ZipFileVar = "") || (ZipFilesVar = ""))
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col2", Action, Details, TimesX, DelayX, Type, Target, Window)
+ Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
{
- Gui, 40:Font, cRed
- GuiControl, 40:Font, ZipFileT
- GuiControl, 40:Font, ZipFilesT
- return
+ LV_Add("Check", ListCount%A_List%+1, Action, Details, 1, DelayG, Type, Target, Window)
+ LV_Modify(ListCount%A_List%+1, "Vis")
}
- StringReplace, ZipFilesVar, ZipFilesVar, `n, ``n, All
- Type := Zip ? cType54 : cType55, Action := "[" Type "]", Details := ZipFilesVar, Target := ZipFileVar, Window := Separate ? "Separate" : ""
- If (A_ThisLabel != "ZipApply")
+ Else
{
- Gui, 1:-Disabled
- Gui, 40:Destroy
+ GuiControl, chMacro:-g, InputList%A_List%
+ RowNumber := 0
+ Loop, %RowSelection%
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ LV_Insert(RowNumber, "Check", RowNumber, Action, Details, 1, DelayG, Type, Target, Window)
+ LVManager[A_List].InsertAtGroup(RowNumber)
+ RowNumber++
+ }
+ GuiControl, chMacro:+gInputList, InputList%A_List%
}
-}
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
-If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col2", Action, Details, TimesX, DelayX, Type, Target, Window)
-Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
-{
- LV_Add("Check", ListCount%A_List%+1, Action, Details, 1, DelayG, Type, Target, Window)
- LV_Modify(ListCount%A_List%+1, "Vis")
-}
-Else
-{
- GuiControl, chMacro:-g, InputList%A_List%
- RowNumber := 0
- Loop, %RowSelection%
+ GoSub, RowCheck
+ GoSub, b_Start
+ If (A_ThisLabel = "DownloadApply")
+ Gui, 40:Default
+ Else
{
- RowNumber := LV_GetNext(RowNumber)
- LV_Insert(RowNumber, "Check", RowNumber, Action, Details, 1, DelayG, Type, Target, Window)
- LVManager[A_List].InsertAtGroup(RowNumber)
- RowNumber++
+ s_Caller := ""
+ GuiControl, Focus, InputList%A_List%
}
- GuiControl, chMacro:+gInputList, InputList%A_List%
-}
-GoSub, RowCheck
-GoSub, b_Start
-If (A_ThisLabel = "DownloadApply")
- Gui, 40:Default
-Else
-{
- s_Caller := ""
- GuiControl, Focus, InputList%A_List%
-}
return
DownloadCancel:
40GuiClose:
40GuiEscape:
-Gui, 1:-Disabled
-Gui, 40:Destroy
-s_Caller := ""
+ Gui, 1:-Disabled
+ Gui, 40:Destroy
+ s_Caller := ""
return
40GuiDropFiles:
-Gui, 40:Submit, NoHide
-GuiControl, 40:, ZipFilesVar, %ZipFilesVar%%A_GuiEvent%
+ Gui, 40:Submit, NoHide
+ GuiControl, 40:, ZipFilesVar, %ZipFilesVar%%A_GuiEvent%
return
ZipMode:
-Gui, 40:Submit, NoHide
-If (Unzip)
-{
- GuiControl, 40:, ZipFileT, %c_Lang253%:
- GuiControl, 40:, Separate, %c_Lang249%
-}
-Else
-{
- GuiControl, 40:, ZipFileT, %c_Lang254%:
- GuiControl, 40:, Separate, %c_Lang248%
-}
-GuiControl, 40:, ZipFileVar
+ Gui, 40:Submit, NoHide
+ If (Unzip)
+ {
+ GuiControl, 40:, ZipFileT, %c_Lang253%:
+ GuiControl, 40:, Separate, %c_Lang249%
+ }
+ Else
+ {
+ GuiControl, 40:, ZipFileT, %c_Lang254%:
+ GuiControl, 40:, Separate, %c_Lang248%
+ }
+ GuiControl, 40:, ZipFileVar
return
DlSearch:
-Gui, 40:+OwnDialogs
-Gui, 40:Submit, NoHide
-If ((A_GuiControl = "DlFolder") || ((A_GuiControl = "ZipFile") && (Unzip)))
-{
- FileSelectFolder, Folder, *%A_ScriptDir%,, %AppName%
- FreeMemory()
- If (Folder = "")
- return
- GuiControl, 40:, %A_GuiControl%Var, %Folder%
-}
-Else
-{
- Opt := (A_GuiControl = "ZipFiles") ? "M2" : 2, Filt := ((A_GuiControl = "ZipFiles") && (Unzip)) ? "*.zip" : ""
- FileSelectFile, File, %Opt%,, %AppName%, %Filt%
- If (A_GuiControl = "ZipFile")
+ Gui, 40:+OwnDialogs
+ Gui, 40:Submit, NoHide
+ If ((A_GuiControl = "DlFolder") || ((A_GuiControl = "ZipFile") && (Unzip)))
{
- SplitPath, File,,, ext
- If (ext != "zip")
- File .= ".zip"
+ FileSelectFolder, Folder, *%A_ScriptDir%,, %AppName%
+ FreeMemory()
+ If (Folder = "")
+ return
+ GuiControl, 40:, %A_GuiControl%Var, %Folder%
}
Else
{
- Files := ""
- Loop, Parse, File, `n
+ Opt := (A_GuiControl = "ZipFiles") ? "M2" : 2, Filt := ((A_GuiControl = "ZipFiles") && (Unzip)) ? "*.zip" : ""
+ FileSelectFile, File, %Opt%,, %AppName%, %Filt%
+ If (A_GuiControl = "ZipFile")
{
- If (A_Index = 1)
- FilePath := RTrim(A_LoopField, "\") "\"
- Else
- Files .= FilePath . A_LoopField "`n"
+ SplitPath, File,,, ext
+ If (ext != "zip")
+ File .= ".zip"
+ }
+ Else
+ {
+ Files := ""
+ Loop, Parse, File, `n
+ {
+ If (A_Index = 1)
+ FilePath := RTrim(A_LoopField, "\") "\"
+ Else
+ Files .= FilePath . A_LoopField "`n"
+ }
+ File := ZipFilesVar . Files
}
- File := ZipFilesVar . Files
+ FreeMemory()
+ If (File = "")
+ return
+ GuiControl, 40:, %A_GuiControl%Var, %File%
}
- FreeMemory()
- If (File = "")
- return
- GuiControl, 40:, %A_GuiControl%Var, %File%
-}
return
EditComInt:
EditIECom:
-s_Caller := "Edit"
+ s_Caller := "Edit"
ComInt:
IECom:
-IEWindows := ListIEWindows()
-Gui, 24:+owner1 -MinimizeBox +E0x00000400 +hwndCmdWin
-Gui, 1:+Disabled
-Gui, 24:Add, Tab2, W410 H0 vTabControl gTabControl AltSubmit, CmdTab1|CmdTab2|CmdTab3
-Gui, 24:Add, GroupBox, Section xm ym W450 H265
-Gui, 24:Add, Combobox, ys+15 xs+10 W160 vIECmd gIECmd, %IECmdList%
-Gui, 24:Add, Radio, Section -Wrap Checked ys+20 x+20 W90 vSet gIECmd R1, %c_Lang093%
-Gui, 24:Add, Radio, -Wrap x+0 W90 vGet gIECmd Disabled R1, %c_Lang094%
-Gui, 24:Add, Radio, -Wrap Group Checked xs W90 vMethod gIECmd Disabled R1, %c_Lang095%
-Gui, 24:Add, Radio, -Wrap x+0 W90 vProperty gIECmd Disabled R1, %c_Lang096%
-Gui, 24:Add, Text, -Wrap R1 Section ys+35 xm+10 W250 vValueT, %c_Lang056%:
-Gui, 24:Add, Edit, yp+20 xs W430 R5 vValue
-Gui, 24:Add, Text, -Wrap R1 y+10 W55, %c_Lang005%:
-Gui, 24:Add, DDL, yp-2 xp+60 W340 vIEWindows AltSubmit, %IEWindows%
-Gui, 24:Add, Button, -Wrap yp-1 x+5 W25 H23 hwndRefreshIEW vRefreshIEW gRefreshIEW
+ IEWindows := ListIEWindows()
+ Gui, 24:+owner1 -MinimizeBox +E0x00000400 +hwndCmdWin
+ Gui, 1:+Disabled
+ Gui, 24:Add, Tab2, W410 H0 vTabControl gTabControl AltSubmit, CmdTab1|CmdTab2|CmdTab3
+ Gui, 24:Add, GroupBox, Section xm ym W450 H265
+ Gui, 24:Add, Combobox, ys+15 xs+10 W160 vIECmd gIECmd, %IECmdList%
+ Gui, 24:Add, Radio, Section -Wrap Checked ys+20 x+20 W90 vSet gIECmd R1, %c_Lang093%
+ Gui, 24:Add, Radio, -Wrap x+0 W90 vGet gIECmd Disabled R1, %c_Lang094%
+ Gui, 24:Add, Radio, -Wrap Group Checked xs W90 vMethod gIECmd Disabled R1, %c_Lang095%
+ Gui, 24:Add, Radio, -Wrap x+0 W90 vProperty gIECmd Disabled R1, %c_Lang096%
+ Gui, 24:Add, Text, -Wrap R1 Section ys+35 xm+10 W250 vValueT, %c_Lang056%:
+ Gui, 24:Add, Edit, yp+20 xs W430 R5 vValue
+ Gui, 24:Add, Text, -Wrap R1 y+10 W55, %c_Lang005%:
+ Gui, 24:Add, DDL, yp-2 xp+60 W340 vIEWindows AltSubmit, %IEWindows%
+ Gui, 24:Add, Button, -Wrap yp-1 x+5 W25 H23 hwndRefreshIEW vRefreshIEW gRefreshIEW
ILButton(RefreshIEW, ResDllPath ":" 90)
-Gui, 24:Add, Button, -Wrap Section Default ym+270 xm W75 H23 gIEComOK, %c_Lang020%
-Gui, 24:Add, Button, -Wrap ys xs+170 W75 H23 vIEComApply gIEComApply Disabled, %c_Lang131%
-Gui, 24:Add, Text, x+10 yp-3 W190 H25 cGray, %c_Lang025%
-Gui, 24:Tab, 2
-; COM Interface
-Gui, 24:Add, GroupBox, Section xm ym W450 H75
-Gui, 24:Add, Checkbox, -Wrap R1 ys+15 xs+10 W400 vCreateComObj gCreateComObj, %c_Lang074%
-Gui, 24:Add, Text, -Wrap R1 y+10 xs+10 W55 Right vComHwndT, %c_Lang100%:
-Gui, 24:Add, Edit, yp x+10 W80 vComHwnd Disabled, %ComHwnd%
-Gui, 24:Add, Text, -Wrap R1 yp x+10 W40 Right vComCLSIDT, %c_Lang098%:
-Gui, 24:Add, Combobox, yp x+10 W150 vComCLSID gClsidCmd Disabled, %CLSList%
-GuiControl, 24:ChooseString, ComCLSID, %ComCLSID%
-Gui, 24:Add, Button, -Wrap yp-1 x+0 W75 H23 vActiveObj gActiveObj Disabled, %c_Lang099%
-Gui, 24:Add, GroupBox, Section xm y+20 W450 H185
-Gui, 24:Add, Text, -Wrap R1 ys+15 xs+10 W300 vComScT, %c_Lang087% / %c_Lang101%:
-Gui, 24:Add, Edit, y+5 xs+10 W430 R5 vComSc
-Gui, 24:Add, Button, -Wrap y+1 xs+416 W25 H23 hwndExpView vExpView gExpView
+ Gui, 24:Add, Button, -Wrap Section Default ym+270 xm W75 H23 gIEComOK, %c_Lang020%
+ Gui, 24:Add, Button, -Wrap ys xs+170 W75 H23 vIEComApply gIEComApply Disabled, %c_Lang131%
+ Gui, 24:Add, Text, x+10 yp-3 W190 H25 cGray, %c_Lang025%
+ Gui, 24:Tab, 2
+ ; COM Interface
+ Gui, 24:Add, GroupBox, Section xm ym W450 H75
+ Gui, 24:Add, Checkbox, -Wrap R1 ys+15 xs+10 W400 vCreateComObj gCreateComObj, %c_Lang074%
+ Gui, 24:Add, Text, -Wrap R1 y+10 xs+10 W55 Right vComHwndT, %c_Lang100%:
+ Gui, 24:Add, Edit, yp x+10 W80 vComHwnd Disabled, %ComHwnd%
+ Gui, 24:Add, Text, -Wrap R1 yp x+10 W40 Right vComCLSIDT, %c_Lang098%:
+ Gui, 24:Add, Combobox, yp x+10 W150 vComCLSID gClsidCmd Disabled, %CLSList%
+ GuiControl, 24:ChooseString, ComCLSID, %ComCLSID%
+ Gui, 24:Add, Button, -Wrap yp-1 x+0 W75 H23 vActiveObj gActiveObj Disabled, %c_Lang099%
+ Gui, 24:Add, GroupBox, Section xm y+20 W450 H185
+ Gui, 24:Add, Text, -Wrap R1 ys+15 xs+10 W300 vComScT, %c_Lang087% / %c_Lang101%:
+ Gui, 24:Add, Edit, y+5 xs+10 W430 R5 vComSc
+ Gui, 24:Add, Button, -Wrap y+1 xs+416 W25 H23 hwndExpView vExpView gExpView
ILButton(ExpView, ResDllPath ":" 17)
-Gui, 24:Add, Button, -Wrap Section ym+270 xm W75 H23 vComOK gComOK, %c_Lang020%
-Gui, 24:Add, Button, -Wrap ys xs+170 W75 H23 vComApply gComApply Disabled, %c_Lang131%
-Gui, 24:Add, Link, -Wrap x+10 yp-3 W190 R1 vExprLink2 gExprLink, %c_Lang091%
-Gui, 24:Tab
-Gui, 24:Add, Text, -Wrap R1 Section ym+192 xm+12 vPgTxt, %c_Lang092%:
-Gui, 24:Add, DDL, W80 vIdent, Name||ID|ClassName|TagName|Links
-Gui, 24:Add, Edit, yp x+0 vDefEl W235
-Gui, 24:Add, Edit, yp x+0 vDefElInd W85
-Gui, 24:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetEl gGetEl, ...
-Gui, 24:Add, Checkbox, -Wrap Checked y+10 xs W300 vLoadWait R1 Disabled, %c_Lang097%
-Gui, 24:Add, Button, -Wrap Section ym+270 xs+72 W75 H23 gIEComCancel, %c_Lang021%
-Gui, 24:Add, StatusBar, gStatusBarHelp
-Gui, 24:Default
-SB_SetIcon(ResDllPath, IconsNames["help"])
-If (s_Caller = "Edit")
-{
- If ((Type = cType34) || (Type = cType43))
+ Gui, 24:Add, Button, -Wrap Section ym+270 xm W75 H23 vComOK gComOK, %c_Lang020%
+ Gui, 24:Add, Button, -Wrap ys xs+170 W75 H23 vComApply gComApply Disabled, %c_Lang131%
+ Gui, 24:Add, Link, -Wrap x+10 yp-3 W190 R1 vExprLink2 gExprLink, %c_Lang091%
+ Gui, 24:Tab
+ Gui, 24:Add, Text, -Wrap R1 Section ym+192 xm+12 vPgTxt, %c_Lang092%:
+ Gui, 24:Add, DDL, W80 vIdent, Name||ID|ClassName|TagName|Links
+ Gui, 24:Add, Edit, yp x+0 vDefEl W235
+ Gui, 24:Add, Edit, yp x+0 vDefElInd W85
+ Gui, 24:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetEl gGetEl, ...
+ Gui, 24:Add, Checkbox, -Wrap Checked y+10 xs W300 vLoadWait R1 Disabled, %c_Lang097%
+ Gui, 24:Add, Button, -Wrap Section ym+270 xs+72 W75 H23 gIEComCancel, %c_Lang021%
+ Gui, 24:Add, StatusBar, gStatusBarHelp
+ Gui, 24:Default
+ SB_SetIcon(ResDllPath, IconsNames["help"])
+ If (s_Caller = "Edit")
{
- Details := GetRealLineFeeds(Details)
- TabControl := 2, GuiTitle := c_Lang013, SBShowTip("ComObjCreate")
- GuiControl, 24:Choose, TabControl, 2
- If (Type = cType34)
+ If ((Type = cType34) || (Type = cType43))
{
- GuiControl, 24:, CreateComObj, 1
- Gosub, CreateComObj
- If (Target = "")
- GuiControl, 24:Choose, ComCLSID, 0
- Else If (InStr(CLSList, Target))
- GuiControl, 24:ChooseString, ComCLSID, %Target%
+ Details := GetRealLineFeeds(Details)
+ TabControl := 2, GuiTitle := c_Lang013, SBShowTip("ComObjCreate")
+ GuiControl, 24:Choose, TabControl, 2
+ If (Type = cType34)
+ {
+ GuiControl, 24:, CreateComObj, 1
+ Gosub, CreateComObj
+ If (Target = "")
+ GuiControl, 24:Choose, ComCLSID, 0
+ Else If (InStr(CLSList, Target))
+ GuiControl, 24:ChooseString, ComCLSID, %Target%
+ Else
+ GuiControl, 24:, ComCLSID, %ComCLSID%||
+ GuiControl, 24:, ComHwnd, %Action%
+ GoSub, TabControl
+ }
+ Else
+ SB_SetText(Cmd_Tips["Expression"])
+ GuiControl, 24:, ComSc, %Details%
+ }
+ Else
+ {
+ StringReplace, Details, Details, ``n, `n, All
+ Meth := RegExReplace(Action, ":.*"), IECmd := RegExReplace(Action, "^.*:(.*):.*", "$1")
+ Ident := RegExReplace(Action, "^.*:"), Act := RegExReplace(Type, ".*_")
+ DefEl := RegExReplace(Target, ":.*"), DefElInd := RegExReplace(Target, "^.*:")
+ GuiControl, 24:, %Act%, 1
+ GuiControl, 24:, %Meth%, 1
+ If (InStr(IECmdList, IECmd))
+ GuiControl, 24:ChooseString, IECmd, %IECmd%
Else
- GuiControl, 24:, ComCLSID, %ComCLSID%||
- GuiControl, 24:, ComHwnd, %Action%
- GoSub, TabControl
+ GuiControl, 24:, IECmd, %IECmd%||
+ GuiControl, 24:ChooseString, Ident, %Ident%
+ GuiControl, 24:, DefEl, %DefEl%
+ GuiControl, 24:, DefElInd, %DefElInd%
+ GuiControl, 24:, Value, %Details%
+ GoSub, IECmd
+ GuiTitle := c_Lang012
}
+ If (Window = "LoadWait")
+ GuiControl, 24:, LoadWait, 1
Else
- SB_SetText(Cmd_Tips["Expression"])
- GuiControl, 24:, ComSc, %Details%
+ GuiControl, 24:, LoadWait, 0
+ GuiControl, 24:Enable, IEComApply
+ GuiControl, 24:Enable, ComApply
+ GuiControl, 24:Enable, LoadWait
}
- Else
+ If (A_ThisLabel = "IECom")
{
- StringReplace, Details, Details, ``n, `n, All
- Meth := RegExReplace(Action, ":.*"), IECmd := RegExReplace(Action, "^.*:(.*):.*", "$1")
- Ident := RegExReplace(Action, "^.*:"), Act := RegExReplace(Type, ".*_")
- DefEl := RegExReplace(Target, ":.*"), DefElInd := RegExReplace(Target, "^.*:")
- GuiControl, 24:, %Act%, 1
- GuiControl, 24:, %Meth%, 1
- If (InStr(IECmdList, IECmd))
- GuiControl, 24:ChooseString, IECmd, %IECmd%
- Else
- GuiControl, 24:, IECmd, %IECmd%||
- GuiControl, 24:ChooseString, Ident, %Ident%
- GuiControl, 24:, DefEl, %DefEl%
- GuiControl, 24:, DefElInd, %DefElInd%
- GuiControl, 24:, Value, %Details%
- GoSub, IECmd
GuiTitle := c_Lang012
+ If (s_Caller = "Find")
+ GuiControl, 24:ChooseString, IECmd, %GotoRes1%
+ GoSub, IECmd
+ GuiControl, 24:Enable, LoadWait
+ SB_SetText(IE_Tips["Navigate"])
}
- If (Window = "LoadWait")
- GuiControl, 24:, LoadWait, 1
- Else
- GuiControl, 24:, LoadWait, 0
- GuiControl, 24:Enable, IEComApply
- GuiControl, 24:Enable, ComApply
- GuiControl, 24:Enable, LoadWait
-}
-If (A_ThisLabel = "IECom")
-{
- GuiTitle := c_Lang012
- If (s_Caller = "Find")
- GuiControl, 24:ChooseString, IECmd, %GotoRes1%
- GoSub, IECmd
- GuiControl, 24:Enable, LoadWait
- SB_SetText(IE_Tips["Navigate"])
-}
-If (A_ThisLabel = "ComInt")
-{
- GuiControl, 24:Choose, TabControl, 2
- GuiControl, 24:+Default, ComOK
- If ((s_Caller = "Find") && (InStr(CLSList, GotoRes1)))
+ If (A_ThisLabel = "ComInt")
{
- GuiControl, 24:, CreateComObj, 1
- GuiControl, 24:ChooseString, ComCLSID, %GotoRes1%
+ GuiControl, 24:Choose, TabControl, 2
+ GuiControl, 24:+Default, ComOK
+ If ((s_Caller = "Find") && (InStr(CLSList, GotoRes1)))
+ {
+ GuiControl, 24:, CreateComObj, 1
+ GuiControl, 24:ChooseString, ComCLSID, %GotoRes1%
+ }
+ Gosub, CreateComObj
+ GuiControl, 24:, LoadWait, 0
+ GuiTitle := c_Lang013
+ SB_SetText(Cmd_Tips["Expression"])
}
- Gosub, CreateComObj
- GuiControl, 24:, LoadWait, 0
- GuiTitle := c_Lang013
- SB_SetText(Cmd_Tips["Expression"])
-}
-GuiControl, 24:Choose, IEWindows, %SelIEWin%
-Gui, 24:Show, , %GuiTitle%
-ChangeIcon(hIL_Icons, CmdWin, InStr(A_ThisLabel, "ComInt") ? IconsNames["com"] : IconsNames["ie"])
-Tooltip
+ GuiControl, 24:Choose, IEWindows, %SelIEWin%
+ Gui, 24:Show, , %GuiTitle%
+ ChangeIcon(hIL_Icons, CmdWin, InStr(A_ThisLabel, "ComInt") ? IconsNames["com"] : IconsNames["ie"])
+ Tooltip
return
IEComCancel:
24GuiClose:
24GuiEscape:
-Gui, 1:-Disabled
-Gui, 24:Destroy
-s_Caller := ""
+ Gui, 1:-Disabled
+ Gui, 24:Destroy
+ s_Caller := ""
return
IEComApply:
IEComOK:
-Gui, 24:+OwnDialogs
-Gui, 24:Submit, NoHide
-GuiControlGet, VState, 24:Enabled, Value
-If (VState = 0)
- Value := ""
-GuiControlGet, VState, 24:Enabled, DefEl
-If ((VState = 0) || (DefEl = ""))
- DefEl := "", Ident := ""
-If (Get)
-{
- If (Value = "")
+ Gui, 24:+OwnDialogs
+ Gui, 24:Submit, NoHide
+ GuiControlGet, VState, 24:Enabled, Value
+ If (VState = 0)
+ Value := ""
+ GuiControlGet, VState, 24:Enabled, DefEl
+ If ((VState = 0) || (DefEl = ""))
+ DefEl := "", Ident := ""
+ If (Get)
+ {
+ If (Value = "")
+ {
+ Tooltip, %c_Lang127%, 25, 145
+ return
+ }
+ If (RegExMatch(Value, "^(\w+)(\[\S+\]|\.\w+)+", lMatch))
+ {
+ Try
+ z_Check := VarSetCapacity(%lMatch1%)
+ Catch
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%lMatch1%
+ return
+ }
+ }
+ Else
+ {
+ Try
+ z_Check := VarSetCapacity(%Value%)
+ Catch
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%Value%
+ return
+ }
+ }
+ Type := cType33
+ }
+ Else
+ Type := cType32
+ If (Value != "")
+ Details := Value
+ Else
+ Details := ""
+ If (Ident = "ID")
+ DefElInd := ""
+ If (Method = 1)
+ Action := "Method:"
+ Else If (Property = 1)
+ Action := "Property:"
+ Action .= IECmd ":" Ident, Target := DefEl ":" DefElInd
+ If (LoadWait)
+ Load := "LoadWait"
+ Else
+ Load := ""
+ ControlGet, SelIEWinName, Choice,, ComboBox2, ahk_id %CmdWin%
+ SelIEWin := IEWindows
+ If (SelIEWinName = "[blank]")
+ ie := ""
+ Else
+ ie := WBGet(RegExReplace(SelIEWinName, "§", "|"))
+ If (A_ThisLabel != "IEComApply")
{
- Tooltip, %c_Lang127%, 25, 145
- return
+ Gui, 1:-Disabled
+ Gui, 24:Destroy
+ }
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col2", Action, Details, TimesX, DelayX, Type, Target, Load)
+ Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
+ {
+ LV_Add("Check", ListCount%A_List%+1, Action , Details, 1, DelayG, Type, Target, Load)
+ LV_Modify(ListCount%A_List%+1, "Vis")
+ }
+ Else
+ {
+ GuiControl, chMacro:-g, InputList%A_List%
+ RowNumber := 0
+ Loop, %RowSelection%
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ LV_Insert(RowNumber, "Check", RowNumber, Action , Details, 1, DelayG, Type, Target, Load)
+ LVManager[A_List].InsertAtGroup(RowNumber)
+ RowNumber++
+ }
+ GuiControl, chMacro:+gInputList, InputList%A_List%
+ }
+ GoSub, RowCheck
+ GoSub, b_Start
+ If (A_ThisLabel = "IEComApply")
+ Gui, 24:Default
+ Else
+ {
+ s_Caller := ""
+ GuiControl, chMacro:Focus, InputList%A_List%
}
- If (RegExMatch(Value, "^(\w+)(\[\S+\]|\.\w+)+", lMatch))
+return
+
+ComApply:
+ComOK:
+ Gui, 24:+OwnDialogs
+ Gui, 24:Submit, NoHide
+ StringReplace, ComSc, ComSc, `n, ``n, All
+ If (CreateComObj)
{
- Try
- z_Check := VarSetCapacity(%lMatch1%)
- Catch
+ If (ComHwnd = "")
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%lMatch1%
+ Gui, 24:Font, cRed
+ GuiControl, 24:Font, ComHwndT
return
}
- }
- Else
- {
Try
- z_Check := VarSetCapacity(%Value%)
+ z_Check := VarSetCapacity(%ComHwnd%)
Catch
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%Value%
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%ComHwnd%
return
}
+ Action := ComHwnd, Type := cType34, Target := ComCLSID
}
- Type := cType33
-}
-Else
- Type := cType32
-If (Value != "")
- Details := Value
-Else
- Details := ""
-If (Ident = "ID")
- DefElInd := ""
-If (Method = 1)
- Action := "Method:"
-Else If (Property = 1)
- Action := "Property:"
-Action .= IECmd ":" Ident, Target := DefEl ":" DefElInd
-If (LoadWait)
- Load := "LoadWait"
-Else
- Load := ""
-ControlGet, SelIEWinName, Choice,, ComboBox2, ahk_id %CmdWin%
-SelIEWin := IEWindows
-If (SelIEWinName = "[blank]")
- ie := ""
-Else
- ie := WBGet(RegExReplace(SelIEWinName, "§", "|"))
-If (A_ThisLabel != "IEComApply")
-{
- Gui, 1:-Disabled
- Gui, 24:Destroy
-}
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
-If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col2", Action, Details, TimesX, DelayX, Type, Target, Load)
-Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
-{
- LV_Add("Check", ListCount%A_List%+1, Action , Details, 1, DelayG, Type, Target, Load)
- LV_Modify(ListCount%A_List%+1, "Vis")
-}
-Else
-{
- GuiControl, chMacro:-g, InputList%A_List%
- RowNumber := 0
- Loop, %RowSelection%
+ Else
+ Action := "[Expression]", Type := cType43, Target := ""
+ If (LoadWait)
+ Load := "LoadWait"
+ Else
+ Load := ""
+ If (A_ThisLabel != "ComApply")
{
- RowNumber := LV_GetNext(RowNumber)
- LV_Insert(RowNumber, "Check", RowNumber, Action , Details, 1, DelayG, Type, Target, Load)
- LVManager[A_List].InsertAtGroup(RowNumber)
- RowNumber++
+ Gui, 1:-Disabled
+ Gui, 24:Destroy
}
- GuiControl, chMacro:+gInputList, InputList%A_List%
-}
-GoSub, RowCheck
-GoSub, b_Start
-If (A_ThisLabel = "IEComApply")
- Gui, 24:Default
-Else
-{
- s_Caller := ""
- GuiControl, chMacro:Focus, InputList%A_List%
-}
-return
-
-ComApply:
-ComOK:
-Gui, 24:+OwnDialogs
-Gui, 24:Submit, NoHide
-StringReplace, ComSc, ComSc, `n, ``n, All
-If (CreateComObj)
-{
- If (ComHwnd = "")
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col2", Action, ComSc, TimesX, DelayX, Type, Target, Load)
+ Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
{
- Gui, 24:Font, cRed
- GuiControl, 24:Font, ComHwndT
- return
+ LV_Add("Check", ListCount%A_List%+1, Action, ComSc, 1, DelayG, Type, Target, Load)
+ LV_Modify(ListCount%A_List%+1, "Vis")
}
- Try
- z_Check := VarSetCapacity(%ComHwnd%)
- Catch
+ Else
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%ComHwnd%
- return
+ GuiControl, chMacro:-g, InputList%A_List%
+ RowNumber := 0
+ Loop, %RowSelection%
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ LV_Insert(RowNumber, "Check", RowNumber, Action, ComSc, 1, DelayG, Type, Target, Load)
+ LVManager[A_List].InsertAtGroup(RowNumber)
+ RowNumber++
+ }
+ GuiControl, chMacro:+gInputList, InputList%A_List%
}
- Action := ComHwnd, Type := cType34, Target := ComCLSID
-}
-Else
- Action := "[Expression]", Type := cType43, Target := ""
-If (LoadWait)
- Load := "LoadWait"
-Else
- Load := ""
-If (A_ThisLabel != "ComApply")
-{
- Gui, 1:-Disabled
- Gui, 24:Destroy
-}
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
-If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col2", Action, ComSc, TimesX, DelayX, Type, Target, Load)
-Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
-{
- LV_Add("Check", ListCount%A_List%+1, Action, ComSc, 1, DelayG, Type, Target, Load)
- LV_Modify(ListCount%A_List%+1, "Vis")
-}
-Else
-{
- GuiControl, chMacro:-g, InputList%A_List%
- RowNumber := 0
- Loop, %RowSelection%
+ GoSub, RowCheck
+ GoSub, b_Start
+ If (A_ThisLabel = "ComApply")
+ Gui, 24:Default
+ Else
{
- RowNumber := LV_GetNext(RowNumber)
- LV_Insert(RowNumber, "Check", RowNumber, Action, ComSc, 1, DelayG, Type, Target, Load)
- LVManager[A_List].InsertAtGroup(RowNumber)
- RowNumber++
+ s_Caller := ""
+ GuiControl, Focus, InputList%A_List%
}
- GuiControl, chMacro:+gInputList, InputList%A_List%
-}
-GoSub, RowCheck
-GoSub, b_Start
-If (A_ThisLabel = "ComApply")
- Gui, 24:Default
-Else
-{
- s_Caller := ""
- GuiControl, Focus, InputList%A_List%
-}
return
CreateComObj:
-Gui, 24:Submit, NoHide
-GuiControl, 24:Enable%CreateComObj%, ComHwnd
-GuiControl, 24:Enable%CreateComObj%, ComCLSID
-GuiControl, 24:Enable%CreateComObj%, ActiveObj
-SB_SetText(CreateComObj ? Com_Tips[ComCLSID] : Cmd_Tips["Expression"])
-Gosub, TabControl
+ Gui, 24:Submit, NoHide
+ GuiControl, 24:Enable%CreateComObj%, ComHwnd
+ GuiControl, 24:Enable%CreateComObj%, ComCLSID
+ GuiControl, 24:Enable%CreateComObj%, ActiveObj
+ SB_SetText(CreateComObj ? Com_Tips[ComCLSID] : Cmd_Tips["Expression"])
+ Gosub, TabControl
return
ClsidCmd:
-CbAutoComplete()
-Gosub, TabControl
+ CbAutoComplete()
+ Gosub, TabControl
return
IECmd:
-If (A_GuiControl = "IECmd")
- CbAutoComplete()
-Gui, 24:Submit, NoHide
-If IECmd in %NoElemList%
-{
- GuiControl, 24:Disable, DefEl
- GuiControl, 24:Disable, DefElInd
- GuiControl, 24:Disable, GetEl
- GuiControl, 24:Disable, Ident
- GuiControl, 24:, LoadWait, 1
-}
-Else
-{
- GuiControl, 24:Enable, DefEl
- GuiControl, 24:Enable, DefElInd
- GuiControl, 24:Enable, GetEl
- GuiControl, 24:Enable, Ident
- GuiControl, 24:, LoadWait, 0
-}
-If IECmd in %SetOnlyList%
-{
- GuiControl, 24:, Set, 1
- GuiControl, 24:Enable, Set
- GuiControl, 24:Disable, Get
- GuiControl, 24:Enable, Value
-}
-Else If IECmd in %GetOnlyList%
-{
- GuiControl, 24:, Get, 1
- GuiControl, 24:Enable, Get
- GuiControl, 24:Disable, Set
- GuiControl, 24:Enable, Value
- GuiControl, 24:, LoadWait, 0
-}
-Else
-{
- GuiControl, 24:Enable, Get
- GuiControl, 24:Enable, Set
-}
-If IECmd in %NoValueList%
- GuiControl, 24:Disable, Value
-Else
- GuiControl, 24:Enable, Value
-Gui, 24:Submit, NoHide
-If (Set)
- GuiControl, 24:, ValueT, %c_Lang056%:
-Else If (Get)
- GuiControl, 24:, ValueT, %c_Lang057%:
-If IECmd in %MethodList%
-{
- GuiControl, 24:Disable, Method
- GuiControl, 24:Disable, Property
- GuiControl, 24:, Method, 1
-}
-Else If IECmd in %ProperList%
-{
- GuiControl, 24:Disable, Method
- GuiControl, 24:Disable, Property
- GuiControl, 24:, Property, 1
-}
-Else
-{
- GuiControl, 24:Enable, Method
- GuiControl, 24:Enable, Property
-}
-Try
+ If (A_GuiControl = "IECmd")
+ CbAutoComplete()
+ Gui, 24:Submit, NoHide
+ If IECmd in %NoElemList%
+ {
+ GuiControl, 24:Disable, DefEl
+ GuiControl, 24:Disable, DefElInd
+ GuiControl, 24:Disable, GetEl
+ GuiControl, 24:Disable, Ident
+ GuiControl, 24:, LoadWait, 1
+ }
+ Else
+ {
+ GuiControl, 24:Enable, DefEl
+ GuiControl, 24:Enable, DefElInd
+ GuiControl, 24:Enable, GetEl
+ GuiControl, 24:Enable, Ident
+ GuiControl, 24:, LoadWait, 0
+ }
+ If IECmd in %SetOnlyList%
+ {
+ GuiControl, 24:, Set, 1
+ GuiControl, 24:Enable, Set
+ GuiControl, 24:Disable, Get
+ GuiControl, 24:Enable, Value
+ }
+ Else If IECmd in %GetOnlyList%
+ {
+ GuiControl, 24:, Get, 1
+ GuiControl, 24:Enable, Get
+ GuiControl, 24:Disable, Set
+ GuiControl, 24:Enable, Value
+ GuiControl, 24:, LoadWait, 0
+ }
+ Else
+ {
+ GuiControl, 24:Enable, Get
+ GuiControl, 24:Enable, Set
+ }
+ If IECmd in %NoValueList%
+ GuiControl, 24:Disable, Value
+ Else
+ GuiControl, 24:Enable, Value
+ Gui, 24:Submit, NoHide
+ If (Set)
+ GuiControl, 24:, ValueT, %c_Lang056%:
+ Else If (Get)
+ GuiControl, 24:, ValueT, %c_Lang057%:
+ If IECmd in %MethodList%
+ {
+ GuiControl, 24:Disable, Method
+ GuiControl, 24:Disable, Property
+ GuiControl, 24:, Method, 1
+ }
+ Else If IECmd in %ProperList%
+ {
+ GuiControl, 24:Disable, Method
+ GuiControl, 24:Disable, Property
+ GuiControl, 24:, Property, 1
+ }
+ Else
+ {
+ GuiControl, 24:Enable, Method
+ GuiControl, 24:Enable, Property
+ }
+ Try
SB_SetText(IE_Tips[IECmd])
-Catch
- SB_SetText("")
+ Catch
+ SB_SetText("")
return
ActiveObj:
-Gui, 24:Submit, NoHide
-Gui, 24:+OwnDialogs
-If ((ComHwnd = "") || (ComCLSID = ""))
-{
- MsgBox, 16, %d_Lang007%, %d_Lang048%
- return
-}
-Try
- z_Check := VarSetCapacity(%ComHwnd%)
-Catch
-{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%ComHwnd%
- return
-}
-%ComHwnd% := "", Title := ""
-If (ComCLSID = "InternetExplorer.Application")
-{
- CoordMode, Mouse, Window
- Hotkey, RButton, NoKey, On
- Hotkey, Esc, EscNoKey, On
- L_Label := ComCLSID
- WinMinimize, ahk_id %CmdWin%
- SetTimer, WatchCursorIE, 100
- StopIt := 0
- Sleep, 100
- WaitFor.Key("RButton")
- SetTimer, WatchCursorIE, off
- ToolTip
- Sleep, 200
- Hotkey, RButton, NoKey, Off
- Hotkey, Esc, EscNoKey, Off
- L_Label := ""
- WinActivate, ahk_id %CmdWin%
- If (StopIt)
- Exit
- Try
- %ComHwnd% := WBGet()
- If (IsObject(%ComHwnd%))
+ Gui, 24:Submit, NoHide
+ Gui, 24:+OwnDialogs
+ If ((ComHwnd = "") || (ComCLSID = ""))
{
- Title := %ComHwnd%["Document"]["Title"]
- MsgBox, 64, %c_Lang099%, %d_Lang046%`n`n%Title%
+ MsgBox, 16, %d_Lang007%, %d_Lang048%
+ return
}
- Else
- MsgBox, 16, %c_Lang099%, %d_Lang047%
- StopIt := 1
-}
-Else If (ComCLSID = "Excel.Application")
-{
- CoordMode, Mouse, Window
- Hotkey, RButton, NoKey, On
- Hotkey, Esc, EscNoKey, On
- WinMinimize, ahk_id %CmdWin%
- SetTimer, WatchCursorXL, 100
- StopIt := 0
- Sleep, 100
- WaitFor.Key("RButton")
- SetTimer, WatchCursorXL, off
- ToolTip
- Sleep, 200
- Hotkey, RButton, NoKey, Off
- Hotkey, Esc, EscNoKey, Off
- WinActivate, ahk_id %CmdWin%
- If (StopIt)
- Exit
Try
+ z_Check := VarSetCapacity(%ComHwnd%)
+ Catch
{
- %ComHwnd% := ComObjActive(ComCLSID)
- Title := %ComHwnd%["ActiveWorkbook"]["Name"]
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%ComHwnd%
+ return
+ }
+ %ComHwnd% := "", Title := ""
+ If (ComCLSID = "InternetExplorer.Application")
+ {
+ CoordMode, Mouse, Window
+ Hotkey, RButton, NoKey, On
+ Hotkey, Esc, EscNoKey, On
+ L_Label := ComCLSID
+ WinMinimize, ahk_id %CmdWin%
+ SetTimer, WatchCursorIE, 100
+ StopIt := 0
+ Sleep, 100
+ WaitFor.Key("RButton")
+ SetTimer, WatchCursorIE, off
+ ToolTip
+ Sleep, 200
+ Hotkey, RButton, NoKey, Off
+ Hotkey, Esc, EscNoKey, Off
+ L_Label := ""
+ WinActivate, ahk_id %CmdWin%
+ If (StopIt)
+ Exit
+ Try
+ %ComHwnd% := WBGet()
+ If (IsObject(%ComHwnd%))
+ {
+ Title := %ComHwnd%["Document"]["Title"]
+ MsgBox, 64, %c_Lang099%, %d_Lang046%`n`n%Title%
+ }
+ Else
+ MsgBox, 16, %c_Lang099%, %d_Lang047%
+ StopIt := 1
}
- If (IsObject(%ComHwnd%))
+ Else If (ComCLSID = "Excel.Application")
{
- MsgBox, 64, %c_Lang099%, %d_Lang046%`n`n%Title%
+ CoordMode, Mouse, Window
+ Hotkey, RButton, NoKey, On
+ Hotkey, Esc, EscNoKey, On
+ WinMinimize, ahk_id %CmdWin%
+ SetTimer, WatchCursorXL, 100
+ StopIt := 0
+ Sleep, 100
+ WaitFor.Key("RButton")
+ SetTimer, WatchCursorXL, off
+ ToolTip
+ Sleep, 200
+ Hotkey, RButton, NoKey, Off
+ Hotkey, Esc, EscNoKey, Off
+ WinActivate, ahk_id %CmdWin%
+ If (StopIt)
+ Exit
+ Try
+ {
+ %ComHwnd% := ComObjActive(ComCLSID)
+ Title := %ComHwnd%["ActiveWorkbook"]["Name"]
+ }
+ If (IsObject(%ComHwnd%))
+ {
+ MsgBox, 64, %c_Lang099%, %d_Lang046%`n`n%Title%
+ }
+ Else
+ MsgBox, 16, %c_Lang099%, %d_Lang047%
+ StopIt := 1
}
Else
- MsgBox, 16, %c_Lang099%, %d_Lang047%
- StopIt := 1
-}
-Else
-{
- Try
+ {
+ Try
%ComHwnd% := ComObjActive(ComCLSID)
- If (IsObject(%ComHwnd%))
- MsgBox, 64, %c_Lang099%, %d_Lang046%
- Else
- MsgBox, 16, %c_Lang099%, %d_Lang047%
-}
+ If (IsObject(%ComHwnd%))
+ MsgBox, 64, %c_Lang099%, %d_Lang046%
+ Else
+ MsgBox, 16, %c_Lang099%, %d_Lang047%
+ }
return
TabControl:
-Gui, 24:Submit, NoHide
-If (TabControl = 2)
-{
- If ((CreateComObj) && (ComCLSID = "InternetExplorer.Application"))
- GuiControl, 24:Enable, LoadWait
+ Gui, 24:Submit, NoHide
+ If (TabControl = 2)
+ {
+ If ((CreateComObj) && (ComCLSID = "InternetExplorer.Application"))
+ GuiControl, 24:Enable, LoadWait
+ Else
+ GuiControl, 24:Disable, LoadWait
+ If (CreateComObj)
+ SB_SetText(Com_Tips[ComCLSID])
+ }
Else
- GuiControl, 24:Disable, LoadWait
- If (CreateComObj)
- SB_SetText(Com_Tips[ComCLSID])
-}
-Else
-{
- GuiControl, 24:Enable, LoadWait
- GoSub, IECmd
-}
+ {
+ GuiControl, 24:Enable, LoadWait
+ GoSub, IECmd
+ }
return
RefreshIEW:
-IEWindows := ListIEWindows()
-GuiControl, 24:, IEWindows, |%IEWindows%
+ IEWindows := ListIEWindows()
+ GuiControl, 24:, IEWindows, |%IEWindows%
return
ExpView:
-Gui, Submit, NoHide
-Script := (TabControl = 2) ? ComSc : ScLet
-Gui, 30:+owner1 -MinimizeBox +E0x00000400 +hwndCmdWin
-Gui, 24:+Disabled
-Gui, 30:Font, s9, Courier New
-Gui, 30:Font, s9, Lucida Console
-Gui, 30:Font, s9, Consolas
-Gui, 30:Add, Custom, ClassToolbarWindow32 hwndhTbText gTbText H25 0x0800 0x0100 0x0040 0x0008 0x0004
-Gui, 30:Add, Edit, Section xm ym+25 vTextEdit gTextEdit WantTab W720 R30, %Script%
-Gui, 30:Font
-Gui, 30:Add, Button, -Wrap Section Default xm y+15 W75 H23 gExpViewOK, %c_Lang020%
-Gui, 30:Add, Button, -Wrap ys W75 H23 gExpViewCancel, %c_Lang021%
-Gui, 30:Add, StatusBar, gStatusBarHelp
-Gui, 30:Default
-SB_SetParts(480, 80)
-SB_SetText(c_Lang091, 1)
-SB_SetText("length: " 0, 2)
-SB_SetText("lines: " 0, 3)
-GoSub, TextEdit
-Gui, 30:Font, s%MacroFontSize%
-GuiControl, 30:Font, TextEdit
-Gui, 30:Show,, %GuiTitle%
-TB_Define(TbText, hTbText, hIL_Icons, FixedBar.Text, FixedBar.TextOpt)
-TBHwndAll[9] := TbText
-GuiControl, 30:Focus, TextEdit
+ Gui, Submit, NoHide
+ Script := (TabControl = 2) ? ComSc : ScLet
+ Gui, 30:+owner1 -MinimizeBox +E0x00000400 +hwndCmdWin
+ Gui, 24:+Disabled
+ Gui, 30:Font, s9, Courier New
+ Gui, 30:Font, s9, Lucida Console
+ Gui, 30:Font, s9, Consolas
+ Gui, 30:Add, Custom, ClassToolbarWindow32 hwndhTbText gTbText H25 0x0800 0x0100 0x0040 0x0008 0x0004
+ Gui, 30:Add, Edit, Section xm ym+25 vTextEdit gTextEdit WantTab W720 R30, %Script%
+ Gui, 30:Font
+ Gui, 30:Add, Button, -Wrap Section Default xm y+15 W75 H23 gExpViewOK, %c_Lang020%
+ Gui, 30:Add, Button, -Wrap ys W75 H23 gExpViewCancel, %c_Lang021%
+ Gui, 30:Add, StatusBar, gStatusBarHelp
+ Gui, 30:Default
+ SB_SetParts(480, 80)
+ SB_SetText(c_Lang091, 1)
+ SB_SetText("length: " 0, 2)
+ SB_SetText("lines: " 0, 3)
+ GoSub, TextEdit
+ Gui, 30:Font, s%MacroFontSize%
+ GuiControl, 30:Font, TextEdit
+ Gui, 30:Show,, %GuiTitle%
+ TB_Define(TbText, hTbText, hIL_Icons, FixedBar.Text, FixedBar.TextOpt)
+ TBHwndAll[9] := TbText
+ GuiControl, 30:Focus, TextEdit
return
ExpViewOK:
-Gui, Submit, NoHide
-Gui, 24:-Disabled
-Gui, 30:Destroy
-Gui, 24:Default
-GuiControl,, % (TabControl = 2) ? "ComSc" : "ScLet", %TextEdit%
+ Gui, Submit, NoHide
+ Gui, 24:-Disabled
+ Gui, 30:Destroy
+ Gui, 24:Default
+ GuiControl,, % (TabControl = 2) ? "ComSc" : "ScLet", %TextEdit%
return
ExpViewCancel:
30GuiClose:
30GuiEscape:
-Gui, 24:-Disabled
-Gui, 30:Destroy
+ Gui, 24:-Disabled
+ Gui, 30:Destroy
return
EditUserFunc:
EditParam:
EditReturn:
-s_Caller := "Edit"
+ s_Caller := "Edit"
FuncReturn:
FuncParameter:
-If (!InStr(CopyMenuLabels[A_List], "()"))
-{
- s_Caller := ""
- return
-}
+ If (!InStr(CopyMenuLabels[A_List], "()"))
+ {
+ s_Caller := ""
+ return
+ }
UserFunction:
-Gui, 38:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
-Gui, 1:+Disabled
-Gui, 38:Add, Tab2, W450 H0 vTabControl AltSubmit, CmdTab1|CmdTab2|CmdTab3
-; Function
-Gui, 38:Add, GroupBox, Section xm ym W450 H70
-Gui, 38:Add, Text, -Wrap R1 ys+15 xs+10 W210 vFuncNameT, %c_Lang089%:
-Gui, 38:Add, Text, -Wrap R1 yp x+5 W105, %c_Lang218%:
-Gui, 38:Add, Edit, y+5 xs+10 W210 vFuncName, MyFunc
-Gui, 38:Add, Radio, -Wrap R1 yp+5 x+5 W105 vLocalScope gFuncScope Checked, %c_Lang219%
-Gui, 38:Add, Radio, -Wrap R1 yp x+5 W105 vGlobalScope gFuncScope, %c_Lang220%
-Gui, 38:Add, GroupBox, Section xm ys+75 W450 H155, %c_Lang215%:
-Gui, 38:Add, Text, -Wrap R1 ys+20 xs+25 W210, %c_Lang221%:
-Gui, 38:Add, Text, -Wrap R1 yp x+5 W150, %c_Lang217%:
-Gui, 38:Add, Text, -Wrap R1 yp x+5 W30, ByRef
-Gui, 38:Add, Text, -Wrap R1 y+10 xs+5 W15, #1
-Gui, 38:Add, Edit, yp-5 xs+25 W210 vParam1
-Gui, 38:Add, ComboBox, yp x+5 W150 vValue1, true|false|_blank
-Gui, 38:Add, CheckBox, -Wrap R1 yp+5 x+15 W30 vByRef1
-Gui, 38:Add, Text, -Wrap R1 y+10 xs+5 W15, #2
-Gui, 38:Add, Edit, yp-5 xs+25 W210 vParam2
-Gui, 38:Add, ComboBox, yp x+5 W150 vValue2, true|false|_blank
-Gui, 38:Add, CheckBox, -Wrap R1 yp+5 x+15 W30 vByRef2
-Gui, 38:Add, Text, -Wrap R1 y+10 xs+5 W15, #3
-Gui, 38:Add, Edit, yp-5 xs+25 W210 vParam3
-Gui, 38:Add, ComboBox, yp x+5 W150 vValue3, true|false|_blank
-Gui, 38:Add, CheckBox, -Wrap R1 yp+5 x+15 W30 vByRef3
-Gui, 38:Add, Text, -Wrap R1 y+10 xs+5 W15, #4
-Gui, 38:Add, Edit, yp-5 xs+25 W210 vParam4
-Gui, 38:Add, ComboBox, yp x+5 W150 vValue4, true|false|_blank
-Gui, 38:Add, CheckBox, -Wrap R1 yp+5 x+15 W30 vByRef4
-Gui, 38:Add, Text, -Wrap R1 y+10 xs+25 W400 cGray, %c_Lang222%
-Gui, 38:Add, GroupBox, Section xm ys+160 W450 H55 vVarsGroup, %c_Lang223% (VarName1, VarName2, VarName3...):
-Gui, 38:Add, Edit, ys+20 xs+10 W400 vFuncScoped
-Gui, 38:Add, GroupBox, Section xm ys+60 W450 H55, %c_Lang225% (VarName1 [:= VarValue1], VarName2 [:= VarValue2]...):
-Gui, 38:Add, Edit, ys+20 xs+10 W400 vFuncStatic
-Gui, 38:Tab, 2
-; Parameters
-Gui, 38:Add, GroupBox, Section xm ym W450 H350
-Gui, 38:Add, Text, -Wrap R1 ys+15 xs+10 W430 vParamNameT, %c_Lang221%
-Gui, 38:Add, Edit, y+5 xs+10 W430 vParamName
-Gui, 38:Add, Text, -Wrap R1 y+15 xs+10 W430, %c_Lang217%
-Gui, 38:Add, ComboBox, y+5 xs+10 W430 vDefaultValue, true|false|_blank
-Gui, 38:Add, CheckBox, -Wrap R1 y+15 xs+10 W100 vByRef, ByRef
-Gui, 38:Add, Text, y+15 xs+10 W430 H120, %d_Lang095%
-Gui, 38:Tab, 3
-; Return
-Gui, 38:Add, GroupBox, Section xm ym W450 H350
-Gui, 38:Add, Text, -Wrap R1 ys+15 xs+10 W430, %c_Lang216%:
-Gui, 38:Add, Edit, y+5 xs+10 W430 vRetExpr
-Gui, 38:Add, Text, y+15 xs+10 W430 H250, %d_Lang096%
-Gui, 38:Add, Link, -Wrap y+10 W430 R1 vExprLink gExprLink, %c_Lang091%
-Gui, 38:Tab
-Gui, 38:Add, Button, -Wrap Section Default xm ys+360 W75 H23 gUDFOK, %c_Lang020%
-Gui, 38:Add, Button, -Wrap ys W75 H23 gUDFCancel, %c_Lang021%
-Gui, 38:Add, Button, -Wrap ys W75 H23 vUDFApply gUDFApply Disabled, %c_Lang131%
-Gui, 38:Add, StatusBar, gStatusBarHelp
-Gui, 38:Default
-SB_SetIcon(ResDllPath, IconsNames["help"])
-If (s_Caller = "Edit")
-{
- If (A_ThisLabel = "EditUserFunc")
- {
- GuiControl, 38:, FuncName, %Details%
- If (Target = "Global")
- GuiControl, 38:, GlobalScope, 1
- StringSplit, FuncVariables, Window, /, %A_Space%
- GuiControl, 38:, FuncScoped, % StrReplace(FuncVariables1, """")
- GuiControl, 38:, FuncStatic, % StrReplace(FuncVariables2, """")
- Loop, 4
+ Gui, 38:+owner1 -MinimizeBox +E0x00000400 +HwndCmdWin
+ Gui, 1:+Disabled
+ Gui, 38:Add, Tab2, W450 H0 vTabControl AltSubmit, CmdTab1|CmdTab2|CmdTab3
+ ; Function
+ Gui, 38:Add, GroupBox, Section xm ym W450 H70
+ Gui, 38:Add, Text, -Wrap R1 ys+15 xs+10 W210 vFuncNameT, %c_Lang089%:
+ Gui, 38:Add, Text, -Wrap R1 yp x+5 W105, %c_Lang218%:
+ Gui, 38:Add, Edit, y+5 xs+10 W210 vFuncName, MyFunc
+ Gui, 38:Add, Radio, -Wrap R1 yp+5 x+5 W105 vLocalScope gFuncScope Checked, %c_Lang219%
+ Gui, 38:Add, Radio, -Wrap R1 yp x+5 W105 vGlobalScope gFuncScope, %c_Lang220%
+ Gui, 38:Add, GroupBox, Section xm ys+75 W450 H155, %c_Lang215%:
+ Gui, 38:Add, Text, -Wrap R1 ys+20 xs+25 W210, %c_Lang221%:
+ Gui, 38:Add, Text, -Wrap R1 yp x+5 W150, %c_Lang217%:
+ Gui, 38:Add, Text, -Wrap R1 yp x+5 W30, ByRef
+ Gui, 38:Add, Text, -Wrap R1 y+10 xs+5 W15, #1
+ Gui, 38:Add, Edit, yp-5 xs+25 W210 vParam1
+ Gui, 38:Add, ComboBox, yp x+5 W150 vValue1, true|false|_blank
+ Gui, 38:Add, CheckBox, -Wrap R1 yp+5 x+15 W30 vByRef1
+ Gui, 38:Add, Text, -Wrap R1 y+10 xs+5 W15, #2
+ Gui, 38:Add, Edit, yp-5 xs+25 W210 vParam2
+ Gui, 38:Add, ComboBox, yp x+5 W150 vValue2, true|false|_blank
+ Gui, 38:Add, CheckBox, -Wrap R1 yp+5 x+15 W30 vByRef2
+ Gui, 38:Add, Text, -Wrap R1 y+10 xs+5 W15, #3
+ Gui, 38:Add, Edit, yp-5 xs+25 W210 vParam3
+ Gui, 38:Add, ComboBox, yp x+5 W150 vValue3, true|false|_blank
+ Gui, 38:Add, CheckBox, -Wrap R1 yp+5 x+15 W30 vByRef3
+ Gui, 38:Add, Text, -Wrap R1 y+10 xs+5 W15, #4
+ Gui, 38:Add, Edit, yp-5 xs+25 W210 vParam4
+ Gui, 38:Add, ComboBox, yp x+5 W150 vValue4, true|false|_blank
+ Gui, 38:Add, CheckBox, -Wrap R1 yp+5 x+15 W30 vByRef4
+ Gui, 38:Add, Text, -Wrap R1 y+10 xs+25 W400 cGray, %c_Lang222%
+ Gui, 38:Add, GroupBox, Section xm ys+160 W450 H55 vVarsGroup, %c_Lang223% (VarName1, VarName2, VarName3...):
+ Gui, 38:Add, Edit, ys+20 xs+10 W400 vFuncScoped
+ Gui, 38:Add, GroupBox, Section xm ys+60 W450 H55, %c_Lang225% (VarName1 [:= VarValue1], VarName2 [:= VarValue2]...):
+ Gui, 38:Add, Edit, ys+20 xs+10 W400 vFuncStatic
+ Gui, 38:Tab, 2
+ ; Parameters
+ Gui, 38:Add, GroupBox, Section xm ym W450 H350
+ Gui, 38:Add, Text, -Wrap R1 ys+15 xs+10 W430 vParamNameT, %c_Lang221%
+ Gui, 38:Add, Edit, y+5 xs+10 W430 vParamName
+ Gui, 38:Add, Text, -Wrap R1 y+15 xs+10 W430, %c_Lang217%
+ Gui, 38:Add, ComboBox, y+5 xs+10 W430 vDefaultValue, true|false|_blank
+ Gui, 38:Add, CheckBox, -Wrap R1 y+15 xs+10 W100 vByRef, ByRef
+ Gui, 38:Add, Text, y+15 xs+10 W430 H120, %d_Lang095%
+ Gui, 38:Tab, 3
+ ; Return
+ Gui, 38:Add, GroupBox, Section xm ym W450 H350
+ Gui, 38:Add, Text, -Wrap R1 ys+15 xs+10 W430, %c_Lang216%:
+ Gui, 38:Add, Edit, y+5 xs+10 W430 vRetExpr
+ Gui, 38:Add, Text, y+15 xs+10 W430 H250, %d_Lang096%
+ Gui, 38:Add, Link, -Wrap y+10 W430 R1 vExprLink gExprLink, %c_Lang091%
+ Gui, 38:Tab
+ Gui, 38:Add, Button, -Wrap Section Default xm ys+360 W75 H23 gUDFOK, %c_Lang020%
+ Gui, 38:Add, Button, -Wrap ys W75 H23 gUDFCancel, %c_Lang021%
+ Gui, 38:Add, Button, -Wrap ys W75 H23 vUDFApply gUDFApply Disabled, %c_Lang131%
+ Gui, 38:Add, StatusBar, gStatusBarHelp
+ Gui, 38:Default
+ SB_SetIcon(ResDllPath, IconsNames["help"])
+ If (s_Caller = "Edit")
+ {
+ If (A_ThisLabel = "EditUserFunc")
{
- GuiControl, 38:Disable, Param%A_Index%
- GuiControl, 38:Disable, Value%A_Index%
- GuiControl, 38:Disable, ByRef%A_Index%
+ GuiControl, 38:, FuncName, %Details%
+ If (Target = "Global")
+ GuiControl, 38:, GlobalScope, 1
+ StringSplit, FuncVariables, Window, /, %A_Space%
+ GuiControl, 38:, FuncScoped, % StrReplace(FuncVariables1, """")
+ GuiControl, 38:, FuncStatic, % StrReplace(FuncVariables2, """")
+ Loop, 4
+ {
+ GuiControl, 38:Disable, Param%A_Index%
+ GuiControl, 38:Disable, Value%A_Index%
+ GuiControl, 38:Disable, ByRef%A_Index%
+ }
+ GoSub, FuncScope
+ SBShowTip("UserFunction")
}
- GoSub, FuncScope
- SBShowTip("UserFunction")
- }
- Else If (A_ThisLabel = "EditParam")
- {
- AssignReplace(Details, VarName, Oper, VarValue)
- If (VarName = "")
- GuiControl, 38:, ParamName, %Details%
- Else
+ Else If (A_ThisLabel = "EditParam")
{
- GuiControl, 38:, ParamName, %VarName%
- If (VarValue = """""")
- GuiControl, 38:ChooseString, DefaultValue, _blank
- Else If ((VarValue = "true") || (VarValue = "false"))
- GuiControl, 38:ChooseString, DefaultValue, %VarValue%
+ AssignReplace(Details, VarName, Oper, VarValue)
+ If (VarName = "")
+ GuiControl, 38:, ParamName, %Details%
Else
- GuiControl, 38:, DefaultValue, % Trim(VarValue, """") "||"
+ {
+ GuiControl, 38:, ParamName, %VarName%
+ If (VarValue = """""")
+ GuiControl, 38:ChooseString, DefaultValue, _blank
+ Else If ((VarValue = "true") || (VarValue = "false"))
+ GuiControl, 38:ChooseString, DefaultValue, %VarValue%
+ Else
+ GuiControl, 38:, DefaultValue, % Trim(VarValue, """") "||"
+ }
+ GuiControl, 38:, ByRef, % Target = "ByRef"
+ GuiControl, 38:Choose, TabControl, 2
+ SBShowTip("Parameter")
+ }
+ Else If (A_ThisLabel = "EditReturn")
+ {
+ GuiControl, 38:, RetExpr, %Details%
+ GuiControl, 38:Choose, TabControl, 3
+ SBShowTip("Return")
}
- GuiControl, 38:, ByRef, % Target = "ByRef"
+ GuiControl, 38:Enable, UDFApply
+ }
+ If (InStr(A_ThisLabel, "UserFunc"))
+ {
+ GuiTitle := c_Lang212
+ SBShowTip("UserFunction")
+ }
+ Else If (InStr(A_ThisLabel, "Param"))
+ {
GuiControl, 38:Choose, TabControl, 2
+ GuiTitle := c_Lang213
SBShowTip("Parameter")
}
- Else If (A_ThisLabel = "EditReturn")
+ Else
{
- GuiControl, 38:, RetExpr, %Details%
GuiControl, 38:Choose, TabControl, 3
+ GuiTitle := c_Lang214
SBShowTip("Return")
}
- GuiControl, 38:Enable, UDFApply
-}
-If (InStr(A_ThisLabel, "UserFunc"))
-{
- GuiTitle := c_Lang212
- SBShowTip("UserFunction")
-}
-Else If (InStr(A_ThisLabel, "Param"))
-{
- GuiControl, 38:Choose, TabControl, 2
- GuiTitle := c_Lang213
- SBShowTip("Parameter")
-}
-Else
-{
- GuiControl, 38:Choose, TabControl, 3
- GuiTitle := c_Lang214
- SBShowTip("Return")
-}
-Gui, 38:Show,, %GuiTitle%
-ChangeIcon(hIL_Icons, CmdWin, InStr(A_ThisLabel, "UserFunc") ? IconsNames["userfunc"] : InStr(A_ThisLabel, "Param") ? IconsNames["parameter"] : IconsNames["return"])
-Tooltip
+ Gui, 38:Show,, %GuiTitle%
+ ChangeIcon(hIL_Icons, CmdWin, InStr(A_ThisLabel, "UserFunc") ? IconsNames["userfunc"] : InStr(A_ThisLabel, "Param") ? IconsNames["parameter"] : IconsNames["return"])
+ Tooltip
return
UDFApply:
UDFOK:
-Gui, 38:+OwnDialogs
-Gui, 38:Submit, NoHide
-If (TabControl = 1)
-{
- If (FuncName = "")
- {
- Gui, 38:Font, cRed
- GuiControl, 38:Font, FuncNameT
- GuiControl, 38:Focus, FuncName
- return
- }
- If (!RegExMatch(FuncName, "^\w+$"))
+ Gui, 38:+OwnDialogs
+ Gui, 38:Submit, NoHide
+ If (TabControl = 1)
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%
- return
- }
- MustDefault := false
- Loop, 4
- {
- If (Param%A_Index% = "")
- continue
- Param := Param%A_Index%
- Try
- z_Check := VarSetCapacity(%Param%)
- Catch
+ If (FuncName = "")
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%Param%
+ Gui, 38:Font, cRed
+ GuiControl, 38:Font, FuncNameT
+ GuiControl, 38:Focus, FuncName
return
}
- If ((MustDefault) && (Value%A_Index% == ""))
+ If (!RegExMatch(FuncName, "^\w+$"))
{
- MsgBox, 16, %d_Lang007%, %d_Lang098%
- Return
+ MsgBox, 16, %d_Lang007%, %d_Lang041%
+ return
}
- If (Value%A_Index% != "")
- MustDefault := true
- }
- FuncVariables := ""
- Loop, Parse, FuncScoped, `,, %A_Space%
- {
- If (LocalScope = 1)
+ MustDefault := false
+ Loop, 4
{
+ If (Param%A_Index% = "")
+ continue
+ Param := Param%A_Index%
Try
- z_Check := VarSetCapacity(%A_LoopField%)
+ z_Check := VarSetCapacity(%Param%)
Catch
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%A_LoopField%
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%Param%
return
}
- FuncVariables .= A_LoopField ", "
+ If ((MustDefault) && (Value%A_Index% == ""))
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang098%
+ Return
+ }
+ If (Value%A_Index% != "")
+ MustDefault := true
}
- Else
+ FuncVariables := ""
+ Loop, Parse, FuncScoped, `,, %A_Space%
+ {
+ If (LocalScope = 1)
+ {
+ Try
+ z_Check := VarSetCapacity(%A_LoopField%)
+ Catch
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%A_LoopField%
+ return
+ }
+ FuncVariables .= A_LoopField ", "
+ }
+ Else
+ {
+ AssignReplace(A_LoopField, VarName, Oper, VarValue)
+ If (VarName = "")
+ {
+ Try
+ z_Check := VarSetCapacity(%A_LoopField%)
+ Catch
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%A_LoopField%
+ return
+ }
+ FuncVariables .= A_LoopField ", "
+ }
+ Else
+ {
+ Try
+ z_Check := VarSetCapacity(%VarName%)
+ Catch
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%VarName%
+ return
+ }
+ FuncVariables .= VarName " := " Trim(VarValue, """") ", "
+ }
+ }
+ }
+ StaticVariables := ""
+ Loop, Parse, FuncStatic, `,, %A_Space%
{
AssignReplace(A_LoopField, VarName, Oper, VarValue)
If (VarName = "")
{
Try
- z_Check := VarSetCapacity(%A_LoopField%)
+ z_Check := VarSetCapacity(%A_LoopField%)
Catch
{
MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%A_LoopField%
return
}
- FuncVariables .= A_LoopField ", "
+ StaticVariables .= A_LoopField ", "
}
Else
{
Try
- z_Check := VarSetCapacity(%VarName%)
+ z_Check := VarSetCapacity(%VarName%)
Catch
{
MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%VarName%
return
}
- FuncVariables .= VarName " := " Trim(VarValue, """") ", "
+ StaticVariables .= VarName " := " Trim(VarValue, """") ", "
}
}
- }
- StaticVariables := ""
- Loop, Parse, FuncStatic, `,, %A_Space%
- {
- AssignReplace(A_LoopField, VarName, Oper, VarValue)
- If (VarName = "")
+ StaticVariables := RegExReplace(StaticVariables, ":=\s(\D+?),", ":= ""$1"",")
+ StaticVariables := StrReplace(StaticVariables, """true""", "true")
+ StaticVariables := StrReplace(StaticVariables, """false""", "false")
+ FuncVariables := RegExReplace(FuncVariables, ":=\s(\D+?),", ":= ""$1"",")
+ FuncVariables := StrReplace(FuncVariables, """true""", "true")
+ FuncVariables := StrReplace(FuncVariables, """false""", "false")
+ FuncVariables := Trim(FuncVariables, ", ") " / " Trim(StaticVariables, ", ")
+ CurrentTabs := ""
+ Loop, % TabCount
{
- Try
- z_Check := VarSetCapacity(%A_LoopField%)
- Catch
+ If ((s_Caller != "") && (A_List = A_Index))
+ {
+ CurrentTabs .= FuncName "()|"
+ continue
+ }
+ TabName := CopyMenuLabels[A_Index]
+ If (TabName = (FuncName "()"))
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%A_LoopField%
+ MsgBox, 16, %d_Lang007%, %d_Lang101%
return
}
- StaticVariables .= A_LoopField ", "
+ CurrentTabs .= TabName "|"
}
- Else
+ If (s_Caller = "")
{
- Try
- z_Check := VarSetCapacity(%VarName%)
- Catch
+ GoSub, TabPlus
+ CurrentTabs .= FuncName "()"
+ }
+ GuiControl, chMacro:, %TabSel%, |%CurrentTabs%
+ CopyMenuLabels := StrSplit(Trim(CurrentTabs, "|"), "|")
+ GuiControl, chMacro:Choose, A_List, %A_List%
+ GoSub, FuncTab
+ If (A_ThisLabel != "UDFApply")
+ {
+ Gui, 1:-Disabled
+ Gui, 38:Destroy
+ }
+ Gui, chMacro:Default
+ RowIdx := 1
+ Loop, 4
+ {
+ DefaultDet := ""
+ If (Param%A_Index% = "")
+ continue
+ If (Value%A_Index% != "")
{
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%VarName%
- return
+ DefaultDet := (Value%A_Index% = "_blank" ? "" : Value%A_Index%)
+ If DefaultDet not in true,false
+ {
+ If DefaultDet is not Number
+ DefaultDet := """" DefaultDet """"
+ }
+ DefaultDet := " := " DefaultDet
}
- StaticVariables .= VarName " := " Trim(VarValue, """") ", "
+ Else
+ DefaultDet := ""
+ Action := "[FuncParameter]", Details := Param%A_Index% . DefaultDet, Type := cType48
+ Target := ByRef%A_Index% ? "ByRef" : ""
+ If (s_Caller = "Conv")
+ LV_Insert(RowIdx, "Check", ListCount%A_List%+1, Action, Details, 1, 0, Type, Target)
+ Else
+ LV_Add("Check", ListCount%A_List%+1, Action, Details, 1, 0, Type, Target)
+ RowIdx++
}
+ FuncScope := (GlobalScope = 1) ? "Global" : "Local"
+ If (s_Caller = "Conv")
+ LV_Insert(RowIdx, "Check", ListCount%A_List%+1, "[FunctionStart]", FuncName, 1, 0, cType47, FuncScope, FuncVariables)
+ Else If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col2", "[FunctionStart]", FuncName, 1, 0, cType47, FuncScope, FuncVariables)
+ Else
+ LV_Add("Check", ListCount%A_List%+1, "[FunctionStart]", FuncName, 1, 0, cType47, FuncScope, FuncVariables)
+ GoSub, PrevRefresh
+ GoSub, UpdateCopyTo
}
- StaticVariables := RegExReplace(StaticVariables, ":=\s(\D+?),", ":= ""$1"",")
- StaticVariables := StrReplace(StaticVariables, """true""", "true")
- StaticVariables := StrReplace(StaticVariables, """false""", "false")
- FuncVariables := RegExReplace(FuncVariables, ":=\s(\D+?),", ":= ""$1"",")
- FuncVariables := StrReplace(FuncVariables, """true""", "true")
- FuncVariables := StrReplace(FuncVariables, """false""", "false")
- FuncVariables := Trim(FuncVariables, ", ") " / " Trim(StaticVariables, ", ")
- CurrentTabs := ""
- Loop, % TabCount
- {
- If ((s_Caller != "") && (A_List = A_Index))
+ If (TabControl = 2)
+ {
+ If (ParamName = "")
{
- CurrentTabs .= FuncName "()|"
- continue
+ Gui, 38:Font, cRed
+ GuiControl, 38:Font, ParamNameT
+ GuiControl, 38:Focus, ParamName
+ return
}
- TabName := CopyMenuLabels[A_Index]
- If (TabName = (FuncName "()"))
+ Try
+ z_Check := VarSetCapacity(%ParamName%)
+ Catch
{
- MsgBox, 16, %d_Lang007%, %d_Lang101%
+ MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%ParamName%
return
}
- CurrentTabs .= TabName "|"
- }
- If (s_Caller = "")
- {
- GoSub, TabPlus
- CurrentTabs .= FuncName "()"
- }
- GuiControl, chMacro:, %TabSel%, |%CurrentTabs%
- CopyMenuLabels := StrSplit(Trim(CurrentTabs, "|"), "|")
- GuiControl, chMacro:Choose, A_List, %A_List%
- GoSub, FuncTab
- If (A_ThisLabel != "UDFApply")
- {
- Gui, 1:-Disabled
- Gui, 38:Destroy
- }
- Gui, chMacro:Default
- RowIdx := 1
- Loop, 4
- {
- DefaultDet := ""
- If (Param%A_Index% = "")
- continue
- If (Value%A_Index% != "")
+ If (DefaultValue != "")
{
- DefaultDet := (Value%A_Index% = "_blank" ? "" : Value%A_Index%)
+ DefaultDet := (DefaultValue = "_blank" ? "" : DefaultValue)
If DefaultDet not in true,false
{
If DefaultDet is not Number
@@ -11070,499 +11111,453 @@ If (TabControl = 1)
}
Else
DefaultDet := ""
- Action := "[FuncParameter]", Details := Param%A_Index% . DefaultDet, Type := cType48
- Target := ByRef%A_Index% ? "ByRef" : ""
- If (s_Caller = "Conv")
- LV_Insert(RowIdx, "Check", ListCount%A_List%+1, Action, Details, 1, 0, Type, Target)
+ Action := "[FuncParameter]", Details := ParamName . DefaultDet, Type := cType48
+ Target := ByRef ? "ByRef" : ""
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected")
+ If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col2", Action, Details, 1, 0, Type, Target)
+ Else If (RowSelection = 0)
+ {
+ RowNumber := 1
+ Loop, % ListCount%A_List%
+ {
+ LV_GetText(RowType, RowNumber, 6)
+ If (RowType = cType47)
+ break
+ RowNumber++
+ }
+ LV_Insert(RowNumber, "Check",, Action, Details, 1, 0, Type, Target)
+ LVManager[A_List].InsertAtGroup(RowNumber)
+ }
Else
- LV_Add("Check", ListCount%A_List%+1, Action, Details, 1, 0, Type, Target)
- RowIdx++
- }
- FuncScope := (GlobalScope = 1) ? "Global" : "Local"
- If (s_Caller = "Conv")
- LV_Insert(RowIdx, "Check", ListCount%A_List%+1, "[FunctionStart]", FuncName, 1, 0, cType47, FuncScope, FuncVariables)
- Else If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col2", "[FunctionStart]", FuncName, 1, 0, cType47, FuncScope, FuncVariables)
- Else
- LV_Add("Check", ListCount%A_List%+1, "[FunctionStart]", FuncName, 1, 0, cType47, FuncScope, FuncVariables)
- GoSub, PrevRefresh
- GoSub, UpdateCopyTo
-}
-If (TabControl = 2)
-{
- If (ParamName = "")
- {
- Gui, 38:Font, cRed
- GuiControl, 38:Font, ParamNameT
- GuiControl, 38:Focus, ParamName
- return
- }
- Try
- z_Check := VarSetCapacity(%ParamName%)
- Catch
- {
- MsgBox, 16, %d_Lang007%, %d_Lang041%`n`n%ParamName%
- return
- }
- If (DefaultValue != "")
- {
- DefaultDet := (DefaultValue = "_blank" ? "" : DefaultValue)
- If DefaultDet not in true,false
{
- If DefaultDet is not Number
- DefaultDet := """" DefaultDet """"
+ LV_Insert(LV_GetNext(), "Check",, Action, Details, 1, 0, Type, Target)
+ LVManager[A_List].InsertAtGroup(LV_GetNext())
}
- DefaultDet := " := " DefaultDet
}
- Else
- DefaultDet := ""
- Action := "[FuncParameter]", Details := ParamName . DefaultDet, Type := cType48
- Target := ByRef ? "ByRef" : ""
- Gui, chMacro:Default
- RowSelection := LV_GetCount("Selected")
- If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col2", Action, Details, 1, 0, Type, Target)
- Else If (RowSelection = 0)
+ If (TabControl = 3)
{
- RowNumber := 1
- Loop, % ListCount%A_List%
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ If (s_Caller = "Edit")
+ LV_Modify(RowNumber, "Col2", "[FuncReturn]", RetExpr, 1, 0, cType49)
+ Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
{
- LV_GetText(RowType, RowNumber, 6)
- If (RowType = cType47)
- break
- RowNumber++
+ LV_Add("Check", ListCount%A_List%+1, "[FuncReturn]", RetExpr, 1, 0, cType49)
+ LV_Modify(ListCount%A_List%+1, "Vis")
+ }
+ Else
+ {
+ LV_Insert(LV_GetNext(), "Check",, "[FuncReturn]", RetExpr, 1, 0, cType49)
+ LVManager[A_List].InsertAtGroup(LV_GetNext())
}
- LV_Insert(RowNumber, "Check",, Action, Details, 1, 0, Type, Target)
- LVManager[A_List].InsertAtGroup(RowNumber)
- }
- Else
- {
- LV_Insert(LV_GetNext(), "Check",, Action, Details, 1, 0, Type, Target)
- LVManager[A_List].InsertAtGroup(LV_GetNext())
}
-}
-If (TabControl = 3)
-{
- Gui, chMacro:Default
- RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
- If (s_Caller = "Edit")
- LV_Modify(RowNumber, "Col2", "[FuncReturn]", RetExpr, 1, 0, cType49)
- Else If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
+ If (A_ThisLabel != "UDFApply")
{
- LV_Add("Check", ListCount%A_List%+1, "[FuncReturn]", RetExpr, 1, 0, cType49)
- LV_Modify(ListCount%A_List%+1, "Vis")
+ Gui, 1:-Disabled
+ Gui, 38:Destroy
}
+ GoSub, RowCheck
+ GoSub, b_Start
+ If (A_ThisLabel = "UDFApply")
+ Gui, 38:Default
Else
{
- LV_Insert(LV_GetNext(), "Check",, "[FuncReturn]", RetExpr, 1, 0, cType49)
- LVManager[A_List].InsertAtGroup(LV_GetNext())
+ s_Caller := ""
+ GuiControl, Focus, InputList%A_List%
}
-}
-If (A_ThisLabel != "UDFApply")
-{
- Gui, 1:-Disabled
- Gui, 38:Destroy
-}
-GoSub, RowCheck
-GoSub, b_Start
-If (A_ThisLabel = "UDFApply")
- Gui, 38:Default
-Else
-{
- s_Caller := ""
- GuiControl, Focus, InputList%A_List%
-}
return
UDFCancel:
38GuiEscape:
38GuiClose:
-Gui, 1:-Disabled
-Gui, 38:Destroy
-s_Caller := ""
+ Gui, 1:-Disabled
+ Gui, 38:Destroy
+ s_Caller := ""
return
ConvertToFunc:
-If (InStr(CopyMenuLabels[A_List], "()"))
- return
-s_Caller := "Conv"
-GoSub, UserFunction
+ If (InStr(CopyMenuLabels[A_List], "()"))
+ return
+ s_Caller := "Conv"
+ GoSub, UserFunction
return
FuncScope:
-Gui, 38:Submit, NoHide
-If (GlobalScope = 1)
- GuiControl, 38:, VarsGroup, %c_Lang224% (VarName1 [:= VarValue1], VarName2 [:= VarValue2]...):
-Else
- GuiControl, 38:, VarsGroup, %c_Lang223% (VarName1, VarName2, VarName3...):
+ Gui, 38:Submit, NoHide
+ If (GlobalScope = 1)
+ GuiControl, 38:, VarsGroup, %c_Lang224% (VarName1 [:= VarValue1], VarName2 [:= VarValue2]...):
+ Else
+ GuiControl, 38:, VarsGroup, %c_Lang223% (VarName1, VarName2, VarName3...):
return
DonatePayPal:
-Run, "https://www.macrocreator.com/donate"
+ Run, "https://www.macrocreator.com/donate"
return
26GuiEscape:
26GuiClose:
TipClose:
-Gui, 26:Submit
-Gui, 26:Destroy
-Gui, 1:-Disabled
-WinActivate,,, ahk_id %PMCWinID%
+ Gui, 26:Submit
+ Gui, 26:Destroy
+ Gui, 1:-Disabled
+ WinActivate,,, ahk_id %PMCWinID%
return
35GuiEscape:
35GuiClose:
TipClose2:
-Gui, 1:-Disabled
-Gui, 35:Submit
-Gui, 35:Destroy
+ Gui, 1:-Disabled
+ Gui, 35:Submit
+ Gui, 35:Destroy
return
Welcome:
-Gui, 31:-MinimizeBox +owner1
-Gui, 1:+Disabled
-Gui, 31:Font, Bold s10, Tahoma
-Gui, 31:Add, Text, -Wrap R1 w460 Center, %d_Lang075%
-Gui, 31:Font
-Gui, 31:Add, Groupbox, Section w480 h90 Center, %d_Lang076%:
-Gui, 31:Add, Radio, -Wrap R1 Checked xs+30 ys+30 W130 vBestFit gBestFitLayout, %d_Lang118%
-Gui, 31:Add, Radio, -Wrap R1 yp x+20 W130 vDefault gDefaultLayout, %d_Lang078%
-Gui, 31:Add, Radio, -Wrap R1 yp x+20 W130 vBasic gBasicLayout, %d_Lang077%
-Gui, 31:Add, Text, -Wrap y+15 xs+10 W300 R1 cGray, %d_Lang081%
-Gui, 31:Add, Text, -Wrap y+30 xs W170 R1, %t_Lang189% (Language):
-Gui, 31:Add, DDL, yp x+5 W190 vSelLang, %Lang_List%
-GuiControl, 31:ChooseString, SelLang, % RegExReplace(Lang_%CurrentLang%, "\t.*")
-Gui, 31:Add, Button, Default xm W75 H23 gWelcClose, %c_Lang020%
-Gui, 31:Add, Checkbox, Checked%AutoUpdate% -Wrap yp+5 x+10 W350 r1 vAutoUpdate, %d_Lang079%
-Gui, 31:Show,, %AppName%
+ Gui, 31:-MinimizeBox +owner1
+ Gui, 1:+Disabled
+ Gui, 31:Font, Bold s10, Tahoma
+ Gui, 31:Add, Text, -Wrap R1 w460 Center, %d_Lang075%
+ Gui, 31:Font
+ Gui, 31:Add, Groupbox, Section w480 h90 Center, %d_Lang076%:
+ Gui, 31:Add, Radio, -Wrap R1 Checked xs+30 ys+30 W130 vBestFit gBestFitLayout, %d_Lang118%
+ Gui, 31:Add, Radio, -Wrap R1 yp x+20 W130 vDefault gDefaultLayout, %d_Lang078%
+ Gui, 31:Add, Radio, -Wrap R1 yp x+20 W130 vBasic gBasicLayout, %d_Lang077%
+ Gui, 31:Add, Text, -Wrap y+15 xs+10 W300 R1 cGray, %d_Lang081%
+ Gui, 31:Add, Text, -Wrap y+30 xs W170 R1, %t_Lang189% (Language):
+ Gui, 31:Add, DDL, yp x+5 W190 vSelLang, %Lang_List%
+ GuiControl, 31:ChooseString, SelLang, % RegExReplace(Lang_%CurrentLang%, "\t.*")
+ Gui, 31:Add, Button, Default xm W75 H23 gWelcClose, %c_Lang020%
+ Gui, 31:Add, Checkbox, Checked%AutoUpdate% -Wrap yp+5 x+10 W350 r1 vAutoUpdate, %d_Lang079%
+ Gui, 31:Show,, %AppName%
return
31GuiClose:
31GuiEscape:
WelcClose:
-Gui, 1:-Disabled
-Gui, 31:Submit
-Gui, 31:Destroy
-If (AutoUpdate)
- Menu, HelpMenu, Check, %h_Lang008%
-Else
- Menu, HelpMenu, Uncheck, %h_Lang008%
-If (Basic = 1)
- UserLayout := "Basic"
-If (Default = 1)
- UserLayout := "Default"
-SetTimer, LangChange, -1
-Sleep, 500
-Files := SettingsFolder "\Demo.pmc"
-GoSub, OpenFile
-If (ShowTips)
- GoSub, ShowTips
-If (AutoUpdate)
- SetTimer, CheckUpdates, -1
+ Gui, 1:-Disabled
+ Gui, 31:Submit
+ Gui, 31:Destroy
+ If (AutoUpdate)
+ Menu, HelpMenu, Check, %h_Lang008%
+ Else
+ Menu, HelpMenu, Uncheck, %h_Lang008%
+ If (Basic = 1)
+ UserLayout := "Basic"
+ If (Default = 1)
+ UserLayout := "Default"
+ SetTimer, LangChange, -1
+ Sleep, 500
+ Files := SettingsFolder "\Demo.pmc"
+ GoSub, OpenFile
+ If (ShowTips)
+ GoSub, ShowTips
+ If (AutoUpdate)
+ SetTimer, CheckUpdates, -1
return
CmdFind:
ShowTips:
-If (NextTip > MaxTips)
- NextTip := 1
-Gui, 34:+owner1 -MinimizeBox +E0x00000400 +HwndStartTipID
-Gui, 1:+Disabled
-If (A_ThisLabel != "CmdFind")
-{
- Gui, 34:Color, FFFFFF
- Gui, 34:Font, Bold s10, Tahoma
- Gui, 34:Add, Text, w220, %d_Lang072%
- Gui, 34:Font
- Gui, 34:Font,, Tahoma
- Gui, 34:Add, Text, w220, %d_Lang069%
- Gui, 34:Font
- Gui, 34:Add, Button, Section -Wrap xm+60 W75 H23 gDonatePayPal, %d_Lang070%
- Gui, 34:Add, Button, -Wrap ys W75 H23 gTipsClose, %d_Lang071%
- Gui, 34:Add, Checkbox, -Wrap Checked%ShowTips% xm y+20 W220 vShowTips R1, %d_Lang067%
- Gui, 34:Add, Text, x+10 ym h255 0x11
- Gui, 34:Add, Pic, x+1 ym Icon72 W48 H48, %ResDllPath%
- Gui, 34:Add, Text, -Wrap R1 Section yp x+10, %d_Lang068%%A_Space%
- Gui, 34:Add, Text, -Wrap R1 yp x+0 vCurrTip, %NextTip%%A_Space%%A_Space%%A_Space%
- Gui, 34:Add, Text, -Wrap R1 yp x+0, / %MaxTips%
- Gui, 34:Add, Edit, xs W350 r6 vTipDisplay ReadOnly -0x200000 -E0x200, % StartTip_%NextTip%
- Gui, 34:Add, Button, Section -Wrap y+0 W90 H23 vPTip gPrevTip, %d_Lang022%
- Gui, 34:Add, Button, -Wrap yp x+5 W90 H23 vNTip gNextTip, %d_Lang021%
- Gui, 34:Add, Text, -Wrap R1 xs-30 w380 0x10
- If (NextTip = 1)
- GuiControl, 34:Disable, PTip
- Gui, 34:Font, Bold
- Gui, 34:Add, Text, yp+5 -Wrap r1, %d_Lang074%:
- Gui, 34:Font
- Gui, 34:Add, Edit, -Wrap W380 r1 vFindCmd gFindCmd
- Gui, 34:Add, ListView, y+0 W380 r4 hwndhFindRes vFindResult gFindResult AltSubmit -Multi -Hdr LV0x4000, Command|Description
-}
-Else
-{
- Gui, 34:Add, Groupbox, Section yp+5 -Wrap W450 H195, %d_Lang074%:
- Gui, 34:Add, Edit, -Wrap ys+20 xs+10 W430 r1 vFindCmd gFindCmd
- Gui, 34:Add, ListView, r8 y+0 W430 hwndhFindRes vFindResult gFindResult AltSubmit -Multi -Hdr LV0x4000, Command|Description
- Gui, 34:Add, StatusBar, gStatusBarHelp
- Gui, 34:Default
- SB_SetIcon(ResDllPath, IconsNames["help"])
-}
-GuiControl, 34:Focus, FindCmd
-Gui, 34:Show,, %AppName%
+ If (NextTip > MaxTips)
+ NextTip := 1
+ Gui, 34:+owner1 -MinimizeBox +E0x00000400 +HwndStartTipID
+ Gui, 1:+Disabled
+ If (A_ThisLabel != "CmdFind")
+ {
+ Gui, 34:Color, FFFFFF
+ Gui, 34:Font, Bold s10, Tahoma
+ Gui, 34:Add, Text, w220, %d_Lang072%
+ Gui, 34:Font
+ Gui, 34:Font,, Tahoma
+ Gui, 34:Add, Text, w220, %d_Lang069%
+ Gui, 34:Font
+ Gui, 34:Add, Button, Section -Wrap xm+60 W75 H23 gDonatePayPal, %d_Lang070%
+ Gui, 34:Add, Button, -Wrap ys W75 H23 gTipsClose, %d_Lang071%
+ Gui, 34:Add, Checkbox, -Wrap Checked%ShowTips% xm y+20 W220 vShowTips R1, %d_Lang067%
+ Gui, 34:Add, Text, x+10 ym h255 0x11
+ Gui, 34:Add, Pic, x+1 ym Icon72 W48 H48, %ResDllPath%
+ Gui, 34:Add, Text, -Wrap R1 Section yp x+10, %d_Lang068%%A_Space%
+ Gui, 34:Add, Text, -Wrap R1 yp x+0 vCurrTip, %NextTip%%A_Space%%A_Space%%A_Space%
+ Gui, 34:Add, Text, -Wrap R1 yp x+0, / %MaxTips%
+ Gui, 34:Add, Edit, xs W350 r6 vTipDisplay ReadOnly -0x200000 -E0x200, % StartTip_%NextTip%
+ Gui, 34:Add, Button, Section -Wrap y+0 W90 H23 vPTip gPrevTip, %d_Lang022%
+ Gui, 34:Add, Button, -Wrap yp x+5 W90 H23 vNTip gNextTip, %d_Lang021%
+ Gui, 34:Add, Text, -Wrap R1 xs-30 w380 0x10
+ If (NextTip = 1)
+ GuiControl, 34:Disable, PTip
+ Gui, 34:Font, Bold
+ Gui, 34:Add, Text, yp+5 -Wrap r1, %d_Lang074%:
+ Gui, 34:Font
+ Gui, 34:Add, Edit, -Wrap W380 r1 vFindCmd gFindCmd
+ Gui, 34:Add, ListView, y+0 W380 r4 hwndhFindRes vFindResult gFindResult AltSubmit -Multi -Hdr LV0x4000, Command|Description
+ }
+ Else
+ {
+ Gui, 34:Add, Groupbox, Section yp+5 -Wrap W450 H195, %d_Lang074%:
+ Gui, 34:Add, Edit, -Wrap ys+20 xs+10 W430 r1 vFindCmd gFindCmd
+ Gui, 34:Add, ListView, r8 y+0 W430 hwndhFindRes vFindResult gFindResult AltSubmit -Multi -Hdr LV0x4000, Command|Description
+ Gui, 34:Add, StatusBar, gStatusBarHelp
+ Gui, 34:Default
+ SB_SetIcon(ResDllPath, IconsNames["help"])
+ }
+ GuiControl, 34:Focus, FindCmd
+ Gui, 34:Show,, %AppName%
return
34GuiEscape:
34GuiClose:
TipsClose:
-NextTip++
-Gui, 1:-Disabled
-Gui, 34:Submit
-Gui, 34:Destroy
+ NextTip++
+ Gui, 1:-Disabled
+ Gui, 34:Submit
+ Gui, 34:Destroy
return
PrevTip:
-If (NextTip = 1)
- return
-NextTip--
-GuiControl, 34:, CurrTip, %NextTip%
-GuiControl, 34:, TipDisplay, % StartTip_%NextTip%
-GuiControl, 34:Enable, NTip
-If (NextTip = 1)
-{
- GuiControl, 34:Disable, PTip
- GuiControl, 34:Focus, NTip
-}
+ If (NextTip = 1)
+ return
+ NextTip--
+ GuiControl, 34:, CurrTip, %NextTip%
+ GuiControl, 34:, TipDisplay, % StartTip_%NextTip%
+ GuiControl, 34:Enable, NTip
+ If (NextTip = 1)
+ {
+ GuiControl, 34:Disable, PTip
+ GuiControl, 34:Focus, NTip
+ }
return
NextTip:
-If (NextTip = MaxTips)
- return
-NextTip++
-GuiControl, 34:, CurrTip, %NextTip%
-GuiControl, 34:, TipDisplay, % StartTip_%NextTip%
-GuiControl, 34:Enable, PTip
-If (NextTip = MaxTips)
-{
- GuiControl, 34:Disable, NTip
- GuiControl, 34:Focus, PTip
-}
+ If (NextTip = MaxTips)
+ return
+ NextTip++
+ GuiControl, 34:, CurrTip, %NextTip%
+ GuiControl, 34:, TipDisplay, % StartTip_%NextTip%
+ GuiControl, 34:Enable, PTip
+ If (NextTip = MaxTips)
+ {
+ GuiControl, 34:Disable, NTip
+ GuiControl, 34:Focus, PTip
+ }
return
FindCmd:
-Gui, 34:Submit, NoHide
-If (FindCmd = "")
- return
-FoundResults := Find_Command(FindCmd)
-Gui, 34:Default
-LV_Delete()
-For _each, Line in FoundResults
- LV_Add("", Line.Cmd, Line.Path)
-LV_ModifyCol()
+ Gui, 34:Submit, NoHide
+ If (FindCmd = "")
+ return
+ FoundResults := Find_Command(FindCmd)
+ Gui, 34:Default
+ LV_Delete()
+ For _each, Line in FoundResults
+ LV_Add("", Line.Cmd, Line.Path)
+ LV_ModifyCol()
return
NextResult:
-ControlSend,, {Down}, ahk_id %hFindRes%
+ ControlSend,, {Down}, ahk_id %hFindRes%
return
PrevResult:
-ControlSend,, {Up}, ahk_id %hFindRes%
+ ControlSend,, {Up}, ahk_id %hFindRes%
return
FindResult:
-Gui, 34:Default
-LV_GetText(SelectedResult, LV_GetNext(), 1)
-SBShowTip(SelectedResult)
-If (A_GuiEvent != "DoubleClick")
- return
+ Gui, 34:Default
+ LV_GetText(SelectedResult, LV_GetNext(), 1)
+ SBShowTip(SelectedResult)
+ If (A_GuiEvent != "DoubleClick")
+ return
GoResult:
-Gui, 34:Submit, NoHide
-Gui, 34:Default
-LV_GetText(GotoRes1, LV_GetNext(), 1), LV_GetText(GotoRes2, LV_GetNext(), 2)
+ Gui, 34:Submit, NoHide
+ Gui, 34:Default
+ LV_GetText(GotoRes1, LV_GetNext(), 1), LV_GetText(GotoRes2, LV_GetNext(), 2)
GotoResult:
-Loop, Parse, KeywordsList, |
-{
- SearchIn := A_LoopField
- Loop, Parse, %A_LoopField%_Keywords, `,
+ Loop, Parse, KeywordsList, |
{
- If ((SearchIn = "Type") && (GotoRes1 = A_LoopField))
- SearchIn := "Type" A_Index
- If ((A_LoopField = GotoRes1) && (%SearchIn%_Path = GotoRes2))
+ SearchIn := A_LoopField
+ Loop, Parse, %A_LoopField%_Keywords, `,
{
- s_Caller := "Find"
- GoSub, TipsClose
- Goto, % %SearchIn%_Goto
+ If ((SearchIn = "Type") && (GotoRes1 = A_LoopField))
+ SearchIn := "Type" A_Index
+ If ((A_LoopField = GotoRes1) && (%SearchIn%_Path = GotoRes2))
+ {
+ s_Caller := "Find"
+ GoSub, TipsClose
+ Goto, % %SearchIn%_Goto
+ }
}
}
-}
return
Scheduler:
-Gui, 1:+OwnDialogs
-If (SavePrompt)
-{
- Gui, 27:+Disabled
- MsgBox, 48, %AppName%, %d_Lang084%
- Gui, 27:-Disabled
- return
-}
-Gui, 1:-Disabled
-Gui, 27:Destroy
-Gui, 36:+owner1 -MinimizeBox +HwndCmdWin
-Gui, 1:+Disabled
-Gui, 36:Add, Groupbox, Section W165 H50, %t_Lang154%:
-Gui, 36:Add, DateTime, xs+10 ys+20 vScheduleTime W140, yyyy/MM/dd HH:mm
-Gui, 36:Add, Groupbox, Section x+25 ym W165 H50, %t_Lang155%:
-Gui, 36:Add, DDL, xs+10 ys+20 vScheduleType W140 AltSubmit, %t_Lang156%
-Gui, 36:Add, GroupBox, Section xm y+15 W340 H85, %w_Lang003%:
-Gui, 36:Add, Radio, -Wrap R1 Checked xs+10 ys+20 vTargetPMC gTargetFile W160, %t_Lang157%
-Gui, 36:Add, Radio, -Wrap R1 y+10 vTargetAHK gTargetFile W160, %t_Lang158%
-Gui, 36:Add, Text, -Wrap R1 x+15 ys+20 W150, %t_Lang165%:
-Gui, 36:Add, Edit, W75 vSchedEd Number
-Gui, 36:Add, UpDown, vSchedHK 0x80 Range1-%TabCount%, %A_List%
-Gui, 36:Add, Text, -Wrap R1 xs+10 y+5 W300 cRed vWarning
-Gui, 36:Add, Button, -Wrap Section Default xm W75 H23 vSchedOK gSchedOK, %c_Lang020%
-Gui, 36:Add, Button, -Wrap ys W75 H23 gSchedCancel, %c_Lang021%
-Gui, 36:Add, Link, -Wrap ys+5 W160 R1, %t_Lang160%
-Gui, 36:Add, StatusBar, gStatusBarHelp
-Gui, 36:Default
-SB_SetIcon(ResDllPath, IconsNames["help"])
-SB_SetText(t_Lang153)
-Gui, 36:Show,, %t_Lang164%
-ChangeIcon(hIL_Icons, CmdWin, IconsNames["scheduler"])
+ Gui, 1:+OwnDialogs
+ If (SavePrompt)
+ {
+ Gui, 27:+Disabled
+ MsgBox, 48, %AppName%, %d_Lang084%
+ Gui, 27:-Disabled
+ return
+ }
+ Gui, 1:-Disabled
+ Gui, 27:Destroy
+ Gui, 36:+owner1 -MinimizeBox +HwndCmdWin
+ Gui, 1:+Disabled
+ Gui, 36:Add, Groupbox, Section W165 H50, %t_Lang154%:
+ Gui, 36:Add, DateTime, xs+10 ys+20 vScheduleTime W140, yyyy/MM/dd HH:mm
+ Gui, 36:Add, Groupbox, Section x+25 ym W165 H50, %t_Lang155%:
+ Gui, 36:Add, DDL, xs+10 ys+20 vScheduleType W140 AltSubmit, %t_Lang156%
+ Gui, 36:Add, GroupBox, Section xm y+15 W340 H85, %w_Lang003%:
+ Gui, 36:Add, Radio, -Wrap R1 Checked xs+10 ys+20 vTargetPMC gTargetFile W160, %t_Lang157%
+ Gui, 36:Add, Radio, -Wrap R1 y+10 vTargetAHK gTargetFile W160, %t_Lang158%
+ Gui, 36:Add, Text, -Wrap R1 x+15 ys+20 W150, %t_Lang165%:
+ Gui, 36:Add, Edit, W75 vSchedEd Number
+ Gui, 36:Add, UpDown, vSchedHK 0x80 Range1-%TabCount%, %A_List%
+ Gui, 36:Add, Text, -Wrap R1 xs+10 y+5 W300 cRed vWarning
+ Gui, 36:Add, Button, -Wrap Section Default xm W75 H23 vSchedOK gSchedOK, %c_Lang020%
+ Gui, 36:Add, Button, -Wrap ys W75 H23 gSchedCancel, %c_Lang021%
+ Gui, 36:Add, Link, -Wrap ys+5 W160 R1, %t_Lang160%
+ Gui, 36:Add, StatusBar, gStatusBarHelp
+ Gui, 36:Default
+ SB_SetIcon(ResDllPath, IconsNames["help"])
+ SB_SetText(t_Lang153)
+ Gui, 36:Show,, %t_Lang164%
+ ChangeIcon(hIL_Icons, CmdWin, IconsNames["scheduler"])
return
SchedOK:
-Gui, 36:Submit, NoHide
-Gui, 36:+OwnDialogs
-FormatTime, StartTime, %ScheduleTime%, yyyy-MM-ddTHH`:mm`:ss
-FormatTime, SchedDate, %ScheduleTime%
-If (TargetAHK)
-{
- GoSub, Export
- GoSub, ExpButton
- GoSub, ExpClose
- TaskRun := """" ExpFile """"
- TaskArgs := ""
-}
-Else
-{
- TaskRun := """" A_ScriptFullPath """"
- TaskArgs := """" CurrentFileName """ -s" SchedHK
-}
-Try
-{
- SplitPath, CurrentFileName, Name
- ScheduleTask(Sched_%ScheduleType%, StartTime, TaskRun, TaskArgs, Name)
- MsgBox, 64, %AppName%, %t_Lang161%`n`n'%SchedDate%'
-}
-Catch
-{
- MsgBox, 16, %AppName%, %t_Lang162%
- return
-}
+ Gui, 36:Submit, NoHide
+ Gui, 36:+OwnDialogs
+ FormatTime, StartTime, %ScheduleTime%, yyyy-MM-ddTHH`:mm`:ss
+ FormatTime, SchedDate, %ScheduleTime%
+ If (TargetAHK)
+ {
+ GoSub, Export
+ GoSub, ExpButton
+ GoSub, ExpClose
+ TaskRun := """" ExpFile """"
+ TaskArgs := ""
+ }
+ Else
+ {
+ TaskRun := """" A_ScriptFullPath """"
+ TaskArgs := """" CurrentFileName """ -s" SchedHK
+ }
+ Try
+ {
+ SplitPath, CurrentFileName, Name
+ ScheduleTask(Sched_%ScheduleType%, StartTime, TaskRun, TaskArgs, Name)
+ MsgBox, 64, %AppName%, %t_Lang161%`n`n'%SchedDate%'
+ }
+ Catch
+ {
+ MsgBox, 16, %AppName%, %t_Lang162%
+ return
+ }
SchedCancel:
36GuiClose:
36GuiEscape:
-Gui, 36:Submit, NoHide
-Gui, 1:-Disabled
-Gui, 36:Destroy
+ Gui, 36:Submit, NoHide
+ Gui, 1:-Disabled
+ Gui, 36:Destroy
return
TargetFile:
-Gui, 36:Submit, NoHide
-GuiControl, 36:Disable%TargetAHK%, SchedEd
-GuiControl, 36:Disable%TargetAHK%, SchedHK
-If (TargetAHK)
- GuiControl, 36:, Warning, * %t_Lang159%
-Else
- GuiControl, 36:, Warning
+ Gui, 36:Submit, NoHide
+ GuiControl, 36:Disable%TargetAHK%, SchedEd
+ GuiControl, 36:Disable%TargetAHK%, SchedHK
+ If (TargetAHK)
+ GuiControl, 36:, Warning, * %t_Lang159%
+ Else
+ GuiControl, 36:, Warning
return
RunTimer:
-If (InStr(CopyMenuLabels[A_List], "()"))
- return
-Gui, 27:+owner1 -MinimizeBox +HwndCmdWin
-Gui, 1:+Disabled
-Gui, 27:Add, Groupbox, Section W220 H100
-Gui, 27:Add, Edit, ys+15 xs+30 Limit Number W150
-Gui, 27:Add, UpDown, vTimerDelayX 0x80 Range0-9999999, %TimerDelayX%
-Gui, 27:Add, Radio, -Wrap Section Checked%TimerMsc% yp+25 W150 vTimerMsc R1, %c_Lang018%
-Gui, 27:Add, Radio, -Wrap Checked%TimerSec% W150 vTimerSec R1, %c_Lang019%
-Gui, 27:Add, Radio, -Wrap Checked%TimerMin% W150 vTimerMin R1, %c_Lang154%
-Gui, 27:Add, Groupbox, Section W220 H100 ym x+50, %w_Lang003%:
-Gui, 27:Add, Radio, -Wrap Group Checked%RunOnce% ys+20 xs+10 W200 vRunOnce gTimerSub R1, %t_Lang078%
-Gui, 27:Add, Radio, -Wrap Checked%TimedRun% W200 vTimedRun gTimerSub R1, %t_Lang079%
-Gui, 27:Add, Checkbox, -Wrap Checked%RunFirst% y+5 xp+15 W185 vRunFirst R1 Disabled, %t_Lang106%
-Gui, 27:Add, Checkbox, -Wrap Checked%ShowBar% y+8 xs+10 W200 vShowBar R1, %w_Lang009%
-Gui, 27:Add, Button, -Wrap Section Default xm W75 H23 gTimerOK, %c_Lang020%
-Gui, 27:Add, Button, -Wrap ys W75 H23 gTimerCancel, %c_Lang021%
-Gui, 27:Add, Button, -Wrap ys W75 H23 gScheduler, %t_Lang163%
-Gui, 27:Add, StatusBar, gStatusBarHelp
-Gui, 27:Default
-SB_SetIcon(ResDllPath, IconsNames["help"])
-If (!Timer_ran)
-{
- GuiControl, 27:, TimerDelayX, 250
- GuiControl, 27:, TimerMsc, 1
- GuiControl, 27:, RunOnce, 1
- GuiControl, 27:, RunFirst, 0
- GuiControl, 27:, ShowBar, 0
-}
-If (TimedRun)
- GuiControl, 27:Enable, RunFirst
-SBShowTip("SetTimer")
-Gui, 27:Show,, %t_Lang080%
-ChangeIcon(hIL_Icons, CmdWin, IconsNames["timer"])
+ If (InStr(CopyMenuLabels[A_List], "()"))
+ return
+ Gui, 27:+owner1 -MinimizeBox +HwndCmdWin
+ Gui, 1:+Disabled
+ Gui, 27:Add, Groupbox, Section W220 H100
+ Gui, 27:Add, Edit, ys+15 xs+30 Limit Number W150
+ Gui, 27:Add, UpDown, vTimerDelayX 0x80 Range0-9999999, %TimerDelayX%
+ Gui, 27:Add, Radio, -Wrap Section Checked%TimerMsc% yp+25 W150 vTimerMsc R1, %c_Lang018%
+ Gui, 27:Add, Radio, -Wrap Checked%TimerSec% W150 vTimerSec R1, %c_Lang019%
+ Gui, 27:Add, Radio, -Wrap Checked%TimerMin% W150 vTimerMin R1, %c_Lang154%
+ Gui, 27:Add, Groupbox, Section W220 H100 ym x+50, %w_Lang003%:
+ Gui, 27:Add, Radio, -Wrap Group Checked%RunOnce% ys+20 xs+10 W200 vRunOnce gTimerSub R1, %t_Lang078%
+ Gui, 27:Add, Radio, -Wrap Checked%TimedRun% W200 vTimedRun gTimerSub R1, %t_Lang079%
+ Gui, 27:Add, Checkbox, -Wrap Checked%RunFirst% y+5 xp+15 W185 vRunFirst R1 Disabled, %t_Lang106%
+ Gui, 27:Add, Checkbox, -Wrap Checked%ShowBar% y+8 xs+10 W200 vShowBar R1, %w_Lang009%
+ Gui, 27:Add, Button, -Wrap Section Default xm W75 H23 gTimerOK, %c_Lang020%
+ Gui, 27:Add, Button, -Wrap ys W75 H23 gTimerCancel, %c_Lang021%
+ Gui, 27:Add, Button, -Wrap ys W75 H23 gScheduler, %t_Lang163%
+ Gui, 27:Add, StatusBar, gStatusBarHelp
+ Gui, 27:Default
+ SB_SetIcon(ResDllPath, IconsNames["help"])
+ If (!Timer_ran)
+ {
+ GuiControl, 27:, TimerDelayX, 250
+ GuiControl, 27:, TimerMsc, 1
+ GuiControl, 27:, RunOnce, 1
+ GuiControl, 27:, RunFirst, 0
+ GuiControl, 27:, ShowBar, 0
+ }
+ If (TimedRun)
+ GuiControl, 27:Enable, RunFirst
+ SBShowTip("SetTimer")
+ Gui, 27:Show,, %t_Lang080%
+ ChangeIcon(hIL_Icons, CmdWin, IconsNames["timer"])
return
TimerSub:
-Gui, 27:Submit, NoHide
-GuiControl, 27:Enable%TimedRun%, RunFirst
+ Gui, 27:Submit, NoHide
+ GuiControl, 27:Enable%TimedRun%, RunFirst
return
TimerOK:
-Gui, 27:Submit, NoHide
-Gui, 1:-Disabled
-Gui, 27:Destroy
-Gui, chMacro:Default
-Timer_ran := true
-GoSub, b_Enable
-If (ListCount%A_List% = 0)
- return
-GoSub, SaveData
-StopIt := 0
-Tooltip
-If ((!PlayHK) && (!HideWin) && (HideMainWin))
- GoSub, ShowHide
-Else
- WinMinimize, ahk_id %PMCWinID%
-If (TimerSec = 1)
- DelayX := TimerDelayX * 1000
-Else If (TimerMin = 1)
- DelayX := TimerDelayX * 60000
-Else
- DelayX := TimerDelayX
-If (RunOnce = 1)
- DelayX := DelayX > 0 ? DelayX * -1 : -1
-ActivateHotkeys(0, 1, 1, 1, 1)
-aHK_Timer0 := A_List, aHK_Label0 := 0
-If (CheckDuplicateLabels())
-{
- MsgBox, 16, %d_Lang007%, %d_Lang050%
- StopIt := 1
- return
-}
-If (ShowBar)
- GoSub, ShowControls
-SetTimer, RunTimerOn0, %DelayX%
-If (TimedRun) && (RunFirst)
- GoSub, RunTimerOn0
+ Gui, 27:Submit, NoHide
+ Gui, 1:-Disabled
+ Gui, 27:Destroy
+ Gui, chMacro:Default
+ Timer_ran := true
+ GoSub, b_Enable
+ If (ListCount%A_List% = 0)
+ return
+ GoSub, SaveData
+ StopIt := 0
+ Tooltip
+ If ((!PlayHK) && (!HideWin) && (HideMainWin))
+ GoSub, ShowHide
+ Else
+ WinMinimize, ahk_id %PMCWinID%
+ If (TimerSec = 1)
+ DelayX := TimerDelayX * 1000
+ Else If (TimerMin = 1)
+ DelayX := TimerDelayX * 60000
+ Else
+ DelayX := TimerDelayX
+ If (RunOnce = 1)
+ DelayX := DelayX > 0 ? DelayX * -1 : -1
+ ActivateHotkeys(0, 1, 1, 1, 1)
+ aHK_Timer0 := A_List, aHK_Label0 := 0
+ If (CheckDuplicateLabels())
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang050%
+ StopIt := 1
+ return
+ }
+ If (ShowBar)
+ GoSub, ShowControls
+ SetTimer, RunTimerOn0, %DelayX%
+ If (TimedRun) && (RunFirst)
+ GoSub, RunTimerOn0
return
RunTimerOn0:
-If (InStr(CopyMenuLabels[aHK_Timer0], "()"))
-{
- SetTimer, %A_ThisLabel%, Off
- return
-}
+ If (InStr(CopyMenuLabels[aHK_Timer0], "()"))
+ {
+ SetTimer, %A_ThisLabel%, Off
+ return
+ }
RunTimerOn1:
RunTimerOn2:
RunTimerOn3:
@@ -11573,1414 +11568,1330 @@ RunTimerOn7:
RunTimerOn8:
RunTimerOn9:
RunTimerOn10:
-RegExMatch(A_ThisLabel, "\d+", nMatch)
-If (StopIt)
-{
- SetTimer, %A_ThisLabel%, Off
- return
-}
-If (aHK_On := Playback(aHK_Timer%nMatch%, aHK_Label%nMatch%))
- SetTimer, f_RunMacro, -1
-FreeMemory()
+ RegExMatch(A_ThisLabel, "\d+", nMatch)
+ If (StopIt)
+ {
+ SetTimer, %A_ThisLabel%, Off
+ return
+ }
+ If (aHK_On := Playback(aHK_Timer%nMatch%, aHK_Label%nMatch%))
+ SetTimer, f_RunMacro, -1
+ FreeMemory()
return
TimerCancel:
27GuiClose:
27GuiEscape:
-Gui, 1:-Disabled
-Gui, 27:Destroy
+ Gui, 1:-Disabled
+ Gui, 27:Destroy
return
PlayFrom:
-pb_From := !pb_From
-If (!pb_From)
- Menu, MacroMenu, Uncheck, %r_Lang008%`t%_s%Alt+1
-Else
- Menu, MacroMenu, Check, %r_Lang008%`t%_s%Alt+1
-Menu, MacroMenu, Uncheck, %r_Lang009%`t%_s%Alt+2
-Menu, MacroMenu, Uncheck, %r_Lang010%`t%_s%Alt+3
-pb_To := "", pb_Sel := ""
-GoSub, UpdateRecPlayMenus
+ pb_From := !pb_From
+ If (!pb_From)
+ Menu, MacroMenu, Uncheck, %r_Lang008%`t%_s%Alt+1
+ Else
+ Menu, MacroMenu, Check, %r_Lang008%`t%_s%Alt+1
+ Menu, MacroMenu, Uncheck, %r_Lang009%`t%_s%Alt+2
+ Menu, MacroMenu, Uncheck, %r_Lang010%`t%_s%Alt+3
+ pb_To := "", pb_Sel := ""
+ GoSub, UpdateRecPlayMenus
return
PlayTo:
-pb_To := !pb_To
-If (!pb_To)
- Menu, MacroMenu, Uncheck, %r_Lang009%`t%_s%Alt+2
-Else
- Menu, MacroMenu, Check, %r_Lang009%`t%_s%Alt+2
-Menu, MacroMenu, Uncheck, %r_Lang008%`t%_s%Alt+1
-Menu, MacroMenu, Uncheck, %r_Lang010%`t%_s%Alt+3
-pb_From := "", pb_Sel := ""
-GoSub, UpdateRecPlayMenus
+ pb_To := !pb_To
+ If (!pb_To)
+ Menu, MacroMenu, Uncheck, %r_Lang009%`t%_s%Alt+2
+ Else
+ Menu, MacroMenu, Check, %r_Lang009%`t%_s%Alt+2
+ Menu, MacroMenu, Uncheck, %r_Lang008%`t%_s%Alt+1
+ Menu, MacroMenu, Uncheck, %r_Lang010%`t%_s%Alt+3
+ pb_From := "", pb_Sel := ""
+ GoSub, UpdateRecPlayMenus
return
PlaySel:
-pb_Sel := !pb_Sel
-If (!pb_Sel)
- Menu, MacroMenu, Uncheck, %r_Lang010%`t%_s%Alt+3
-Else
- Menu, MacroMenu, Check, %r_Lang010%`t%_s%Alt+3
-Menu, MacroMenu, Uncheck, %r_Lang008%`t%_s%Alt+1
-Menu, MacroMenu, Uncheck, %r_Lang009%`t%_s%Alt+2
-pb_To := "", pb_From := ""
-GoSub, UpdateRecPlayMenus
+ pb_Sel := !pb_Sel
+ If (!pb_Sel)
+ Menu, MacroMenu, Uncheck, %r_Lang010%`t%_s%Alt+3
+ Else
+ Menu, MacroMenu, Check, %r_Lang010%`t%_s%Alt+3
+ Menu, MacroMenu, Uncheck, %r_Lang008%`t%_s%Alt+1
+ Menu, MacroMenu, Uncheck, %r_Lang009%`t%_s%Alt+2
+ pb_To := "", pb_From := ""
+ GoSub, UpdateRecPlayMenus
return
TestRun:
-GoSub, b_Enable
-If (ListCount%A_List% = 0)
- return
-If (DebugCheckError)
- return
-If (InStr(CopyMenuLabels[A_List], "()"))
- return
-Gui, 1:Submit, NoHide
-Gui, chMacro:Submit, NoHide
-GoSub, SaveData
-Gui, chMacro:Default
-Gui, chMacro:ListView, InputList%A_List%
-ActivateHotkeys(0, 0, 1, 1, 1)
-StopIt := 0
-Tooltip
-If ((!PlayHK) && (!HideWin) && (HideMainWin))
- GoSub, ShowHide
-Else
- WinMinimize, ahk_id %PMCWinID%
-aHK_On := [A_List]
-SetTimer, f_RunMacro, -1
+ GoSub, b_Enable
+ If (ListCount%A_List% = 0)
+ return
+ If (DebugCheckError)
+ return
+ If (InStr(CopyMenuLabels[A_List], "()"))
+ return
+ Gui, 1:Submit, NoHide
+ Gui, chMacro:Submit, NoHide
+ GoSub, SaveData
+ Gui, chMacro:Default
+ Gui, chMacro:ListView, InputList%A_List%
+ ActivateHotkeys(0, 0, 1, 1, 1)
+ StopIt := 0
+ Tooltip
+ If ((!PlayHK) && (!HideWin) && (HideMainWin))
+ GoSub, ShowHide
+ Else
+ WinMinimize, ahk_id %PMCWinID%
+ aHK_On := [A_List]
+ SetTimer, f_RunMacro, -1
return
PlayStart:
-Gui, 1:+OwnDialogs
-Gui, 1:Submit, NoHide
-GoSub, b_Enable
-If ((!PlayHK) && (!HideWin) && (!WinExist("ahk_id" PMCWinID)))
-{
- GoSub, ShowHide
- return
-}
-Else If (!ListCount)
- return
-Gui, chMacro:Submit, NoHide
-If (AutoBackup)
- SetTimer, ProjBackup, -100
-If (DebugCheckError)
- return
-SetTimer, PlayActive, -1
-If (ActiveKeys = "Error")
- return
-If (!DontShowPb)
-{
- Gui 26:+LastFoundExist
- IfWinExist
- GoSub, TipClose
- Gui, 26:-SysMenu +HwndTipScrID
- Gui, 26:Color, FFFFFF
- Gui, 26:Add, Pic, y+20 Icon29 W48 H48, %ResDllPath%
- Gui, 26:Add, Text, -Wrap R1 yp x+10, %d_Lang051%`n`n%d_Lang043%`n
- Gui, 26:Add, Checkbox, Section -Wrap W300 vDontShowPb R1 cGray, %d_Lang053%
- Gui, 26:Add, Button, -Wrap Default xs y+10 W75 H23 gTipClose, %c_Lang020%
- Gui, 26:Show,, %AppName%
-}
-If ((!PlayHK) && (!HideWin) && (HideMainWin))
- GoSub, ShowHide
-Else
-{
- WinMinimize, ahk_id %PMCWinID%
- WinActivate,,, ahk_id %PMCWinID%
-}
-If (OnScCtrl)
- GoSub, ShowControls
-Gui, chMacro:Default
-Gui, chMacro:ListView, InputList%A_List%
+ Gui, 1:+OwnDialogs
+ Gui, 1:Submit, NoHide
+ GoSub, b_Enable
+ If ((!PlayHK) && (!HideWin) && (!WinExist("ahk_id" PMCWinID)))
+ {
+ GoSub, ShowHide
+ return
+ }
+ Else If (!ListCount)
+ return
+ Gui, chMacro:Submit, NoHide
+ If (AutoBackup)
+ SetTimer, ProjBackup, -100
+ If (DebugCheckError)
+ return
+ SetTimer, PlayActive, -1
+ If (ActiveKeys = "Error")
+ return
+ If (!DontShowPb)
+ {
+ Gui 26:+LastFoundExist
+ IfWinExist
+ GoSub, TipClose
+ Gui, 26:-SysMenu +HwndTipScrID
+ Gui, 26:Color, FFFFFF
+ Gui, 26:Add, Pic, y+20 Icon29 W48 H48, %ResDllPath%
+ Gui, 26:Add, Text, -Wrap R1 yp x+10, %d_Lang051%`n`n%d_Lang043%`n
+ Gui, 26:Add, Checkbox, Section -Wrap W300 vDontShowPb R1 cGray, %d_Lang053%
+ Gui, 26:Add, Button, -Wrap Default xs y+10 W75 H23 gTipClose, %c_Lang020%
+ Gui, 26:Show,, %AppName%
+ }
+ If ((!PlayHK) && (!HideWin) && (HideMainWin))
+ GoSub, ShowHide
+ Else
+ {
+ WinMinimize, ahk_id %PMCWinID%
+ WinActivate,,, ahk_id %PMCWinID%
+ }
+ If (OnScCtrl)
+ GoSub, ShowControls
+ Gui, chMacro:Default
+ Gui, chMacro:ListView, InputList%A_List%
return
PlayActive:
-Pause, Off
-If (ListCount = 0)
- return
-GoSub, SaveData
-GoSub, ActivateHotkeys
-If (ActiveKeys = "Error")
-{
- MsgBox, 16, %d_Lang007%, %d_Lang032%
- return
-}
-If (!ActiveKeys)
-{
- TrayTip, %AppName%, %d_Lang009%,,3
- return
-}
-StopIt := 0
-Tooltip
+ Pause, Off
+ If (ListCount = 0)
+ return
+ GoSub, SaveData
+ GoSub, ActivateHotkeys
+ If (ActiveKeys = "Error")
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang032%
+ return
+ }
+ If (!ActiveKeys)
+ {
+ TrayTip, %AppName%, %d_Lang009%,,3
+ return
+ }
+ StopIt := 0
+ Tooltip
return
OnScControls:
-If (WinExist("ahk_id " PMCOSC))
-{
- GoSub, 28GuiClose
- return
-}
+ If (WinExist("ahk_id " PMCOSC))
+ {
+ GoSub, 28GuiClose
+ return
+ }
ShowControls:
-Menu, ViewMenu, Check, %v_Lang004%`t%_s%Ctrl+B
-Menu, Tray, Check, %y_Lang003%
-Gui, 28:Show, % (ShowProgBar ? "H40" : "H30") " W415 NoActivate", %AppName%
+ Menu, ViewMenu, Check, %v_Lang004%`t%_s%Ctrl+B
+ Menu, Tray, Check, %y_Lang003%
+ Gui, 28:Show, % (ShowProgBar ? "H40" : "H30") " W415 NoActivate", %AppName%
return
BuildOSCWin:
-Gui, 28:+Toolwindow +AlwaysOntop +HwndPMCOSC +E0x08000000
-If (!OSCaption)
- Gui, 28:-Caption
-Gui, 28:Add, Edit, W40 H23 vOSHKEd Number
-Gui, 28:Add, UpDown, hwndOSHK vOSHK gOSHK 0x80 Horz 16 Range1-%TabCount%, %A_List%
-Gui, 28:Add, Custom, ClassToolbarWindow32 hwndhTbOSC x55 y5 W320 H25 0x0800 0x0100 0x0040 0x0008 0x0004
-Gui, 28:Add, Progress, ym+25 xm W120 H10 vOSCProg c20D000
-Gui, 28:Font
-Gui, 28:Font, s6 Bold
-Gui, 28:Add, Text, -Wrap yp x+0 W180 r1 vOSCProgTip
-Gui, 28:Add, Slider, yp-2 x+0 W65 H10 vOSTrans gTrans NoTicks Thick20 ToolTip Range25-255, %OSTrans%
-OSCPos := StrSplit(OSCPos, " ")
-OSCPos[1] := (SubStr(OSCPos[1], 2) > A_ScreenWidth || SubStr(OSCPos[1], 2) < 400) ? "X0" : OSCPos[1]
-OSCPos[2] := (SubStr(OSCPos[2], 2) > A_ScreenHeight || SubStr(OSCPos[2], 2) < 25) ? "Y0" : OSCPos[2]
-OSCPos := OSCPos[1] " " OSCPos[2]
-Gui, 28:Show, % OSCPos (ShowProgBar ? " H40" : " H30") " W380 NoActivate Hide", %AppName%
-WinSet, Transparent, %OSTrans%, ahk_id %PMCOSC%
+ Gui, 28:+Toolwindow +AlwaysOntop +HwndPMCOSC +E0x08000000
+ If (!OSCaption)
+ Gui, 28:-Caption
+ Gui, 28:Add, Edit, W40 H23 vOSHKEd Number
+ Gui, 28:Add, UpDown, hwndOSHK vOSHK gOSHK 0x80 Horz 16 Range1-%TabCount%, %A_List%
+ Gui, 28:Add, Custom, ClassToolbarWindow32 hwndhTbOSC x55 y5 W320 H25 0x0800 0x0100 0x0040 0x0008 0x0004
+ Gui, 28:Add, Progress, ym+25 xm W120 H10 vOSCProg c20D000
+ Gui, 28:Font
+ Gui, 28:Font, s6 Bold
+ Gui, 28:Add, Text, -Wrap yp x+0 W180 r1 vOSCProgTip
+ Gui, 28:Add, Slider, yp-2 x+0 W65 H10 vOSTrans gTrans NoTicks Thick20 ToolTip Range25-255, %OSTrans%
+ OSCPos := StrSplit(OSCPos, " ")
+ OSCPos[1] := (SubStr(OSCPos[1], 2) > A_ScreenWidth || SubStr(OSCPos[1], 2) < 400) ? "X0" : OSCPos[1]
+ OSCPos[2] := (SubStr(OSCPos[2], 2) > A_ScreenHeight || SubStr(OSCPos[2], 2) < 25) ? "Y0" : OSCPos[2]
+ OSCPos := OSCPos[1] " " OSCPos[2]
+ Gui, 28:Show, % OSCPos (ShowProgBar ? " H40" : " H30") " W380 NoActivate Hide", %AppName%
+ WinSet, Transparent, %OSTrans%, ahk_id %PMCOSC%
return
OSHK:
-Gui, 28:Submit, NoHide
-Gui, chMacro:Default
-GuiControl, chMacro:Choose, A_List, %OSHK%
-GoSub, TabSel
+ Gui, 28:Submit, NoHide
+ Gui, chMacro:Default
+ GuiControl, chMacro:Choose, A_List, %OSHK%
+ GoSub, TabSel
return
OSPlay:
-GoSub, OSHK
-GoSub, b_Enable
-If (ListCount%OSHK% = 0)
- return
-If (DebugCheckError)
- return
-If (WinActive("ahk_id " PMCWinID))
- WinActivate,,, ahk_id %PMCWinID%
-If (!PlayOSOn)
-{
- ActivateHotkeys(,, 1, 1, 1)
- StopIt := 0
- Tooltip
- SetTimer, OSPlayOn, -1
-}
-Else If (IsPauseCheck)
-{
- If ((!CurrentRange) && (!Record))
+ GoSub, OSHK
+ GoSub, b_Enable
+ If (ListCount%OSHK% = 0)
return
- If (ToggleIcon(IsPauseCheck) && (!Record))
- tbOSC.ModifyButtonInfo(1, "Image", 55)
- Else
- tbOSC.ModifyButtonInfo(1, "Image", 48)
- Pause, Off, 1
- IsPauseCheck := false
-}
-Else
-{
- If ((!CurrentRange) && (!Record))
+ If (DebugCheckError)
return
- If (ToggleIcon(IsPauseCheck) && (!Record))
- tbOSC.ModifyButtonInfo(1, "Image", 55)
+ If (WinActive("ahk_id " PMCWinID))
+ WinActivate,,, ahk_id %PMCWinID%
+ If (!PlayOSOn)
+ {
+ ActivateHotkeys(,, 1, 1, 1)
+ StopIt := 0
+ Tooltip
+ SetTimer, OSPlayOn, -1
+ }
+ Else If (IsPauseCheck)
+ {
+ If ((!CurrentRange) && (!Record))
+ return
+ If (ToggleIcon(IsPauseCheck) && (!Record))
+ tbOSC.ModifyButtonInfo(1, "Image", 55)
+ Else
+ tbOSC.ModifyButtonInfo(1, "Image", 48)
+ Pause, Off, 1
+ IsPauseCheck := false
+ }
Else
- tbOSC.ModifyButtonInfo(1, "Image", 48)
- Pause,, 1
- IsPauseCheck := true
-}
+ {
+ If ((!CurrentRange) && (!Record))
+ return
+ If (ToggleIcon(IsPauseCheck) && (!Record))
+ tbOSC.ModifyButtonInfo(1, "Image", 55)
+ Else
+ tbOSC.ModifyButtonInfo(1, "Image", 48)
+ Pause,, 1
+ IsPauseCheck := true
+ }
return
OSStop:
-If (IsPauseCheck)
-{
- If ((!CurrentRange) && (!Record))
- return
- If (ToggleIcon(IsPauseCheck) && (!Record))
- tbOSC.ModifyButtonInfo(1, "Image", 55)
+ If (IsPauseCheck)
+ {
+ If ((!CurrentRange) && (!Record))
+ return
+ If (ToggleIcon(IsPauseCheck) && (!Record))
+ tbOSC.ModifyButtonInfo(1, "Image", 55)
+ Else
+ tbOSC.ModifyButtonInfo(1, "Image", 48)
+ Pause, Off, 1
+ IsPauseCheck := false
+ }
+ If (Record)
+ GoSub, RecStart
Else
- tbOSC.ModifyButtonInfo(1, "Image", 48)
- Pause, Off, 1
- IsPauseCheck := false
-}
-If (Record)
- GoSub, RecStart
-Else
- GoSub, f_AbortKey
+ GoSub, f_AbortKey
return
OSPlayOn:
-aHK_On := [OSHK]
-SetTimer, f_RunMacro, -1
+ aHK_On := [OSHK]
+ SetTimer, f_RunMacro, -1
return
OSClear:
-Gui, 28:Submit, NoHide
-Gui, chMacro:Default
-Gui, chMacro:Listview, %OSHK%
-MsgBox, 1, %d_Lang019%, %d_Lang020%
-IfMsgBox, OK
-{
- LV_Delete()
- LVManager[A_List].RemoveAllGroups(c_Lang061)
-}
-GoSub, RowCheck
-GoSub, b_Start
+ Gui, 28:Submit, NoHide
+ Gui, chMacro:Default
+ Gui, chMacro:Listview, %OSHK%
+ MsgBox, 1, %d_Lang019%, %d_Lang020%
+ IfMsgBox, OK
+ {
+ LV_Delete()
+ LVManager[A_List].RemoveAllGroups(c_Lang061)
+ }
+ GoSub, RowCheck
+ GoSub, b_Start
return
ProgBarToggle:
-Gui, 28:Submit, NoHide
-TB_Edit(TbOSC, "ProgBarToggle", ShowProgBar := !ShowProgBar)
-GuiControl,, OSCProg
-GuiControl,, OSCProgTip
-GoSub, 28GuiSize
+ Gui, 28:Submit, NoHide
+ TB_Edit(TbOSC, "ProgBarToggle", ShowProgBar := !ShowProgBar)
+ GuiControl,, OSCProg
+ GuiControl,, OSCProgTip
+ GoSub, 28GuiSize
return
Trans:
-Gui, 28:Submit, NoHide
-WinSet, Transparent, %OSTrans%, ahk_id %PMCOSC%
+ Gui, 28:Submit, NoHide
+ WinSet, Transparent, %OSTrans%, ahk_id %PMCOSC%
return
28GuiClose:
OSCClose:
-Gui, 28: +LastFound
-WinGetPos, OSX, OSY
-OSCPos := "X" OSX " Y" OSY
-Gui, 28:Hide
-Menu, ViewMenu, Uncheck, %v_Lang004%`t%_s%Ctrl+B
-Menu, Tray, Uncheck, %y_Lang003%
+ Gui, 28: +LastFound
+ WinGetPos, OSX, OSY
+ OSCPos := "X" OSX " Y" OSY
+ Gui, 28:Hide
+ Menu, ViewMenu, Uncheck, %v_Lang004%`t%_s%Ctrl+B
+ Menu, Tray, Uncheck, %y_Lang003%
return
ToggleTB:
-If (OSCaption := !OSCaption)
- Gui, 28:+Caption
-Else
- Gui, 28:-Caption
+ If (OSCaption := !OSCaption)
+ Gui, 28:+Caption
+ Else
+ Gui, 28:-Caption
return
WinKey:
OnScCtrl:
HideMainWin:
-TB_Edit(TbSettings, A_ThisLabel, %A_ThisLabel% := !%A_ThisLabel%)
-If (OnScCtrl)
- Menu, OptionsMenu, Check, %o_Lang003%
-Else
- Menu, OptionsMenu, Uncheck, %o_Lang003%
-If (WinKey)
- Menu, OptionsMenu, Check, %o_Lang007%
-Else
- Menu, OptionsMenu, Uncheck, %o_Lang007%
-If (HideMainWin)
- Menu, OptionsMenu, Check, %o_Lang002%
-Else
- Menu, OptionsMenu, Uncheck, %o_Lang002%
+ TB_Edit(TbSettings, A_ThisLabel, %A_ThisLabel% := !%A_ThisLabel%)
+ If (OnScCtrl)
+ Menu, OptionsMenu, Check, %o_Lang003%
+ Else
+ Menu, OptionsMenu, Uncheck, %o_Lang003%
+ If (WinKey)
+ Menu, OptionsMenu, Check, %o_Lang007%
+ Else
+ Menu, OptionsMenu, Uncheck, %o_Lang007%
+ If (HideMainWin)
+ Menu, OptionsMenu, Check, %o_Lang002%
+ Else
+ Menu, OptionsMenu, Uncheck, %o_Lang002%
return
Capt:
-LVManager[A_List].EnableGroups(false)
-SetTimer, MainLoop, % (Capt := !Capt) ? 100 : "Off"
-ListFocus := 1
-Input
-TB_Edit(TbSettings, "Capt", Capt)
-If (Capt)
-{
- GuiControl, chMacro:-g, InputList%A_List%
- Menu, OptionsMenu, Check, %o_Lang004%
-}
-Else
-{
- ListFocus := 0
- GuiControl, chMacro:+gInputList, InputList%A_List%
- Menu, OptionsMenu, Uncheck, %o_Lang004%
- GoSub, RowCheck
- GoSub, b_Start
- If (AutoRefresh = 1)
- GoSub, PrevRefresh
-}
+ LVManager[A_List].EnableGroups(false)
+ SetTimer, MainLoop, % (Capt := !Capt) ? 100 : "Off"
+ ListFocus := 1
+ Input
+ TB_Edit(TbSettings, "Capt", Capt)
+ If (Capt)
+ {
+ GuiControl, chMacro:-g, InputList%A_List%
+ Menu, OptionsMenu, Check, %o_Lang004%
+ }
+ Else
+ {
+ ListFocus := 0
+ GuiControl, chMacro:+gInputList, InputList%A_List%
+ Menu, OptionsMenu, Uncheck, %o_Lang004%
+ GoSub, RowCheck
+ GoSub, b_Start
+ If (AutoRefresh = 1)
+ GoSub, PrevRefresh
+ }
return
InputList:
-If (RowCheckInProgress)
- return
-Critical
-Gui, chMacro:ListView, InputList%A_List%
-If ((A_GuiEvent == "I") || (A_GuiEvent == "K"))
-{
- If ((InStr(ErrorLevel, "c")) || (Chr(A_EventInfo) = " "))
+ If (RowCheckInProgress)
+ return
+ Critical
+ Gui, chMacro:ListView, InputList%A_List%
+ If ((A_GuiEvent == "I") || (A_GuiEvent == "K"))
{
- LV_GetText(RowType, A_EventInfo, 6)
- If (RowType = cType47)
- LV_Modify(A_EventInfo, "Check")
+ If ((InStr(ErrorLevel, "c")) || (Chr(A_EventInfo) = " "))
+ {
+ LV_GetText(RowType, A_EventInfo, 6)
+ If (RowType = cType47)
+ LV_Modify(A_EventInfo, "Check")
+ }
+ If (InStr(ErrorLevel, "c"))
+ {
+ HistCheck(A_List) ; Programmatically pasting rows causes this event to be triggered!
+ If (AutoRefresh = 1)
+ GoSub, PrevRefresh
+ }
+ If (AutoSelectLine)
+ GoSub, GoToLine
}
- If (InStr(ErrorLevel, "c"))
+ If (A_GuiEvent == "F")
{
- HistCheck(A_List) ; Programmatically pasting rows causes this event to be triggered!
- If (AutoRefresh = 1)
- GoSub, PrevRefresh
+ Input
+ ListFocus := 1
+ If (Capt)
+ SetTimer, MainLoop, -100
}
- If (AutoSelectLine)
- GoSub, GoToLine
-}
-If (A_GuiEvent == "F")
-{
- Input
- ListFocus := 1
- If (Capt)
- SetTimer, MainLoop, -100
-}
-If (A_GuiEvent == "f")
-{
- Input
- ListFocus := 0
- SetTimer, MainLoop, Off
- If (Capt)
- GoSub, Capt
-}
-If (A_GuiEvent == "ColClick")
-{
- If (A_EventInfo = 1)
+ If (A_GuiEvent == "f")
{
- GoSub, ShowLoopIfMark
- GoSub, RowCheck
+ Input
+ ListFocus := 0
+ SetTimer, MainLoop, Off
+ If (Capt)
+ GoSub, Capt
}
- Else If (A_EventInfo = 2)
+ If (A_GuiEvent == "ColClick")
{
- KeyWait, LButton
- KeyWait, LButton, D T%DClickSpd%
- If (ErrorLevel)
+ If (A_EventInfo = 1)
+ {
+ GoSub, ShowLoopIfMark
+ GoSub, RowCheck
+ }
+ Else If (A_EventInfo = 2)
+ {
+ KeyWait, LButton
+ KeyWait, LButton, D T%DClickSpd%
+ If (ErrorLevel)
+ {
+ SelectedRow := LV_GetNext()
+ LV_GetText(SelType, SelectedRow, A_EventInfo)
+ SelectByType(SelType, A_EventInfo)
+ }
+ Else
+ {
+ GoSub, ShowActIdent
+ GoSub, RowCheck
+ }
+ }
+ Else
{
SelectedRow := LV_GetNext()
LV_GetText(SelType, SelectedRow, A_EventInfo)
SelectByType(SelType, A_EventInfo)
}
+ }
+ If (A_GuiEvent = "D")
+ {
+ GuiControl, chMacro:-g, InputList%A_List%
+ Dest_Row := LVManager[A_List].Drag(A_GuiEvent)
+ GoSub, RowCheck
+ GoSub, b_Start
+ GuiControl, chMacro:+gInputList, InputList%A_List%
+ If ((Dest_Row) && (A_GuiEvent == "d"))
+ SetTimer, MoveCopy, -10
Else
- {
- GoSub, ShowActIdent
- GoSub, RowCheck
- }
+ Dest_Row := ""
}
- Else
+ If (A_GuiEvent == "RightClick")
{
- SelectedRow := LV_GetNext()
- LV_GetText(SelType, SelectedRow, A_EventInfo)
- SelectByType(SelType, A_EventInfo)
+ RowNumber := 0
+ RowSelection := LV_GetCount("Selected")
+ RowNumber := LV_GetNext(RowNumber - 1)
}
-}
-If (A_GuiEvent = "D")
-{
- GuiControl, chMacro:-g, InputList%A_List%
- Dest_Row := LVManager[A_List].Drag(A_GuiEvent)
- GoSub, RowCheck
- GoSub, b_Start
- GuiControl, chMacro:+gInputList, InputList%A_List%
- If ((Dest_Row) && (A_GuiEvent == "d"))
- SetTimer, MoveCopy, -10
- Else
- Dest_Row := ""
-}
-If (A_GuiEvent == "RightClick")
-{
- RowNumber := 0
- RowSelection := LV_GetCount("Selected")
- RowNumber := LV_GetNext(RowNumber - 1)
-}
-If (A_GuiEvent != "DoubleClick")
- return
-RowNumber := LV_GetNext()
-LV_GetText(RowType, RowNumber, 6)
-If (RowType = cType47)
- LV_Modify(RowNumber, "Check")
-If (!RowNumber)
- return
-Critical, Off
-GoSub, Edit
-Tooltip
+ If (A_GuiEvent != "DoubleClick")
+ return
+ RowNumber := LV_GetNext()
+ LV_GetText(RowType, RowNumber, 6)
+ If (RowType = cType47)
+ LV_Modify(RowNumber, "Check")
+ If (!RowNumber)
+ return
+ Critical, Off
+ GoSub, Edit
+ Tooltip
return
GuiContextMenu:
-If (Dest_Row)
- return
-MouseGetPos,,,, cHwnd, 2
-If (cHwnd = ListID%A_List%)
- Menu, EditMenu, Show, %A_GuiX%, %A_GuiY%
-Else If (cHwnd = TabSel)
-{
- If (ClickedTab := TabGet())
+ If (Dest_Row)
+ return
+ MouseGetPos,,,, cHwnd, 2
+ If (cHwnd = ListID%A_List%)
+ Menu, EditMenu, Show, %A_GuiX%, %A_GuiY%
+ Else If (cHwnd = TabSel)
{
- GuiControl, chMacro:Choose, A_List, %ClickedTab%
- Menu, TabMenu, Add, %c_Lang022%, TabClose
+ If (ClickedTab := TabGet())
+ {
+ GuiControl, chMacro:Choose, A_List, %ClickedTab%
+ Menu, TabMenu, Add, %c_Lang022%, TabClose
+ }
+ Menu, TabMenu, Add, %w_Lang019%, EditMacros
+ Menu, TabMenu, Show
+ Menu, TabMenu, DeleteAll
+ GoSub, TabSel
+ ClickedTab := ""
}
- Menu, TabMenu, Add, %w_Lang019%, EditMacros
- Menu, TabMenu, Show
- Menu, TabMenu, DeleteAll
- GoSub, TabSel
- ClickedTab := ""
-}
-Else
-{
- tbPtr := TB_GetHwnd(cHwnd)
- If (IsObject(tbPtr))
+ Else
{
- If ((tbPtr.tbHwnd = htbPrev) || (tbPtr.tbHwnd = htbPrevF))
- return
- Menu, TbMenu, Add, %w_Lang091%, Customize
- Menu, TbMenu, Add, %w_Lang094%, TbHide
- Menu, TbMenu, Show
- Menu, TbMenu, DeleteAll
+ tbPtr := TB_GetHwnd(cHwnd)
+ If (IsObject(tbPtr))
+ {
+ If ((tbPtr.tbHwnd = htbPrev) || (tbPtr.tbHwnd = htbPrevF))
+ return
+ Menu, TbMenu, Add, %w_Lang091%, Customize
+ Menu, TbMenu, Add, %w_Lang094%, TbHide
+ Menu, TbMenu, Show
+ Menu, TbMenu, DeleteAll
+ }
}
-}
return
TbCustomize:
-bID := RBIndexTB[A_ThisMenuItemPos]
-tBand := RbMain.IDToIndex(bID), RbMain.GetBand(tBand,,,,,,, cHwnd)
-tbPtr := TB_GetHwnd(cHwnd), tbPtr.Customize()
-GoSub, SetIdealSize
+ bID := RBIndexTB[A_ThisMenuItemPos]
+ tBand := RbMain.IDToIndex(bID), RbMain.GetBand(tBand,,,,,,, cHwnd)
+ tbPtr := TB_GetHwnd(cHwnd), tbPtr.Customize()
+ GoSub, SetIdealSize
return
Customize:
-tbPtr.Customize(), TB_IdealSize(tbFile, TbFile_ID)
-GoSub, SetIdealSize
+ tbPtr.Customize(), TB_IdealSize(tbFile, TbFile_ID)
+ GoSub, SetIdealSize
return
SetIdealSize:
-TB_IdealSize(tbRecPlay, TbRecPlay_ID), TB_IdealSize(tbCommand, TbCommand_ID)
-TB_IdealSize(tbEdit, TbEdit_ID), TB_IdealSize(tbSettings, TbSettings_ID)
+ TB_IdealSize(tbRecPlay, TbRecPlay_ID), TB_IdealSize(tbCommand, TbCommand_ID)
+ TB_IdealSize(tbEdit, TbEdit_ID), TB_IdealSize(tbSettings, TbSettings_ID)
return
TbHide:
-For _each, Ptr in TBHwndAll
-{
- If (Ptr.tbHwnd = tbPtr.tbHwnd)
+ For _each, Ptr in TBHwndAll
{
- bID := RBIndexTB[_each]
- break
+ If (Ptr.tbHwnd = tbPtr.tbHwnd)
+ {
+ bID := RBIndexTB[_each]
+ break
+ }
}
-}
-GoSub, ShowHideBandOn
+ GoSub, ShowHideBandOn
return
DuplicateList:
-Critical
-Gui, chMacro:Default
-Gui, chMacro:Submit, NoHide
-s_List := A_List
-GuiControlGet, c_Time, chTimes:, TimesG
-GoSub, TabPlus
-GuiControl, chMacro:-g, InputList%TabCount%
-LVManager[A_List].SetData(, LVManager[s_List].GetData())
-LVManager[A_List].ClearHistory()
-GuiControl, chTimes:, TimesG, %c_Time%
-GuiControl, chMacro:+gInputList, InputList%A_List%
-GoSub, b_Enable
-GoSub, RowCheck
-HistCheck()
-GuiControl, chMacro:+Redraw, InputList%A_List%
-Gosub, PrevRefresh
+ Critical
+ Gui, chMacro:Default
+ Gui, chMacro:Submit, NoHide
+ s_List := A_List
+ GuiControlGet, c_Time, chTimes:, TimesG
+ GoSub, TabPlus
+ GuiControl, chMacro:-g, InputList%TabCount%
+ LVManager[A_List].SetData(, LVManager[s_List].GetData())
+ LVManager[A_List].ClearHistory()
+ GuiControl, chTimes:, TimesG, %c_Time%
+ GuiControl, chMacro:+gInputList, InputList%A_List%
+ GoSub, b_Enable
+ GoSub, RowCheck
+ HistCheck()
+ GuiControl, chMacro:+Redraw, InputList%A_List%
+ Gosub, PrevRefresh
return
CopyList:
-If (IsMacrosMenu)
-{
- GuiControl, chMacro:Choose, A_List, %A_ThisMenuItemPos%
- GoSub, TabSel
- return
-}
-Critical
-Gui, chMacro:Default
-Gui, chMacro:Submit, NoHide
-Gui, chMacro:ListView, InputList%A_List%
-s_List := A_List, d_List := A_ThisMenuItemPos, RowSelection := LV_GetCount("Selected")
-RowNumber := 0
-If RowSelection = 0
-{
- Loop, % ListCount%s_List%
+ If (IsMacrosMenu)
{
- RowNumber++
- Gui, chMacro:ListView, InputList%s_List%
- LV_GetTexts(RowNumber, Action, Details, TimesX, DelayX, Type, Target, Window, Comment, Color)
- ckd := (LV_GetNext(RowNumber-1, "Checked")=RowNumber) ? 1 : 0
- Gui, chMacro:ListView, InputList%d_List%
- LV_Add("Check" ckd, ListCount%d_List%+1, Action, Details, TimesX, DelayX, Type, Target, Window, Comment, Color)
+ GuiControl, chMacro:Choose, A_List, %A_ThisMenuItemPos%
+ GoSub, TabSel
+ return
}
-}
-Else
-{
- Loop, %RowSelection%
+ Critical
+ Gui, chMacro:Default
+ Gui, chMacro:Submit, NoHide
+ Gui, chMacro:ListView, InputList%A_List%
+ s_List := A_List, d_List := A_ThisMenuItemPos, RowSelection := LV_GetCount("Selected")
+ RowNumber := 0
+ If RowSelection = 0
{
- Gui, chMacro:ListView, InputList%s_List%
- RowNumber := LV_GetNext(RowNumber)
- LV_GetTexts(RowNumber, Action, Details, TimesX, DelayX, Type, Target, Window, Comment, Color)
- ckd := (LV_GetNext(RowNumber-1, "Checked")=RowNumber) ? 1 : 0
- Gui, chMacro:ListView, InputList%d_List%
- LV_Add("Check" ckd, ListCount%d_List%+1, Action, Details, TimesX, DelayX, Type, Target, Window, Comment, Color)
+ Loop, % ListCount%s_List%
+ {
+ RowNumber++
+ Gui, chMacro:ListView, InputList%s_List%
+ LV_GetTexts(RowNumber, Action, Details, TimesX, DelayX, Type, Target, Window, Comment, Color)
+ ckd := (LV_GetNext(RowNumber-1, "Checked")=RowNumber) ? 1 : 0
+ Gui, chMacro:ListView, InputList%d_List%
+ LV_Add("Check" ckd, ListCount%d_List%+1, Action, Details, TimesX, DelayX, Type, Target, Window, Comment, Color)
+ }
}
-}
-Gui, chMacro:ListView, InputList%d_List%
-ListCount%d_List% := LV_GetCount()
-HistCheck(d_List)
-GoSub, RowCheck
-Gui, chMacro:ListView, InputList%s_List%
-GuiControl, Focus, InputList%A_List%
-return
-
-Duplicate:
-Critical
-Gui, chMacro:Default
-Gui, chMacro:Submit, NoHide
-GuiControl, chMacro:-g, InputList%A_List%
-RN := 0
-Loop, % LV_GetCount("Selected")
- RN := LV_GetNext(RN), LVManager[A_List].InsertAtGroup(RN)
-If (LVCopier.Duplicate())
-{
+ Else
+ {
+ Loop, %RowSelection%
+ {
+ Gui, chMacro:ListView, InputList%s_List%
+ RowNumber := LV_GetNext(RowNumber)
+ LV_GetTexts(RowNumber, Action, Details, TimesX, DelayX, Type, Target, Window, Comment, Color)
+ ckd := (LV_GetNext(RowNumber-1, "Checked")=RowNumber) ? 1 : 0
+ Gui, chMacro:ListView, InputList%d_List%
+ LV_Add("Check" ckd, ListCount%d_List%+1, Action, Details, TimesX, DelayX, Type, Target, Window, Comment, Color)
+ }
+ }
+ Gui, chMacro:ListView, InputList%d_List%
+ ListCount%d_List% := LV_GetCount()
+ HistCheck(d_List)
GoSub, RowCheck
- GoSub, b_Start
-}
-GuiControl, chMacro:+gInputList, InputList%A_List%
-If (AutoRefresh)
- GoSub, PrevRefresh
-return
-
-CopyRows:
-Critical
-Gui, chMacro:Default
-Gui, chMacro:Submit, NoHide
-If (LV_GetCount("Selected") = 0)
- return
-InMemoryRows := LVCopier.Copy()
+ Gui, chMacro:ListView, InputList%s_List%
+ GuiControl, Focus, InputList%A_List%
return
-CutRows:
-Critical
-Gui, chMacro:Default
-Gui, chMacro:Submit, NoHide
-GuiControl, chMacro:-g, InputList%A_List%
-If (LV_GetCount("Selected") = 0)
-{
+Duplicate:
+ Critical
+ Gui, chMacro:Default
+ Gui, chMacro:Submit, NoHide
+ GuiControl, chMacro:-g, InputList%A_List%
+ RN := 0
+ Loop, % LV_GetCount("Selected")
+ RN := LV_GetNext(RN), LVManager[A_List].InsertAtGroup(RN)
+ If (LVCopier.Duplicate())
+ {
+ GoSub, RowCheck
+ GoSub, b_Start
+ }
GuiControl, chMacro:+gInputList, InputList%A_List%
- return
-}
-InMemoryRows := LVCopier.Cut()
-GoSub, RowCheck
-GoSub, b_Start
-GuiControl, chMacro:+gInputList, InputList%A_List%
-If (AutoRefresh)
- GoSub, PrevRefresh
+ If (AutoRefresh)
+ GoSub, PrevRefresh
return
-PasteRows:
-Critical
-Gui, chMacro:Default
-Gui, chMacro:Submit, NoHide
-GuiControl, chMacro:-g, InputList%A_List%
-If (!InMemoryRows)
- return
-RN := 0
-Loop, % LV_GetCount("Selected")
-{
- RN := LV_GetNext(RN)
- Loop, %InMemoryRows%
- LVManager[A_List].InsertAtGroup(RN)
-}
-If (LVCopier.Paste(, true))
-{
+CopyRows:
+ Critical
+ Gui, chMacro:Default
+ Gui, chMacro:Submit, NoHide
+ If (LV_GetCount("Selected") = 0)
+ return
+ InMemoryRows := LVCopier.Copy()
+return
+
+CutRows:
+ Critical
+ Gui, chMacro:Default
+ Gui, chMacro:Submit, NoHide
+ GuiControl, chMacro:-g, InputList%A_List%
+ If (LV_GetCount("Selected") = 0)
+ {
+ GuiControl, chMacro:+gInputList, InputList%A_List%
+ return
+ }
+ InMemoryRows := LVCopier.Cut()
GoSub, RowCheck
GoSub, b_Start
-}
-GuiControl, chMacro:+gInputList, InputList%A_List%
-If (AutoRefresh)
- GoSub, PrevRefresh
+ GuiControl, chMacro:+gInputList, InputList%A_List%
+ If (AutoRefresh)
+ GoSub, PrevRefresh
+return
+
+PasteRows:
+ Critical
+ Gui, chMacro:Default
+ Gui, chMacro:Submit, NoHide
+ GuiControl, chMacro:-g, InputList%A_List%
+ If (!InMemoryRows)
+ return
+ RN := 0
+ Loop, % LV_GetCount("Selected")
+ {
+ RN := LV_GetNext(RN)
+ Loop, %InMemoryRows%
+ LVManager[A_List].InsertAtGroup(RN)
+ }
+ If (LVCopier.Paste(, true))
+ {
+ GoSub, RowCheck
+ GoSub, b_Start
+ }
+ GuiControl, chMacro:+gInputList, InputList%A_List%
+ If (AutoRefresh)
+ GoSub, PrevRefresh
return
Remove:
-Critical
-Gui, chMacro:Default
-Gui, chMacro:Submit, NoHide
-GuiControl, chMacro:-g, InputList%A_List%
-RowSelection := LV_GetCount("Selected"), TotalRows := LV_GetCount()
-If (RowSelection = 0)
-{
- LV_GetText(Type, 1, 6)
- If ((Type != cType47) && (Type != cType48))
+ Critical
+ Gui, chMacro:Default
+ Gui, chMacro:Submit, NoHide
+ GuiControl, chMacro:-g, InputList%A_List%
+ RowSelection := LV_GetCount("Selected"), TotalRows := LV_GetCount()
+ If (RowSelection = 0)
{
- GuiControl, chMacro:+gInputList, InputList%A_List%
- return
+ LV_GetText(Type, 1, 6)
+ If ((Type != cType47) && (Type != cType48))
+ {
+ GuiControl, chMacro:+gInputList, InputList%A_List%
+ return
+ }
+ LV_Delete()
+ LVManager[A_List].RemoveAllGroups(c_Lang061)
}
- LV_Delete()
- LVManager[A_List].RemoveAllGroups(c_Lang061)
-}
-Else If (RowSelection = TotalRows)
-{
- LV_Delete()
-}
-Else
-{
- PrevState := AutoRefresh
- AutoRefresh := 0
- LVManager[A_List].Delete()
- AutoRefresh := PrevState
-}
-LV_Modify(LV_GetNext(0, "Focused"), "Select")
-GoSub, RowCheck
-GoSub, b_Start
-GuiControl, chMacro:+gInputList, InputList%A_List%
-If (AutoRefresh)
- GoSub, PrevRefresh
+ Else If (RowSelection = TotalRows)
+ {
+ LV_Delete()
+ }
+ Else
+ {
+ PrevState := AutoRefresh
+ AutoRefresh := 0
+ LVManager[A_List].Delete()
+ AutoRefresh := PrevState
+ }
+ LV_Modify(LV_GetNext(0, "Focused"), "Select")
+ GoSub, RowCheck
+ GoSub, b_Start
+ GuiControl, chMacro:+gInputList, InputList%A_List%
+ If (AutoRefresh)
+ GoSub, PrevRefresh
return
MoveCopy:
-Menu, MoveCopy, Add, %w_Lang095%, MoveHere
-Menu, MoveCopy, Add, %w_Lang096%, CopyHere
-Menu, MoveCopy, Add
-Menu, MoveCopy, Add, %c_Lang021%, NoKey
-Menu, MoveCopy, Default, %w_Lang095%
-Menu, MoveCopy, Show
-Menu, MoveCopy, DeleteAll
-Gui, MarkLine:Cancel
-GoSub, RowCheck
-GoSub, b_Start
-Dest_Row := ""
+ Menu, MoveCopy, Add, %w_Lang095%, MoveHere
+ Menu, MoveCopy, Add, %w_Lang096%, CopyHere
+ Menu, MoveCopy, Add
+ Menu, MoveCopy, Add, %c_Lang021%, NoKey
+ Menu, MoveCopy, Default, %w_Lang095%
+ Menu, MoveCopy, Show
+ Menu, MoveCopy, DeleteAll
+ Gui, MarkLine:Cancel
+ GoSub, RowCheck
+ GoSub, b_Start
+ Dest_Row := ""
return
CopyHere:
-Critical
-Gui, chMacro:Default
-Gui, chMacro:Submit, NoHide
-GuiControl, chMacro:-g, InputList%A_List%
-TempData := new LV_Rows()
-TempData.Copy()
-TempData.Paste(Dest_Row)
-TempData := ""
-LVManager[A_List].RefreshGroups()
-GuiControl, chMacro:+gInputList, InputList%A_List%
-If (AutoRefresh)
- GoSub, PrevRefresh
+ Critical
+ Gui, chMacro:Default
+ Gui, chMacro:Submit, NoHide
+ GuiControl, chMacro:-g, InputList%A_List%
+ TempData := new LV_Rows()
+ TempData.Copy()
+ TempData.Paste(Dest_Row)
+ TempData := ""
+ LVManager[A_List].RefreshGroups()
+ GuiControl, chMacro:+gInputList, InputList%A_List%
+ If (AutoRefresh)
+ GoSub, PrevRefresh
return
MoveHere:
-Critical
-Gui, chMacro:Default
-Gui, chMacro:Submit, NoHide
-GuiControl, chMacro:-g, InputList%A_List%
-TempData := new LV_Rows()
-TempData.Copy()
-TempData.Paste(Dest_Row)
-TempData.Delete()
-TempData := ""
-LVManager[A_List].RefreshGroups()
-GuiControl, chMacro:+gInputList, InputList%A_List%
-If (AutoRefresh)
- GoSub, PrevRefresh
+ Critical
+ Gui, chMacro:Default
+ Gui, chMacro:Submit, NoHide
+ GuiControl, chMacro:-g, InputList%A_List%
+ TempData := new LV_Rows()
+ TempData.Copy()
+ TempData.Paste(Dest_Row)
+ TempData.Delete()
+ TempData := ""
+ LVManager[A_List].RefreshGroups()
+ GuiControl, chMacro:+gInputList, InputList%A_List%
+ If (AutoRefresh)
+ GoSub, PrevRefresh
return
Undo:
-Critical
-Gui, 1:Submit, NoHide
-Gui, chMacro:Default
-Gui, chMacro:Submit, NoHide
-Gui, chMacro:Listview, InputList%A_List%
-GuiControl, chMacro:-Redraw, InputList%A_List%
-GuiControl, chMacro:-g, InputList%A_List%
-SelRow := LV_GetNext(0, "Focused")
-If (LVManager[A_List].Undo())
-{
- SelRow ? LV_Modify(SelRow, "Select Focus Vis") : ""
- GoSub, RowCheck
- GoSub, b_Enable
-}
-GuiControl, chMacro:+gInputList, InputList%A_List%
-GuiControl, chMacro:+Redraw, InputList%A_List%
-If (AutoRefresh)
- GoSub, PrevRefresh
+ Critical
+ Gui, 1:Submit, NoHide
+ Gui, chMacro:Default
+ Gui, chMacro:Submit, NoHide
+ Gui, chMacro:Listview, InputList%A_List%
+ GuiControl, chMacro:-Redraw, InputList%A_List%
+ GuiControl, chMacro:-g, InputList%A_List%
+ SelRow := LV_GetNext(0, "Focused")
+ If (LVManager[A_List].Undo())
+ {
+ SelRow ? LV_Modify(SelRow, "Select Focus Vis") : ""
+ GoSub, RowCheck
+ GoSub, b_Enable
+ }
+ GuiControl, chMacro:+gInputList, InputList%A_List%
+ GuiControl, chMacro:+Redraw, InputList%A_List%
+ If (AutoRefresh)
+ GoSub, PrevRefresh
return
Redo:
-Critical
-Gui, 1:Submit, NoHide
-Gui, chMacro:Default
-Gui, chMacro:Submit, NoHide
-Gui, chMacro:Listview, InputList%A_List%
-GuiControl, chMacro:-Redraw, InputList%A_List%
-GuiControl, chMacro:-g, InputList%A_List%
-SelRow := LV_GetNext(0, "Focused")
-If (LVManager[A_List].Redo())
-{
- SelRow ? LV_Modify(SelRow, "Select Focus Vis")
- GoSub, RowCheck
- GoSub, b_Enable
-}
-GuiControl, chMacro:+gInputList, InputList%A_List%
-GuiControl, chMacro:+Redraw, InputList%A_List%
-If (AutoRefresh)
- GoSub, PrevRefresh
+ Critical
+ Gui, 1:Submit, NoHide
+ Gui, chMacro:Default
+ Gui, chMacro:Submit, NoHide
+ Gui, chMacro:Listview, InputList%A_List%
+ GuiControl, chMacro:-Redraw, InputList%A_List%
+ GuiControl, chMacro:-g, InputList%A_List%
+ SelRow := LV_GetNext(0, "Focused")
+ If (LVManager[A_List].Redo())
+ {
+ SelRow ? LV_Modify(SelRow, "Select Focus Vis")
+ GoSub, RowCheck
+ GoSub, b_Enable
+ }
+ GuiControl, chMacro:+gInputList, InputList%A_List%
+ GuiControl, chMacro:+Redraw, InputList%A_List%
+ If (AutoRefresh)
+ GoSub, PrevRefresh
return
TabPlus:
-Gui, 1:Submit, NoHide
-Gui, chMacro:Default
-Gui, chMacro:Font, s%MacroFontSize%
-Gui, chMacro:Submit, NoHide
-If (TabCount = 256)
- return
-Try Menu, CopyTo, Uncheck, % CopyMenuLabels[A_List]
-ColOrder := LVOrder_Get(11, ListID%A_List%), AllTabs := "", TabName := ""
-Loop, %TabCount%
- AllTabs .= CopyMenuLabels[A_Index] ","
-While (InStr(AllTabs, TabName ","))
- TabName := "Macro" TabCount+A_Index
-TabCount++
-GuiControl, chMacro:, %TabSel%, %TabName%
-CopyMenuLabels[TabCount] := TabName
-GuiControl, chMacro:Choose, A_List, %TabCount%
-GoSub, SaveData
-Gui, chMacro:Submit, NoHide
-GuiAddLV(TabCount)
-Gui, chMacro:ListView, InputList%A_List%
-GoSub, LoadData
-LVManager[A_List] := new LV_Rows(ListID%A_List%)
-LVManager[A_List].Add()
-GoSub, chMacroGuiSize
-Menu, CopyTo, Add, % CopyMenuLabels[TabCount], CopyList, Radio
-Try Menu, CopyTo, Check, % CopyMenuLabels[A_List]
-GuiControl, 28:+Range1-%TabCount%, OSHK
-SavePrompt(true, A_ThisLabel)
+ Gui, 1:Submit, NoHide
+ Gui, chMacro:Default
+ Gui, chMacro:Font, s%MacroFontSize%
+ Gui, chMacro:Submit, NoHide
+ If (TabCount = 256)
+ return
+ Try Menu, CopyTo, Uncheck, % CopyMenuLabels[A_List]
+ ColOrder := LVOrder_Get(11, ListID%A_List%), AllTabs := "", TabName := ""
+ Loop, %TabCount%
+ AllTabs .= CopyMenuLabels[A_Index] ","
+ While (InStr(AllTabs, TabName ","))
+ TabName := "Macro" TabCount+A_Index
+ TabCount++
+ GuiControl, chMacro:, %TabSel%, %TabName%
+ CopyMenuLabels[TabCount] := TabName
+ GuiControl, chMacro:Choose, A_List, %TabCount%
+ GoSub, SaveData
+ Gui, chMacro:Submit, NoHide
+ GuiAddLV(TabCount)
+ Gui, chMacro:ListView, InputList%A_List%
+ GoSub, LoadData
+ LVManager[A_List] := new LV_Rows(ListID%A_List%)
+ LVManager[A_List].Add()
+ GoSub, chMacroGuiSize
+ Menu, CopyTo, Add, % CopyMenuLabels[TabCount], CopyList, Radio
+ Try Menu, CopyTo, Check, % CopyMenuLabels[A_List]
+ GuiControl, 28:+Range1-%TabCount%, OSHK
+ SavePrompt(true, A_ThisLabel)
TabSel:
-GoSub, SaveData
-Gui, 1:Submit, NoHide
-Try Menu, CopyTo, Uncheck, % CopyMenuLabels[A_List]
-Gui, chMacro:Default
-Gui, chMacro:Submit, NoHide
-Gui, chMacro:ListView, InputList%A_List%
-GoSub, PrevRefresh
-GoSub, chMacroGuiSize
-GoSub, LoadData
-GoSub, RowCheck
-GuiControl, 28:, OSHK, %A_List%
-Try Menu, CopyTo, Check, % CopyMenuLabels[A_List]
-GuiControl, chMacro:Focus, InputList%A_List%
-If (InStr(CopyMenuLabels[A_List], "()"))
- GoSub, FuncTab
-Else
- GoSub, MacroTab
+ GoSub, SaveData
+ Gui, 1:Submit, NoHide
+ Try Menu, CopyTo, Uncheck, % CopyMenuLabels[A_List]
+ Gui, chMacro:Default
+ Gui, chMacro:Submit, NoHide
+ Gui, chMacro:ListView, InputList%A_List%
+ GoSub, PrevRefresh
+ GoSub, chMacroGuiSize
+ GoSub, LoadData
+ GoSub, RowCheck
+ GuiControl, 28:, OSHK, %A_List%
+ Try Menu, CopyTo, Check, % CopyMenuLabels[A_List]
+ GuiControl, chMacro:Focus, InputList%A_List%
+ If (InStr(CopyMenuLabels[A_List], "()"))
+ GoSub, FuncTab
+ Else
+ GoSub, MacroTab
return
TabClose:
-Gui, 1:+OwnDialogs
-GoSub, SaveData
-GoSub, ResetHotkeys
-Gui, 1:Submit, NoHide
-If (TabCount = 1)
- return
-c_List := ClickedTab ? ClickedTab : A_List
-If ((ConfirmDelete) && (ListCount%c_List% > 0))
-{
+ Gui, 1:+OwnDialogs
+ GoSub, SaveData
+ GoSub, ResetHotkeys
+ Gui, 1:Submit, NoHide
+ If (TabCount = 1)
+ return
+ c_List := ClickedTab ? ClickedTab : A_List
+ If ((ConfirmDelete) && (ListCount%c_List% > 0))
+ {
- Gui, 1:+Disabled
- Gui, 35:-SysMenu hwndCloseTab +owner1
- Gui, 35:Color, FFFFFF
- Gui, 35:Add, Pic, y+20 Icon78 W48 H48, %ResDllPath%
- Gui, 35:Add, Text, -Wrap R1 Section yp x+10 W250, %d_Lang020%`n
- Gui, 35:Add, Checkbox, Checked -Wrap xs W250 R1 vConfirmDelete cGray, %t_Lang151%
- Gui, 35:Add, Button, -Wrap Section Default xs y+10 W90 H23 gConfirmDel, %c_Lang020%
- Gui, 35:Add, Button, -Wrap ys W90 H23 gTipClose2, %c_Lang021%
- GuiControl, 35:Focus, %c_Lang020%
- Gui, 35:Show,, %AppName%
- WinWaitClose, ahk_id %CloseTab%
- return
-}
+ Gui, 1:+Disabled
+ Gui, 35:-SysMenu hwndCloseTab +owner1
+ Gui, 35:Color, FFFFFF
+ Gui, 35:Add, Pic, y+20 Icon78 W48 H48, %ResDllPath%
+ Gui, 35:Add, Text, -Wrap R1 Section yp x+10 W250, %d_Lang020%`n
+ Gui, 35:Add, Checkbox, Checked -Wrap xs W250 R1 vConfirmDelete cGray, %t_Lang151%
+ Gui, 35:Add, Button, -Wrap Section Default xs y+10 W90 H23 gConfirmDel, %c_Lang020%
+ Gui, 35:Add, Button, -Wrap ys W90 H23 gTipClose2, %c_Lang021%
+ GuiControl, 35:Focus, %c_Lang020%
+ Gui, 35:Show,, %AppName%
+ WinWaitClose, ahk_id %CloseTab%
+ return
+ }
ConfirmDel:
-Critical
-Gui, 1:-Disabled
-Gui, 35:Submit
-Gui, 35:Destroy
-Menu, CopyTo, Uncheck, % CopyMenuLabels[A_List]
-Gui, chMacro:Default
-Gui, chMacro:Submit, NoHide
-Menu, CopyTo, Delete, % CopyMenuLabels[c_List]
-CopyMenuLabels.RemoveAt(c_List)
-o_MacroContext.RemoveAt(c_List)
-s_Tab := c_List
-Loop, %TabCount%
- GuiControl, chMacro:-g, InputList%A_Index%
-Loop, % TabCount - c_List
-{
- n_Tab := s_Tab+1
- LVManager[s_Tab].SetData(, LVManager[n_Tab].GetData())
- Labels .= CopyMenuLabels[s_Tab] "|"
- s_Tab++
-}
-Gui, chMacro:ListView, InputList%TabCount%
-LV_Delete()
-LVManager.RemoveAt(TabCount)
-If (c_List != TabCount)
-{
- o_AutoKey.RemoveAt(c_List)
- o_ManKey.RemoveAt(c_List)
- o_TimesG.RemoveAt(c_List)
-}
-s_List := ""
-ListCount%TabCount% := 0
-TabCount--
-Loop, %TabCount%
-{
- s_List .= CopyMenuLabels[A_Index] "|"
- GuiControl, chMacro:+gInputList, InputList%A_Index%
-}
-Gui, chMacro:ListView, InputList%A_List%
-GuiControl, chMacro:, A_List, |%s_List%
-GuiControl, chMacro:Choose, A_List, % (A_List < TabCount) ? A_List : TabCount
-Gui, chMacro:Submit, NoHide
-GoSub, LoadData
-GoSub, TabSel
-SavePrompt(true, A_ThisLabel)
+ Critical
+ Gui, 1:-Disabled
+ Gui, 35:Submit
+ Gui, 35:Destroy
+ Menu, CopyTo, Uncheck, % CopyMenuLabels[A_List]
+ Gui, chMacro:Default
+ Gui, chMacro:Submit, NoHide
+ Menu, CopyTo, Delete, % CopyMenuLabels[c_List]
+ CopyMenuLabels.RemoveAt(c_List)
+ o_MacroContext.RemoveAt(c_List)
+ s_Tab := c_List
+ Loop, %TabCount%
+ GuiControl, chMacro:-g, InputList%A_Index%
+ Loop, % TabCount - c_List
+ {
+ n_Tab := s_Tab+1
+ LVManager[s_Tab].SetData(, LVManager[n_Tab].GetData())
+ Labels .= CopyMenuLabels[s_Tab] "|"
+ s_Tab++
+ }
+ Gui, chMacro:ListView, InputList%TabCount%
+ LV_Delete()
+ LVManager.RemoveAt(TabCount)
+ If (c_List != TabCount)
+ {
+ o_AutoKey.RemoveAt(c_List)
+ o_ManKey.RemoveAt(c_List)
+ o_TimesG.RemoveAt(c_List)
+ }
+ s_List := ""
+ ListCount%TabCount% := 0
+ TabCount--
+ Loop, %TabCount%
+ {
+ s_List .= CopyMenuLabels[A_Index] "|"
+ GuiControl, chMacro:+gInputList, InputList%A_Index%
+ }
+ Gui, chMacro:ListView, InputList%A_List%
+ GuiControl, chMacro:, A_List, |%s_List%
+ GuiControl, chMacro:Choose, A_List, % (A_List < TabCount) ? A_List : TabCount
+ Gui, chMacro:Submit, NoHide
+ GoSub, LoadData
+ GoSub, TabSel
+ SavePrompt(true, A_ThisLabel)
return
FuncTab:
-GuiControl, 1:, AutoKey
-GuiControl, 1:, ManKey
-GuiControl, 1:, JoyKey
-GuiControl, chTimes:, TimesG, 1
-GuiControl, 1:Disable, AutoKey
-GuiControl, 1:Disable, ManKey
-GuiControl, 1:Disable, JoyKey
-o_MacroContext[A_List] := {"Condition": "None", "Context": ""}
-GuiControl, 1:, THotkeyTip, Hotkey:
-GuiControl, 1:, MacroContextTip, Macro #If: None
-GuiControl, chTimes:Disable, TimesG
-GuiControl, chTimes:Disable, ReptC
-Menu, FuncMenu, Enable, %u_Lang002%`t%_s%Ctrl+Shift+P
-Menu, FuncMenu, Enable, %u_Lang003%`t%_s%Ctrl+Shift+N
-Menu, FuncMenu, Disable, %u_Lang004%`t%_s%Ctrl+Shift+C
-TB_Edit(TbEdit, "FuncParameter",, 1), TB_Edit(TbEdit, "FuncReturn",, 1)
-If (!IsFunc(LVManager[A_List].Callback))
- LVManager[A_List].SetCallback("LVCallback")
+ GuiControl, 1:, AutoKey
+ GuiControl, 1:, ManKey
+ GuiControl, 1:, JoyKey
+ GuiControl, chTimes:, TimesG, 1
+ GuiControl, 1:Disable, AutoKey
+ GuiControl, 1:Disable, ManKey
+ GuiControl, 1:Disable, JoyKey
+ o_MacroContext[A_List] := {"Condition": "None", "Context": ""}
+ GuiControl, 1:, THotkeyTip, Hotkey:
+ GuiControl, 1:, MacroContextTip, Macro #If: None
+ GuiControl, chTimes:Disable, TimesG
+ GuiControl, chTimes:Disable, ReptC
+ Menu, FuncMenu, Enable, %u_Lang002%`t%_s%Ctrl+Shift+P
+ Menu, FuncMenu, Enable, %u_Lang003%`t%_s%Ctrl+Shift+N
+ Menu, FuncMenu, Disable, %u_Lang004%`t%_s%Ctrl+Shift+C
+ TB_Edit(TbEdit, "FuncParameter",, 1), TB_Edit(TbEdit, "FuncReturn",, 1)
+ If (!IsFunc(LVManager[A_List].Callback))
+ LVManager[A_List].SetCallback("LVCallback")
return
MacroTab:
-GuiControl, 1:Enable, AutoKey
-GuiControl, 1:Enable, ManKey
-GuiControl, 1:Enable, JoyKey
-GuiControl, 1:, THotkeyTip, % "Hotkey: " o_AutoKey[A_List]
-GuiControl, 1:, MacroContextTip, % "Macro #If: " o_MacroContext[A_List].Condition
-GuiControl, chTimes:Enable, TimesG
-GuiControl, chTimes:Enable, ReptC
-Menu, FuncMenu, Disable, %u_Lang002%`t%_s%Ctrl+Shift+P
-Menu, FuncMenu, Disable, %u_Lang003%`t%_s%Ctrl+Shift+N
-Menu, FuncMenu, Enable, %u_Lang004%`t%_s%Ctrl+Shift+C
-TB_Edit(TbEdit, "FuncParameter",, 0), TB_Edit(TbEdit, "FuncReturn",, 0)
+ GuiControl, 1:Enable, AutoKey
+ GuiControl, 1:Enable, ManKey
+ GuiControl, 1:Enable, JoyKey
+ GuiControl, 1:, THotkeyTip, % "Hotkey: " o_AutoKey[A_List]
+ GuiControl, 1:, MacroContextTip, % "Macro #If: " o_MacroContext[A_List].Condition
+ GuiControl, chTimes:Enable, TimesG
+ GuiControl, chTimes:Enable, ReptC
+ Menu, FuncMenu, Disable, %u_Lang002%`t%_s%Ctrl+Shift+P
+ Menu, FuncMenu, Disable, %u_Lang003%`t%_s%Ctrl+Shift+N
+ Menu, FuncMenu, Enable, %u_Lang004%`t%_s%Ctrl+Shift+C
+ TB_Edit(TbEdit, "FuncParameter",, 0), TB_Edit(TbEdit, "FuncReturn",, 0)
return
MacrosMenu:
-IsMacrosMenu := true
-ControlGetPos, CtrPosX, CtrPosY,, CtrlPosH,, ahk_id %hMacrosMenu%
-Menu, CopyTo, Show, %CtrPosX%, % CtrPosY + CtrlPosH
-IsMacrosMenu := false
+ IsMacrosMenu := true
+ ControlGetPos, CtrPosX, CtrPosY,, CtrlPosH,, ahk_id %hMacrosMenu%
+ Menu, CopyTo, Show, %CtrPosX%, % CtrPosY + CtrlPosH
+ IsMacrosMenu := false
return
SaveData:
-Gui, 1:Default
-If ((A_GuiControl = "AutoKey") || (A_GuiControl = "TimesG"))
- SavePrompt(true, A_ThisLabel)
-If (JoyHK = 1)
-{
- GuiControlGet, HK_AutoKey, 1:, JoyKey
- If (!RegExMatch(HK_AutoKey, "i)Joy\d+$"))
- HK_AutoKey := ""
-}
-Else
- GuiControlGet, HK_AutoKey, 1:, AutoKey
-GuiControlGet, ManKey, 1:, ManKey
-GuiControlGet, TimesO, chTimes:, TimesG
-If ((HK_AutoKey = "") && (!HotkeyCtrlHasFocus()))
- HK_AutoKey := StrReplace(o_AutoKey[A_List], "#")
-o_AutoKey[A_List] := (WinKey = 1) ? "#" HK_AutoKey : HK_AutoKey
-If (o_AutoKey[A_List] = "#")
- o_AutoKey[A_List] := "LWin"
-o_ManKey[A_List] := ManKey, o_TimesG[A_List] := TimesO
-GuiControl, 1:, THotkeyTip, % "Hotkey: " o_AutoKey[A_List]
+ Gui, 1:Default
+ If ((A_GuiControl = "AutoKey") || (A_GuiControl = "TimesG"))
+ SavePrompt(true, A_ThisLabel)
+ If (JoyHK = 1)
+ {
+ GuiControlGet, HK_AutoKey, 1:, JoyKey
+ If (!RegExMatch(HK_AutoKey, "i)Joy\d+$"))
+ HK_AutoKey := ""
+ }
+ Else
+ GuiControlGet, HK_AutoKey, 1:, AutoKey
+ GuiControlGet, ManKey, 1:, ManKey
+ GuiControlGet, TimesO, chTimes:, TimesG
+ If ((HK_AutoKey = "") && (!HotkeyCtrlHasFocus()))
+ HK_AutoKey := StrReplace(o_AutoKey[A_List], "#")
+ o_AutoKey[A_List] := (WinKey = 1) ? "#" HK_AutoKey : HK_AutoKey
+ If (o_AutoKey[A_List] = "#")
+ o_AutoKey[A_List] := "LWin"
+ o_ManKey[A_List] := ManKey, o_TimesG[A_List] := TimesO
+ GuiControl, 1:, THotkeyTip, % "Hotkey: " o_AutoKey[A_List]
return
LoadData:
-Gui, 1:Default
-If (InStr(o_AutoKey[A_List], "Joy"))
-{
- TB_Edit(TbSettings, "SetJoyButton", JoyHK := 1)
- GuiControl, 1:, AutoKey
- GoSub, SetJoyHK
-}
-Else
-{
- TB_Edit(TbSettings, "SetJoyButton", JoyHK := 0)
- GuiControl, 1:, JoyKey
- GuiControl, 1:, AutoKey, % StrReplace(o_AutoKey[A_List], "#")
- GoSub, SetNoJoy
-}
-WinKey := InStr(o_AutoKey[A_List], "#") ? 1 : 0
-TB_Edit(TbSettings, "WinKey", WinKey)
-GuiControl, 1:, ManKey, % o_ManKey[A_List]
-GuiControl, chTimes:, TimesG, % (o_TimesG[A_List] = "") ? 1 : o_TimesG[A_List]
+ Gui, 1:Default
+ If (InStr(o_AutoKey[A_List], "Joy"))
+ {
+ TB_Edit(TbSettings, "SetJoyButton", JoyHK := 1)
+ GuiControl, 1:, AutoKey
+ GoSub, SetJoyHK
+ }
+ Else
+ {
+ TB_Edit(TbSettings, "SetJoyButton", JoyHK := 0)
+ GuiControl, 1:, JoyKey
+ GuiControl, 1:, AutoKey, % StrReplace(o_AutoKey[A_List], "#")
+ GoSub, SetNoJoy
+ }
+ WinKey := InStr(o_AutoKey[A_List], "#") ? 1 : 0
+ TB_Edit(TbSettings, "WinKey", WinKey)
+ GuiControl, 1:, ManKey, % o_ManKey[A_List]
+ GuiControl, chTimes:, TimesG, % (o_TimesG[A_List] = "") ? 1 : o_TimesG[A_List]
return
AutoComplete:
-CbAutoComplete()
-If (A_GuiControl = "AutoKeyL")
-{
- Gui, 33:Submit, NoHide
- If (AutoKeyL = "")
- GuiControl, 33:Enable, AutoKey
- Else
- GuiControl, 33:Disable, AutoKey
-}
+ CbAutoComplete()
+ If (A_GuiControl = "AutoKeyL")
+ {
+ Gui, 33:Submit, NoHide
+ If (AutoKeyL = "")
+ GuiControl, 33:Enable, AutoKey
+ Else
+ GuiControl, 33:Disable, AutoKey
+ }
return
FindInList:
-CbAutoComplete()
-Gui, Submit, NoHide
-CoordMode, Tooltip, Window
-GuiControlGet, CBPos, Pos, FindList
-Tooltip, % SBShowTip(FindList), %CBPosX%, % CBPosY + CBPosH * 4
+ CbAutoComplete()
+ Gui, Submit, NoHide
+ CoordMode, Tooltip, Window
+ GuiControlGet, CBPos, Pos, FindList
+ Tooltip, % SBShowTip(FindList), %CBPosX%, % CBPosY + CBPosH * 4
return
GoToFind:
-Gui, Submit, NoHide
-If (FindList = "")
- return
-FoundResults := Find_Command(FindList, true)
-If (FoundResults.Length() = 1)
-{
- GotoRes1 := FoundResults[1].Cmd, GotoRes2 := FoundResults[1].Path
- Goto, GotoResult
-}
-GoSub, CmdFind
-GuiControl,, FindCmd, %FindList%
-GoSub, FindCmd
+ Gui, Submit, NoHide
+ If (FindList = "")
+ return
+ FoundResults := Find_Command(FindList, true)
+ If (FoundResults.Length() = 1)
+ {
+ GotoRes1 := FoundResults[1].Cmd, GotoRes2 := FoundResults[1].Path
+ Goto, GotoResult
+ }
+ GoSub, CmdFind
+ GuiControl,, FindCmd, %FindList%
+ GoSub, FindCmd
return
GetHotkeys:
-AutoKey := "", ManKey := ""
-For _each, _key in o_AutoKey
- AutoKey .= _key "|"
-For _each, _key in o_ManKey
- ManKey .= _key "|"
-AutoKey := RTrim(AutoKey, "|"), ManKey := RTrim(ManKey, "|")
+ AutoKey := "", ManKey := ""
+ For _each, _key in o_AutoKey
+ AutoKey .= _key "|"
+ For _each, _key in o_ManKey
+ ManKey .= _key "|"
+ AutoKey := RTrim(AutoKey, "|"), ManKey := RTrim(ManKey, "|")
return
MoveUp:
-Gui, chMacro:Default
-GuiControl, chMacro:-Redraw, InputList%A_List%
-LVManager[A_List].Move(1)
-GoSub, RowCheck
-GoSub, b_Enable
-HistCheck()
-GuiControl, chMacro:+Redraw, InputList%A_List%
+ Gui, chMacro:Default
+ GuiControl, chMacro:-Redraw, InputList%A_List%
+ LVManager[A_List].Move(1)
+ GoSub, RowCheck
+ GoSub, b_Enable
+ HistCheck()
+ GuiControl, chMacro:+Redraw, InputList%A_List%
return
MoveDn:
-Gui, chMacro:Default
-GuiControl, chMacro:-Redraw, InputList%A_List%
-LVManager[A_List].Move()
-GoSub, RowCheck
-GoSub, b_Enable
-HistCheck()
-GuiControl, chMacro:+Redraw, InputList%A_List%
+ Gui, chMacro:Default
+ GuiControl, chMacro:-Redraw, InputList%A_List%
+ LVManager[A_List].Move()
+ GoSub, RowCheck
+ GoSub, b_Enable
+ HistCheck()
+ GuiControl, chMacro:+Redraw, InputList%A_List%
return
DelLists:
-StopIt := 1
-OnMessage(WM_NOTIFY, ""), LV_Colors.Detach(ListID%A_List%)
-Gui, chMacro:Default
-Loop, %TabCount%
-{
- Gui, chMacro:ListView, InputList%A_Index%
- LV_Delete()
- LVManager[A_Index].RemoveAllGroups(c_Lang061)
- LVManager[A_Index].ClearHistory()
- ListCount%A_Index% := 0
- GuiControl, chMacro:+Redraw, InputList%A_Index%
- Try Menu, CopyTo, Delete, % CopyMenuLabels[A_Index]
-}
-CopyMenuLabels[1] := "Macro1"
-Menu, CopyTo, Add, % CopyMenuLabels[1], CopyList, Radio
-Menu, CopyTo, Check, % CopyMenuLabels[1]
-Gosub, ResetHotkeys
-Gosub, ClearTimers
-UserDefFunctions := SyHi_UserDef " ", SetUserWords(UserDefFunctions)
-DebugCheckError := False
-DebugCheckLoop := []
-DebugCheckIf := []
-DebugDefault := []
+ StopIt := 1
+ OnMessage(WM_NOTIFY, ""), LV_Colors.Detach(ListID%A_List%)
+ Gui, chMacro:Default
+ Loop, %TabCount%
+ {
+ Gui, chMacro:ListView, InputList%A_Index%
+ LV_Delete()
+ LVManager[A_Index].RemoveAllGroups(c_Lang061)
+ LVManager[A_Index].ClearHistory()
+ ListCount%A_Index% := 0
+ GuiControl, chMacro:+Redraw, InputList%A_Index%
+ Try Menu, CopyTo, Delete, % CopyMenuLabels[A_Index]
+ }
+ CopyMenuLabels[1] := "Macro1"
+ Menu, CopyTo, Add, % CopyMenuLabels[1], CopyList, Radio
+ Menu, CopyTo, Check, % CopyMenuLabels[1]
+ Gosub, ResetHotkeys
+ Gosub, ClearTimers
+ UserDefFunctions := SyHi_UserDef " ", SetUserWords(UserDefFunctions)
+ DebugCheckError := False
+ DebugCheckLoop := []
+ DebugCheckIf := []
+ DebugDefault := []
return
SelectAll:
-Gui, chMacro:Default
-LV_Modify(0, "Select")
+ Gui, chMacro:Default
+ LV_Modify(0, "Select")
return
SelectNone:
-Gui, chMacro:Default
-LV_Modify(0, "-Select")
+ Gui, chMacro:Default
+ LV_Modify(0, "-Select")
return
MoveSelDn:
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected")
-If (RowSelection = 0)
- return
-RowNumber := 0, SelectedRows := ""
-Loop, % RowSelection
-{
- RowNumber := LV_GetNext(RowNumber)
- SelectedRows := RowNumber "|" SelectedRows
-}
-SelectedRows := RTrim(SelectedRows, "|")
-Loop, Parse, SelectedRows, |
-{
- LV_Modify(A_LoopField+1, "Select")
- LV_Modify(A_LoopField, "-Select")
-}
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected")
+ If (RowSelection = 0)
+ return
+ RowNumber := 0, SelectedRows := ""
+ Loop, % RowSelection
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ SelectedRows := RowNumber "|" SelectedRows
+ }
+ SelectedRows := RTrim(SelectedRows, "|")
+ Loop, Parse, SelectedRows, |
+ {
+ LV_Modify(A_LoopField+1, "Select")
+ LV_Modify(A_LoopField, "-Select")
+ }
return
MoveSelUp:
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected")
-If (RowSelection = 0)
- return
-RowNumber := 0
-Loop, % RowSelection
-{
- RowNumber := LV_GetNext(RowNumber)
- LV_Modify(RowNumber, "-Select")
- If (RowNumber > 1)
- LV_Modify(RowNumber-1, "Select")
-}
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected")
+ If (RowSelection = 0)
+ return
+ RowNumber := 0
+ Loop, % RowSelection
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ LV_Modify(RowNumber, "-Select")
+ If (RowNumber > 1)
+ LV_Modify(RowNumber-1, "Select")
+ }
return
InvertSel:
-Gui, chMacro:Default
-If (LV_GetCount("Selected") = 0)
- LV_Modify(0, "Select")
-Else
-{
- Loop, % ListCount%A_List%
+ Gui, chMacro:Default
+ If (LV_GetCount("Selected") = 0)
+ LV_Modify(0, "Select")
+ Else
{
- If (LV_GetNext(A_Index-1) = A_Index)
- LV_Modify(A_Index, "-Select")
- Else
- LV_Modify(A_Index, "Select")
+ Loop, % ListCount%A_List%
+ {
+ If (LV_GetNext(A_Index-1) = A_Index)
+ LV_Modify(A_Index, "-Select")
+ Else
+ LV_Modify(A_Index, "Select")
+ }
}
-}
return
CheckSel:
-Gui, chMacro:Default
-GuiControl, chMacro:-g, InputList%A_List%
-RowNumber := 0
-Loop
-{
- RowNumber := LV_GetNext(RowNumber)
- If (!RowNumber)
- break
- LV_Modify(RowNumber, "Check")
-}
-HistCheck(A_List)
-GuiControl, chMacro:+gInputList, InputList%A_List%
+ Gui, chMacro:Default
+ GuiControl, chMacro:-g, InputList%A_List%
+ RowNumber := 0
+ Loop
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ If (!RowNumber)
+ break
+ LV_Modify(RowNumber, "Check")
+ }
+ HistCheck(A_List)
+ GuiControl, chMacro:+gInputList, InputList%A_List%
return
UnCheckSel:
-Gui, chMacro:Default
-GuiControl, chMacro:-g, InputList%A_List%
-RowNumber := 0
-Loop
-{
- RowNumber := LV_GetNext(RowNumber)
- If (!RowNumber)
- break
- LV_Modify(RowNumber, "-Check")
-}
-HistCheck(A_List)
-GuiControl, chMacro:+gInputList, InputList%A_List%
+ Gui, chMacro:Default
+ GuiControl, chMacro:-g, InputList%A_List%
+ RowNumber := 0
+ Loop
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ If (!RowNumber)
+ break
+ LV_Modify(RowNumber, "-Check")
+ }
+ HistCheck(A_List)
+ GuiControl, chMacro:+gInputList, InputList%A_List%
return
InvertCheck:
-Gui, chMacro:Default
-GuiControl, chMacro:-g, InputList%A_List%
-RowNumber := 0
-Loop
-{
- RowNumber := LV_GetNext(RowNumber)
- If (!RowNumber)
- break
- If (LV_GetNext(RowNumber-1, "Checked")=RowNumber)
- LV_Modify(RowNumber, "-Check")
- Else
- LV_Modify(RowNumber, "Check")
-}
-HistCheck(A_List)
-GuiControl, chMacro:+gInputList, InputList%A_List%
+ Gui, chMacro:Default
+ GuiControl, chMacro:-g, InputList%A_List%
+ RowNumber := 0
+ Loop
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ If (!RowNumber)
+ break
+ If (LV_GetNext(RowNumber-1, "Checked")=RowNumber)
+ LV_Modify(RowNumber, "-Check")
+ Else
+ LV_Modify(RowNumber, "Check")
+ }
+ HistCheck(A_List)
+ GuiControl, chMacro:+gInputList, InputList%A_List%
return
SelectCmd:
-Gui, chMacro:Default
-SelectByType(A_ThisMenuItem)
+ Gui, chMacro:Default
+ SelectByType(A_ThisMenuItem)
return
SelType:
-Gui, chMacro:Default
-SelectedRow := LV_GetNext()
-LV_GetText(SelType, SelectedRow, 6)
-SelectByType(SelType)
+ Gui, chMacro:Default
+ SelectedRow := LV_GetNext()
+ LV_GetText(SelType, SelectedRow, 6)
+ SelectByType(SelType)
return
BarInfo:
-GuiControl, 1:Hide, Repeat
-GuiControl, 1:Hide, Rept
-GuiControl, 1:Hide, TimesM
-GuiControl, 1:Hide, ApplyT
-GuiControl, 1:Hide, Separator1
-GuiControl, 1:Hide, DelayT
-GuiControl, 1:Hide, Delay
-GuiControl, 1:Hide, DelayG
-GuiControl, 1:Hide, ApplyI
-GuiControl, 1:Hide, Separator2
-GuiControl, 1:Hide, sInput
-GuiControl, 1:Hide, ApplyL
-GuiControl, 1:Hide, InsertKey
-GuiControl, 1:Show, THotkeyTip
-GuiControl, 1:Show, Separator3
-GuiControl, 1:Show, ContextTip
-GuiControl, 1:Show, Separator4
-GuiControl, 1:Show, MacroContextTip
-GuiControl, 1:Show, Separator5
-GuiControl, 1:Show, CoordTip
-GuiControl, 1:Show, Separator6
-GuiControl, 1:Show, TModeTip
-GuiControl, 1:Show, Separator7
-GuiControl, 1:Show, TSendModeTip
-GuiControl, 1:Show, Separator8
-GuiControl, 1:Show, TLastMacroTip
-GuiControl, 1:, BarEdit, 0
-GuiControl, 1:, BarInfo, 1
-Gui, 1:Submit, NoHide
+ GuiControl, 1:Hide, Repeat
+ GuiControl, 1:Hide, Rept
+ GuiControl, 1:Hide, TimesM
+ GuiControl, 1:Hide, ApplyT
+ GuiControl, 1:Hide, Separator1
+ GuiControl, 1:Hide, DelayT
+ GuiControl, 1:Hide, Delay
+ GuiControl, 1:Hide, DelayG
+ GuiControl, 1:Hide, ApplyI
+ GuiControl, 1:Hide, Separator2
+ GuiControl, 1:Hide, sInput
+ GuiControl, 1:Hide, ApplyL
+ GuiControl, 1:Hide, InsertKey
+ GuiControl, 1:Show, THotkeyTip
+ GuiControl, 1:Show, Separator3
+ GuiControl, 1:Show, ContextTip
+ GuiControl, 1:Show, Separator4
+ GuiControl, 1:Show, MacroContextTip
+ GuiControl, 1:Show, Separator5
+ GuiControl, 1:Show, CoordTip
+ GuiControl, 1:Show, Separator6
+ GuiControl, 1:Show, TModeTip
+ GuiControl, 1:Show, Separator7
+ GuiControl, 1:Show, TSendModeTip
+ GuiControl, 1:Show, Separator8
+ GuiControl, 1:Show, TLastMacroTip
+ GuiControl, 1:, BarEdit, 0
+ GuiControl, 1:, BarInfo, 1
+ Gui, 1:Submit, NoHide
return
BarEdit:
-GuiControl, 1:Show, Repeat
-GuiControl, 1:Show, Rept
-GuiControl, 1:Show, TimesM
-GuiControl, 1:Show, ApplyT
-GuiControl, 1:Show, Separator1
-GuiControl, 1:Show, DelayT
-GuiControl, 1:Show, Delay
-GuiControl, 1:Show, DelayG
-GuiControl, 1:Show, ApplyI
-GuiControl, 1:Show, Separator2
-GuiControl, 1:Show, sInput
-GuiControl, 1:Show, ApplyL
-GuiControl, 1:Show, InsertKey
-GuiControl, 1:Hide, THotkeyTip
-GuiControl, 1:Hide, Separator3
-GuiControl, 1:Hide, ContextTip
-GuiControl, 1:Hide, Separator4
-GuiControl, 1:Hide, MacroContextTip
-GuiControl, 1:Hide, Separator5
-GuiControl, 1:Hide, CoordTip
-GuiControl, 1:Hide, Separator6
-GuiControl, 1:Hide, TModeTip
-GuiControl, 1:Hide, Separator7
-GuiControl, 1:Hide, TSendModeTip
-GuiControl, 1:Hide, Separator8
-GuiControl, 1:Hide, TLastMacroTip
-GuiControl, 1:, BarInfo, 0
-GuiControl, 1:, BarEdit, 1
-Gui, 1:Submit, NoHide
+ GuiControl, 1:Show, Repeat
+ GuiControl, 1:Show, Rept
+ GuiControl, 1:Show, TimesM
+ GuiControl, 1:Show, ApplyT
+ GuiControl, 1:Show, Separator1
+ GuiControl, 1:Show, DelayT
+ GuiControl, 1:Show, Delay
+ GuiControl, 1:Show, DelayG
+ GuiControl, 1:Show, ApplyI
+ GuiControl, 1:Show, Separator2
+ GuiControl, 1:Show, sInput
+ GuiControl, 1:Show, ApplyL
+ GuiControl, 1:Show, InsertKey
+ GuiControl, 1:Hide, THotkeyTip
+ GuiControl, 1:Hide, Separator3
+ GuiControl, 1:Hide, ContextTip
+ GuiControl, 1:Hide, Separator4
+ GuiControl, 1:Hide, MacroContextTip
+ GuiControl, 1:Hide, Separator5
+ GuiControl, 1:Hide, CoordTip
+ GuiControl, 1:Hide, Separator6
+ GuiControl, 1:Hide, TModeTip
+ GuiControl, 1:Hide, Separator7
+ GuiControl, 1:Hide, TSendModeTip
+ GuiControl, 1:Hide, Separator8
+ GuiControl, 1:Hide, TLastMacroTip
+ GuiControl, 1:, BarInfo, 0
+ GuiControl, 1:, BarEdit, 1
+ Gui, 1:Submit, NoHide
return
ApplyT:
-Gui, 1:Submit, NoHide
-Gui, chMacro:Default
+ Gui, 1:Submit, NoHide
+ Gui, chMacro:Default
ApplyTEd:
-RowSelection := LV_GetCount("Selected")
-If (RowSelection = 0)
- LV_Modify(0, "Col4", (InStr(Rept, "%") ? Rept : TimesM))
-Else
-{
- RowNumber := 0
- Loop, %RowSelection%
- {
- RowNumber := LV_GetNext(RowNumber)
- LV_Modify(RowNumber, "Col4", (InStr(Rept, "%") ? Rept : TimesM))
- }
-}
-GoSub, RowCheck
-GoSub, b_Start
-return
-
-ApplyI:
-Gui, 1:Submit, NoHide
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected")
-If (RowSelection = 0)
- LV_Modify(0, "Col5", (InStr(Delay, "%") ? Delay : DelayG))
-Else
-{
- RowNumber := 0
- Loop, %RowSelection%
- {
- RowNumber := LV_GetNext(RowNumber)
- LV_Modify(RowNumber, "Col5", (InStr(Delay, "%") ? Delay : DelayG))
- }
-}
-GoSub, RowCheck
-GoSub, b_Start
-return
-
-ApplyIEd:
-RowSelection := LV_GetCount("Selected")
-If (IncrementDelay)
-{
+ RowSelection := LV_GetCount("Selected")
If (RowSelection = 0)
- {
- Loop, % LV_GetCount()
- {
- LV_GetText(RowDelay, A_Index, 5)
- NewDelay := RowDelay + DelayX
- LV_Modify(A_Index, "Col5", NewDelay > 0 ? NewDelay : 0)
- }
- }
+ LV_Modify(0, "Col4", (InStr(Rept, "%") ? Rept : TimesM))
Else
{
RowNumber := 0
Loop, %RowSelection%
{
RowNumber := LV_GetNext(RowNumber)
- LV_GetText(RowDelay, RowNumber, 5)
- NewDelay := RowDelay + DelayX
- LV_Modify(RowNumber, "Col5", NewDelay > 0 ? NewDelay : 0)
+ LV_Modify(RowNumber, "Col4", (InStr(Rept, "%") ? Rept : TimesM))
}
}
-}
-Else
-{
+ GoSub, RowCheck
+ GoSub, b_Start
+return
+
+ApplyI:
+ Gui, 1:Submit, NoHide
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected")
If (RowSelection = 0)
- LV_Modify(0, "Col5", (InStr(Delay, "%") ? Delay : DelayX))
+ LV_Modify(0, "Col5", (InStr(Delay, "%") ? Delay : DelayG))
Else
{
RowNumber := 0
Loop, %RowSelection%
{
RowNumber := LV_GetNext(RowNumber)
- LV_Modify(RowNumber, "Col5", (InStr(Delay, "%") ? Delay : DelayX))
+ LV_Modify(RowNumber, "Col5", (InStr(Delay, "%") ? Delay : DelayG))
}
}
-}
-GoSub, RowCheck
-GoSub, b_Start
+ GoSub, RowCheck
+ GoSub, b_Start
return
-ApplyL:
-Gui, 1:Submit, NoHide
-Gui, chMacro:Default
-StringReplace, sInput, sInput, SC15D, AppsKey
-StringReplace, sInput, sInput, SC145, NumLock
-StringReplace, sInput, sInput, SC154, PrintScreen
-If (sInput = "")
- return
-sKey := RegExReplace(sInput, "(.$)", "$l1"), tKey := sKey
-GoSub, Replace
-sKey := "{" sKey "}", RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
-If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
-{
- LV_Add("Check", ListCount%A_List%+1, tKey, sKey, 1, DelayG, cType1)
- GoSub, b_Start
- LV_Modify(ListCount%A_List%, "Vis")
-}
-Else
-{
- GuiControl, chMacro:-g, InputList%A_List%
- RowNumber := 0
- Loop, %RowSelection%
+ApplyIEd:
+ RowSelection := LV_GetCount("Selected")
+ If (IncrementDelay)
{
- RowNumber := LV_GetNext(RowNumber)
- LV_Insert(RowNumber, "Check", RowNumber, tKey, sKey, 1, DelayG, cType1)
- LVManager[A_List].InsertAtGroup(RowNumber)
- RowNumber++
+ If (RowSelection = 0)
+ {
+ Loop, % LV_GetCount()
+ {
+ LV_GetText(RowDelay, A_Index, 5)
+ NewDelay := RowDelay + DelayX
+ LV_Modify(A_Index, "Col5", NewDelay > 0 ? NewDelay : 0)
+ }
+ }
+ Else
+ {
+ RowNumber := 0
+ Loop, %RowSelection%
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ LV_GetText(RowDelay, RowNumber, 5)
+ NewDelay := RowDelay + DelayX
+ LV_Modify(RowNumber, "Col5", NewDelay > 0 ? NewDelay : 0)
+ }
+ }
}
- GuiControl, chMacro:+gInputList, InputList%A_List%
-}
-GoSub, RowCheck
-GoSub, b_Start
-return
-
-InsertKey:
-Gui 7:+LastFoundExist
-IfWinExist
- GoSub, InsertKeyClose
-Gui, 1:Submit, NoHide
-Gui, chMacro:Default
-If (A_GuiControl = "InsertKeyT")
-{
- Gui, 7:+owner8 +ToolWindow +Delimiter%_x%
- InsertToText := true
-}
-Else
-{
- Gui, 7:+owner1 +ToolWindow +Delimiter%_x%
- InsertToText := false
-}
-Gui, 7:Add, Groupbox, Section W360 H240
-Gui, 7:Add, ListBox, ys+15 xs+10 W200 H220 vsKey gInsertThisKey, %KeybdList%
-Gui, 7:Add, Radio, -Wrap R1 Checked yp x+10 W130 vKeystroke, %t_Lang108%
-Gui, 7:Add, Radio, -Wrap R1 W130 vKeyDown, %t_Lang109%
-Gui, 7:Add, Radio, -Wrap R1 W130 vKeyUp, %t_Lang110%
-If (!InsertToText)
-{
- Gui, 7:Add, Text, -Wrap R1 y+20, %w_Lang015%:
- Gui, 7:Add, Edit, W120 R1 vEdRept
- Gui, 7:Add, UpDown, vTimesX 0x80 Range1-999999999, 1
- Gui, 7:Add, Text,, %c_Lang017%:
- Gui, 7:Add, Edit, W120 vDelayC
- Gui, 7:Add, UpDown, vDelayX 0x80 Range0-999999999, %DelayG%
- Gui, 7:Add, Radio, -Wrap Checked W125 vMsc R1, %c_Lang018%
- Gui, 7:Add, Radio, -Wrap W125 vSec R1, %c_Lang019%
-}
-Gui, 7:Add, Button, -Wrap Section Default xm W75 H23 gInsertKeyOK, %w_Lang018%
-Gui, 7:Add, Button, -Wrap ys W75 H23 gInsertKeyClose, %c_Lang022%
-Gui, 7:Show,, %t_Lang111%
+ Else
+ {
+ If (RowSelection = 0)
+ LV_Modify(0, "Col5", (InStr(Delay, "%") ? Delay : DelayX))
+ Else
+ {
+ RowNumber := 0
+ Loop, %RowSelection%
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ LV_Modify(RowNumber, "Col5", (InStr(Delay, "%") ? Delay : DelayX))
+ }
+ }
+ }
+ GoSub, RowCheck
+ GoSub, b_Start
return
-InsertThisKey:
-If (A_GuiEvent != "DoubleClick")
- return
-InsertKeyOK:
-Gui, 7:Submit, NoHide
-If (KeyDown)
- State := " Down"
-Else If (KeyUp)
- State := " Up"
-Else
- State := ""
-tKey := sKey, sKey := "{" sKey State "}"
-If (InsertToText)
- Control, EditPaste, %sKey%, Edit1, ahk_id %CmdWin%
-Else
-{
- DelayX := InStr(DelayC, "%") ? DelayC : DelayX
- If (Sec = 1)
- DelayX *= 1000
- TimesX := InStr(EdRept, "%") ? EdRept : TimesX
- If (TimesX = 0)
- TimesX := 1
+ApplyL:
+ Gui, 1:Submit, NoHide
Gui, chMacro:Default
- RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ StringReplace, sInput, sInput, SC15D, AppsKey
+ StringReplace, sInput, sInput, SC145, NumLock
+ StringReplace, sInput, sInput, SC154, PrintScreen
+ If (sInput = "")
+ return
+ sKey := RegExReplace(sInput, "(.$)", "$l1"), tKey := sKey
+ GoSub, Replace
+ sKey := "{" sKey "}", RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
{
- LV_Add("Check", ListCount%A_List%+1, tKey, sKey, TimesX, DelayX, cType1)
+ LV_Add("Check", ListCount%A_List%+1, tKey, sKey, 1, DelayG, cType1)
GoSub, b_Start
LV_Modify(ListCount%A_List%, "Vis")
}
@@ -12991,7 +12902,7 @@ Else
Loop, %RowSelection%
{
RowNumber := LV_GetNext(RowNumber)
- LV_Insert(RowNumber, "Check", RowNumber, tKey, sKey, TimesX, DelayX, cType1)
+ LV_Insert(RowNumber, "Check", RowNumber, tKey, sKey, 1, DelayG, cType1)
LVManager[A_List].InsertAtGroup(RowNumber)
RowNumber++
}
@@ -12999,350 +12910,434 @@ Else
}
GoSub, RowCheck
GoSub, b_Start
-}
+return
+
+InsertKey:
+ Gui 7:+LastFoundExist
+ IfWinExist
+ GoSub, InsertKeyClose
+ Gui, 1:Submit, NoHide
+ Gui, chMacro:Default
+ If (A_GuiControl = "InsertKeyT")
+ {
+ Gui, 7:+owner8 +ToolWindow +Delimiter%_x%
+ InsertToText := true
+ }
+ Else
+ {
+ Gui, 7:+owner1 +ToolWindow +Delimiter%_x%
+ InsertToText := false
+ }
+ Gui, 7:Add, Groupbox, Section W360 H240
+ Gui, 7:Add, ListBox, ys+15 xs+10 W200 H220 vsKey gInsertThisKey, %KeybdList%
+ Gui, 7:Add, Radio, -Wrap R1 Checked yp x+10 W130 vKeystroke, %t_Lang108%
+ Gui, 7:Add, Radio, -Wrap R1 W130 vKeyDown, %t_Lang109%
+ Gui, 7:Add, Radio, -Wrap R1 W130 vKeyUp, %t_Lang110%
+ If (!InsertToText)
+ {
+ Gui, 7:Add, Text, -Wrap R1 y+20, %w_Lang015%:
+ Gui, 7:Add, Edit, W120 R1 vEdRept
+ Gui, 7:Add, UpDown, vTimesX 0x80 Range1-999999999, 1
+ Gui, 7:Add, Text,, %c_Lang017%:
+ Gui, 7:Add, Edit, W120 vDelayC
+ Gui, 7:Add, UpDown, vDelayX 0x80 Range0-999999999, %DelayG%
+ Gui, 7:Add, Radio, -Wrap Checked W125 vMsc R1, %c_Lang018%
+ Gui, 7:Add, Radio, -Wrap W125 vSec R1, %c_Lang019%
+ }
+ Gui, 7:Add, Button, -Wrap Section Default xm W75 H23 gInsertKeyOK, %w_Lang018%
+ Gui, 7:Add, Button, -Wrap ys W75 H23 gInsertKeyClose, %c_Lang022%
+ Gui, 7:Show,, %t_Lang111%
+return
+
+InsertThisKey:
+ If (A_GuiEvent != "DoubleClick")
+ return
+InsertKeyOK:
+ Gui, 7:Submit, NoHide
+ If (KeyDown)
+ State := " Down"
+ Else If (KeyUp)
+ State := " Up"
+ Else
+ State := ""
+ tKey := sKey, sKey := "{" sKey State "}"
+ If (InsertToText)
+ Control, EditPaste, %sKey%, Edit1, ahk_id %CmdWin%
+ Else
+ {
+ DelayX := InStr(DelayC, "%") ? DelayC : DelayX
+ If (Sec = 1)
+ DelayX *= 1000
+ TimesX := InStr(EdRept, "%") ? EdRept : TimesX
+ If (TimesX = 0)
+ TimesX := 1
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected"), LV_GetText(RowType, LV_GetNext(), 6)
+ If ((RowSelection = 0) || ((RowType = cType47) || RowType = cType48))
+ {
+ LV_Add("Check", ListCount%A_List%+1, tKey, sKey, TimesX, DelayX, cType1)
+ GoSub, b_Start
+ LV_Modify(ListCount%A_List%, "Vis")
+ }
+ Else
+ {
+ GuiControl, chMacro:-g, InputList%A_List%
+ RowNumber := 0
+ Loop, %RowSelection%
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ LV_Insert(RowNumber, "Check", RowNumber, tKey, sKey, TimesX, DelayX, cType1)
+ LVManager[A_List].InsertAtGroup(RowNumber)
+ RowNumber++
+ }
+ GuiControl, chMacro:+gInputList, InputList%A_List%
+ }
+ GoSub, RowCheck
+ GoSub, b_Start
+ }
return
InsertKeyClose:
7GuiClose:
7GuiEscape:
-Gui, 7:Destroy
-InsertToText := false
+ Gui, 7:Destroy
+ InsertToText := false
return
EditButton:
-Gui, 1:Submit, NoHide
-Gui, chMacro:Default
-RowSelection := LV_GetCount("Selected"), RowNumber := LV_GetNext()
-If (RowSelection = 1)
- GoSub, Edit
-Else
- GoSub, MultiEdit
+ Gui, 1:Submit, NoHide
+ Gui, chMacro:Default
+ RowSelection := LV_GetCount("Selected"), RowNumber := LV_GetNext()
+ If (RowSelection = 1)
+ GoSub, Edit
+ Else
+ GoSub, MultiEdit
return
GoToLastMacro:
-GuiControl, chMacro:Choose, A_List, %LastMacroRun%
-GoSub, TabSel
+ GuiControl, chMacro:Choose, A_List, %LastMacroRun%
+ GoSub, TabSel
return
EditSelectedMacro:
EditMacros:
-Input
-Gui, 1:Submit, NoHide
-GoSub, SaveData
-Gui, 32:+Resize -MinimizeBox +MinSize690x300 +owner1 +HwndLVEditMacros
-Gui, 1:+Disabled
-Gui, 32:Add, GroupBox, Section W450 H240 vEMGroup
-Gui, 32:Add, ListView, ys+15 xs+10 W430 r10 hwndMacroL vMacroList gMacroList -ReadOnly NoSort AltSubmit LV0x4000, %t_Lang147%|%w_Lang005%|%w_Lang007%|%t_Lang003%|#If|%w_Lang030%
-Gui, 32:Add, Text, -Wrap W430 vLabel1, %t_Lang144%
-Gui, 32:Add, Button, -Wrap Section xm W75 H23 vEditMacrosOK gEditMacrosOK, %c_Lang020%
-Gui, 32:Add, Button, -Wrap ys W75 H23 vEditMacrosCancel gEditMacrosCancel, %c_Lang021%
-Gui, 32:Default
-Loop, %TabCount%
- LV_Add("", CopyMenuLabels[A_Index], o_AutoKey[A_Index], o_ManKey[A_Index], o_TimesG[A_Index], o_MacroContext[A_Index].Condition " " o_MacroContext[A_Index].Context, A_Index)
-LV_ModifyCol(1, 100) ; Macros
-LV_ModifyCol(2, 100) ; Play
-LV_ModifyCol(3, 100) ; Manual
-LV_ModifyCol(4, 60) ; Loop
-LV_ModifyCol(5, 200) ; Context
-LV_ModifyCol(6, 45) ; Index
-LV_Modify(A_List, "Select Vis")
-Gui, 32:Show, W690 H500, %t_Lang145%
+ Input
+ Gui, 1:Submit, NoHide
+ GoSub, SaveData
+ Gui, 32:+Resize -MinimizeBox +MinSize690x300 +owner1 +HwndLVEditMacros
+ Gui, 1:+Disabled
+ Gui, 32:Add, GroupBox, Section W450 H240 vEMGroup
+ Gui, 32:Add, ListView, ys+15 xs+10 W430 r10 hwndMacroL vMacroList gMacroList -ReadOnly NoSort AltSubmit LV0x4000, %t_Lang147%|%w_Lang005%|%w_Lang007%|%t_Lang003%|#If|%w_Lang030%
+ Gui, 32:Add, Text, -Wrap W430 vLabel1, %t_Lang144%
+ Gui, 32:Add, Button, -Wrap Section xm W75 H23 vEditMacrosOK gEditMacrosOK, %c_Lang020%
+ Gui, 32:Add, Button, -Wrap ys W75 H23 vEditMacrosCancel gEditMacrosCancel, %c_Lang021%
+ Gui, 32:Default
+ Loop, %TabCount%
+ LV_Add("", CopyMenuLabels[A_Index], o_AutoKey[A_Index], o_ManKey[A_Index], o_TimesG[A_Index], o_MacroContext[A_Index].Condition " " o_MacroContext[A_Index].Context, A_Index)
+ LV_ModifyCol(1, 100) ; Macros
+ LV_ModifyCol(2, 100) ; Play
+ LV_ModifyCol(3, 100) ; Manual
+ LV_ModifyCol(4, 60) ; Loop
+ LV_ModifyCol(5, 200) ; Context
+ LV_ModifyCol(6, 45) ; Index
+ LV_Modify(A_List, "Select Vis")
+ Gui, 32:Show, W690 H500, %t_Lang145%
-If (A_ThisLabel = "EditSelectedMacro")
- Goto, MacroListEdit
+ If (A_ThisLabel = "EditSelectedMacro")
+ Goto, MacroListEdit
return
32GuiSize:
-GuiGetSize(GuiWidth, GuiHeight, 32)
-GuiControl, 32:Move, EMGroup, % "W" GuiWidth-20 "H" GuiHeight-40
-GuiControl, 32:Move, MacroList, % "W" GuiWidth-40 "H" GuiHeight-80
-GuiControl, 32:Move, Label1, % "Y" GuiHeight-55
-GuiControl, 32:Move, EditMacrosOK, % "Y" GuiHeight-28
-GuiControl, 32:Move, EditMacrosCancel, % "Y" GuiHeight-28
+ GuiGetSize(GuiWidth, GuiHeight, 32)
+ GuiControl, 32:Move, EMGroup, % "W" GuiWidth-20 "H" GuiHeight-40
+ GuiControl, 32:Move, MacroList, % "W" GuiWidth-40 "H" GuiHeight-80
+ GuiControl, 32:Move, Label1, % "Y" GuiHeight-55
+ GuiControl, 32:Move, EditMacrosOK, % "Y" GuiHeight-28
+ GuiControl, 32:Move, EditMacrosCancel, % "Y" GuiHeight-28
return
EditMacrosOK:
-GuiControl, 32:Disable, MacroList
-GuiControl, 32:Disable, EditMacrosOK
-GuiControl, 32:Disable, EditMacrosCancel
-Critical
-Gui, 32:Submit, NoHide
-Project := [], Labels := "", ActiveList := A_List
-Sleep, 10
-Gui, 32:Default
-Loop, %TabCount%
-{
- LV_GetText(Macro, A_Index, 1)
- LV_GetText(AutoKey, A_Index, 2)
- LV_GetText(ManKey, A_Index, 3)
- LV_GetText(TimesX, A_Index, 4)
- LV_GetText(Context, A_Index, 5)
- LV_GetText(IndexN, A_Index, 6)
- RegExMatch(Context, "O)(\w+)\s(.*)", MContext)
- Labels .= ((Macro != "") ? Macro : "Macro" IndexN) "|"
- o_AutoKey[A_Index] := AutoKey
- If ((RegExMatch(o_AutoKey[A_Index], "^:.*?:")) && (!RegExMatch(o_AutoKey[A_Index], "^:.*X.*?:")))
- o_AutoKey[A_Index] := RegExReplace(o_AutoKey[A_Index], "^:(.*?):", ":X$1:")
- o_ManKey[A_Index] := ManKey
- o_TimesG[A_Index] := TimesX
- o_MacroContext[A_Index].Condition := MContext[1]
- o_MacroContext[A_Index].Context := MContext[2]
- Project.Push(LVData := LVManager[IndexN].GetData())
- If (IndexN = ActiveList)
- NewActive := A_Index
+ GuiControl, 32:Disable, MacroList
+ GuiControl, 32:Disable, EditMacrosOK
+ GuiControl, 32:Disable, EditMacrosCancel
+ Critical
+ Gui, 32:Submit, NoHide
+ Project := [], Labels := "", ActiveList := A_List
Sleep, 10
-}
-ActiveList := NewActive
-Gui, chMacro:Default
-GpConfig := ShowGroups, ShowGroups := false
-LVManager[A_List].EnableGroups(false)
-Loop, %TabCount%
- GuiControl, chMacro:-g, InputList%A_Index%
-Loop, %TabCount%
- LVManager[A_Index].SetData(, Project[A_Index])
-Loop, %TabCount%
- GuiControl, chMacro:+gInputList, InputList%A_Index%
-GuiControl, chMacro:, A_List, |%Labels%
-CopyMenuLabels := StrSplit(Trim(Labels, "|"), "|")
-Loop, %TabCount%
-{
- Gui, chMacro:ListView, InputList%A_Index%
- A_List := A_Index
- GoSub, RowCheck
- GoSub, b_Enable
-}
-GuiControl, chMacro:Choose, A_List, %ActiveList%
-Gui, chMacro:Submit, NoHide
-Gui, chMacro:ListView, InputList%A_List%
-ShowGroups := GpConfig
-GoSub, chMacroGuiSize
-GoSub, LoadData
-GoSub, TabSel
-GoSub, UpdateCopyTo
-Gui, 1:-Disabled
-Gui, 32:Destroy
-If (ShowGroups)
- GoSub, EnableGroups
-Project := ""
-SavePrompt(true, A_ThisLabel)
+ Gui, 32:Default
+ Loop, %TabCount%
+ {
+ LV_GetText(Macro, A_Index, 1)
+ LV_GetText(AutoKey, A_Index, 2)
+ LV_GetText(ManKey, A_Index, 3)
+ LV_GetText(TimesX, A_Index, 4)
+ LV_GetText(Context, A_Index, 5)
+ LV_GetText(IndexN, A_Index, 6)
+ RegExMatch(Context, "O)(\w+)\s(.*)", MContext)
+ Labels .= ((Macro != "") ? Macro : "Macro" IndexN) "|"
+ o_AutoKey[A_Index] := AutoKey
+ If ((RegExMatch(o_AutoKey[A_Index], "^:.*?:")) && (!RegExMatch(o_AutoKey[A_Index], "^:.*X.*?:")))
+ o_AutoKey[A_Index] := RegExReplace(o_AutoKey[A_Index], "^:(.*?):", ":X$1:")
+ o_ManKey[A_Index] := ManKey
+ o_TimesG[A_Index] := TimesX
+ o_MacroContext[A_Index].Condition := MContext[1]
+ o_MacroContext[A_Index].Context := MContext[2]
+ Project.Push(LVData := LVManager[IndexN].GetData())
+ If (IndexN = ActiveList)
+ NewActive := A_Index
+ Sleep, 10
+ }
+ ActiveList := NewActive
+ Gui, chMacro:Default
+ GpConfig := ShowGroups, ShowGroups := false
+ LVManager[A_List].EnableGroups(false)
+ Loop, %TabCount%
+ GuiControl, chMacro:-g, InputList%A_Index%
+ Loop, %TabCount%
+ LVManager[A_Index].SetData(, Project[A_Index])
+ Loop, %TabCount%
+ GuiControl, chMacro:+gInputList, InputList%A_Index%
+ GuiControl, chMacro:, A_List, |%Labels%
+ CopyMenuLabels := StrSplit(Trim(Labels, "|"), "|")
+ Loop, %TabCount%
+ {
+ Gui, chMacro:ListView, InputList%A_Index%
+ A_List := A_Index
+ GoSub, RowCheck
+ GoSub, b_Enable
+ }
+ GuiControl, chMacro:Choose, A_List, %ActiveList%
+ Gui, chMacro:Submit, NoHide
+ Gui, chMacro:ListView, InputList%A_List%
+ ShowGroups := GpConfig
+ GoSub, chMacroGuiSize
+ GoSub, LoadData
+ GoSub, TabSel
+ GoSub, UpdateCopyTo
+ Gui, 1:-Disabled
+ Gui, 32:Destroy
+ If (ShowGroups)
+ GoSub, EnableGroups
+ Project := ""
+ SavePrompt(true, A_ThisLabel)
return
EditMacrosCancel:
32GuiClose:
32GuiEscape:
-Gui, 1:-Disabled
-Gui, 32:Destroy
-Gui, chMacro:Default
+ Gui, 1:-Disabled
+ Gui, 32:Destroy
+ Gui, chMacro:Default
return
MacroList:
-Gui, 32:+OwnDialogs
-If (A_GuiEvent == "E")
-{
- InEdit := 1
- EditRow := LV_GetNext(0, "Focused")
- LV_GetText(BeforeEdit, EditRow, 1)
- return
-}
-If (A_GuiEvent == "e")
-{
- InEdit := 0
- If (InStr(BeforeEdit, "()"))
- {
- LV_Modify(EditRow,, BeforeEdit)
- return
- }
- LV_GetText(AfterEdit, EditRow, 1)
- If (!RegExMatch(AfterEdit, "^\w+$"))
+ Gui, 32:+OwnDialogs
+ If (A_GuiEvent == "E")
{
- LV_Modify(EditRow,, BeforeEdit)
- MsgBox, 16, %d_Lang007%, %d_Lang049%
+ InEdit := 1
+ EditRow := LV_GetNext(0, "Focused")
+ LV_GetText(BeforeEdit, EditRow, 1)
return
}
- Else
+ If (A_GuiEvent == "e")
{
- Loop, % LV_GetCount()
+ InEdit := 0
+ If (InStr(BeforeEdit, "()"))
{
- LV_GetText(mLabel, A_Index, 1)
- If ((A_Index != EditRow) && (mLabel = AfterEdit))
+ LV_Modify(EditRow,, BeforeEdit)
+ return
+ }
+ LV_GetText(AfterEdit, EditRow, 1)
+ If (!RegExMatch(AfterEdit, "^\w+$"))
+ {
+ LV_Modify(EditRow,, BeforeEdit)
+ MsgBox, 16, %d_Lang007%, %d_Lang049%
+ return
+ }
+ Else
+ {
+ Loop, % LV_GetCount()
{
- LV_Modify(EditRow,, BeforeEdit)
- MsgBox, 16, %d_Lang007%, %d_Lang050%
- return
+ LV_GetText(mLabel, A_Index, 1)
+ If ((A_Index != EditRow) && (mLabel = AfterEdit))
+ {
+ LV_Modify(EditRow,, BeforeEdit)
+ MsgBox, 16, %d_Lang007%, %d_Lang050%
+ return
+ }
}
}
+ return
}
- return
-}
-If (A_GuiEvent = "D")
- LV_Rows.Drag()
-If (A_GuiEvent != "DoubleClick")
- return
+ If (A_GuiEvent = "D")
+ LV_Rows.Drag()
+ If (A_GuiEvent != "DoubleClick")
+ return
MacroListEdit:
-Gui, 32:Default
-Gui, 32:Submit, NoHide
-If (LV_GetCount("Selected") = 0)
- RowNumber := A_List
-Else
- RowNumber := LV_GetNext()
-LV_GetText(Macro, RowNumber, 1)
-LV_GetText(AutoKey, RowNumber, 2)
-LV_GetText(ManKey, RowNumber, 3)
-LV_GetText(TimesX, RowNumber, 4)
-LV_GetText(Context, RowNumber, 5)
-RegExMatch(Context, "O)(\w+)\s(.*)", MContext)
-Gui, 33:+owner32 +ToolWindow +Delimiter%_x% +HwndLVEdit
-Gui, 32:Default
-Gui, 32:+Disabled
-Gui, 33:Add, Groupbox, Section xm W450 H130
-Gui, 33:Add, Edit, ys+15 xs+10 W430 vMacro, %Macro%
-Gui, 33:Add, Text, -Wrap W90 R1 Right, %w_Lang005%:
-Gui, 33:Add, Hotkey, yp x+10 W120 vAutoKey Disabled, %AutoKey%
-Gui, 33:Add, Combobox, W180 yp x+30 vAutoKeyL gAutoComplete, % RegExReplace(KeybdList, _x . "{2}", _x)
-Gui, 33:Add, Text, -Wrap y+5 xs+10 W90 R1 Right, %w_Lang007%:
-Gui, 33:Add, Hotkey, yp x+10 W120 vManKey, %ManKey%
-Gui, 33:Add, Text, -Wrap y+5 xs+10 W90 R1 Right, %t_Lang003%:
-Gui, 33:Add, Edit, yp x+10 Limit Number W70 R1 vTE
-Gui, 33:Add, UpDown, 0x80 Range0-999999999 vTimesX, %TimesX%
-Gui, 33:Add, Text, -Wrap yp+3 x+10 W100, %t_Lang004%
-Gui, 33:Add, Text, -Wrap yp-28 x+0 W100, # = Win`n! = Alt`n^ = Ctrl`n+ = Shift
-Gui, 33:Add, Groupbox, Section xs y+20 W450 H75
-Gui, 33:Add, Text, -Wrap R1 ys+20 xs+10 W40 cBlue, #If
-Gui, 33:Add, DDL, yp-3 x+5 W100 vIfMacroContext, None%_x%WinActive%_x%WinNotActive%_x%WinExist%_x%WinNotExist%_x%Expression
-Gui, 33:Add, Button, yp x+210 W75 vIdent gWinTitle, WinTitle
-Gui, 33:Add, Edit, y+5 xs+10 W400 vTitle R1 -Multi, % MContext[2]
-Gui, 33:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetWin gGetWin, ...
-Gui, 33:Add, Button, Section Default -Wrap xm W75 H23 gEditMacroOK, %c_Lang020%
-Gui, 33:Add, Button, Wrap ys W75 H23 gEditMacroCancel, %c_Lang021%
-Gui, 33:Add, Updown, ys x+90 W50 H20 Horz vEditSel gSelList Range0-1
-GuiControl, 33:ChooseString, IfMacroContext, % MContext[1]
-If (InStr(KeybdList, AutoKey _x))
- GuiControl, 33:ChooseString, AutoKeyL, %AutoKey%
-Else
- GuiControl, 33:, AutoKeyL, %AutoKey%%_x%%_x%
+ Gui, 32:Default
+ Gui, 32:Submit, NoHide
+ If (LV_GetCount("Selected") = 0)
+ RowNumber := A_List
+ Else
+ RowNumber := LV_GetNext()
+ LV_GetText(Macro, RowNumber, 1)
+ LV_GetText(AutoKey, RowNumber, 2)
+ LV_GetText(ManKey, RowNumber, 3)
+ LV_GetText(TimesX, RowNumber, 4)
+ LV_GetText(Context, RowNumber, 5)
+ RegExMatch(Context, "O)(\w+)\s(.*)", MContext)
+ Gui, 33:+owner32 +ToolWindow +Delimiter%_x% +HwndLVEdit
+ Gui, 32:Default
+ Gui, 32:+Disabled
+ Gui, 33:Add, Groupbox, Section xm W450 H130
+ Gui, 33:Add, Edit, ys+15 xs+10 W430 vMacro, %Macro%
+ Gui, 33:Add, Text, -Wrap W90 R1 Right, %w_Lang005%:
+ Gui, 33:Add, Hotkey, yp x+10 W120 vAutoKey Disabled, %AutoKey%
+ Gui, 33:Add, Combobox, W180 yp x+30 vAutoKeyL gAutoComplete, % RegExReplace(KeybdList, _x . "{2}", _x)
+ Gui, 33:Add, Text, -Wrap y+5 xs+10 W90 R1 Right, %w_Lang007%:
+ Gui, 33:Add, Hotkey, yp x+10 W120 vManKey, %ManKey%
+ Gui, 33:Add, Text, -Wrap y+5 xs+10 W90 R1 Right, %t_Lang003%:
+ Gui, 33:Add, Edit, yp x+10 Limit Number W70 R1 vTE
+ Gui, 33:Add, UpDown, 0x80 Range0-999999999 vTimesX, %TimesX%
+ Gui, 33:Add, Text, -Wrap yp+3 x+10 W100, %t_Lang004%
+ Gui, 33:Add, Text, -Wrap yp-28 x+0 W100, # = Win`n! = Alt`n^ = Ctrl`n+ = Shift
+ Gui, 33:Add, Groupbox, Section xs y+20 W450 H75
+ Gui, 33:Add, Text, -Wrap R1 ys+20 xs+10 W40 cBlue, #If
+ Gui, 33:Add, DDL, yp-3 x+5 W100 vIfMacroContext, None%_x%WinActive%_x%WinNotActive%_x%WinExist%_x%WinNotExist%_x%Expression
+ Gui, 33:Add, Button, yp x+210 W75 vIdent gWinTitle, WinTitle
+ Gui, 33:Add, Edit, y+5 xs+10 W400 vTitle R1 -Multi, % MContext[2]
+ Gui, 33:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetWin gGetWin, ...
+ Gui, 33:Add, Button, Section Default -Wrap xm W75 H23 gEditMacroOK, %c_Lang020%
+ Gui, 33:Add, Button, Wrap ys W75 H23 gEditMacroCancel, %c_Lang021%
+ Gui, 33:Add, Updown, ys x+90 W50 H20 Horz vEditSel gSelList Range0-1
+ GuiControl, 33:ChooseString, IfMacroContext, % MContext[1]
+ If (InStr(KeybdList, AutoKey _x))
+ GuiControl, 33:ChooseString, AutoKeyL, %AutoKey%
+ Else
+ GuiControl, 33:, AutoKeyL, %AutoKey%%_x%%_x%
-If (InStr(Macro, "()"))
-{
- GuiControl, 33:Disable, Macro
- GuiControl, 33:Disable, AutoKey
- GuiControl, 33:Disable, AutoKeyL
- GuiControl, 33:Disable, ManKey
- GuiControl, 33:Disable, TE
- GuiControl, 33:Disable, TimesX
- GuiControl, 33:Disable, IfMacroContext
- GuiControl, 33:Disable, Ident
- GuiControl, 33:Disable, Title
- GuiControl, 33:Disable, GetWin
-}
-Gui, 33:Show,, %w_Lang019%
-If (AutoKey = "")
- GuiControl, 33:Enable, AutoKey
+ If (InStr(Macro, "()"))
+ {
+ GuiControl, 33:Disable, Macro
+ GuiControl, 33:Disable, AutoKey
+ GuiControl, 33:Disable, AutoKeyL
+ GuiControl, 33:Disable, ManKey
+ GuiControl, 33:Disable, TE
+ GuiControl, 33:Disable, TimesX
+ GuiControl, 33:Disable, IfMacroContext
+ GuiControl, 33:Disable, Ident
+ GuiControl, 33:Disable, Title
+ GuiControl, 33:Disable, GetWin
+ }
+ Gui, 33:Show,, %w_Lang019%
+ If (AutoKey = "")
+ GuiControl, 33:Enable, AutoKey
return
33GuiClose:
33GuiEscape:
EditMacroCancel:
-Gui, 32:-Disabled
-Gui, 33:Destroy
-Gui, 32:Default
+ Gui, 32:-Disabled
+ Gui, 33:Destroy
+ Gui, 32:Default
return
EditMacroOK:
-Gui, 33:+OwnDialogs
-Gui, 33:Submit, NoHide
-Gui, 32:Default
-If ((!InStr(Macro, "()")) && (!RegExMatch(Macro, "^\w+$")))
-{
- MsgBox, 16, %d_Lang007%, %d_Lang049%
- return
-}
-Else If (!InStr(Macro, "()"))
-{
- Loop, % LV_GetCount()
+ Gui, 33:+OwnDialogs
+ Gui, 33:Submit, NoHide
+ Gui, 32:Default
+ If ((!InStr(Macro, "()")) && (!RegExMatch(Macro, "^\w+$")))
{
- LV_GetText(mLabel, A_Index, 1)
- If ((A_Index != RowNumber) && (mLabel = Macro))
+ MsgBox, 16, %d_Lang007%, %d_Lang049%
+ return
+ }
+ Else If (!InStr(Macro, "()"))
+ {
+ Loop, % LV_GetCount()
{
- MsgBox, 16, %d_Lang007%, %d_Lang050%
- return
+ LV_GetText(mLabel, A_Index, 1)
+ If ((A_Index != RowNumber) && (mLabel = Macro))
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang050%
+ return
+ }
}
}
-}
-Gui, 32:-Disabled
-Gui, 33:Destroy
-LV_Modify(RowNumber,, Macro, AutoKeyL != "" ? AutoKeyL : AutoKey, ManKey, TimesX, IfMacroContext " " Title)
+ Gui, 32:-Disabled
+ Gui, 33:Destroy
+ LV_Modify(RowNumber,, Macro, AutoKeyL != "" ? AutoKeyL : AutoKey, ManKey, TimesX, IfMacroContext " " Title)
return
SelList:
-NewRow := EditSel ? (RowNumber + 1) : (RowNumber - 1)
-Gui, 33:+OwnDialogs
-Gui, 33:Submit, NoHide
-Gui, 32:Default
-If ((!InStr(Macro, "()")) && (!RegExMatch(Macro, "^\w+$")))
-{
- MsgBox, 16, %d_Lang007%, %d_Lang049%
- return
-}
-Else If (!InStr(Macro, "()"))
-{
- Loop, % LV_GetCount()
+ NewRow := EditSel ? (RowNumber + 1) : (RowNumber - 1)
+ Gui, 33:+OwnDialogs
+ Gui, 33:Submit, NoHide
+ Gui, 32:Default
+ If ((!InStr(Macro, "()")) && (!RegExMatch(Macro, "^\w+$")))
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang049%
+ return
+ }
+ Else If (!InStr(Macro, "()"))
{
- LV_GetText(mLabel, A_Index, 1)
- If ((A_Index != RowNumber) && (mLabel = Macro))
+ Loop, % LV_GetCount()
{
- MsgBox, 16, %d_Lang007%, %d_Lang050%
- return
+ LV_GetText(mLabel, A_Index, 1)
+ If ((A_Index != RowNumber) && (mLabel = Macro))
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang050%
+ return
+ }
}
}
-}
-LV_Modify(RowNumber,, Macro, AutoKeyL != "" ? AutoKeyL : AutoKey, ManKey, TimesX, IfMacroContext " " Title)
-RowNumber := NewRow
-If (RowNumber > LV_GetCount())
- RowNumber := 1
-Else If (RowNumber = 0)
- RowNumber := LV_GetCount()
-LV_Modify(0, "-Select"), LV_Modify(RowNumber, "Select")
-LV_GetText(Macro, RowNumber, 1)
-LV_GetText(AutoKey, RowNumber, 2)
-LV_GetText(ManKey, RowNumber, 3)
-LV_GetText(TimesX, RowNumber, 4)
-LV_GetText(Context, RowNumber, 5)
-RegExMatch(Context, "O)(\w+)\s(.*)", MContext)
-GuiControl, 33:, Macro, %Macro%
-GuiControl, 33:, AutoKey, %AutoKey%
-GuiControl, 33:, ManKey, %ManKey%
-GuiControl, 33:, TimesX, %TimesX%
-GuiControl, 33:ChooseString, IfMacroContext, % MContext[1]
-GuiControl, 33:, Title, % MContext[2]
-If (InStr(KeybdList, AutoKey _x))
- GuiControl, 33:ChooseString, AutoKeyL, %AutoKey%
-Else
- GuiControl, 33:, AutoKeyL, %AutoKey%%_x%%_x%
-If (InStr(Macro, "()"))
-{
- GuiControl, 33:Disable, Macro
- GuiControl, 33:Disable, AutoKey
- GuiControl, 33:Disable, AutoKeyL
- GuiControl, 33:Disable, ManKey
- GuiControl, 33:Disable, TE
- GuiControl, 33:Disable, TimesX
- GuiControl, 33:Disable, IfMacroContext
- GuiControl, 33:Disable, Ident
- GuiControl, 33:Disable, Title
- GuiControl, 33:Disable, GetWin
-}
-Else
-{
- GuiControl, 33:Enable, Macro
- GuiControl, 33:Enable, AutoKeyL
- GuiControl, 33:Enable, ManKey
- GuiControl, 33:Enable, TE
- GuiControl, 33:Enable, TimesX
- GuiControl, 33:Enable, IfMacroContext
- GuiControl, 33:Enable, Ident
- GuiControl, 33:Enable, Title
- GuiControl, 33:Enable, GetWin
-}
+ LV_Modify(RowNumber,, Macro, AutoKeyL != "" ? AutoKeyL : AutoKey, ManKey, TimesX, IfMacroContext " " Title)
+ RowNumber := NewRow
+ If (RowNumber > LV_GetCount())
+ RowNumber := 1
+ Else If (RowNumber = 0)
+ RowNumber := LV_GetCount()
+ LV_Modify(0, "-Select"), LV_Modify(RowNumber, "Select")
+ LV_GetText(Macro, RowNumber, 1)
+ LV_GetText(AutoKey, RowNumber, 2)
+ LV_GetText(ManKey, RowNumber, 3)
+ LV_GetText(TimesX, RowNumber, 4)
+ LV_GetText(Context, RowNumber, 5)
+ RegExMatch(Context, "O)(\w+)\s(.*)", MContext)
+ GuiControl, 33:, Macro, %Macro%
+ GuiControl, 33:, AutoKey, %AutoKey%
+ GuiControl, 33:, ManKey, %ManKey%
+ GuiControl, 33:, TimesX, %TimesX%
+ GuiControl, 33:ChooseString, IfMacroContext, % MContext[1]
+ GuiControl, 33:, Title, % MContext[2]
+ If (InStr(KeybdList, AutoKey _x))
+ GuiControl, 33:ChooseString, AutoKeyL, %AutoKey%
+ Else
+ GuiControl, 33:, AutoKeyL, %AutoKey%%_x%%_x%
+ If (InStr(Macro, "()"))
+ {
+ GuiControl, 33:Disable, Macro
+ GuiControl, 33:Disable, AutoKey
+ GuiControl, 33:Disable, AutoKeyL
+ GuiControl, 33:Disable, ManKey
+ GuiControl, 33:Disable, TE
+ GuiControl, 33:Disable, TimesX
+ GuiControl, 33:Disable, IfMacroContext
+ GuiControl, 33:Disable, Ident
+ GuiControl, 33:Disable, Title
+ GuiControl, 33:Disable, GetWin
+ }
+ Else
+ {
+ GuiControl, 33:Enable, Macro
+ GuiControl, 33:Enable, AutoKeyL
+ GuiControl, 33:Enable, ManKey
+ GuiControl, 33:Enable, TE
+ GuiControl, 33:Enable, TimesX
+ GuiControl, 33:Enable, IfMacroContext
+ GuiControl, 33:Enable, Ident
+ GuiControl, 33:Enable, Title
+ GuiControl, 33:Enable, GetWin
+ }
return
Edit:
@@ -13354,66 +13349,66 @@ If (Action = "[LoopEnd]")
return
Switch Type
{
- Case cType7, cType38, cType39, cType40, cType41, cType45, cType51:
- Goto, EditLoop
- Case cType15, cType16, cType56:
- Goto, EditImage
- Case cType21:
- Goto, EditVar
- Case cType44, cType46:
- Goto, EditFunc
- Case cType47:
- Goto, EditUserFunc
- Case cType48:
- Goto, EditParam
- Case cType49:
- Goto, EditReturn
- Case cType17:
- Goto, EditSt
- Case cType18, cType19:
- Goto, EditMsg
- Case cType20:
- If (Action = "[KeyWait]")
- Goto, EditKeyWait
- Else
- Goto, EditRun
- Case cType11, cType14:
+Case cType7, cType38, cType39, cType40, cType41, cType45, cType51:
+ Goto, EditLoop
+Case cType15, cType16, cType56:
+ Goto, EditImage
+Case cType21:
+ Goto, EditVar
+Case cType44, cType46:
+ Goto, EditFunc
+Case cType47:
+ Goto, EditUserFunc
+Case cType48:
+ Goto, EditParam
+Case cType49:
+ Goto, EditReturn
+Case cType17:
+ Goto, EditSt
+Case cType18, cType19:
+ Goto, EditMsg
+Case cType20:
+ If (Action = "[KeyWait]")
+ Goto, EditKeyWait
+ Else
Goto, EditRun
- Case cType29, cType30:
+Case cType11, cType14:
+ Goto, EditRun
+Case cType29, cType30:
+ return
+Case cType32, cType33:
+ Goto, EditIECom
+Case cType34, cType43:
+ Goto, EditComInt
+Case cType5:
+ Goto, EditSleep
+Case cType6:
+ Goto, EditMsgBox
+Case cType42:
+ Goto, EditComm
+Case cType35, cType36, cType37:
+ Goto, EditGoto
+Case cType50:
+ Goto, EditTimer
+Case cType52:
+ Goto, EditEmail
+Case cType53:
+ Goto, EditDownload
+Case cType54, cType55:
+ Goto, EditZip
+Default:
+ If (Action = "[Control]")
+ Goto, EditControl
+ If ((Details = "EndIf") || (Details = "Else") || (Action = "[LoopEnd]"))
return
- Case cType32, cType33:
- Goto, EditIECom
- Case cType34, cType43:
- Goto, EditComInt
- Case cType5:
- Goto, EditSleep
- Case cType6:
- Goto, EditMsgBox
- Case cType42:
- Goto, EditComm
- Case cType35, cType36, cType37:
- Goto, EditGoto
- Case cType50:
- Goto, EditTimer
- Case cType52:
- Goto, EditEmail
- Case cType53:
- Goto, EditDownload
- Case cType54, cType55:
- Goto, EditZip
- Default:
- If (Action = "[Control]")
- Goto, EditControl
- If ((Details = "EndIf") || (Details = "Else") || (Action = "[LoopEnd]"))
- return
- If (InStr(FileCmdList, Type "|"))
- Goto, EditRun
- If (InStr(Type, "Win"))
- Goto, EditWindow
- If Action contains %MAction1%,%MAction2%,%MAction3%,%MAction4%,%MAction5%,%MAction6%
- Goto, EditMouse
- If (InStr(Action, "[Text]"))
- Goto, EditText
+ If (InStr(FileCmdList, Type "|"))
+ Goto, EditRun
+ If (InStr(Type, "Win"))
+ Goto, EditWindow
+ If Action contains %MAction1%,%MAction2%,%MAction3%,%MAction4%,%MAction5%,%MAction6%
+ Goto, EditMouse
+ If (InStr(Action, "[Text]"))
+ Goto, EditText
}
Gui, 15:+owner1 -MinimizeBox +HwndCmdWin
Gui, 1:+Disabled
@@ -13456,908 +13451,956 @@ If Type in %cType1%,%cType2%,%cType3%,%cType4%,%cType8%,%cType9%,%cType13%
GuiControl, 15:, Title, %Window%
GuiControl, 15:Enable, Title
GuiControl, 15:Enable, GetWin
- }
-}
-Gui, 15:Show,, %w_Lang019%: %Type%
-If (Window = "")
- Window := "A"
-Input
-Tooltip
-return
-
-CSend:
-Gui, Submit, NoHide
-GuiControl, Enable%CSend%, DefCt
-GuiControl, Enable%CSend%, GetCtrl
-GuiControl, Enable%CSend%, SetWin
-GuiControl, Enable%CSend%, MRel
-GuiControl,, MRel, %CSend%
-GuiControl, Enable%CSend%, IniX
-GuiControl, Enable%CSend%, IniY
-GuiControl, Enable%CSend%, MouseGetI
-GuiControl, Enable%CSend%, Ident
-GuiControl, Enable%CSend%, Title
-GuiControl, Enable%CSend%, GetWin
-GuiControl, Disable%CSend%, MEditRept
-GuiControl, Disable%CSend%, MEditDelay
-If ((CSend) && (A_Gui = 8))
-{
- GuiControl,, ComEvent, 0
- GoSub, ComEvent
- GuiControl, Disable, ComEvent
-}
-Else If (ComText)
- GuiControl, Enable, ComEvent
-Gui 8:+LastFoundExist
-IfWinExist
-{
- If (Raw = 1)
- SBShowTip((CSend ? "Control" : "") "SendRaw")
- Else If (ComText = 1)
- SBShowTip((CSend ? "Control" : "") "Send")
- Else If (SetText = 1)
- SBShowTip("ControlSetText")
- Else If (Clip = 1)
- SBShowTip("Clipboard")
- Else If (EditPaste = 1)
- SBShowTip("ControlEditPaste")
+ }
}
-Gui 5:+LastFoundExist
-IfWinExist
- SBShowTip((CSend ? "Control" : "") "Click")
+Gui, 15:Show,, %w_Lang019%: %Type%
+If (Window = "")
+ Window := "A"
+Input
+Tooltip
+return
+
+CSend:
+ Gui, Submit, NoHide
+ GuiControl, Enable%CSend%, DefCt
+ GuiControl, Enable%CSend%, GetCtrl
+ GuiControl, Enable%CSend%, SetWin
+ GuiControl, Enable%CSend%, MRel
+ GuiControl,, MRel, %CSend%
+ GuiControl, Enable%CSend%, IniX
+ GuiControl, Enable%CSend%, IniY
+ GuiControl, Enable%CSend%, MouseGetI
+ GuiControl, Enable%CSend%, Ident
+ GuiControl, Enable%CSend%, Title
+ GuiControl, Enable%CSend%, GetWin
+ GuiControl, Disable%CSend%, MEditRept
+ GuiControl, Disable%CSend%, MEditDelay
+ If ((CSend) && (A_Gui = 8))
+ {
+ GuiControl,, ComEvent, 0
+ GoSub, ComEvent
+ GuiControl, Disable, ComEvent
+ }
+ Else If (ComText)
+ GuiControl, Enable, ComEvent
+ Gui 8:+LastFoundExist
+ IfWinExist
+ {
+ If (Raw = 1)
+ SBShowTip((CSend ? "Control" : "") "SendRaw")
+ Else If (ComText = 1)
+ SBShowTip((CSend ? "Control" : "") "Send")
+ Else If (SetText = 1)
+ SBShowTip("ControlSetText")
+ Else If (Clip = 1)
+ SBShowTip("Clipboard")
+ Else If (EditPaste = 1)
+ SBShowTip("ControlEditPaste")
+ }
+ Gui 5:+LastFoundExist
+ IfWinExist
+ SBShowTip((CSend ? "Control" : "") "Click")
return
MEditRept:
-Gui, Submit, NoHide
-GuiControl, Disable%MEditRept%, MEditDelay
-GuiControl, Disable%MEditRept%, CSend
-GuiControl, Enable%MEditRept%, EdRept
+ Gui, Submit, NoHide
+ GuiControl, Disable%MEditRept%, MEditDelay
+ GuiControl, Disable%MEditRept%, CSend
+ GuiControl, Enable%MEditRept%, EdRept
return
MEditDelay:
-Gui, Submit, NoHide
-GuiControl, Disable%MEditDelay%, MEditRept
-GuiControl, Disable%MEditDelay%, CSend
-GuiControl, Enable%MEditDelay%, IncrementDelay
-GuiControl, Enable%MEditDelay%, DelayC
-GuiControl, Enable%MEditDelay%, Msc
-GuiControl, Enable%MEditDelay%, Sec
+ Gui, Submit, NoHide
+ GuiControl, Disable%MEditDelay%, MEditRept
+ GuiControl, Disable%MEditDelay%, CSend
+ GuiControl, Enable%MEditDelay%, IncrementDelay
+ GuiControl, Enable%MEditDelay%, DelayC
+ GuiControl, Enable%MEditDelay%, Msc
+ GuiControl, Enable%MEditDelay%, Sec
return
IncrementDelay:
-Gui, Submit, NoHide
-If (IncrementDelay)
- GuiControl, +Range-999999999-999999999, DelayX
-Else
-{
- GuiControl, +Range0-999999999, DelayX
- GuiControl,, DelayX, 0
-}
+ Gui, Submit, NoHide
+ If (IncrementDelay)
+ GuiControl, +Range-999999999-999999999, DelayX
+ Else
+ {
+ GuiControl, +Range0-999999999, DelayX
+ GuiControl,, DelayX, 0
+ }
return
EditApply:
EditOK:
-Gui, 15:+OwnDialogs
-Gui, 15:Submit, NoHide
-TimesX := InStr(EdRept, "%") ? EdRept : TimesX, DelayX := InStr(DelayC, "%") ? DelayC : DelayX
-If (Sec = 1)
- DelayX *= 1000
-Window := Title
-If (CSend = 1)
-{
- If (DefCt = "")
+ Gui, 15:+OwnDialogs
+ Gui, 15:Submit, NoHide
+ TimesX := InStr(EdRept, "%") ? EdRept : TimesX, DelayX := InStr(DelayC, "%") ? DelayC : DelayX
+ If (Sec = 1)
+ DelayX *= 1000
+ Window := Title
+ If (CSend = 1)
{
- MsgBox, 52, %d_Lang011%, %d_Lang012%
- IfMsgBox, No
+ If (DefCt = "")
+ {
+ MsgBox, 52, %d_Lang011%, %d_Lang012%
+ IfMsgBox, No
+ return
+ }
+ Target := DefCt
+ If (Type = cType1)
+ Type := cType2
+ Else If (Type = cType3)
+ Type := cType4
+ Else If (Type = cType8)
+ Type := cType9
+ }
+ Else
+ {
+ Target := "", Window := ""
+ If (Type = cType2)
+ Type := cType1
+ Else If (Type = cType4)
+ Type := cType3
+ Else If (Type = cType9)
+ Type := cType8
+ }
+ If ((Type = cType5) || (Type = cType6))
+ {
+ If (MP = 1)
+ {
+ StringReplace, MsgPT, MsgPT, `n, ``n, All
+ StringReplace, MsgPT, MsgPT, `,, ```,, All
+ Type := cType6, Details := MsgPT, DelayX := 0
+ If (NoI = 1)
+ Target := 0
+ If (Err = 1)
+ Target := 16
+ If (Que = 1)
+ Target := 32
+ If (Exc = 1)
+ Target := 48
+ If (Inf = 1)
+ Target := 64
+ If (Aot = 1)
+ Target += 262144
+ If (CancelB = 1)
+ Target += 1
+ }
+ Else
+ Type := cType5, Details := ""
+ }
+ If (Type = cType20)
+ {
+ If (WaitKeys = "")
return
+ tKey := WaitKeys, Details := tKey, DelayX := InStr(TimeoutC, "%") ? TimeoutC : Timeout
}
- Target := DefCt
- If (Type = cType1)
- Type := cType2
- Else If (Type = cType3)
- Type := cType4
- Else If (Type = cType8)
- Type := cType9
-}
-Else
-{
- Target := "", Window := ""
- If (Type = cType2)
- Type := cType1
- Else If (Type = cType4)
- Type := cType3
- Else If (Type = cType9)
- Type := cType8
-}
-If ((Type = cType5) || (Type = cType6))
-{
- If (MP = 1)
- {
- StringReplace, MsgPT, MsgPT, `n, ``n, All
- StringReplace, MsgPT, MsgPT, `,, ```,, All
- Type := cType6, Details := MsgPT, DelayX := 0
- If (NoI = 1)
- Target := 0
- If (Err = 1)
- Target := 16
- If (Que = 1)
- Target := 32
- If (Exc = 1)
- Target := 48
- If (Inf = 1)
- Target := 64
- If (Aot = 1)
- Target += 262144
- If (CancelB = 1)
- Target += 1
+ Else If ((Type = cType36) || (Type = cType37))
+ Details := GoLabel, Type := (Goto = 1) ? "Goto" : "Gosub"
+ Else If (Type = cType35)
+ Details := NewLabel
+ If (A_ThisLabel != "EditApply")
+ {
+ Gui, 1:-Disabled
+ Gui, 15:Destroy
+ }
+ Gui, chMacro:Default
+ LV_Modify(RowNumber, "Col3", Details, TimesX, DelayX, Type, Target, Window)
+ GoSub, RowCheck
+ GoSub, b_Start
+ If (A_ThisLabel = "EditApply")
+ {
+ LV_GetTexts(RowNumber, Action, Details, TimesX, DelayX, Type, Target, Window, Comment)
+ Gui, 15:Default
}
Else
- Type := cType5, Details := ""
-}
-If (Type = cType20)
-{
- If (WaitKeys = "")
- return
- tKey := WaitKeys, Details := tKey, DelayX := InStr(TimeoutC, "%") ? TimeoutC : Timeout
-}
-Else If ((Type = cType36) || (Type = cType37))
- Details := GoLabel, Type := (Goto = 1) ? "Goto" : "Gosub"
-Else If (Type = cType35)
- Details := NewLabel
-If (A_ThisLabel != "EditApply")
-{
- Gui, 1:-Disabled
- Gui, 15:Destroy
-}
-Gui, chMacro:Default
-LV_Modify(RowNumber, "Col3", Details, TimesX, DelayX, Type, Target, Window)
-GoSub, RowCheck
-GoSub, b_Start
-If (A_ThisLabel = "EditApply")
-{
- LV_GetTexts(RowNumber, Action, Details, TimesX, DelayX, Type, Target, Window, Comment)
- Gui, 15:Default
-}
-Else
- GuiControl, Focus, InputList%A_List%
+ GuiControl, Focus, InputList%A_List%
return
EditCancel:
15GuiClose:
15GuiEscape:
-Gui, 1:-Disabled
-Gui, 15:Destroy
+ Gui, 1:-Disabled
+ Gui, 15:Destroy
return
MultiEdit:
-Gui, 6:+owner1 -MinimizeBox +hwndCmdWin
-Gui, 1:+Disabled
-Gui, 6:Add, GroupBox, vSGroup Section xm W280 H120
-Gui, 6:Add, Checkbox, -Wrap Section ys+15 xs+10 W250 vCSend gCSend R1, %c_Lang016%:
-Gui, 6:Add, Edit, vDefCt W230 Disabled
-Gui, 6:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetCtrl gGetCtrl Disabled, ...
-Gui, 6:Add, Button, Section xs W75 vIdent gWinTitle Disabled, WinTitle
-Gui, 6:Add, Text, -Wrap yp+5 x+5 W180 H20 vWinParsTip cGray, %Wcmd_Short%
-Gui, 6:Add, Edit, xs+2 W230 vTitle Disabled, A
-Gui, 6:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetWin gGetWin Disabled, ...
-Gui, 6:Add, GroupBox, Section xm W280 H110
-Gui, 6:Add, Checkbox, -Wrap Section ys+15 xs+10 W85 vMEditRept gMEditRept R1, %w_Lang015%:
-Gui, 6:Add, Checkbox, -Wrap y+15 W85 vMEditDelay gMEditDelay R1, %c_Lang017%:
-Gui, 6:Add, Edit, Disabled W170 R1 ys xs+90 vEdRept
-Gui, 6:Add, UpDown, vTimesX 0x80 Range1-999999999, 1
-Gui, 6:Add, Edit, Disabled W80 vDelayC
-Gui, 6:Add, UpDown, vDelayX 0x80 Range0-999999999, 0
-Gui, 6:Add, Checkbox, -Wrap yp+5 x+5 W85 vIncrementDelay gIncrementDelay R1 Disabled, %t_Lang217%
-Gui, 6:Add, Radio, -Wrap Section Checked Disabled xs+90 W175 vMsc R1, %c_Lang018%
-Gui, 6:Add, Radio, -Wrap Disabled W175 vSec R1, %c_Lang019%
-Gui, 6:Add, Button, -Wrap Section Default xm W75 H23 gMultiOK, %c_Lang020%
-Gui, 6:Add, Button, -Wrap ys W75 H23 gMultiCancel, %c_Lang021%
-Gui, 6:Add, Button, -Wrap ys W75 H23 gMultiApply, %c_Lang131%
-Gui, 6:Show,, %w_Lang019%
-Window := "A"
-Input
-Tooltip
+ Gui, 6:+owner1 -MinimizeBox +hwndCmdWin
+ Gui, 1:+Disabled
+ Gui, 6:Add, GroupBox, vSGroup Section xm W280 H120
+ Gui, 6:Add, Checkbox, -Wrap Section ys+15 xs+10 W250 vCSend gCSend R1, %c_Lang016%:
+ Gui, 6:Add, Edit, vDefCt W230 Disabled
+ Gui, 6:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetCtrl gGetCtrl Disabled, ...
+ Gui, 6:Add, Button, Section xs W75 vIdent gWinTitle Disabled, WinTitle
+ Gui, 6:Add, Text, -Wrap yp+5 x+5 W180 H20 vWinParsTip cGray, %Wcmd_Short%
+ Gui, 6:Add, Edit, xs+2 W230 vTitle Disabled, A
+ Gui, 6:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetWin gGetWin Disabled, ...
+ Gui, 6:Add, GroupBox, Section xm W280 H110
+ Gui, 6:Add, Checkbox, -Wrap Section ys+15 xs+10 W85 vMEditRept gMEditRept R1, %w_Lang015%:
+ Gui, 6:Add, Checkbox, -Wrap y+15 W85 vMEditDelay gMEditDelay R1, %c_Lang017%:
+ Gui, 6:Add, Edit, Disabled W170 R1 ys xs+90 vEdRept
+ Gui, 6:Add, UpDown, vTimesX 0x80 Range1-999999999, 1
+ Gui, 6:Add, Edit, Disabled W80 vDelayC
+ Gui, 6:Add, UpDown, vDelayX 0x80 Range0-999999999, 0
+ Gui, 6:Add, Checkbox, -Wrap yp+5 x+5 W85 vIncrementDelay gIncrementDelay R1 Disabled, %t_Lang217%
+ Gui, 6:Add, Radio, -Wrap Section Checked Disabled xs+90 W175 vMsc R1, %c_Lang018%
+ Gui, 6:Add, Radio, -Wrap Disabled W175 vSec R1, %c_Lang019%
+ Gui, 6:Add, Button, -Wrap Section Default xm W75 H23 gMultiOK, %c_Lang020%
+ Gui, 6:Add, Button, -Wrap ys W75 H23 gMultiCancel, %c_Lang021%
+ Gui, 6:Add, Button, -Wrap ys W75 H23 gMultiApply, %c_Lang131%
+ Gui, 6:Show,, %w_Lang019%
+ Window := "A"
+ Input
+ Tooltip
return
MultiApply:
MultiOK:
-Gui, 6:+OwnDialogs
-Gui, 6:Submit, NoHide
-TimesX := InStr(EdRept, "%") ? EdRept : TimesX, DelayX := InStr(DelayC, "%") ? DelayC : DelayX
-If (Sec = 1)
- DelayX *= 1000
-If (MEditRept = 1)
-{
- TimesTemp := TimesM, TimesM := TimesX
- Gui, chMacro:Default
- GoSub, ApplyTEd
- TimesM := TimesTemp
- If (A_ThisLabel != "MultiApply")
- Goto, MultiCancel
- Else
- return
-}
-Else If (MEditDelay = 1)
-{
- Gui, chMacro:Default
- GoSub, ApplyIEd
- If (A_ThisLabel != "MultiApply")
- Goto, MultiCancel
- Else
- return
-}
-If (CSend = 1)
-{
- If (DefCt = "")
+ Gui, 6:+OwnDialogs
+ Gui, 6:Submit, NoHide
+ TimesX := InStr(EdRept, "%") ? EdRept : TimesX, DelayX := InStr(DelayC, "%") ? DelayC : DelayX
+ If (Sec = 1)
+ DelayX *= 1000
+ If (MEditRept = 1)
+ {
+ TimesTemp := TimesM, TimesM := TimesX
+ Gui, chMacro:Default
+ GoSub, ApplyTEd
+ TimesM := TimesTemp
+ If (A_ThisLabel != "MultiApply")
+ Goto, MultiCancel
+ Else
+ return
+ }
+ Else If (MEditDelay = 1)
{
- MsgBox, 52, %d_Lang011%, %d_Lang012%
- IfMsgBox, No
+ Gui, chMacro:Default
+ GoSub, ApplyIEd
+ If (A_ThisLabel != "MultiApply")
+ Goto, MultiCancel
+ Else
return
}
- Target := DefCt, Window := Title
-}
-If (CSend = 0)
- Target := "", Window := ""
-If (A_ThisLabel != "MultiApply")
-{
- Gui, 1:-Disabled
- Gui, 6:Destroy
-}
-Gui, chMacro:Default
-If (RowSelection = 0)
-{
- Loop
+ If (CSend = 1)
{
- RowNumber := A_Index
- If (RowNumber > ListCount%A_List%)
- break
- LV_GetText(Action, RowNumber, 2)
- If Action contains %MAction2%,%MAction3%,%MAction4%
- continue
- LV_GetText(Type, RowNumber, 6)
- If ((Type = cType1) || (Type = cType2) || (Type = cType3)
- || (Type = cType4) || (Type = cType8) || (Type = cType9)
- || (Type = cType10) || (Type = cType22) || (Type = cType23)
- || (Type = cType24) || (Type = cType25) || (Type = cType26))
+ If (DefCt = "")
{
- If (CSend = 1)
- {
- If (Type = cType1)
- Type := cType2
- Else If (Type = cType3)
- Type := cType4
- Else If (Type = cType8)
- Type := cType9
- LV_Modify(RowNumber, "Col6", Type, Target, Window)
- }
- If (CSend = 0)
- {
- If (Type = cType2)
- Type := cType1
- Else If (Type = cType4)
- Type := cType3
- Else If (Type = cType9)
- Type := cType8
- LV_Modify(RowNumber, "Col6", Type, Target, Window)
- }
+ MsgBox, 52, %d_Lang011%, %d_Lang012%
+ IfMsgBox, No
+ return
}
- Else If (InStr(Type, "Win"))
- LV_Modify(RowNumber, "Col8", Window)
+ Target := DefCt, Window := Title
}
-}
-Else
-{
- RowNumber := 0
- Loop, %RowSelection%
+ If (CSend = 0)
+ Target := "", Window := ""
+ If (A_ThisLabel != "MultiApply")
{
- RowNumber := LV_GetNext(RowNumber)
- LV_GetText(Action, RowNumber, 2)
- If Action contains %MAction2%,%MAction3%,%MAction4%
- continue
- LV_GetText(Type, RowNumber, 6)
- If ((Type = cType1) || (Type = cType2) || (Type = cType3)
- || (Type = cType4) || (Type = cType8) || (Type = cType9)
- || (Type = cType10) || (Type = cType22) || (Type = cType23)
- || (Type = cType24) || (Type = cType25) || (Type = cType26))
+ Gui, 1:-Disabled
+ Gui, 6:Destroy
+ }
+ Gui, chMacro:Default
+ If (RowSelection = 0)
+ {
+ Loop
{
- If (CSend = 1)
+ RowNumber := A_Index
+ If (RowNumber > ListCount%A_List%)
+ break
+ LV_GetText(Action, RowNumber, 2)
+ If Action contains %MAction2%,%MAction3%,%MAction4%
+ continue
+ LV_GetText(Type, RowNumber, 6)
+ If ((Type = cType1) || (Type = cType2) || (Type = cType3)
+ || (Type = cType4) || (Type = cType8) || (Type = cType9)
+ || (Type = cType10) || (Type = cType22) || (Type = cType23)
+ || (Type = cType24) || (Type = cType25) || (Type = cType26))
{
- If (Type = cType1)
- Type := cType2
- Else If (Type = cType3)
- Type := cType4
- Else If (Type = cType8)
- Type := cType9
- LV_Modify(RowNumber, "Col6", Type, Target, Window)
+ If (CSend = 1)
+ {
+ If (Type = cType1)
+ Type := cType2
+ Else If (Type = cType3)
+ Type := cType4
+ Else If (Type = cType8)
+ Type := cType9
+ LV_Modify(RowNumber, "Col6", Type, Target, Window)
+ }
+ If (CSend = 0)
+ {
+ If (Type = cType2)
+ Type := cType1
+ Else If (Type = cType4)
+ Type := cType3
+ Else If (Type = cType9)
+ Type := cType8
+ LV_Modify(RowNumber, "Col6", Type, Target, Window)
+ }
}
- Else If (CSend = 0)
+ Else If (InStr(Type, "Win"))
+ LV_Modify(RowNumber, "Col8", Window)
+ }
+ }
+ Else
+ {
+ RowNumber := 0
+ Loop, %RowSelection%
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ LV_GetText(Action, RowNumber, 2)
+ If Action contains %MAction2%,%MAction3%,%MAction4%
+ continue
+ LV_GetText(Type, RowNumber, 6)
+ If ((Type = cType1) || (Type = cType2) || (Type = cType3)
+ || (Type = cType4) || (Type = cType8) || (Type = cType9)
+ || (Type = cType10) || (Type = cType22) || (Type = cType23)
+ || (Type = cType24) || (Type = cType25) || (Type = cType26))
{
- If (Type = cType2)
- Type := cType1
- Else If (Type = cType4)
- Type := cType3
- Else If (Type = cType9)
- Type := cType8
- LV_Modify(RowNumber, "Col6", Type, Target, Window)
+ If (CSend = 1)
+ {
+ If (Type = cType1)
+ Type := cType2
+ Else If (Type = cType3)
+ Type := cType4
+ Else If (Type = cType8)
+ Type := cType9
+ LV_Modify(RowNumber, "Col6", Type, Target, Window)
+ }
+ Else If (CSend = 0)
+ {
+ If (Type = cType2)
+ Type := cType1
+ Else If (Type = cType4)
+ Type := cType3
+ Else If (Type = cType9)
+ Type := cType8
+ LV_Modify(RowNumber, "Col6", Type, Target, Window)
+ }
}
+ Else If (InStr(Type, "Win"))
+ LV_Modify(RowNumber, "Col8", Window)
}
- Else If (InStr(Type, "Win"))
- LV_Modify(RowNumber, "Col8", Window)
}
-}
-If (A_ThisLabel = "MultiApply")
- Gui, 6:Default
-Else
- GuiControl, Focus, InputList%A_List%
-GoSub, RowCheck
-GoSub, b_Start
+ If (A_ThisLabel = "MultiApply")
+ Gui, 6:Default
+ Else
+ GuiControl, Focus, InputList%A_List%
+ GoSub, RowCheck
+ GoSub, b_Start
return
MultiCancel:
6GuiClose:
6GuiEscape:
-Gui, 1:-Disabled
-Gui, 6:Destroy
+ Gui, 1:-Disabled
+ Gui, 6:Destroy
return
SetJoyButton:
-TB_Edit(TbSettings, "SetJoyButton", JoyHK := !JoyHK)
-If (JoyHK = 1)
-{
- GoSub, SetJoyHK
- If (JoyKey = "")
- GuiControl, 1:, JoyKey, |%t_Lang097%
- GuiControl, 1:Focus, JoyKey
- Menu, OptionsMenu, Check, %o_Lang008%
-}
-Else
-{
- GoSub, SetNoJoy
- Menu, OptionsMenu, Uncheck, %o_Lang008%
-}
+ TB_Edit(TbSettings, "SetJoyButton", JoyHK := !JoyHK)
+ If (JoyHK = 1)
+ {
+ GoSub, SetJoyHK
+ If (JoyKey = "")
+ GuiControl, 1:, JoyKey, |%t_Lang097%
+ GuiControl, 1:Focus, JoyKey
+ Menu, OptionsMenu, Check, %o_Lang008%
+ }
+ Else
+ {
+ GoSub, SetNoJoy
+ Menu, OptionsMenu, Uncheck, %o_Lang008%
+ }
return
CaptureJoyB:
-GuiControl, 1:, JoyKey, |%A_ThisHotkey%||
-GoSub, SaveData
+ GuiControl, 1:, JoyKey, |%A_ThisHotkey%||
+ GoSub, SaveData
return
SetJoyHK:
-Gui, chMacro:Submit, NoHide
-GuiControl, 1:Hide, AutoKey
-GuiControl, 1:Disable, AutoKey
-If (RegExMatch(o_AutoKey[A_List], "i)Joy\d+$"))
- GuiControl, 1:, JoyKey, % "|" o_AutoKey[A_List] "||"
-GuiControl, 1:Show, JoyKey
-aBand := RbMain.IDToIndex(7), RbMain.GetBand(aBand,,, bSize)
-RbMain.ModifyBand(aBand, "Child", hJoyKey), RbMain.SetBandWidth(aBand, bSize)
-ActivateHotkeys(,,,,, 1), TB_Edit(TbSettings, "WinKey", 0, 0)
+ Gui, chMacro:Submit, NoHide
+ GuiControl, 1:Hide, AutoKey
+ GuiControl, 1:Disable, AutoKey
+ If (RegExMatch(o_AutoKey[A_List], "i)Joy\d+$"))
+ GuiControl, 1:, JoyKey, % "|" o_AutoKey[A_List] "||"
+ GuiControl, 1:Show, JoyKey
+ aBand := RbMain.IDToIndex(7), RbMain.GetBand(aBand,,, bSize)
+ RbMain.ModifyBand(aBand, "Child", hJoyKey), RbMain.SetBandWidth(aBand, bSize)
+ ActivateHotkeys(,,,,, 1), TB_Edit(TbSettings, "WinKey", 0, 0)
return
SetNoJoy:
-Gui, chMacro:Submit, NoHide
-GuiControl, 1:Enable, AutoKey
-GuiControl, 1:Show, AutoKey
-GuiControl, 1:Hide, JoyKey
-GuiControl, 1:Enable, WinKey
-ActivateHotkeys(,,,,, 0), TB_Edit(TbSettings, "WinKey", 0, 1)
-aBand := RbMain.IDToIndex(7)
-RbMain.GetBand(aBand,,, bSize,,,, cChild)
-If (cChild != hAutoKey)
- RbMain.ModifyBand(aBand, "Child", hAutoKey), RbMain.SetBandWidth(aBand, bSize)
+ Gui, chMacro:Submit, NoHide
+ GuiControl, 1:Enable, AutoKey
+ GuiControl, 1:Show, AutoKey
+ GuiControl, 1:Hide, JoyKey
+ GuiControl, 1:Enable, WinKey
+ ActivateHotkeys(,,,,, 0), TB_Edit(TbSettings, "WinKey", 0, 1)
+ aBand := RbMain.IDToIndex(7)
+ RbMain.GetBand(aBand,,, bSize,,,, cChild)
+ If (cChild != hAutoKey)
+ RbMain.ModifyBand(aBand, "Child", hAutoKey), RbMain.SetBandWidth(aBand, bSize)
return
SetWin:
-Gui, 16:+owner1 -MinimizeBox +HwndCmdWin
-Gui, chMacro:Default
-Gui, 1:+Disabled
-Gui, 16:Add, Groupbox, W450 H75
-Gui, 16:Add, Text, -Wrap R1 ys+20 xs+10 W40 cBlue, #If
-Gui, 16:Add, DDL, yp-3 x+5 W100 vIfDirectContext, None||WinActive|WinNotActive|WinExist|WinNotExist|Expression
-Gui, 16:Add, Button, yp x+210 W75 vIdent gWinTitle, WinTitle
-Gui, 16:Add, Edit, y+5 xs+10 W400 vTitle R1 -Multi, %IfDirectWindow%
-Gui, 16:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetWin gGetWin, ...
-Gui, 16:Add, Button, -Wrap Section Default xm W75 H23 gSWinOK, %c_Lang020%
-Gui, 16:Add, Button, -Wrap ys W75 H23 gSWinCancel, %c_Lang021%
-GuiControl, 16:ChooseString, IfDirectContext, %IfDirectContext%
-Gui, 16:Show,, %t_Lang009%
-Tooltip
+ Gui, 16:+owner1 -MinimizeBox +HwndCmdWin
+ Gui, chMacro:Default
+ Gui, 1:+Disabled
+ Gui, 16:Add, Groupbox, W450 H75
+ Gui, 16:Add, Text, -Wrap R1 ys+20 xs+10 W40 cBlue, #If
+ Gui, 16:Add, DDL, yp-3 x+5 W100 vIfDirectContext, None||WinActive|WinNotActive|WinExist|WinNotExist|Expression
+ Gui, 16:Add, Button, yp x+210 W75 vIdent gWinTitle, WinTitle
+ Gui, 16:Add, Edit, y+5 xs+10 W400 vTitle R1 -Multi, %IfDirectWindow%
+ Gui, 16:Add, Button, -Wrap yp-1 x+0 W30 H23 vGetWin gGetWin, ...
+ Gui, 16:Add, Button, -Wrap Section Default xm W75 H23 gSWinOK, %c_Lang020%
+ Gui, 16:Add, Button, -Wrap ys W75 H23 gSWinCancel, %c_Lang021%
+ GuiControl, 16:ChooseString, IfDirectContext, %IfDirectContext%
+ Gui, 16:Show,, %t_Lang009%
+ Tooltip
return
SWinOK:
-Gui, 16:Submit, NoHide
-IfDirectWindow := Title, TB_Edit(TbSettings, "SetWin", (IfDirectContext = "None") ? 0 : 1)
-Gui, 1:-Disabled
-Gui, 16:Destroy
-Gui, chMacro:Default
-GuiControl, 1:, ContextTip, Global #If: %IfDirectContext%
-SavePrompt(true, A_ThisLabel)
+ Gui, 16:Submit, NoHide
+ IfDirectWindow := Title, TB_Edit(TbSettings, "SetWin", (IfDirectContext = "None") ? 0 : 1)
+ Gui, 1:-Disabled
+ Gui, 16:Destroy
+ Gui, chMacro:Default
+ GuiControl, 1:, ContextTip, Global #If: %IfDirectContext%
+ SavePrompt(true, A_ThisLabel)
return
SWinCancel:
16GuiClose:
16GuiEscape:
-Gui, 1:-Disabled
-Gui, 16:Destroy
+ Gui, 1:-Disabled
+ Gui, 16:Destroy
return
GoToMacro:
-MenuList := ""
-For Index, MacroLabel in CopyMenuLabels
- MenuList .= MacroLabel "|"
-Gui, 41:+owner1 -MinimizeBox +HwndCmdWin
-Gui, chMacro:Default
-Gui, 1:+Disabled
-Gui, 41:Add, Groupbox, W400 H75
-Gui, 41:Add, Text, -Wrap R1 ys+20 xs+10 W280, %t_Lang147%:
-Gui, 41:Add, Text, -Wrap R1 yp x+15 W80, %t_Lang220%:
-Gui, 41:Add, Combobox, W280 y+5 xs+10 vGoToMacro gAutoComplete, %MenuList%
-Gui, 41:Add, Edit, yp x+15 W80 H22 Number vGoLine
-Gui, 41:Add, UpDown, yp x+15 0x80 Range0-999999999 vGoToLine
-Gui, 41:Add, Button, -Wrap Section Default xm W75 H23 gGoToMacroOK, %c_Lang020%
-Gui, 41:Add, Button, -Wrap ys W75 H23 gGoToMacroCancel, %c_Lang021%
-GuiControl, 41:ChooseString, GotoMacro, % CopyMenuLabels[A_List]
-Gui, 41:Show,, %w_Lang113%
-Tooltip
+ MenuList := ""
+ For Index, MacroLabel in CopyMenuLabels
+ MenuList .= MacroLabel "|"
+ Gui, 41:+owner1 -MinimizeBox +HwndCmdWin
+ Gui, chMacro:Default
+ Gui, 1:+Disabled
+ Gui, 41:Add, Groupbox, W400 H75
+ Gui, 41:Add, Text, -Wrap R1 ys+20 xs+10 W280, %t_Lang147%:
+ Gui, 41:Add, Text, -Wrap R1 yp x+15 W80, %t_Lang220%:
+ Gui, 41:Add, Combobox, W280 y+5 xs+10 vGoToMacro gAutoComplete, %MenuList%
+ Gui, 41:Add, Edit, yp x+15 W80 H22 Number vGoLine
+ Gui, 41:Add, UpDown, yp x+15 0x80 Range0-999999999 vGoToLine
+ Gui, 41:Add, Button, -Wrap Section Default xm W75 H23 gGoToMacroOK, %c_Lang020%
+ Gui, 41:Add, Button, -Wrap ys W75 H23 gGoToMacroCancel, %c_Lang021%
+ GuiControl, 41:ChooseString, GotoMacro, % CopyMenuLabels[A_List]
+ Gui, 41:Show,, %w_Lang113%
+ Tooltip
return
GoToMacroOK:
-Gui, 41:Submit, NoHide
-Gui, 1:-Disabled
-Gui, 41:Destroy
-Gui, chMacro:Default
-GuiControl, chMacro:Choose, A_List, %GoToMacro%
-GoSub, TabSel
-If (GoToLine)
- LV_Modify(GoToLine, "Select Focus Vis")
+ Gui, 41:Submit, NoHide
+ Gui, 1:-Disabled
+ Gui, 41:Destroy
+ Gui, chMacro:Default
+ GuiControl, chMacro:Choose, A_List, %GoToMacro%
+ GoSub, TabSel
+ If (GoToLine)
+ LV_Modify(GoToLine, "Select Focus Vis")
return
GoToMacroCancel:
41GuiClose:
41GuiEscape:
-Gui, 1:-Disabled
-Gui, 41:Destroy
+ Gui, 1:-Disabled
+ Gui, 41:Destroy
return
EditComm:
-Gui, chMacro:Default
-Gui, chMacro:Listview, InputList%A_List%
-Gui, 17:+owner1 -MinimizeBox
-Gui, chMacro:Default
-Gui, 1:+Disabled
-Gui, 17:Add, GroupBox, Section xm W450 H105, %t_Lang064%:
-Gui, 17:Add, Edit, ys+20 xs+10 vComm W430 r5
-Gui, 17:Add, Button, -Wrap Section Default xm W75 H23 gCommOK, %c_Lang020%
-Gui, 17:Add, Button, -Wrap ys W75 H23 gCommCancel, %c_Lang021%
-Gui, 17:Add, Button, -Wrap ys W75 H23 vCommBlock gCommBlock, %w_Lang018%
-GoSub, ClearPars
-RowNumber := LV_GetNext()
-LV_GetTexts(RowNumber, Action, Details, TimesX, DelayX, Type, Target, Window, Comment)
-RowSelection := LV_GetCount("Selected")
-If (RowSelection = 1)
-{
- If (Type = cType42)
+ Gui, chMacro:Default
+ Gui, chMacro:Listview, InputList%A_List%
+ Gui, 17:+owner1 -MinimizeBox
+ Gui, chMacro:Default
+ Gui, 1:+Disabled
+ Gui, 17:Add, GroupBox, Section xm W450 H105, %t_Lang064%:
+ Gui, 17:Add, Edit, ys+20 xs+10 vComm W430 r5
+ Gui, 17:Add, Button, -Wrap Section Default xm W75 H23 gCommOK, %c_Lang020%
+ Gui, 17:Add, Button, -Wrap ys W75 H23 gCommCancel, %c_Lang021%
+ Gui, 17:Add, Button, -Wrap ys W75 H23 vCommBlock gCommBlock, %w_Lang018%
+ GoSub, ClearPars
+ RowNumber := LV_GetNext()
+ LV_GetTexts(RowNumber, Action, Details, TimesX, DelayX, Type, Target, Window, Comment)
+ RowSelection := LV_GetCount("Selected")
+ If (RowSelection = 1)
+ {
+ If (Type = cType42)
+ {
+ Comment := Details
+ GuiControl, 17:Disable, CommBlock
+ }
+ StringReplace, Comment, Comment, `n, %A_Space%, All
+ GuiControl, 17:, Comm, %Comment%
+ }
+ Gui, 17:Show,, %t_Lang065%
+ Tooltip
+return
+
+CommOK:
+ Gui, 17:Submit, NoHide
+ If (RowSelection = 1)
+ {
+ If (Type != cType42)
+ StringReplace, Comm, Comm, `n, %A_Space%, All
+ }
+ Else
+ StringReplace, Comm, Comm, `n, %A_Space%, All
+ Comment := Comm
+ Gui, 1:-Disabled
+ Gui, 17:Destroy
+ Gui, chMacro:Default
+ If (RowSelection = 1)
{
- Comment := Details
- GuiControl, 17:Disable, CommBlock
+ If (Type = cType42)
+ LV_Modify(RowNumber, "Col3", Comment, 0, 1, cType42)
+ Else
+ LV_Modify(RowNumber, "Col9", Comment)
}
- StringReplace, Comment, Comment, `n, %A_Space%, All
- GuiControl, 17:, Comm, %Comment%
-}
-Gui, 17:Show,, %t_Lang065%
-Tooltip
-return
-
-CommOK:
-Gui, 17:Submit, NoHide
-If (RowSelection = 1)
-{
- If (Type != cType42)
- StringReplace, Comm, Comm, `n, %A_Space%, All
-}
-Else
- StringReplace, Comm, Comm, `n, %A_Space%, All
-Comment := Comm
-Gui, 1:-Disabled
-Gui, 17:Destroy
-Gui, chMacro:Default
-If (RowSelection = 1)
-{
- If (Type = cType42)
- LV_Modify(RowNumber, "Col3", Comment, 0, 1, cType42)
- Else
- LV_Modify(RowNumber, "Col9", Comment)
-}
-Else If (RowSelection = 0)
-{
- RowNumber := 0
- Loop
+ Else If (RowSelection = 0)
{
- RowNumber := A_Index
- If (RowNumber > ListCount%A_List%)
- break
- LV_Modify(RowNumber, "Col9", Comment)
+ RowNumber := 0
+ Loop
+ {
+ RowNumber := A_Index
+ If (RowNumber > ListCount%A_List%)
+ break
+ LV_Modify(RowNumber, "Col9", Comment)
+ }
}
-}
-Else
-{
- RowNumber := 0
- Loop, %RowSelection%
+ Else
{
- RowNumber := LV_GetNext(RowNumber)
- LV_Modify(RowNumber, "Col9", Comment)
+ RowNumber := 0
+ Loop, %RowSelection%
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ LV_Modify(RowNumber, "Col9", Comment)
+ }
}
-}
-GoSub, RowCheck
-GoSub, b_Start
-GuiControl, Focus, InputList%A_List%
-s_Caller := ""
+ GoSub, RowCheck
+ GoSub, b_Start
+ GuiControl, Focus, InputList%A_List%
+ s_Caller := ""
return
CommBlock:
-Gui, 17:Submit, NoHide
-StringReplace, Comm, Comm, `n, %A_Space%, All
-Comment := Comm
-Gui, 1:-Disabled
-Gui, 17:Destroy
-Gui, chMacro:Default
-If (RowSelection = 0)
-{
- LV_Add("Check", ListCount%A_List%+1, "[CommentBlock]", Comment, 0, 1, cType42)
- LV_Modify(ListCount%A_List%+1, "Vis")
-}
-Else
-{
- LV_Insert(RowNumber, "Check", LV_GetNext(), "[CommentBlock]", Comment, 0, 1, cType42)
- LVManager[A_List].InsertAtGroup(LV_GetNext())
-}
-GoSub, RowCheck
-GoSub, b_Start
-GuiControl, Focus, InputList%A_List%
+ Gui, 17:Submit, NoHide
+ StringReplace, Comm, Comm, `n, %A_Space%, All
+ Comment := Comm
+ Gui, 1:-Disabled
+ Gui, 17:Destroy
+ Gui, chMacro:Default
+ If (RowSelection = 0)
+ {
+ LV_Add("Check", ListCount%A_List%+1, "[CommentBlock]", Comment, 0, 1, cType42)
+ LV_Modify(ListCount%A_List%+1, "Vis")
+ }
+ Else
+ {
+ LV_Insert(RowNumber, "Check", LV_GetNext(), "[CommentBlock]", Comment, 0, 1, cType42)
+ LVManager[A_List].InsertAtGroup(LV_GetNext())
+ }
+ GoSub, RowCheck
+ GoSub, b_Start
+ GuiControl, Focus, InputList%A_List%
return
CommCancel:
17GuiClose:
17GuiEscape:
-Gui, 1:-Disabled
-Gui, 17:Destroy
+ Gui, 1:-Disabled
+ Gui, 17:Destroy
return
ShowTessMenu:
-Loop, Parse, TessLangs, "|"
-{
- If (A_LoopField != "")
+ Loop, Parse, TessLangs, "|"
{
- LoopField := RegExReplace(A_LoopField, "\..*")
- Menu, TessMenu, Add, %LoopField%, SelectTessLang
- If (InStr(TessSelectedLangs, LoopField))
- Menu, TessMenu, Check, %LoopField%
+ If (A_LoopField != "")
+ {
+ LoopField := RegExReplace(A_LoopField, "\..*")
+ Menu, TessMenu, Add, %LoopField%, SelectTessLang
+ If (InStr(TessSelectedLangs, LoopField))
+ Menu, TessMenu, Check, %LoopField%
+ }
}
-}
-Menu, TessMenu, Add
-Menu, TessMenu, Add, %c_Lang262%, DownloadTessLangFiles
-ControlGetPos, CtrPosX, CtrPosY,, CtrlPosH,, ahk_id %hSearchImg%
-Menu, TessMenu, Show, %CtrPosX%, % CtrPosY + CtrlPosH
-Menu, TessMenu, DeleteAll
+ Menu, TessMenu, Add
+ Menu, TessMenu, Add, %c_Lang262%, DownloadTessLangFiles
+ ControlGetPos, CtrPosX, CtrPosY,, CtrlPosH,, ahk_id %hSearchImg%
+ Menu, TessMenu, Show, %CtrPosX%, % CtrPosY + CtrlPosH
+ Menu, TessMenu, DeleteAll
return
SelectTessLang:
-If (!InStr(TessSelectedLangs, A_ThisMenuItem))
- TessSelectedLangs .= "+" A_ThisMenuItem
-Else
- TessSelectedLangs := RegExReplace(TessSelectedLangs, "\+?" A_ThisMenuItem)
-TessSelectedLangs := RegExReplace(TessSelectedLangs, "^\+")
+ If (!InStr(TessSelectedLangs, A_ThisMenuItem))
+ TessSelectedLangs .= "+" A_ThisMenuItem
+ Else
+ TessSelectedLangs := RegExReplace(TessSelectedLangs, "\+?" A_ThisMenuItem)
+ TessSelectedLangs := RegExReplace(TessSelectedLangs, "^\+")
return
DownloadTessLangFiles:
-Gui, 19:+OwnDialogs
-ComObjError(false)
-AvailableLangs := []
-url := "https://github.com/tesseract-ocr/tessdata_fast"
-UrlDownloadToFile, %url%, %A_Temp%\tessdata_fast.html
-FileRead, ResponseText, %A_Temp%\tessdata_fast.html
-Try
-{
- Pos := 1
- While (Pos := RegExMatch(ResponseText, "title=\""(\w+).traineddata\""", FoundLang, Pos + StrLen(FoundLang)))
- AvailableLangs.Push(FoundLang1)
- Gui, Tess:+owner1 +ToolWindow
- Gui, 19:+Disabled
- For each, key in AvailableLangs
+ Gui, 19:+OwnDialogs
+ ComObjError(false)
+ AvailableLangs := []
+ url := "https://github.com/tesseract-ocr/tessdata_fast"
+ UrlDownloadToFile, %url%, %A_Temp%\tessdata_fast.html
+ FileRead, ResponseText, %A_Temp%\tessdata_fast.html
+ Try
{
- LangName := ""
- For l, k in LangData
+ Pos := 1
+ While (Pos := RegExMatch(ResponseText, "title=\""(\w+).traineddata\""", FoundLang, Pos + StrLen(FoundLang)))
+ AvailableLangs.Push(FoundLang1)
+ Gui, Tess:+owner1 +ToolWindow
+ Gui, 19:+Disabled
+ For each, key in AvailableLangs
{
- If ((SubStr(k.Local, 1, 3) = key) || (SubStr(k.Idiom, 1, 3) = key))
+ LangName := ""
+ For l, k in LangData
{
- LangName := k.Local
- break
+ If ((SubStr(k.Local, 1, 3) = key) || (SubStr(k.Idiom, 1, 3) = key))
+ {
+ LangName := k.Local
+ break
+ }
}
+ Gui, Tess:Add, Checkbox, % (!Mod(each-1, 22)) ? "v" key " R2 W200 ym x+10" : "v" key " R2 W200", % key . (LangName ? ": " LangName : "")
}
- Gui, Tess:Add, Checkbox, % (!Mod(each-1, 22)) ? "v" key " R2 W200 ym x+10" : "v" key " R2 W200", % key . (LangName ? ": " LangName : "")
- }
- For each, key in AvailableLangs
- {
- If (InStr(TessLangs, key))
+ For each, key in AvailableLangs
{
- GuiControl, Tess:, %key%, 1
- GuiControl, Tess:Disable, %key%
+ If (InStr(TessLangs, key))
+ {
+ GuiControl, Tess:, %key%, 1
+ GuiControl, Tess:Disable, %key%
+ }
}
+ Gui, Tess:Add, Button, -Wrap Section Default xm W290 H23 gTransferLangs, %d_Lang116%
+ Gui, Tess:Add, Button, -Wrap yp x+5 W290 H23 gTessCancel, %c_Lang021%
+ Gui, Tess:Show, H760, %c_Lang260% (OCR) | %c_Lang262%
}
- Gui, Tess:Add, Button, -Wrap Section Default xm W290 H23 gTransferLangs, %d_Lang116%
- Gui, Tess:Add, Button, -Wrap yp x+5 W290 H23 gTessCancel, %c_Lang021%
- Gui, Tess:Show, H760, %c_Lang260% (OCR) | %c_Lang262%
-}
return
TransferLangs:
-Gui, Tess:Submit, NoHide
-Gui, Tess:Destroy
-SplashTextOn, 300, 25, %AppName%, %d_Lang091%
-BestBaseUrl := "https://github.com/tesseract-ocr/tessdata_best/raw/master/"
-FastBaseUrl := "https://github.com/tesseract-ocr/tessdata_fast/raw/master/"
-TessdataBestFolder := SettingsFolder "\bin\tesseract\tessdata_best"
-TessdataFastFolder := SettingsFolder "\bin\tesseract\tessdata_fast"
-FileCreateDir, %TessdataBestFolder%
-FileCreateDir, %TessdataFastFolder%
-For each, key in AvailableLangs
-{
- If ((!InStr(TessLangs, key)) && (%key%))
+ Gui, Tess:Submit, NoHide
+ Gui, Tess:Destroy
+ SplashTextOn, 300, 25, %AppName%, %d_Lang091%
+ BestBaseUrl := "https://github.com/tesseract-ocr/tessdata_best/raw/master/"
+ FastBaseUrl := "https://github.com/tesseract-ocr/tessdata_fast/raw/master/"
+ TessdataBestFolder := SettingsFolder "\bin\tesseract\tessdata_best"
+ TessdataFastFolder := SettingsFolder "\bin\tesseract\tessdata_fast"
+ FileCreateDir, %TessdataBestFolder%
+ FileCreateDir, %TessdataFastFolder%
+ For each, key in AvailableLangs
{
- WinHttpDownloadToFile(BestBaseUrl . key ".traineddata", TessdataBestFolder)
- WinHttpDownloadToFile(FastBaseUrl . key ".traineddata", TessdataFastFolder)
+ If ((!InStr(TessLangs, key)) && (%key%))
+ {
+ WinHttpDownloadToFile(BestBaseUrl . key ".traineddata", TessdataBestFolder)
+ WinHttpDownloadToFile(FastBaseUrl . key ".traineddata", TessdataFastFolder)
+ }
}
-}
-TessLangs := ""
-Loop, Files, %SettingsFolder%\Bin\tesseract\tessdata_fast\*.traineddata, F
- TessLangs .= A_LoopFileName "|"
-SplashTextOff
-Gui, 19:-Disabled
+ TessLangs := ""
+ Loop, Files, %SettingsFolder%\Bin\tesseract\tessdata_fast\*.traineddata, F
+ TessLangs .= A_LoopFileName "|"
+ SplashTextOff
+ Gui, 19:-Disabled
return
TessGuiEscape:
TessGuiClose:
TessCancel:
-Gui, 19:-Disabled
-Gui, Tess:Destroy
+ Gui, 19:-Disabled
+ Gui, Tess:Destroy
return
EditColor:
-Gui, 1:Submit, NoHide
-Gui, 19:Submit, NoHide
-rColor := ""
-If (A_GuiControl = "SearchImg")
- rColor := ImgFile, OwnerID := CmdWin
-Else If (InStr(A_GuiControl, "LVColor") || (A_GuiControl = "SearchAreaColor"))
- rColor := %A_GuiControl%, OwnerID := CmdWin
-Else
-{
- Gui, chMacro:Default
- Gui, chMacro:Listview, InputList%A_List%
- RowSelection := LV_GetCount("Selected"), OwnerID := PMCWinID
- If (RowSelection = 1)
- {
- RowNumber := LV_GetNext()
- LV_GetText(rColor, RowNumber, 10)
- }
-}
-If (Dlg_Color(rColor, OwnerID, CustomColors))
-{
+ Gui, 1:Submit, NoHide
+ Gui, 19:Submit, NoHide
+ rColor := ""
If (A_GuiControl = "SearchImg")
+ rColor := ImgFile, OwnerID := CmdWin
+ Else If (InStr(A_GuiControl, "LVColor") || (A_GuiControl = "SearchAreaColor"))
+ rColor := %A_GuiControl%, OwnerID := CmdWin
+ Else
{
- GuiControl,, ImgFile, %rColor%
- GuiControl, +Background%rColor%, ColorPrev
+ Gui, chMacro:Default
+ Gui, chMacro:Listview, InputList%A_List%
+ RowSelection := LV_GetCount("Selected"), OwnerID := PMCWinID
+ If (RowSelection = 1)
+ {
+ RowNumber := LV_GetNext()
+ LV_GetText(rColor, RowNumber, 10)
+ }
}
- Else If (InStr(A_GuiControl, "LVColor") || (A_GuiControl = "SearchAreaColor"))
+ If (Dlg_Color(rColor, OwnerID, CustomColors))
{
- %A_GuiControl% := rColor
- Gui, Font, c%rColor%
- GuiControl, Font, %A_GuiControl%
+ If (A_GuiControl = "SearchImg")
+ {
+ GuiControl,, ImgFile, %rColor%
+ GuiControl, +Background%rColor%, ColorPrev
+ }
+ Else If (InStr(A_GuiControl, "LVColor") || (A_GuiControl = "SearchAreaColor"))
+ {
+ %A_GuiControl% := rColor
+ Gui, Font, c%rColor%
+ GuiControl, Font, %A_GuiControl%
+ }
+ Else
+ GoSub, PaintRows
}
- Else
- GoSub, PaintRows
-}
return
PaintRows:
-If (rColor = "0xffffff")
- rColor := ""
-If (RowSelection = 1)
- LV_Modify(RowNumber, "Col10", rColor)
-Else If (RowSelection = 0)
-{
- RowNumber := 0
- Loop
- {
- RowNumber := A_Index
- If (RowNumber > ListCount%A_List%)
- break
+ If (rColor = "0xffffff")
+ rColor := ""
+ If (RowSelection = 1)
LV_Modify(RowNumber, "Col10", rColor)
+ Else If (RowSelection = 0)
+ {
+ RowNumber := 0
+ Loop
+ {
+ RowNumber := A_Index
+ If (RowNumber > ListCount%A_List%)
+ break
+ LV_Modify(RowNumber, "Col10", rColor)
+ }
}
-}
-Else
-{
- RowNumber := 0
- Loop, %RowSelection%
+ Else
{
- RowNumber := LV_GetNext(RowNumber)
- LV_Modify(RowNumber, "Col10", rColor)
+ RowNumber := 0
+ Loop, %RowSelection%
+ {
+ RowNumber := LV_GetNext(RowNumber)
+ LV_Modify(RowNumber, "Col10", rColor)
+ }
}
-}
-GoSub, RowCheck
+ GoSub, RowCheck
return
FilterSelect:
FindReplace:
-Input
-Gui 18:+LastFoundExist
-IfWinExist
- GoSub, FindClose
-Gui, 18:+owner1 +ToolWindow
-Gui, chMacro:Default
-Gui, 18:Add, Tab3, Section W400 H365 vFindTabC, %t_Lang140%|%t_Lang141%
-Gui, 18:Add, Text, -Wrap R1 ys+40 xs+10 W150 Right, %t_Lang066%:
-Gui, 18:Add, DDL, yp-5 x+10 W120 vSearchCol gSearchCol AltSubmit, %w_Lang031%||%w_Lang032%|%w_Lang033%|%w_Lang034%|%w_Lang035%|%w_Lang036%|%w_Lang037%|%w_Lang038%|%w_Lang039%
-Gui, 18:Add, GroupBox, ys+60 xs+10 W380 H130, %t_Lang208%:
-Gui, 18:Add, Edit, -Wrap R1 yp+20 xs+20 vFind W360
-Gui, 18:Add, Button, -Wrap Default y+5 xs+305 W75 H23 vFindOK gFindOK, %t_Lang068%
-Gui, 18:Add, Checkbox, -Wrap yp xs+20 W285 vWholC R1, %t_Lang092%
-Gui, 18:Add, Checkbox, -Wrap W285 vMCase R1, %t_Lang069%
-Gui, 18:Add, Checkbox, -Wrap W285 vRegExSearch gRegExSearch R1, %t_Lang077%
-Gui, 18:Add, Text, -Wrap R1 y+10 xs+20 W280 vFound
-Gui, 18:Add, GroupBox, Section y+25 xs+10 W380 H130, %t_Lang209%:
-Gui, 18:Add, Edit, -Wrap R1 ys+25 xs+10 vReplace W360
-Gui, 18:Add, Button, -Wrap y+5 xs+295 W75 H23 vReplaceOK gReplaceOK, %t_Lang070%
-Gui, 18:Add, Radio, -Wrap Checked yp xs+10 W285 vRepSelRows R1, %t_Lang073%
-Gui, 18:Add, Radio, -Wrap W285 vRepAllRows R1, %t_Lang074%
-Gui, 18:Add, Radio, -Wrap W285 vRepAllMacros R1, %t_Lang075%
-Gui, 18:Add, Text, -Wrap R1 y+10 xs+10 W280 vReplaced
-Gui, 18:Tab, 2
-Gui, 18:Add, Groupbox, Section ym+30 xm+10 W380 H321
-Gui, 18:Add, Text, -Wrap R1 ys+20 xs+10 W100 Right, %w_Lang031%:
-Gui, 18:Add, Edit, -Wrap R1 yp x+10 W250 vFilterA, %FilterA%
-Gui, 18:Add, Text, -Wrap R1 y+5 xs+10 W100 Right, %w_Lang032%:
-Gui, 18:Add, Edit, -Wrap R1 yp x+10 W250 vFilterB, %FilterB%
-Gui, 18:Add, Text, -Wrap R1 y+5 xs+10 W100 Right, %w_Lang033%:
-Gui, 18:Add, Edit, -Wrap R1 yp x+10 W250 vFilterC, %FilterC%
-Gui, 18:Add, Text, -Wrap R1 y+5 xs+10 W100 Right, %w_Lang034%:
-Gui, 18:Add, Edit, -Wrap R1 yp x+10 W250 vFilterD, %FilterD%
-Gui, 18:Add, Text, -Wrap R1 y+5 xs+10 W100 Right, %w_Lang035%:
-Gui, 18:Add, Edit, -Wrap R1 yp x+10 W250 vFilterE, %FilterE%
-Gui, 18:Add, Text, -Wrap R1 y+5 xs+10 W100 Right, %w_Lang036%:
-Gui, 18:Add, Edit, -Wrap R1 yp x+10 W250 vFilterF, %FilterF%
-Gui, 18:Add, Text, -Wrap R1 y+5 xs+10 W100 Right, %w_Lang037%:
-Gui, 18:Add, Edit, -Wrap R1 yp x+10 W250 vFilterG, %FilterG%
-Gui, 18:Add, Text, -Wrap R1 y+5 xs+10 W100 Right, %w_Lang038%:
-Gui, 18:Add, Edit, -Wrap R1 yp x+10 W250 vFilterH, %FilterH%
-Gui, 18:Add, Text, -Wrap R1 y+5 xs+10 W100 Right, %w_Lang039%:
-Gui, 18:Add, Edit, -Wrap R1 yp x+10 W250 vFilterI, %FilterI%
-Gui, 18:Add, Checkbox, -Wrap y+25 xs+10 W185 vFCase R1, %t_Lang069%
-Gui, 18:Add, Button, -Wrap yp-5 xs+295 W75 H23 gFilterOK, %t_Lang068%
-Gui, 18:Add, Text, -Wrap R1 y+5 xs+10 W280 vFFound
-Gui, 18:Tab
-Gui, 18:Add, Button, -Wrap Section xm W75 H23 gFindClose, %c_Lang022%
-If (A_ThisLabel = "FilterSelect")
- GuiControl, 18:Choose, FindTabC, 2
-Gui, 18:Show,, %t_Lang067%
-GuiControl, 18:Choose, SearchCol, 2
-GuiControl, 18:Focus, Find
-Tooltip
+ Input
+ Gui 18:+LastFoundExist
+ IfWinExist
+ GoSub, FindClose
+ Gui, 18:+owner1 +ToolWindow
+ Gui, chMacro:Default
+ Gui, 18:Add, Tab3, Section W400 H365 vFindTabC, %t_Lang140%|%t_Lang141%
+ Gui, 18:Add, Text, -Wrap R1 ys+40 xs+10 W150 Right, %t_Lang066%:
+ Gui, 18:Add, DDL, yp-5 x+10 W120 vSearchCol gSearchCol AltSubmit, %w_Lang031%||%w_Lang032%|%w_Lang033%|%w_Lang034%|%w_Lang035%|%w_Lang036%|%w_Lang037%|%w_Lang038%|%w_Lang039%
+ Gui, 18:Add, GroupBox, ys+60 xs+10 W380 H130, %t_Lang208%:
+ Gui, 18:Add, Edit, -Wrap R1 yp+20 xs+20 vFind W360
+ Gui, 18:Add, Button, -Wrap Default y+5 xs+305 W75 H23 vFindOK gFindOK, %t_Lang068%
+ Gui, 18:Add, Checkbox, -Wrap yp xs+20 W285 vWholC R1, %t_Lang092%
+ Gui, 18:Add, Checkbox, -Wrap W285 vMCase R1, %t_Lang069%
+ Gui, 18:Add, Checkbox, -Wrap W285 vRegExSearch gRegExSearch R1, %t_Lang077%
+ Gui, 18:Add, Text, -Wrap R1 y+10 xs+20 W280 vFound
+ Gui, 18:Add, GroupBox, Section y+25 xs+10 W380 H130, %t_Lang209%:
+ Gui, 18:Add, Edit, -Wrap R1 ys+25 xs+10 vReplace W360
+ Gui, 18:Add, Button, -Wrap y+5 xs+295 W75 H23 vReplaceOK gReplaceOK, %t_Lang070%
+ Gui, 18:Add, Radio, -Wrap Checked yp xs+10 W285 vRepSelRows R1, %t_Lang073%
+ Gui, 18:Add, Radio, -Wrap W285 vRepAllRows R1, %t_Lang074%
+ Gui, 18:Add, Radio, -Wrap W285 vRepAllMacros R1, %t_Lang075%
+ Gui, 18:Add, Text, -Wrap R1 y+10 xs+10 W280 vReplaced
+ Gui, 18:Tab, 2
+ Gui, 18:Add, Groupbox, Section ym+30 xm+10 W380 H321
+ Gui, 18:Add, Text, -Wrap R1 ys+20 xs+10 W100 Right, %w_Lang031%:
+ Gui, 18:Add, Edit, -Wrap R1 yp x+10 W250 vFilterA, %FilterA%
+ Gui, 18:Add, Text, -Wrap R1 y+5 xs+10 W100 Right, %w_Lang032%:
+ Gui, 18:Add, Edit, -Wrap R1 yp x+10 W250 vFilterB, %FilterB%
+ Gui, 18:Add, Text, -Wrap R1 y+5 xs+10 W100 Right, %w_Lang033%:
+ Gui, 18:Add, Edit, -Wrap R1 yp x+10 W250 vFilterC, %FilterC%
+ Gui, 18:Add, Text, -Wrap R1 y+5 xs+10 W100 Right, %w_Lang034%:
+ Gui, 18:Add, Edit, -Wrap R1 yp x+10 W250 vFilterD, %FilterD%
+ Gui, 18:Add, Text, -Wrap R1 y+5 xs+10 W100 Right, %w_Lang035%:
+ Gui, 18:Add, Edit, -Wrap R1 yp x+10 W250 vFilterE, %FilterE%
+ Gui, 18:Add, Text, -Wrap R1 y+5 xs+10 W100 Right, %w_Lang036%:
+ Gui, 18:Add, Edit, -Wrap R1 yp x+10 W250 vFilterF, %FilterF%
+ Gui, 18:Add, Text, -Wrap R1 y+5 xs+10 W100 Right, %w_Lang037%:
+ Gui, 18:Add, Edit, -Wrap R1 yp x+10 W250 vFilterG, %FilterG%
+ Gui, 18:Add, Text, -Wrap R1 y+5 xs+10 W100 Right, %w_Lang038%:
+ Gui, 18:Add, Edit, -Wrap R1 yp x+10 W250 vFilterH, %FilterH%
+ Gui, 18:Add, Text, -Wrap R1 y+5 xs+10 W100 Right, %w_Lang039%:
+ Gui, 18:Add, Edit, -Wrap R1 yp x+10 W250 vFilterI, %FilterI%
+ Gui, 18:Add, Checkbox, -Wrap y+25 xs+10 W185 vFCase R1, %t_Lang069%
+ Gui, 18:Add, Button, -Wrap yp-5 xs+295 W75 H23 gFilterOK, %t_Lang068%
+ Gui, 18:Add, Text, -Wrap R1 y+5 xs+10 W280 vFFound
+ Gui, 18:Tab
+ Gui, 18:Add, Button, -Wrap Section xm W75 H23 gFindClose, %c_Lang022%
+ If (A_ThisLabel = "FilterSelect")
+ GuiControl, 18:Choose, FindTabC, 2
+ Gui, 18:Show,, %t_Lang067%
+ GuiControl, 18:Choose, SearchCol, 2
+ GuiControl, 18:Focus, Find
+ Tooltip
return
SearchCol:
-Gui, 18:Submit, NoHide
-SeIsType := ((SearchCol = 1) || (SearchCol = 5))
-GuiControl, 18:Disable%SeIsType%, Replace
-GuiControl, 18:Disable%SeIsType%, ReplaceOK
-GuiControl, 18:Disable%SeIsType%, RepSelRows
-GuiControl, 18:Disable%SeIsType%, RepAllRows
-GuiControl, 18:Disable%SeIsType%, RepAllMacros
+ Gui, 18:Submit, NoHide
+ SeIsType := ((SearchCol = 1) || (SearchCol = 5))
+ GuiControl, 18:Disable%SeIsType%, Replace
+ GuiControl, 18:Disable%SeIsType%, ReplaceOK
+ GuiControl, 18:Disable%SeIsType%, RepSelRows
+ GuiControl, 18:Disable%SeIsType%, RepAllRows
+ GuiControl, 18:Disable%SeIsType%, RepAllMacros
return
FindOK:
-Gui, 18:Submit, NoHide
-If (Find = "")
- return
-Gui, chMacro:Default
-StringReplace, Find, Find, `n, ``n, All
-LV_Modify(0, "-Select")
-t_Col := SearchCol + 1
-Loop
-{
- RowNumber := A_Index
- If (RowNumber > ListCount%A_List%)
- break
- LV_GetText(CellText, RowNumber, t_Col)
- If (RegExSearch = 1)
- {
- If (RegExMatch(CellText, Find))
- LV_Modify(RowNumber, "Select")
- }
- Else If (WholC = 1)
+ Gui, 18:Submit, NoHide
+ If (Find = "")
+ return
+ Gui, chMacro:Default
+ StringReplace, Find, Find, `n, ``n, All
+ LV_Modify(0, "-Select")
+ t_Col := SearchCol + 1
+ Loop
{
- If (MCase = 1)
- {
- If (CellText == Find)
+ RowNumber := A_Index
+ If (RowNumber > ListCount%A_List%)
+ break
+ LV_GetText(CellText, RowNumber, t_Col)
+ If (RegExSearch = 1)
+ {
+ If (RegExMatch(CellText, Find))
+ LV_Modify(RowNumber, "Select")
+ }
+ Else If (WholC = 1)
+ {
+ If (MCase = 1)
+ {
+ If (CellText == Find)
+ LV_Modify(RowNumber, "Select")
+ }
+ Else If (CellText = Find)
LV_Modify(RowNumber, "Select")
}
- Else If (CellText = Find)
+ Else If (InStr(CellText, Find, MCase))
LV_Modify(RowNumber, "Select")
}
- Else If (InStr(CellText, Find, MCase))
- LV_Modify(RowNumber, "Select")
-}
-RowSelection := LV_GetCount("Selected")
-GuiControl, 18:, Found, %t_Lang071%: %RowSelection%
-If (RowSelection)
- LV_Modify(LV_GetNext(), "Vis")
+ RowSelection := LV_GetCount("Selected")
+ GuiControl, 18:, Found, %t_Lang071%: %RowSelection%
+ If (RowSelection)
+ LV_Modify(LV_GetNext(), "Vis")
return
ReplaceOK:
-Gui, 18:Submit, NoHide
-If (Find = "")
- return
-Gui, chMacro:Default
-StringReplace, Find, Find, `n, ``n, All
-t_Col := SearchCol + 1, Replaces := 0
-If (RepAllRows = 1)
-{
- Loop, % ListCount%A_List%
+ Gui, 18:Submit, NoHide
+ If (Find = "")
+ return
+ Gui, chMacro:Default
+ StringReplace, Find, Find, `n, ``n, All
+ t_Col := SearchCol + 1, Replaces := 0
+ If (RepAllRows = 1)
{
- LV_GetText(CellText, A_Index, t_Col)
- If (RegExSearch = 1)
+ Loop, % ListCount%A_List%
{
- If (RegExMatch(CellText, Find))
+ LV_GetText(CellText, A_Index, t_Col)
+ If (RegExSearch = 1)
{
- CellText := RegExReplace(CellText, Find, Replace)
- LV_Modify(A_Index, "Col" t_Col, CellText)
- Replaces += 1
+ If (RegExMatch(CellText, Find))
+ {
+ CellText := RegExReplace(CellText, Find, Replace)
+ LV_Modify(A_Index, "Col" t_Col, CellText)
+ Replaces += 1
+ }
}
- }
- Else If (WholC = 1)
- {
- If (MCase = 1)
+ Else If (WholC = 1)
{
- If (CellText == Find)
+ If (MCase = 1)
+ {
+ If (CellText == Find)
+ {
+ CellText := StrReplace(CellText, Find, Replace)
+ LV_Modify(A_Index, "Col" t_Col, CellText)
+ Replaces += 1
+ }
+ }
+ Else If (CellText = Find)
{
CellText := StrReplace(CellText, Find, Replace)
LV_Modify(A_Index, "Col" t_Col, CellText)
Replaces += 1
}
}
- Else If (CellText = Find)
+ Else If (InStr(CellText, Find, MCase))
{
CellText := StrReplace(CellText, Find, Replace)
LV_Modify(A_Index, "Col" t_Col, CellText)
Replaces += 1
}
}
- Else If (InStr(CellText, Find, MCase))
- {
- CellText := StrReplace(CellText, Find, Replace)
- LV_Modify(A_Index, "Col" t_Col, CellText)
- Replaces += 1
- }
+ If (Replaces > 0)
+ HistCheck(A_List)
+ }
+ Else If (RepAllMacros = 1)
+ {
+ Tmp_List := A_List
+ Loop, %TabCount%
+ {
+ Replaces := 0
+ Gui, chMacro:Listview, InputList%A_Index%
+ Loop, % ListCount%A_Index%
+ {
+ LV_GetText(CellText, A_Index, t_Col)
+ If (RegExSearch = 1)
+ {
+ If (RegExMatch(CellText, Find))
+ {
+ CellText := RegExReplace(CellText, Find, Replace)
+ LV_Modify(A_Index, "Col" t_Col, CellText)
+ Replaces += 1
+ }
+ }
+ Else If (WholC = 1)
+ {
+ If (MCase = 1)
+ {
+ If (CellText == Find)
+ {
+ CellText := StrReplace(CellText, Find, Replace)
+ LV_Modify(A_Index, "Col" t_Col, CellText)
+ Replaces += 1
+ }
+ }
+ Else If (CellText = Find)
+ {
+ CellText := StrReplace(CellText, Find, Replace)
+ LV_Modify(A_Index, "Col" t_Col, CellText)
+ Replaces += 1
+ }
+ }
+ Else If (InStr(CellText, Find, MCase))
+ {
+ CellText := StrReplace(CellText, Find, Replace)
+ LV_Modify(A_Index, "Col" t_Col, CellText)
+ Replaces += 1
+ }
+ }
+ If (Replaces > 0)
+ HistCheck(A_Index)
+ }
+ Gui, chMacro:Listview, InputList%A_List%
}
- If (Replaces > 0)
- HistCheck(A_List)
-}
-Else If (RepAllMacros = 1)
-{
- Tmp_List := A_List
- Loop, %TabCount%
+ Else
{
- Replaces := 0
- Gui, chMacro:Listview, InputList%A_Index%
- Loop, % ListCount%A_Index%
+ RowNumber := 0
+ Loop
{
- LV_GetText(CellText, A_Index, t_Col)
+ RowNumber := LV_GetNext(RowNumber)
+ If (!RowNumber)
+ break
+ LV_GetText(CellText, RowNumber, t_Col)
If (RegExSearch = 1)
{
If (RegExMatch(CellText, Find))
{
CellText := RegExReplace(CellText, Find, Replace)
- LV_Modify(A_Index, "Col" t_Col, CellText)
+ LV_Modify(RowNumber, "Col" t_Col, CellText)
Replaces += 1
}
}
@@ -14368,361 +14411,313 @@ Else If (RepAllMacros = 1)
If (CellText == Find)
{
CellText := StrReplace(CellText, Find, Replace)
- LV_Modify(A_Index, "Col" t_Col, CellText)
+ LV_Modify(RowNumber, "Col" t_Col, CellText)
Replaces += 1
}
}
Else If (CellText = Find)
- {
- CellText := StrReplace(CellText, Find, Replace)
- LV_Modify(A_Index, "Col" t_Col, CellText)
- Replaces += 1
- }
- }
- Else If (InStr(CellText, Find, MCase))
- {
- CellText := StrReplace(CellText, Find, Replace)
- LV_Modify(A_Index, "Col" t_Col, CellText)
- Replaces += 1
- }
- }
- If (Replaces > 0)
- HistCheck(A_Index)
- }
- Gui, chMacro:Listview, InputList%A_List%
-}
-Else
-{
- RowNumber := 0
- Loop
- {
- RowNumber := LV_GetNext(RowNumber)
- If (!RowNumber)
- break
- LV_GetText(CellText, RowNumber, t_Col)
- If (RegExSearch = 1)
- {
- If (RegExMatch(CellText, Find))
- {
- CellText := RegExReplace(CellText, Find, Replace)
- LV_Modify(RowNumber, "Col" t_Col, CellText)
- Replaces += 1
- }
- }
- Else If (WholC = 1)
- {
- If (MCase = 1)
- {
- If (CellText == Find)
{
CellText := StrReplace(CellText, Find, Replace)
LV_Modify(RowNumber, "Col" t_Col, CellText)
Replaces += 1
}
}
- Else If (CellText = Find)
+ Else If (InStr(CellText, Find, MCase))
{
CellText := StrReplace(CellText, Find, Replace)
LV_Modify(RowNumber, "Col" t_Col, CellText)
Replaces += 1
}
}
- Else If (InStr(CellText, Find, MCase))
- {
- CellText := StrReplace(CellText, Find, Replace)
- LV_Modify(RowNumber, "Col" t_Col, CellText)
- Replaces += 1
- }
+ If (Replaces > 0)
+ HistCheck(A_List)
}
- If (Replaces > 0)
- HistCheck(A_List)
-}
-GuiControl, 18:, Replaced, %t_Lang072%: %Replaces%
+ GuiControl, 18:, Replaced, %t_Lang072%: %Replaces%
return
RegExSearch:
-Gui, 18:Submit, NoHide
-GuiControl, 18:Disable%RegExSearch%, WholC
-GuiControl, 18:Disable%RegExSearch%, MCase
+ Gui, 18:Submit, NoHide
+ GuiControl, 18:Disable%RegExSearch%, WholC
+ GuiControl, 18:Disable%RegExSearch%, MCase
return
FindClose:
18GuiClose:
18GuiEscape:
-Gui, 18:Destroy
+ Gui, 18:Destroy
return
FilterOK:
-Gui, 18:Submit, NoHide
-Gui, chMacro:Default
-FFound := SelectByFilter(FilterA, FilterB, FilterC, FilterD, FilterE, FilterF, FilterG, FilterH, FilterI, FCase)
-GuiControl, 18:, FFound, %t_Lang071%: %FFound%
+ Gui, 18:Submit, NoHide
+ Gui, chMacro:Default
+ FFound := SelectByFilter(FilterA, FilterB, FilterC, FilterD, FilterE, FilterF, FilterG, FilterH, FilterI, FCase)
+ GuiControl, 18:, FFound, %t_Lang071%: %FFound%
return
MainOnTop:
-Gui, % (MainOnTop := !MainOnTop) ? "1:+AlwaysOnTop" : "1:-AlwaysOnTop"
-If (MainOnTop)
- Menu, ViewMenu, Check, %v_Lang001%
-Else
- Menu, ViewMenu, UnCheck, %v_Lang001%
+ Gui, % (MainOnTop := !MainOnTop) ? "1:+AlwaysOnTop" : "1:-AlwaysOnTop"
+ If (MainOnTop)
+ Menu, ViewMenu, Check, %v_Lang001%
+ Else
+ Menu, ViewMenu, UnCheck, %v_Lang001%
return
ShowLoopIfMark:
-ShowLoopIfMark := !ShowLoopIfMark
-If (ShowLoopIfMark)
- Menu, ViewMenu, Check, %v_Lang002%
-Else
- Menu, ViewMenu, UnCheck, %v_Lang002%
-GoSub, RowCheck
+ ShowLoopIfMark := !ShowLoopIfMark
+ If (ShowLoopIfMark)
+ Menu, ViewMenu, Check, %v_Lang002%
+ Else
+ Menu, ViewMenu, UnCheck, %v_Lang002%
+ GoSub, RowCheck
return
ShowActIdent:
-ShowActIdent := !ShowActIdent
-If (ShowActIdent)
- Menu, ViewMenu, Check, %v_Lang003%
-Else
- Menu, ViewMenu, UnCheck, %v_Lang003%
-GoSub, RowCheck
+ ShowActIdent := !ShowActIdent
+ If (ShowActIdent)
+ Menu, ViewMenu, Check, %v_Lang003%
+ Else
+ Menu, ViewMenu, UnCheck, %v_Lang003%
+ GoSub, RowCheck
return
ShowLoopCounter:
-bID := 11
-GoSub, ShowHideBandOn
-If (ShowBand11)
- Menu, ViewMenu, Check, %v_Lang008%
-Else
- Menu, ViewMenu, UnCheck, %v_Lang008%
+ bID := 11
+ GoSub, ShowHideBandOn
+ If (ShowBand11)
+ Menu, ViewMenu, Check, %v_Lang008%
+ Else
+ Menu, ViewMenu, UnCheck, %v_Lang008%
return
ShowSearchBar:
-bID := 6
-GoSub, ShowHideBandOn
-If (ShowBand6)
- Menu, ViewMenu, Check, %v_Lang009%
-Else
- Menu, ViewMenu, UnCheck, %v_Lang009%
+ bID := 6
+ GoSub, ShowHideBandOn
+ If (ShowBand6)
+ Menu, ViewMenu, Check, %v_Lang009%
+ Else
+ Menu, ViewMenu, UnCheck, %v_Lang009%
return
ShowHideBand:
-bID := RBIndexTB[A_ThisMenuItemPos]
+ bID := RBIndexTB[A_ThisMenuItemPos]
ShowHideBandOn:
-tBand := RbMain.IDToIndex(bID), ShowBand%bID% := !ShowBand%bID%
-RbMain.ShowBand(tBand, ShowBand%bID%)
-RbMain.ShowBand(RbMain.IDToIndex(1), ShowBand1)
-If (ShowBand1)
- Menu, ToolbarsMenu, Check, %v_Lang014%
-Else
- Menu, ToolbarsMenu, UnCheck, %v_Lang014%
-If (ShowBand2)
- Menu, ToolbarsMenu, Check, %v_Lang015%
-Else
- Menu, ToolbarsMenu, UnCheck, %v_Lang015%
-If (ShowBand3)
- Menu, ToolbarsMenu, Check, %v_Lang016%
-Else
- Menu, ToolbarsMenu, UnCheck, %v_Lang016%
-If (ShowBand4)
- Menu, ToolbarsMenu, Check, %v_Lang017%
-Else
- Menu, ToolbarsMenu, UnCheck, %v_Lang017%
-If (ShowBand5)
- Menu, ToolbarsMenu, Check, %v_Lang018%
-Else
- Menu, ToolbarsMenu, UnCheck, %v_Lang018%
+ tBand := RbMain.IDToIndex(bID), ShowBand%bID% := !ShowBand%bID%
+ RbMain.ShowBand(tBand, ShowBand%bID%)
+ RbMain.ShowBand(RbMain.IDToIndex(1), ShowBand1)
+ If (ShowBand1)
+ Menu, ToolbarsMenu, Check, %v_Lang014%
+ Else
+ Menu, ToolbarsMenu, UnCheck, %v_Lang014%
+ If (ShowBand2)
+ Menu, ToolbarsMenu, Check, %v_Lang015%
+ Else
+ Menu, ToolbarsMenu, UnCheck, %v_Lang015%
+ If (ShowBand3)
+ Menu, ToolbarsMenu, Check, %v_Lang016%
+ Else
+ Menu, ToolbarsMenu, UnCheck, %v_Lang016%
+ If (ShowBand4)
+ Menu, ToolbarsMenu, Check, %v_Lang017%
+ Else
+ Menu, ToolbarsMenu, UnCheck, %v_Lang017%
+ If (ShowBand5)
+ Menu, ToolbarsMenu, Check, %v_Lang018%
+ Else
+ Menu, ToolbarsMenu, UnCheck, %v_Lang018%
return
ShowHideBandHK:
-bID := RBIndexHK[A_ThisMenuItemPos]
-tBand := RbMain.IDToIndex(bID), ShowBand%bID% := !ShowBand%bID%
-RbMain.ShowBand(tBand, ShowBand%bID%)
-If (ShowBand7)
- Menu, HotkeyMenu, Check, %v_Lang020%
-Else
- Menu, HotkeyMenu, UnCheck, %v_Lang020%
-If (ShowBand8)
- Menu, HotkeyMenu, Check, %v_Lang021%
-Else
- Menu, HotkeyMenu, UnCheck, %v_Lang021%
-If (ShowBand9)
- Menu, HotkeyMenu, Check, %v_Lang022%
-Else
- Menu, HotkeyMenu, UnCheck, %v_Lang022%
-If (ShowBand10)
- Menu, HotkeyMenu, Check, %v_Lang023%
-Else
- Menu, HotkeyMenu, UnCheck, %v_Lang023%
+ bID := RBIndexHK[A_ThisMenuItemPos]
+ tBand := RbMain.IDToIndex(bID), ShowBand%bID% := !ShowBand%bID%
+ RbMain.ShowBand(tBand, ShowBand%bID%)
+ If (ShowBand7)
+ Menu, HotkeyMenu, Check, %v_Lang020%
+ Else
+ Menu, HotkeyMenu, UnCheck, %v_Lang020%
+ If (ShowBand8)
+ Menu, HotkeyMenu, Check, %v_Lang021%
+ Else
+ Menu, HotkeyMenu, UnCheck, %v_Lang021%
+ If (ShowBand9)
+ Menu, HotkeyMenu, Check, %v_Lang022%
+ Else
+ Menu, HotkeyMenu, UnCheck, %v_Lang022%
+ If (ShowBand10)
+ Menu, HotkeyMenu, Check, %v_Lang023%
+ Else
+ Menu, HotkeyMenu, UnCheck, %v_Lang023%
return
;##### Playback: #####
f_AutoKey:
-If (CheckDuplicateLabels())
-{
- MsgBox, 16, %d_Lang007%, %d_Lang050%
- StopIt := 1
- return
-}
-Loop, %TabCount%
-{
- If (("" o_AutoKey[A_Index] "" = "" A_ThisHotkey "") || ("" LTrim(o_AutoKey[A_Index], "*~$") "" = "" LTrim(A_ThisHotkey, "*~$") ""))
+ If (CheckDuplicateLabels())
{
- aHK_On := [A_Index]
- break
+ MsgBox, 16, %d_Lang007%, %d_Lang050%
+ StopIt := 1
+ return
}
-}
-StopIt := 0
+ Loop, %TabCount%
+ {
+ If (("" o_AutoKey[A_Index] "" = "" A_ThisHotkey "") || ("" LTrim(o_AutoKey[A_Index], "*~$") "" = "" LTrim(A_ThisHotkey, "*~$") ""))
+ {
+ aHK_On := [A_Index]
+ break
+ }
+ }
+ StopIt := 0
f_RunMacro:
-If (InStr(CopyMenuLabels[aHK_On[1]], "()"))
- return
-If (CheckDuplicateLabels())
-{
- MsgBox, 16, %d_Lang007%, %d_Lang050%
- StopIt := 1
- return
-}
-If (aHK_On := Playback(aHK_On*))
- Goto, f_RunMacro
-If (CloseAfterPlay)
-{
- IL_Destroy(hIL_Icons), IL_Destroy(hIL_IconsHi)
- FileDelete, %SettingsFolder%\~ActiveProject.pmc
- Loop, %A_Temp%\PMC_*.ahk
- FileDelete, %A_LoopFileFullPath%
- ExitApp
-}
-If (OnFinishCode > 1)
- GoSub, OnFinishAction
+ If (InStr(CopyMenuLabels[aHK_On[1]], "()"))
+ return
+ If (CheckDuplicateLabels())
+ {
+ MsgBox, 16, %d_Lang007%, %d_Lang050%
+ StopIt := 1
+ return
+ }
+ If (aHK_On := Playback(aHK_On*))
+ Goto, f_RunMacro
+ If (CloseAfterPlay)
+ {
+ IL_Destroy(hIL_Icons), IL_Destroy(hIL_IconsHi)
+ FileDelete, %SettingsFolder%\~ActiveProject.pmc
+ Loop, %A_Temp%\PMC_*.ahk
+ FileDelete, %A_LoopFileFullPath%
+ ExitApp
+ }
+ If (OnFinishCode > 1)
+ GoSub, OnFinishAction
return
f_ManKey:
-Loop, %TabCount%
- If (o_ManKey[A_Index] = A_ThisHotkey)
- mHK_On := [A_Index, 0, A_Index]
+ Loop, %TabCount%
+ If (o_ManKey[A_Index] = A_ThisHotkey)
+ mHK_On := [A_Index, 0, A_Index]
f_RunMan:
-If (InStr(CopyMenuLabels[mHK_On], "()"))
- return
-StopIt := 0
-If (mHK_On := Playback(mHK_On*))
- Goto, f_RunMan
+ If (InStr(CopyMenuLabels[mHK_On], "()"))
+ return
+ StopIt := 0
+ If (mHK_On := Playback(mHK_On*))
+ Goto, f_RunMan
return
f_AbortKey:
-Gui, chMacro:Default
-StopIt := 1, PlayOSOn := 0
-Pause, Off
-If (Record)
-{
- GoSub, RecStop
- GoSub, b_Start
-}
-GoSub, RowCheck
-Try Menu, Tray, Icon, %DefaultIcon%, 1
-Menu, Tray, Tip, Pulovers's Macro Creator
-tbOSC.ModifyButtonInfo(1, "Image", 48)
-Tooltip
+ Gui, chMacro:Default
+ StopIt := 1, PlayOSOn := 0
+ Pause, Off
+ If (Record)
+ {
+ GoSub, RecStop
+ GoSub, b_Start
+ }
+ GoSub, RowCheck
+ Try Menu, Tray, Icon, %DefaultIcon%, 1
+ Menu, Tray, Tip, Pulovers's Macro Creator
+ tbOSC.ModifyButtonInfo(1, "Image", 48)
+ Tooltip
return
NoKey:
return
EscNoKey:
-StopIt := 1
+ StopIt := 1
return
PauseKey:
-Gui, 1:Submit, NoHide
+ Gui, 1:Submit, NoHide
return
f_PauseKey:
-If ((!CurrentRange) && (!Record))
- return
-If (ToggleIcon() && (!Record))
- tbOSC.ModifyButtonInfo(1, "Image", 55)
-Else
- tbOSC.ModifyButtonInfo(1, "Image", 48)
-IsPauseCheck := !A_IsPaused
-Pause,, 1
+ If ((!CurrentRange) && (!Record))
+ return
+ If (ToggleIcon() && (!Record))
+ tbOSC.ModifyButtonInfo(1, "Image", 55)
+ Else
+ tbOSC.ModifyButtonInfo(1, "Image", 48)
+ IsPauseCheck := !A_IsPaused
+ Pause,, 1
return
FastKeyToggle:
-SlowKeyOn := 0, FastKeyOn := !FastKeyOn
-If (ShowStep)
- TrayTip, %AppName%, % (FastKeyOn) ? t_Lang036 " " SpeedUp "x" : t_Lang035 " 1x"
-TB_Edit(TbOSC, "SlowKeyToggle", SlowKeyOn), TB_Edit(TbOSC, "FastKeyToggle", FastKeyOn)
+ SlowKeyOn := 0, FastKeyOn := !FastKeyOn
+ If (ShowStep)
+ TrayTip, %AppName%, % (FastKeyOn) ? t_Lang036 " " SpeedUp "x" : t_Lang035 " 1x"
+ TB_Edit(TbOSC, "SlowKeyToggle", SlowKeyOn), TB_Edit(TbOSC, "FastKeyToggle", FastKeyOn)
return
SlowKeyToggle:
-FastKeyOn := 0, SlowKeyOn := !SlowKeyOn
-If (ShowStep)
- TrayTip, %AppName%, % (SlowKeyOn) ? t_Lang037 " " SpeedDn "x" : t_Lang035 " 1x"
-TB_Edit(TbOSC, "SlowKeyToggle", SlowKeyOn), TB_Edit(TbOSC, "FastKeyToggle", FastKeyOn)
+ FastKeyOn := 0, SlowKeyOn := !SlowKeyOn
+ If (ShowStep)
+ TrayTip, %AppName%, % (SlowKeyOn) ? t_Lang037 " " SpeedDn "x" : t_Lang035 " 1x"
+ TB_Edit(TbOSC, "SlowKeyToggle", SlowKeyOn), TB_Edit(TbOSC, "FastKeyToggle", FastKeyOn)
return
CheckHkOn:
-TB_Edit(TbSettings, "CheckHkOn", KeepHkOn := !KeepHkOn)
-If (KeepHkOn = 1)
-{
- GoSub, KeepHkOn
- Menu, Tray, Check, %w_Lang014%
- Menu, OptionsMenu, Check, %o_Lang005%
-}
-Else
-{
- GoSub, ResetHotkeys
- Menu, Tray, Uncheck, %w_Lang014%
- Menu, OptionsMenu, Uncheck, %o_Lang005%
- Traytip
-}
+ TB_Edit(TbSettings, "CheckHkOn", KeepHkOn := !KeepHkOn)
+ If (KeepHkOn = 1)
+ {
+ GoSub, KeepHkOn
+ Menu, Tray, Check, %w_Lang014%
+ Menu, OptionsMenu, Check, %o_Lang005%
+ }
+ Else
+ {
+ GoSub, ResetHotkeys
+ Menu, Tray, Uncheck, %w_Lang014%
+ Menu, OptionsMenu, Uncheck, %o_Lang005%
+ Traytip
+ }
return
KeepHkOn:
-If (A_Gui > 2)
- return
-If (KeepHkOn)
-{
- GoSub, SaveData
- ActivateHotkeys(1, 1, 1, 1, 1)
-}
+ If (A_Gui > 2)
+ return
+ If (KeepHkOn)
+ {
+ GoSub, SaveData
+ ActivateHotkeys(1, 1, 1, 1, 1)
+ }
return
ResetHotkeys:
-ActivateHotkeys(0, 0, 0, 0, 0)
-Menu, Tray, Tip, %AppName%
+ ActivateHotkeys(0, 0, 0, 0, 0)
+ Menu, Tray, Tip, %AppName%
return
ActivateHotkeys:
-Loop, %TabCount%
- If (InStr(CopyMenuLabels[A_Index], "()"))
- o_AutoKey[A_Index] := ""
-If (CheckDuplicates(AbortKey, o_ManKey, o_AutoKey*))
-{
- ActiveKeys := "Error"
- If (ShowStep)
- Traytip, %AppName%, %d_Lang032%,,3
- return
-}
-ActiveKeys := ActivateHotkeys(0, 1, 1, 1, 1)
-If ((ActiveKeys > 0) && (ShowStep))
- Traytip, %AppName%, % ActiveKeys " " d_Lang025 ((IfDirectContext != "None") ? "`n[" RegExReplace(t_Lang009, ".*", "$u0") "]" : ""),,1
-Menu, Tray, Tip, %AppName%`n%ActiveKeys% %d_Lang025%
+ Loop, %TabCount%
+ If (InStr(CopyMenuLabels[A_Index], "()"))
+ o_AutoKey[A_Index] := ""
+ If (CheckDuplicates(AbortKey, o_ManKey, o_AutoKey*))
+ {
+ ActiveKeys := "Error"
+ If (ShowStep)
+ Traytip, %AppName%, %d_Lang032%,,3
+ return
+ }
+ ActiveKeys := ActivateHotkeys(0, 1, 1, 1, 1)
+ If ((ActiveKeys > 0) && (ShowStep))
+ Traytip, %AppName%, % ActiveKeys " " d_Lang025 ((IfDirectContext != "None") ? "`n[" RegExReplace(t_Lang009, ".*", "$u0") "]" : ""),,1
+ Menu, Tray, Tip, %AppName%`n%ActiveKeys% %d_Lang025%
return
h_Del:
-Gui, chMacro:Default
-Gui, chMacro:ListView, InputList%A_List%
-RowSelection := LV_GetCount("Selected")
-If (RowSelection > 0)
- GoSub, Remove
+ Gui, chMacro:Default
+ Gui, chMacro:ListView, InputList%A_List%
+ RowSelection := LV_GetCount("Selected")
+ If (RowSelection > 0)
+ GoSub, Remove
return
ClearPars:
-Par0 := ""
-Loop, 12
-{
- Par%A_Index% := ""
- Det%A_Index% := ""
-}
+ Par0 := ""
+ Loop, 12
+ {
+ Par%A_Index% := ""
+ Det%A_Index% := ""
+ }
return
ListVars:
@@ -14740,13 +14735,19 @@ return
ShowHideTB:
ShowHide:
-If (WinExist("ahk_id" PMCWinID))
-{
- If (A_ThisLabel = "ShowHideTB")
+ If (WinExist("ahk_id" PMCWinID))
{
- WinGet, WinState, MinMax, ahk_id %PMCWinID%
- If (WinState = -1)
- WinActivate
+ If (A_ThisLabel = "ShowHideTB")
+ {
+ WinGet, WinState, MinMax, ahk_id %PMCWinID%
+ If (WinState = -1)
+ WinActivate
+ Else
+ {
+ Menu, Tray, Rename, %y_Lang001%, %y_Lang002%
+ Gui, 1:Show, Hide
+ }
+ }
Else
{
Menu, Tray, Rename, %y_Lang001%, %y_Lang002%
@@ -14755,75 +14756,69 @@ If (WinExist("ahk_id" PMCWinID))
}
Else
{
- Menu, Tray, Rename, %y_Lang001%, %y_Lang002%
- Gui, 1:Show, Hide
+ Menu, Tray, Rename, %y_Lang002%, %y_Lang001%
+ Gui, 1:Show,, % (CurrentFileName ? CurrentFileName " - " : "") AppName " v" CurrentVersion
+ Gosub, GuiSize
}
-}
-Else
-{
- Menu, Tray, Rename, %y_Lang002%, %y_Lang001%
- Gui, 1:Show,, % (CurrentFileName ? CurrentFileName " - " : "") AppName " v" CurrentVersion
- Gosub, GuiSize
-}
return
OnFinishAction:
-If (OnFinishCode = 2)
-{
- IL_Destroy(hIL_Icons), IL_Destroy(hIL_IconsHi)
- FileDelete, %SettingsFolder%\~ActiveProject.pmc
- Loop, %A_Temp%\PMC_*.ahk
- FileDelete, %A_LoopFileFullPath%
- ExitApp
-}
-If (OnFinishCode = 3)
- Shutdown, 1
-If (OnFinishCode = 4)
- Shutdown, 5
-If (OnFinishCode = 5)
- Shutdown, 2
-If (OnFinishCode = 6)
- Shutdown, 0
-If (OnFinishCode = 7)
-{
- DllCall("PowrProf\SetSuspendState", "int", 1, "int", 0, "int", 0)
- return
-}
-If (OnFinishCode = 8)
-{
- DllCall("PowrProf\SetSuspendState", "int", 0, "int", 0, "int", 0)
- return
-}
-If (OnFinishCode = 9)
-{
- DllCall("LockWorkStation")
- return
-}
+ If (OnFinishCode = 2)
+ {
+ IL_Destroy(hIL_Icons), IL_Destroy(hIL_IconsHi)
+ FileDelete, %SettingsFolder%\~ActiveProject.pmc
+ Loop, %A_Temp%\PMC_*.ahk
+ FileDelete, %A_LoopFileFullPath%
+ ExitApp
+ }
+ If (OnFinishCode = 3)
+ Shutdown, 1
+ If (OnFinishCode = 4)
+ Shutdown, 5
+ If (OnFinishCode = 5)
+ Shutdown, 2
+ If (OnFinishCode = 6)
+ Shutdown, 0
+ If (OnFinishCode = 7)
+ {
+ DllCall("PowrProf\SetSuspendState", "int", 1, "int", 0, "int", 0)
+ return
+ }
+ If (OnFinishCode = 8)
+ {
+ DllCall("PowrProf\SetSuspendState", "int", 0, "int", 0, "int", 0)
+ return
+ }
+ If (OnFinishCode = 9)
+ {
+ DllCall("LockWorkStation")
+ return
+ }
ExitApp
GuiClose:
-If (!CloseAction)
-{
- Gui, 1:+Disabled
- Gui, 35:-SysMenu hwndCloseSel +owner1
- Gui, 35:Color, FFFFFF
- Gui, 35:Add, Pic, y+20 Icon24 W48 H48, %ResDllPath%
- Gui, 35:Add, Text, -Wrap R1 yp x+10, %t_Lang148%:
- Gui, 35:Add, Radio, -Wrap Section Checked y+20 W140 vCloseApp R1, %t_Lang149%
- Gui, 35:Add, Radio, -Wrap yp x+10 W140 vMinToTray R1, %t_Lang150%
- Gui, 35:Add, Text, -Wrap xs R1 cGray, %d_Lang080%
- Gui, 35:Add, Button, -Wrap Section Default xs y+10 W90 H23 gTipClose2, %c_Lang020%
- Gui, 35:Show,, %AppName%
- WinWaitClose, ahk_id %CloseSel%
- Gui, 35:Submit, NoHide
- CloseAction := MinToTray ? "Minimize" : "Close"
- Gui, 1:-Disabled
-}
-If (CloseAction = "Minimize")
-{
- GoSub, ShowHide
- return
-}
+ If (!CloseAction)
+ {
+ Gui, 1:+Disabled
+ Gui, 35:-SysMenu hwndCloseSel +owner1
+ Gui, 35:Color, FFFFFF
+ Gui, 35:Add, Pic, y+20 Icon24 W48 H48, %ResDllPath%
+ Gui, 35:Add, Text, -Wrap R1 yp x+10, %t_Lang148%:
+ Gui, 35:Add, Radio, -Wrap Section Checked y+20 W140 vCloseApp R1, %t_Lang149%
+ Gui, 35:Add, Radio, -Wrap yp x+10 W140 vMinToTray R1, %t_Lang150%
+ Gui, 35:Add, Text, -Wrap xs R1 cGray, %d_Lang080%
+ Gui, 35:Add, Button, -Wrap Section Default xs y+10 W90 H23 gTipClose2, %c_Lang020%
+ Gui, 35:Show,, %AppName%
+ WinWaitClose, ahk_id %CloseSel%
+ Gui, 35:Submit, NoHide
+ CloseAction := MinToTray ? "Minimize" : "Close"
+ Gui, 1:-Disabled
+ }
+ If (CloseAction = "Minimize")
+ {
+ GoSub, ShowHide
+ return
+ }
Exit:
Gui, 1:+OwnDialogs
Gui, 1:Submit, NoHide
@@ -14902,208 +14897,208 @@ return
;##### Default Settings: #####
LoadSettings:
-If (!KeepDefKeys)
- AutoKey := "F3|F4|F5|F6|F7", ManKey := ""
-AbortKey := "F8"
-PauseKey := "F12"
-RecKey := "F9"
-RecNewKey := "F10"
-RelKey := "CapsLock"
-DelayG := 0
-OnScCtrl := 1
-ShowStep := 1
-HideMainWin := 0
-DontShowAdm := 0
-DontShowPb := 0
-DontShowRec := 0
-DontShowEdt := 0
-ConfirmDelete := 1
-IfDirectContext := "None"
-IfDirectWindow := ""
-KeepHkOn := 0
-Mouse := 1
-Moves := 1
-TimedI := 1
-Strokes := 1
-CaptKDn := 0
-MScroll := 1
-WClass := 1
-WTitle := 1
-MDelay := 0
-DelayM := 10
-DelayW := 333
-MaxHistory := 100
-TDelay := 10
-ToggleC := 0
-RecKeybdCtrl := 0
-RecMouseCtrl := 0
-CoordMouse := "Window"
-TitleMatch := 2
-TitleSpeed := "Fast"
-HiddenWin := 0
-HiddenText := 1
-KeyMode := "Input"
-KeyDelay := -1
-MouseDelay := -1
-ControlDelay := 1
-FastKey := "Insert"
-SlowKey := "Pause"
-ClearNewList := 0
-SpeedUp := 2
-SpeedDn := 2
-HideErrors := 0
-MouseReturn := 0
-ShowProgBar := 1
-ShowBarOnStart := 0
-AutoHideBar := 0
-RandomSleeps := 0
-RandPercent := 50
-DrawButton := "RButton"
-OnRelease := 1
-OnEnter := 0
-LineW := 2
-ScreenDir := SettingsFolder "\MacroCreator\Screenshots"
-GetWinTitle := "1,0,0,0,0"
-DefaultMacro := ""
-StdLibFile := ""
-Ex_AbortKey := 0
-Ex_PauseKey := 0
-Ex_SM := 1
-SM := "Input"
-Ex_SI := 1
-SI := "Force"
-Ex_ST := 1
-Ex_SP := 0
-Ex_CM := 1
-Ex_DH := 0
-Ex_DT := 0
-Ex_AF := 1
-Ex_HK := 0
-Ex_PT := 0
-Ex_NT := 0
-Ex_WN := 0
-Ex_SC := 1
-SC := 1
-Ex_SW := 1
-SW := 0
-Ex_SK := 1
-SK := -1
-Ex_MD := 1
-MD := -1
-Ex_SB := 1
-SB := -1
-Ex_MT := 0
-MT := 2
-Ex_IN := 1
-Ex_UV := 1
-Ex_Speed := 0
-ComCr := 1
-ComAc := 0
-Send_Loop := 0
-TabIndent := 1
-IndentWith := "Space"
-ConvertBreaks := 1
-ShowGroupNames := 0
-TextWrap := 0
-MacroFontSize := 8
-PrevFontSize := 8
-CommentUnchecked := 1
-IncPmc := 0
-Exe_Exp := 0
-TbNoTheme := 0
-AutoBackup := 1
-MultInst := 0
-EvalDefault := 1
-CloseAction := ""
-ShowLoopIfMark := 1
-ShowActIdent := 1
-SearchAreaColor := 0xFF0000
-LoopLVColor := 0xFFFF80
-IfLVColor := 0x0080FF
-OSCPos := "X0 Y0"
-OSTrans := 255
-OSCaption := 0
-AutoRefresh := 1
-AutoSelectLine := 1
-CustomColors := 0
-BarInfo := 1
-OnFinishCode := 1
-sciPrev.SetWrapMode(0x0)
-sciPrevF.SetWrapMode(0x0)
-TB_Edit(tbPrev, "TextWrap", 0)
-TB_Edit(tbPrevF, "TextWrap", 0)
-TB_Edit(tbPrev, "TabIndent", 1)
-TB_Edit(tbPrevF, "TabIndent", 1)
-TB_Edit(tbPrev, "ConvertBreaks", 1)
-TB_Edit(tbPrevF, "ConvertBreaks", 1)
-TB_Edit(tbPrev, "CommentUnchecked", 1)
-TB_Edit(tbPrevF, "CommentUnchecked", 1)
-
-SplitPath, A_AhkPath,, AhkDir
-ProgramsFolder := (A_PtrSize = 8) ? ProgramFiles " (x86)" : ProgramFiles
-If (FileExist(AhkDir "\SciTE\SciTE.exe"))
- DefaultEditor := AhkDir "\SciTE\SciTE.exe"
-Else If (FileExist(ProgramsFolder "\Notepad++\notepad++.exe"))
- DefaultEditor := ProgramsFolder "\Notepad++\notepad++.exe"
-Else If (FileExist(ProgramFiles "\Sublime Text 2\sublime_text.exe"))
- DefaultEditor := ProgramFiles "\Sublime Text 2\sublime_text.exe"
-Else If (FileExist(ProgramsFolder "\Notepad2\Notepad2.exe"))
- DefaultEditor := ProgramsFolder "\Notepad2\Notepad2.exe"
-Else
- DefaultEditor := "notepad.exe"
-WinSet, Transparent, %OSTrans%, ahk_id %PMCOSC%
-GuiControl, 28:, OSTrans, 255
-Gui, 28:-Caption
-If (WinExist("ahk_id " PMCOSC))
-{
- OSCPos := StrSplit(OSCPos, " ")
- OSCPos[1] := (SubStr(OSCPos[1], 2) > A_ScreenWidth || SubStr(OSCPos[1], 2) < 400) ? "X0" : OSCPos[1]
- OSCPos[2] := (SubStr(OSCPos[2], 2) > A_ScreenHeight || SubStr(OSCPos[2], 2) < 25) ? "Y0" : OSCPos[1]
- OSCPos := OSCPos[1] " " OSCPos[2]
- Gui, 28:Show, % OSCPos (ShowProgBar ? "H40" : "H30") " W415 NoActivate", %AppName%
-}
-GuiControl, 1:, CoordTip, CoordMode: %CoordMouse%
-GuiControl, 1:, TModeTip, TitleMatchMode: %TitleMatch%
-GuiControl, 1:, TSendModeTip, SendMode: %KeyMode%
-GuiControl, 1:, THotkeyTip, % "Hotkey: " o_AutoKey[A_List]
-GuiControl, 1:, ContextTip, Global #If: %IfDirectContext%
-GuiControl, 1:, AbortKey, %AbortKey%
-GuiControl, 1:, PauseKey, %PauseKey%
-GuiControl, 1:, DelayG, 0
-GoSub, %UserLayout%Layout
-GoSub, CheckMenuItems
-GoSub, DefaultMod
-GoSub, ObjCreate
-GoSub, LoadData
-TB_Edit(tbPrev, "PrevRefreshButton", AutoRefresh)
-TB_Edit(tbPrevF, "PrevRefreshButton", AutoRefresh)
-TB_Edit(tbPrev, "GoToLine", AutoSelectLine)
-TB_Edit(tbPrevF, "GoToLine", AutoSelectLine)
-GoSub, PrevRefresh
-GoSub, MacroFont
-GoSub, PrevFont
+ If (!KeepDefKeys)
+ AutoKey := "F3|F4|F5|F6|F7", ManKey := ""
+ AbortKey := "F8"
+ PauseKey := "F12"
+ RecKey := "F9"
+ RecNewKey := "F10"
+ RelKey := "CapsLock"
+ DelayG := 0
+ OnScCtrl := 1
+ ShowStep := 1
+ HideMainWin := 0
+ DontShowAdm := 0
+ DontShowPb := 0
+ DontShowRec := 0
+ DontShowEdt := 0
+ ConfirmDelete := 1
+ IfDirectContext := "None"
+ IfDirectWindow := ""
+ KeepHkOn := 0
+ Mouse := 1
+ Moves := 1
+ TimedI := 1
+ Strokes := 1
+ CaptKDn := 0
+ MScroll := 1
+ WClass := 1
+ WTitle := 1
+ MDelay := 0
+ DelayM := 10
+ DelayW := 333
+ MaxHistory := 100
+ TDelay := 10
+ ToggleC := 0
+ RecKeybdCtrl := 0
+ RecMouseCtrl := 0
+ CoordMouse := "Window"
+ TitleMatch := 2
+ TitleSpeed := "Fast"
+ HiddenWin := 0
+ HiddenText := 1
+ KeyMode := "Input"
+ KeyDelay := -1
+ MouseDelay := -1
+ ControlDelay := 1
+ FastKey := "Insert"
+ SlowKey := "Pause"
+ ClearNewList := 0
+ SpeedUp := 2
+ SpeedDn := 2
+ HideErrors := 0
+ MouseReturn := 0
+ ShowProgBar := 1
+ ShowBarOnStart := 0
+ AutoHideBar := 0
+ RandomSleeps := 0
+ RandPercent := 50
+ DrawButton := "RButton"
+ OnRelease := 1
+ OnEnter := 0
+ LineW := 2
+ ScreenDir := SettingsFolder "\MacroCreator\Screenshots"
+ GetWinTitle := "1,0,0,0,0"
+ DefaultMacro := ""
+ StdLibFile := ""
+ Ex_AbortKey := 0
+ Ex_PauseKey := 0
+ Ex_SM := 1
+ SM := "Input"
+ Ex_SI := 1
+ SI := "Force"
+ Ex_ST := 1
+ Ex_SP := 0
+ Ex_CM := 1
+ Ex_DH := 0
+ Ex_DT := 0
+ Ex_AF := 1
+ Ex_HK := 0
+ Ex_PT := 0
+ Ex_NT := 0
+ Ex_WN := 0
+ Ex_SC := 1
+ SC := 1
+ Ex_SW := 1
+ SW := 0
+ Ex_SK := 1
+ SK := -1
+ Ex_MD := 1
+ MD := -1
+ Ex_SB := 1
+ SB := -1
+ Ex_MT := 0
+ MT := 2
+ Ex_IN := 1
+ Ex_UV := 1
+ Ex_Speed := 0
+ ComCr := 1
+ ComAc := 0
+ Send_Loop := 0
+ TabIndent := 1
+ IndentWith := "Space"
+ ConvertBreaks := 1
+ ShowGroupNames := 0
+ TextWrap := 0
+ MacroFontSize := 8
+ PrevFontSize := 8
+ CommentUnchecked := 1
+ IncPmc := 0
+ Exe_Exp := 0
+ TbNoTheme := 0
+ AutoBackup := 1
+ MultInst := 0
+ EvalDefault := 1
+ CloseAction := ""
+ ShowLoopIfMark := 1
+ ShowActIdent := 1
+ SearchAreaColor := 0xFF0000
+ LoopLVColor := 0xFFFF80
+ IfLVColor := 0x0080FF
+ OSCPos := "X0 Y0"
+ OSTrans := 255
+ OSCaption := 0
+ AutoRefresh := 1
+ AutoSelectLine := 1
+ CustomColors := 0
+ BarInfo := 1
+ OnFinishCode := 1
+ sciPrev.SetWrapMode(0x0)
+ sciPrevF.SetWrapMode(0x0)
+ TB_Edit(tbPrev, "TextWrap", 0)
+ TB_Edit(tbPrevF, "TextWrap", 0)
+ TB_Edit(tbPrev, "TabIndent", 1)
+ TB_Edit(tbPrevF, "TabIndent", 1)
+ TB_Edit(tbPrev, "ConvertBreaks", 1)
+ TB_Edit(tbPrevF, "ConvertBreaks", 1)
+ TB_Edit(tbPrev, "CommentUnchecked", 1)
+ TB_Edit(tbPrevF, "CommentUnchecked", 1)
+
+ SplitPath, A_AhkPath,, AhkDir
+ ProgramsFolder := (A_PtrSize = 8) ? ProgramFiles " (x86)" : ProgramFiles
+ If (FileExist(AhkDir "\SciTE\SciTE.exe"))
+ DefaultEditor := AhkDir "\SciTE\SciTE.exe"
+ Else If (FileExist(ProgramsFolder "\Notepad++\notepad++.exe"))
+ DefaultEditor := ProgramsFolder "\Notepad++\notepad++.exe"
+ Else If (FileExist(ProgramFiles "\Sublime Text 2\sublime_text.exe"))
+ DefaultEditor := ProgramFiles "\Sublime Text 2\sublime_text.exe"
+ Else If (FileExist(ProgramsFolder "\Notepad2\Notepad2.exe"))
+ DefaultEditor := ProgramsFolder "\Notepad2\Notepad2.exe"
+ Else
+ DefaultEditor := "notepad.exe"
+ WinSet, Transparent, %OSTrans%, ahk_id %PMCOSC%
+ GuiControl, 28:, OSTrans, 255
+ Gui, 28:-Caption
+ If (WinExist("ahk_id " PMCOSC))
+ {
+ OSCPos := StrSplit(OSCPos, " ")
+ OSCPos[1] := (SubStr(OSCPos[1], 2) > A_ScreenWidth || SubStr(OSCPos[1], 2) < 400) ? "X0" : OSCPos[1]
+ OSCPos[2] := (SubStr(OSCPos[2], 2) > A_ScreenHeight || SubStr(OSCPos[2], 2) < 25) ? "Y0" : OSCPos[1]
+ OSCPos := OSCPos[1] " " OSCPos[2]
+ Gui, 28:Show, % OSCPos (ShowProgBar ? "H40" : "H30") " W415 NoActivate", %AppName%
+ }
+ GuiControl, 1:, CoordTip, CoordMode: %CoordMouse%
+ GuiControl, 1:, TModeTip, TitleMatchMode: %TitleMatch%
+ GuiControl, 1:, TSendModeTip, SendMode: %KeyMode%
+ GuiControl, 1:, THotkeyTip, % "Hotkey: " o_AutoKey[A_List]
+ GuiControl, 1:, ContextTip, Global #If: %IfDirectContext%
+ GuiControl, 1:, AbortKey, %AbortKey%
+ GuiControl, 1:, PauseKey, %PauseKey%
+ GuiControl, 1:, DelayG, 0
+ GoSub, %UserLayout%Layout
+ GoSub, CheckMenuItems
+ GoSub, DefaultMod
+ GoSub, ObjCreate
+ GoSub, LoadData
+ TB_Edit(tbPrev, "PrevRefreshButton", AutoRefresh)
+ TB_Edit(tbPrevF, "PrevRefreshButton", AutoRefresh)
+ TB_Edit(tbPrev, "GoToLine", AutoSelectLine)
+ TB_Edit(tbPrevF, "GoToLine", AutoSelectLine)
+ GoSub, PrevRefresh
+ GoSub, MacroFont
+ GoSub, PrevFont
SetColOrder:
-ColOrder := "1,2,3,4,5,6,7,8,9,10,11"
-Loop, %TabCount%
- LVOrder_Set(11, ColOrder, ListID%A_Index%)
+ ColOrder := "1,2,3,4,5,6,7,8,9,10,11"
+ Loop, %TabCount%
+ LVOrder_Set(11, ColOrder, ListID%A_Index%)
SetColSizes:
-WinGet, WinState, MinMax, ahk_id %PMCWinID%
-ColSizes := WinState ? "70,185,335,60,60,100,150,225,85,50,60" : "70,130,190,50,40,85,95,95,60,40,50"
-Loop, Parse, ColSizes, `,
- Col_%A_Index% := A_LoopField
-Gui, chMacro:Default
-Loop, %TabCount%
-{
- Gui, chMacro:ListView, InputList%A_Index%
- Loop, 10
- LV_ModifyCol(A_Index, Col_%A_Index%)
-}
-Gui, chMacro:ListView, InputList%A_List%
-GoSub, SetFinishButton
+ WinGet, WinState, MinMax, ahk_id %PMCWinID%
+ ColSizes := WinState ? "70,185,335,60,60,100,150,225,85,50,60" : "70,130,190,50,40,85,95,95,60,40,50"
+ Loop, Parse, ColSizes, `,
+ Col_%A_Index% := A_LoopField
+ Gui, chMacro:Default
+ Loop, %TabCount%
+ {
+ Gui, chMacro:ListView, InputList%A_Index%
+ Loop, 10
+ LV_ModifyCol(A_Index, Col_%A_Index%)
+ }
+ Gui, chMacro:ListView, InputList%A_List%
+ GoSub, SetFinishButton
return
DefaultMod:
-VirtualKeys := "
+ VirtualKeys := "
(Join
{LControl}{RControl}{LAlt}{RAlt}{LShift}{RShift}{LWin}{RWin}
{AppsKey}{F1}{F2}{F3}{F4}{F5}{F6}{F7}{F8}{F9}{F10}{F11}{F12}
@@ -15122,96 +15117,96 @@ VirtualKeys := "
return
DefaultHotkeys:
-If (KeepDefKeys = 1)
- AutoKey := DefAutoKey, ManKey := DefManKey
-Else
- AutoKey := "F3|F4|F5|F6|F7", ManKey := ""
-o_AutoKey := Object(), o_ManKey := Object()
-GoSub, ObjParse
-GoSub, SetNoJoy
-GoSub, LoadData
-GoSub, b_Start
+ If (KeepDefKeys = 1)
+ AutoKey := DefAutoKey, ManKey := DefManKey
+ Else
+ AutoKey := "F3|F4|F5|F6|F7", ManKey := ""
+ o_AutoKey := Object(), o_ManKey := Object()
+ GoSub, ObjParse
+ GoSub, SetNoJoy
+ GoSub, LoadData
+ GoSub, b_Start
return
ObjCreate:
-o_AutoKey := Object()
-o_ManKey := Object()
-o_TimesG := Object()
+ o_AutoKey := Object()
+ o_ManKey := Object()
+ o_TimesG := Object()
ObjParse:
-Loop, Parse, AutoKey, |
- o_AutoKey.Push(A_LoopField)
-Loop, Parse, ManKey, |
- o_ManKey.Push(A_LoopField)
+ Loop, Parse, AutoKey, |
+ o_AutoKey.Push(A_LoopField)
+ Loop, Parse, ManKey, |
+ o_ManKey.Push(A_LoopField)
return
SetBasicLayout:
SetDefaultLayout:
SetBestFitLayout:
-If (A_ThisLabel = "SetBasicLayout")
- UserLayout := "Basic"
-Else If (A_ThisLabel = "SetBestFitLayout")
- UserLayout := "BestFit"
-Else
- UserLayout := "Default"
-GoSub, %UserLayout%Layout
+ If (A_ThisLabel = "SetBasicLayout")
+ UserLayout := "Basic"
+ Else If (A_ThisLabel = "SetBestFitLayout")
+ UserLayout := "BestFit"
+ Else
+ UserLayout := "Default"
+ GoSub, %UserLayout%Layout
return
SetSmallIcons:
SetLargeIcons:
-Gui, 1:+OwnDialogs
-IconSize := (A_ThisLabel = "SetSmallIcons") ? "Small" : "Large"
-MsgBox, 64, %AppName%, % d_Lang119 "`n`n" d_Lang120 "`n" StrReplace(m_Lang007 " > " v_Lang013, "&")
+ Gui, 1:+OwnDialogs
+ IconSize := (A_ThisLabel = "SetSmallIcons") ? "Small" : "Large"
+ MsgBox, 64, %AppName%, % d_Lang119 "`n`n" d_Lang120 "`n" StrReplace(m_Lang007 " > " v_Lang013, "&")
return
DefaultLayout:
-Loop, % RbMain.GetBandCount()
- ShowBand%A_Index% := 1
-TbFile.Reset(), TB_IdealSize(TbFile, TbFile_ID)
-TbRecPlay.Reset(), TB_IdealSize(TbRecPlay, TbRecPlay_ID)
-TbCommand.Reset(), TB_IdealSize(TbCommand, TbCommand_ID)
-TbEdit.Reset(), TB_IdealSize(TbEdit, TbEdit_ID)
-TbSettings.Reset(), TB_IdealSize(TbSettings, TbSettings_ID)
-TB_Edit(TbFile, "Preview", ShowPrev)
-TB_Edit(TbSettings, "HideMainWin", HideMainWin)
-TB_Edit(TbSettings, "OnScCtrl", OnScCtrl)
-TB_Edit(TbSettings, "CheckHkOn", KeepHkOn)
-TB_Edit(TbSettings, "SetWin", 0)
-TB_Edit(TbSettings, "SetJoyButton", 0)
-TB_Edit(TbOSC, "ProgBarToggle", ShowProgBar)
-Loop, 3
- RbMain.SetLayout(Default_Layout)
-Menu, ToolbarsMenu, Check, %v_Lang014%
-Menu, ToolbarsMenu, Check, %v_Lang015%
-Menu, ToolbarsMenu, Check, %v_Lang016%
-Menu, ToolbarsMenu, Check, %v_Lang017%
-Menu, ToolbarsMenu, Check, %v_Lang018%
-Menu, ViewMenu, Check, %v_Lang008%
-Menu, ViewMenu, Check, %v_Lang009%
-Menu, HotkeyMenu, Check, %v_Lang020%
-Menu, HotkeyMenu, Check, %v_Lang021%
-Menu, HotkeyMenu, Check, %v_Lang022%
-Menu, HotkeyMenu, Check, %v_Lang023%
-GoSub, TabSel
-SavePrompt(SavePrompt, A_ThisLabel)
+ Loop, % RbMain.GetBandCount()
+ ShowBand%A_Index% := 1
+ TbFile.Reset(), TB_IdealSize(TbFile, TbFile_ID)
+ TbRecPlay.Reset(), TB_IdealSize(TbRecPlay, TbRecPlay_ID)
+ TbCommand.Reset(), TB_IdealSize(TbCommand, TbCommand_ID)
+ TbEdit.Reset(), TB_IdealSize(TbEdit, TbEdit_ID)
+ TbSettings.Reset(), TB_IdealSize(TbSettings, TbSettings_ID)
+ TB_Edit(TbFile, "Preview", ShowPrev)
+ TB_Edit(TbSettings, "HideMainWin", HideMainWin)
+ TB_Edit(TbSettings, "OnScCtrl", OnScCtrl)
+ TB_Edit(TbSettings, "CheckHkOn", KeepHkOn)
+ TB_Edit(TbSettings, "SetWin", 0)
+ TB_Edit(TbSettings, "SetJoyButton", 0)
+ TB_Edit(TbOSC, "ProgBarToggle", ShowProgBar)
+ Loop, 3
+ RbMain.SetLayout(Default_Layout)
+ Menu, ToolbarsMenu, Check, %v_Lang014%
+ Menu, ToolbarsMenu, Check, %v_Lang015%
+ Menu, ToolbarsMenu, Check, %v_Lang016%
+ Menu, ToolbarsMenu, Check, %v_Lang017%
+ Menu, ToolbarsMenu, Check, %v_Lang018%
+ Menu, ViewMenu, Check, %v_Lang008%
+ Menu, ViewMenu, Check, %v_Lang009%
+ Menu, HotkeyMenu, Check, %v_Lang020%
+ Menu, HotkeyMenu, Check, %v_Lang021%
+ Menu, HotkeyMenu, Check, %v_Lang022%
+ Menu, HotkeyMenu, Check, %v_Lang023%
+ GoSub, TabSel
+ SavePrompt(SavePrompt, A_ThisLabel)
return
BestFitLayout:
-Loop, % RbMain.GetBandCount()
- ShowBand%A_Index% := 1
-TbFile.Reset(), TB_IdealSize(TbFile, TbFile_ID)
-TbRecPlay.Reset(), TB_IdealSize(TbRecPlay, TbRecPlay_ID)
-TbCommand.Reset(), TB_IdealSize(TbCommand, TbCommand_ID)
-TbEdit.Reset(), TB_IdealSize(TbEdit, TbEdit_ID)
-TbSettings.Reset(), TB_IdealSize(TbSettings, TbSettings_ID)
-TB_Edit(TbFile, "Preview", ShowPrev)
-TB_Edit(TbSettings, "HideMainWin", HideMainWin)
-TB_Edit(TbSettings, "OnScCtrl", OnScCtrl)
-TB_Edit(TbSettings, "CheckHkOn", KeepHkOn)
-TB_Edit(TbSettings, "SetWin", 0)
-TB_Edit(TbSettings, "SetJoyButton", 0)
-TB_Edit(TbOSC, "ProgBarToggle", ShowProgBar)
-BFLayout := "1," (TB_GetSize(TbFile) + 16) ",644|"
+ Loop, % RbMain.GetBandCount()
+ ShowBand%A_Index% := 1
+ TbFile.Reset(), TB_IdealSize(TbFile, TbFile_ID)
+ TbRecPlay.Reset(), TB_IdealSize(TbRecPlay, TbRecPlay_ID)
+ TbCommand.Reset(), TB_IdealSize(TbCommand, TbCommand_ID)
+ TbEdit.Reset(), TB_IdealSize(TbEdit, TbEdit_ID)
+ TbSettings.Reset(), TB_IdealSize(TbSettings, TbSettings_ID)
+ TB_Edit(TbFile, "Preview", ShowPrev)
+ TB_Edit(TbSettings, "HideMainWin", HideMainWin)
+ TB_Edit(TbSettings, "OnScCtrl", OnScCtrl)
+ TB_Edit(TbSettings, "CheckHkOn", KeepHkOn)
+ TB_Edit(TbSettings, "SetWin", 0)
+ TB_Edit(TbSettings, "SetJoyButton", 0)
+ TB_Edit(TbOSC, "ProgBarToggle", ShowProgBar)
+ BFLayout := "1," (TB_GetSize(TbFile) + 16) ",644|"
. "2," (TB_GetSize(TbRecPlay) + 16) ",644|"
. "5," (TB_GetSize(TbSettings) + 16) ",644|"
. "7,50,644|"
@@ -15222,205 +15217,205 @@ BFLayout := "1," (TB_GetSize(TbFile) + 16) ",644|"
. "9,60,644|"
. "10,60,644|"
. "4," (TB_GetSize(TbEdit) + 16) ",645"
-Loop, 3
- RbMain.SetLayout(BFLayout)
-Menu, ToolbarsMenu, Check, %v_Lang014%
-Menu, ToolbarsMenu, Check, %v_Lang015%
-Menu, ToolbarsMenu, Check, %v_Lang016%
-Menu, ToolbarsMenu, Check, %v_Lang017%
-Menu, ToolbarsMenu, Check, %v_Lang018%
-Menu, ViewMenu, Check, %v_Lang008%
-Menu, ViewMenu, Check, %v_Lang009%
-Menu, HotkeyMenu, Check, %v_Lang020%
-Menu, HotkeyMenu, Check, %v_Lang021%
-Menu, HotkeyMenu, Check, %v_Lang022%
-Menu, HotkeyMenu, Check, %v_Lang023%
-GoSub, TabSel
-SavePrompt(SavePrompt, A_ThisLabel)
+ Loop, 3
+ RbMain.SetLayout(BFLayout)
+ Menu, ToolbarsMenu, Check, %v_Lang014%
+ Menu, ToolbarsMenu, Check, %v_Lang015%
+ Menu, ToolbarsMenu, Check, %v_Lang016%
+ Menu, ToolbarsMenu, Check, %v_Lang017%
+ Menu, ToolbarsMenu, Check, %v_Lang018%
+ Menu, ViewMenu, Check, %v_Lang008%
+ Menu, ViewMenu, Check, %v_Lang009%
+ Menu, HotkeyMenu, Check, %v_Lang020%
+ Menu, HotkeyMenu, Check, %v_Lang021%
+ Menu, HotkeyMenu, Check, %v_Lang022%
+ Menu, HotkeyMenu, Check, %v_Lang023%
+ GoSub, TabSel
+ SavePrompt(SavePrompt, A_ThisLabel)
return
BasicLayout:
-Loop, 3
- RbMain.SetLayout(Default_Layout)
-ShowBands := "0,1,1,0,0,1,1,0,1,0,1"
-Loop, Parse, ShowBands, `,
- ShowBand%A_Index% := A_LoopField
-Loop, % RbMain.GetBandCount()
- RbMain.ShowBand(RbMain.IDToIndex(A_Index), ShowBand%A_Index%)
-RecPlayLayout := "Record=" w_Lang047 ":54(Enabled AutoSize Dropdown),, PlayStart=" w_Lang048 ":46(Enabled AutoSize Dropdown)"
-TB_Layout(TbRecPlay, RecPlayLayout, TbRecPlay_ID)
-TbCommand.Reset(), TB_IdealSize(TbCommand, TbCommand_ID)
-RbMain.SetBandWidth(TbRecPlay_ID, TB_GetSize(tbRecPlay)+16)
-Menu, ToolbarsMenu, UnCheck, %v_Lang014%
-Menu, ToolbarsMenu, Check, %v_Lang015%
-Menu, ToolbarsMenu, Check, %v_Lang016%
-Menu, ToolbarsMenu, UnCheck, %v_Lang017%
-Menu, ToolbarsMenu, UnCheck, %v_Lang018%
-Menu, ViewMenu, Check, %v_Lang008%
-Menu, ViewMenu, Check, %v_Lang009%
-Menu, HotkeyMenu, Check, %v_Lang020%
-Menu, HotkeyMenu, UnCheck, %v_Lang021%
-Menu, HotkeyMenu, Check, %v_Lang022%
-Menu, HotkeyMenu, UnCheck, %v_Lang023%
-GoSub, TabSel
-SavePrompt(SavePrompt, A_ThisLabel)
+ Loop, 3
+ RbMain.SetLayout(Default_Layout)
+ ShowBands := "0,1,1,0,0,1,1,0,1,0,1"
+ Loop, Parse, ShowBands, `,
+ ShowBand%A_Index% := A_LoopField
+ Loop, % RbMain.GetBandCount()
+ RbMain.ShowBand(RbMain.IDToIndex(A_Index), ShowBand%A_Index%)
+ RecPlayLayout := "Record=" w_Lang047 ":54(Enabled AutoSize Dropdown),, PlayStart=" w_Lang048 ":46(Enabled AutoSize Dropdown)"
+ TB_Layout(TbRecPlay, RecPlayLayout, TbRecPlay_ID)
+ TbCommand.Reset(), TB_IdealSize(TbCommand, TbCommand_ID)
+ RbMain.SetBandWidth(TbRecPlay_ID, TB_GetSize(tbRecPlay)+16)
+ Menu, ToolbarsMenu, UnCheck, %v_Lang014%
+ Menu, ToolbarsMenu, Check, %v_Lang015%
+ Menu, ToolbarsMenu, Check, %v_Lang016%
+ Menu, ToolbarsMenu, UnCheck, %v_Lang017%
+ Menu, ToolbarsMenu, UnCheck, %v_Lang018%
+ Menu, ViewMenu, Check, %v_Lang008%
+ Menu, ViewMenu, Check, %v_Lang009%
+ Menu, HotkeyMenu, Check, %v_Lang020%
+ Menu, HotkeyMenu, UnCheck, %v_Lang021%
+ Menu, HotkeyMenu, Check, %v_Lang022%
+ Menu, HotkeyMenu, UnCheck, %v_Lang023%
+ GoSub, TabSel
+ SavePrompt(SavePrompt, A_ThisLabel)
return
WriteSettings:
-IniWrite, %CurrentVersion%, %IniFilePath%, Application, Version
-IniWrite, %Lang%, %IniFilePath%, Language, Lang
-IniWrite, %LangVersion%, %IniFilePath%, Language, LangVersion
-IniWrite, %LangLastCheck%, %IniFilePath%, Language, LangLastCheck
-IniWrite, %AutoKey%, %IniFilePath%, HotKeys, AutoKey
-IniWrite, %ManKey%, %IniFilePath%, HotKeys, ManKey
-IniWrite, %AbortKey%, %IniFilePath%, HotKeys, AbortKey
-IniWrite, %PauseKey%, %IniFilePath%, HotKeys, PauseKey
-IniWrite, %RecKey%, %IniFilePath%, HotKeys, RecKey
-IniWrite, %RecNewKey%, %IniFilePath%, HotKeys, RecNewKey
-IniWrite, %RelKey%, %IniFilePath%, HotKeys, RelKey
-IniWrite, %FastKey%, %IniFilePath%, HotKeys, FastKey
-IniWrite, %SlowKey%, %IniFilePath%, HotKeys, SlowKey
-IniWrite, %ClearNewList%, %IniFilePath%, Options, ClearNewList
-IniWrite, %DelayG%, %IniFilePath%, Options, DelayG
-IniWrite, %OnScCtrl%, %IniFilePath%, Options, OnScCtrl
-IniWrite, %ShowStep%, %IniFilePath%, Options, ShowStep
-IniWrite, %HideMainWin%, %IniFilePath%, Options, HideMainWin
-IniWrite, %DontShowAdm%, %IniFilePath%, Options, DontShowAdm
-IniWrite, %DontShowPb%, %IniFilePath%, Options, DontShowPb
-IniWrite, %DontShowRec%, %IniFilePath%, Options, DontShowRec
-IniWrite, %DontShowEdt%, %IniFilePath%, Options, DontShowEdt
-IniWrite, %ConfirmDelete%, %IniFilePath%, Options, ConfirmDelete
-IniWrite, %ShowTips%, %IniFilePath%, Options, ShowTips
-IniWrite, %NextTip%, %IniFilePath%, Options, NextTip
-IniWrite, %KeepHkOn%, %IniFilePath%, Options, KeepHkOn
-IniWrite, %Mouse%, %IniFilePath%, Options, Mouse
-IniWrite, %Moves%, %IniFilePath%, Options, Moves
-IniWrite, %TimedI%, %IniFilePath%, Options, TimedI
-IniWrite, %Strokes%, %IniFilePath%, Options, Strokes
-IniWrite, %CaptKDn%, %IniFilePath%, Options, CaptKDn
-IniWrite, %MScroll%, %IniFilePath%, Options, MScroll
-IniWrite, %WClass%, %IniFilePath%, Options, WClass
-IniWrite, %WTitle%, %IniFilePath%, Options, WTitle
-IniWrite, %MDelay%, %IniFilePath%, Options, MDelay
-IniWrite, %DelayM%, %IniFilePath%, Options, DelayM
-IniWrite, %DelayW%, %IniFilePath%, Options, DelayW
-IniWrite, %MaxHistory%, %IniFilePath%, Options, MaxHistory
-IniWrite, %TDelay%, %IniFilePath%, Options, TDelay
-IniWrite, %ToggleC%, %IniFilePath%, Options, ToggleC
-IniWrite, %RecKeybdCtrl%, %IniFilePath%, Options, RecKeybdCtrl
-IniWrite, %RecMouseCtrl%, %IniFilePath%, Options, RecMouseCtrl
-IniWrite, %KeyMode%, %IniFilePath%, Options, KeyMode
-IniWrite, %KeyDelay%, %IniFilePath%, Options, KeyDelay
-IniWrite, %ControlDelay%, %IniFilePath%, Options, ControlDelay
-IniWrite, %CoordMouse%, %IniFilePath%, Options, CoordMouse
-IniWrite, %TitleMatch%, %IniFilePath%, Options, TitleMatch
-IniWrite, %TitleSpeed%, %IniFilePath%, Options, TitleSpeed
-IniWrite, %KeyMode%, %IniFilePath%, Options, KeyMode
-IniWrite, %KeyDelay%, %IniFilePath%, Options, KeyDelay
-IniWrite, %MouseDelay%, %IniFilePath%, Options, MouseDelay
-IniWrite, %ControlDelay%, %IniFilePath%, Options, ControlDelay
-IniWrite, %HiddenWin%, %IniFilePath%, Options, HiddenWin
-IniWrite, %HiddenText%, %IniFilePath%, Options, HiddenText
-IniWrite, %SpeedUp%, %IniFilePath%, Options, SpeedUp
-IniWrite, %SpeedDn%, %IniFilePath%, Options, SpeedDn
-IniWrite, %HideErrors%, %IniFilePath%, Options, HideErrors
-IniWrite, %MouseReturn%, %IniFilePath%, Options, MouseReturn
-IniWrite, %ShowProgBar%, %IniFilePath%, Options, ShowProgBar
-IniWrite, %ShowBarOnStart%, %IniFilePath%, Options, ShowBarOnStart
-IniWrite, %AutoHideBar%, %IniFilePath%, Options, AutoHideBar
-IniWrite, %RandomSleeps%, %IniFilePath%, Options, RandomSleeps
-IniWrite, %RandPercent%, %IniFilePath%, Options, RandPercent
-IniWrite, %DrawButton%, %IniFilePath%, Options, DrawButton
-IniWrite, %OnRelease%, %IniFilePath%, Options, OnRelease
-IniWrite, %OnEnter%, %IniFilePath%, Options, OnEnter
-IniWrite, %LineW%, %IniFilePath%, Options, LineW
-IniWrite, %ScreenDir%, %IniFilePath%, Options, ScreenDir
-IniWrite, %GetWinTitle%, %IniFilePath%, Options, GetWinTitle
-IniWrite, %DefaultEditor%, %IniFilePath%, Options, DefaultEditor
-IniWrite, %DefaultMacro%, %IniFilePath%, Options, DefaultMacro
-IniWrite, %StdLibFile%, %IniFilePath%, Options, StdLibFile
-IniWrite, %KeepDefKeys%, %IniFilePath%, Options, KeepDefKeys
-IniWrite, %TbNoTheme%, %IniFilePath%, Options, TbNoTheme
-IniWrite, %AutoBackup%, %IniFilePath%, Options, AutoBackup
-IniWrite, %MultInst%, %IniFilePath%, Options, MultInst
-IniWrite, %EvalDefault%, %IniFilePath%, Options, EvalDefault
-IniWrite, %CloseAction%, %IniFilePath%, Options, CloseAction
-IniWrite, %ShowLoopIfMark%, %IniFilePath%, Options, ShowLoopIfMark
-IniWrite, %ShowActIdent%, %IniFilePath%, Options, ShowActIdent
-IniWrite, %SearchAreaColor%, %IniFilePath%, Options, SearchAreaColor
-IniWrite, %LoopLVColor%, %IniFilePath%, Options, LoopLVColor
-IniWrite, %IfLVColor%, %IniFilePath%, Options, IfLVColor
-IniWrite, %VirtualKeys%, %IniFilePath%, Options, VirtualKeys
-IniWrite, %AutoUpdate%, %IniFilePath%, Options, AutoUpdate
-IniWrite, %Ex_AbortKey%, %IniFilePath%, ExportOptions, Ex_AbortKey
-IniWrite, %Ex_PauseKey%, %IniFilePath%, ExportOptions, Ex_PauseKey
-IniWrite, %Ex_SM%, %IniFilePath%, ExportOptions, Ex_SM
-IniWrite, %SM%, %IniFilePath%, ExportOptions, SM
-IniWrite, %Ex_SI%, %IniFilePath%, ExportOptions, Ex_SI
-IniWrite, %SI%, %IniFilePath%, ExportOptions, SI
-IniWrite, %Ex_ST%, %IniFilePath%, ExportOptions, Ex_ST
-IniWrite, %Ex_SP%, %IniFilePath%, ExportOptions, Ex_SP
-IniWrite, %Ex_CM%, %IniFilePath%, ExportOptions, Ex_CM
-IniWrite, %Ex_DH%, %IniFilePath%, ExportOptions, Ex_DH
-IniWrite, %Ex_DT%, %IniFilePath%, ExportOptions, Ex_DT
-IniWrite, %Ex_AF%, %IniFilePath%, ExportOptions, Ex_AF
-IniWrite, %Ex_HK%, %IniFilePath%, ExportOptions, Ex_HK
-IniWrite, %Ex_PT%, %IniFilePath%, ExportOptions, Ex_PT
-IniWrite, %Ex_NT%, %IniFilePath%, ExportOptions, Ex_NT
-IniWrite, %Ex_WN%, %IniFilePath%, ExportOptions, Ex_WN
-IniWrite, %Ex_SC%, %IniFilePath%, ExportOptions, Ex_SC
-IniWrite, %SC%, %IniFilePath%, ExportOptions, SC
-IniWrite, %Ex_SW%, %IniFilePath%, ExportOptions, Ex_SW
-IniWrite, %SW%, %IniFilePath%, ExportOptions, SW
-IniWrite, %Ex_SK%, %IniFilePath%, ExportOptions, Ex_SK
-IniWrite, %SK%, %IniFilePath%, ExportOptions, SK
-IniWrite, %Ex_MD%, %IniFilePath%, ExportOptions, Ex_MD
-IniWrite, %MD%, %IniFilePath%, ExportOptions, MD
-IniWrite, %Ex_SB%, %IniFilePath%, ExportOptions, Ex_SB
-IniWrite, %SB%, %IniFilePath%, ExportOptions, SB
-IniWrite, %Ex_MT%, %IniFilePath%, ExportOptions, Ex_MT
-IniWrite, %MT%, %IniFilePath%, ExportOptions, MT
-IniWrite, %Ex_IN%, %IniFilePath%, ExportOptions, Ex_IN
-IniWrite, %Ex_UV%, %IniFilePath%, ExportOptions, Ex_UV
-IniWrite, %Ex_Speed%, %IniFilePath%, ExportOptions, Ex_Speed
-IniWrite, %ComCr%, %IniFilePath%, ExportOptions, ComCr
-IniWrite, %ComAc%, %IniFilePath%, ExportOptions, ComAc
-IniWrite, %Send_Loop%, %IniFilePath%, ExportOptions, Send_Loop
-IniWrite, %TabIndent%, %IniFilePath%, ExportOptions, TabIndent
-IniWrite, %IndentWith%, %IniFilePath%, ExportOptions, IndentWith
-IniWrite, %ConvertBreaks%, %IniFilePath%, ExportOptions, ConvertBreaks
-IniWrite, %ShowGroupNames%, %IniFilePath%, ExportOptions, ShowGroupNames
-IniWrite, %IncPmc%, %IniFilePath%, ExportOptions, IncPmc
-IniWrite, %Exe_Exp%, %IniFilePath%, ExportOptions, Exe_Exp
-IniWrite, %MainWinSize%, %IniFilePath%, WindowOptions, MainWinSize
-IniWrite, %MainWinPos%, %IniFilePath%, WindowOptions, MainWinPos
-IniWrite, %WinState%, %IniFilePath%, WindowOptions, WinState
-IniWrite, %ColSizes%, %IniFilePath%, WindowOptions, ColSizes
-IniWrite, %ColOrder%, %IniFilePath%, WindowOptions, ColOrder
-IniWrite, %PrevWinSize%, %IniFilePath%, WindowOptions, PrevWinSize
-IniWrite, %ShowPrev%, %IniFilePath%, WindowOptions, ShowPrev
-IniWrite, %TextWrap%, %IniFilePath%, WindowOptions, TextWrap
-IniWrite, %MacroFontSize%, %IniFilePath%, WindowOptions, MacroFontSize
-IniWrite, %PrevFontSize%, %IniFilePath%, WindowOptions, PrevFontSize
-IniWrite, %CommentUnchecked%, %IniFilePath%, WindowOptions, CommentUnchecked
-IniWrite, %CustomColors%, %IniFilePath%, WindowOptions, CustomColors
-IniWrite, %OSCPos%, %IniFilePath%, WindowOptions, OSCPos
-IniWrite, %OSTrans%, %IniFilePath%, WindowOptions, OSTrans
-IniWrite, %OSCaption%, %IniFilePath%, WindowOptions, OSCaption
-IniWrite, %AutoRefresh%, %IniFilePath%, WindowOptions, AutoRefresh
-IniWrite, %AutoSelectLine%, %IniFilePath%, WindowOptions, AutoSelectLine
-IniWrite, %ShowGroups%, %IniFilePath%, WindowOptions, ShowGroups
-IniWrite, %BarInfo%, %IniFilePath%, WindowOptions, BarInfo
-IniWrite, %IconSize%, %IniFilePath%, ToolbarOptions, IconSize
-IniWrite, %UserLayout%, %IniFilePath%, ToolbarOptions, UserLayout
-IniWrite, %MainLayout%, %IniFilePath%, ToolbarOptions, MainLayout
-IniWrite, %MacroLayout%, %IniFilePath%, ToolbarOptions, MacroLayout
-IniWrite, %FileLayout%, %IniFilePath%, ToolbarOptions, FileLayout
-IniWrite, %RecPlayLayout%, %IniFilePath%, ToolbarOptions, RecPlayLayout
-IniWrite, %SettingsLayout%, %IniFilePath%, ToolbarOptions, SettingsLayout
-IniWrite, %CommandLayout%, %IniFilePath%, ToolbarOptions, CommandLayout
-IniWrite, %EditLayout%, %IniFilePath%, ToolbarOptions, EditLayout
-IniWrite, %ShowBands%, %IniFilePath%, ToolbarOptions, ShowBands
+ IniWrite, %CurrentVersion%, %IniFilePath%, Application, Version
+ IniWrite, %Lang%, %IniFilePath%, Language, Lang
+ IniWrite, %LangVersion%, %IniFilePath%, Language, LangVersion
+ IniWrite, %LangLastCheck%, %IniFilePath%, Language, LangLastCheck
+ IniWrite, %AutoKey%, %IniFilePath%, HotKeys, AutoKey
+ IniWrite, %ManKey%, %IniFilePath%, HotKeys, ManKey
+ IniWrite, %AbortKey%, %IniFilePath%, HotKeys, AbortKey
+ IniWrite, %PauseKey%, %IniFilePath%, HotKeys, PauseKey
+ IniWrite, %RecKey%, %IniFilePath%, HotKeys, RecKey
+ IniWrite, %RecNewKey%, %IniFilePath%, HotKeys, RecNewKey
+ IniWrite, %RelKey%, %IniFilePath%, HotKeys, RelKey
+ IniWrite, %FastKey%, %IniFilePath%, HotKeys, FastKey
+ IniWrite, %SlowKey%, %IniFilePath%, HotKeys, SlowKey
+ IniWrite, %ClearNewList%, %IniFilePath%, Options, ClearNewList
+ IniWrite, %DelayG%, %IniFilePath%, Options, DelayG
+ IniWrite, %OnScCtrl%, %IniFilePath%, Options, OnScCtrl
+ IniWrite, %ShowStep%, %IniFilePath%, Options, ShowStep
+ IniWrite, %HideMainWin%, %IniFilePath%, Options, HideMainWin
+ IniWrite, %DontShowAdm%, %IniFilePath%, Options, DontShowAdm
+ IniWrite, %DontShowPb%, %IniFilePath%, Options, DontShowPb
+ IniWrite, %DontShowRec%, %IniFilePath%, Options, DontShowRec
+ IniWrite, %DontShowEdt%, %IniFilePath%, Options, DontShowEdt
+ IniWrite, %ConfirmDelete%, %IniFilePath%, Options, ConfirmDelete
+ IniWrite, %ShowTips%, %IniFilePath%, Options, ShowTips
+ IniWrite, %NextTip%, %IniFilePath%, Options, NextTip
+ IniWrite, %KeepHkOn%, %IniFilePath%, Options, KeepHkOn
+ IniWrite, %Mouse%, %IniFilePath%, Options, Mouse
+ IniWrite, %Moves%, %IniFilePath%, Options, Moves
+ IniWrite, %TimedI%, %IniFilePath%, Options, TimedI
+ IniWrite, %Strokes%, %IniFilePath%, Options, Strokes
+ IniWrite, %CaptKDn%, %IniFilePath%, Options, CaptKDn
+ IniWrite, %MScroll%, %IniFilePath%, Options, MScroll
+ IniWrite, %WClass%, %IniFilePath%, Options, WClass
+ IniWrite, %WTitle%, %IniFilePath%, Options, WTitle
+ IniWrite, %MDelay%, %IniFilePath%, Options, MDelay
+ IniWrite, %DelayM%, %IniFilePath%, Options, DelayM
+ IniWrite, %DelayW%, %IniFilePath%, Options, DelayW
+ IniWrite, %MaxHistory%, %IniFilePath%, Options, MaxHistory
+ IniWrite, %TDelay%, %IniFilePath%, Options, TDelay
+ IniWrite, %ToggleC%, %IniFilePath%, Options, ToggleC
+ IniWrite, %RecKeybdCtrl%, %IniFilePath%, Options, RecKeybdCtrl
+ IniWrite, %RecMouseCtrl%, %IniFilePath%, Options, RecMouseCtrl
+ IniWrite, %KeyMode%, %IniFilePath%, Options, KeyMode
+ IniWrite, %KeyDelay%, %IniFilePath%, Options, KeyDelay
+ IniWrite, %ControlDelay%, %IniFilePath%, Options, ControlDelay
+ IniWrite, %CoordMouse%, %IniFilePath%, Options, CoordMouse
+ IniWrite, %TitleMatch%, %IniFilePath%, Options, TitleMatch
+ IniWrite, %TitleSpeed%, %IniFilePath%, Options, TitleSpeed
+ IniWrite, %KeyMode%, %IniFilePath%, Options, KeyMode
+ IniWrite, %KeyDelay%, %IniFilePath%, Options, KeyDelay
+ IniWrite, %MouseDelay%, %IniFilePath%, Options, MouseDelay
+ IniWrite, %ControlDelay%, %IniFilePath%, Options, ControlDelay
+ IniWrite, %HiddenWin%, %IniFilePath%, Options, HiddenWin
+ IniWrite, %HiddenText%, %IniFilePath%, Options, HiddenText
+ IniWrite, %SpeedUp%, %IniFilePath%, Options, SpeedUp
+ IniWrite, %SpeedDn%, %IniFilePath%, Options, SpeedDn
+ IniWrite, %HideErrors%, %IniFilePath%, Options, HideErrors
+ IniWrite, %MouseReturn%, %IniFilePath%, Options, MouseReturn
+ IniWrite, %ShowProgBar%, %IniFilePath%, Options, ShowProgBar
+ IniWrite, %ShowBarOnStart%, %IniFilePath%, Options, ShowBarOnStart
+ IniWrite, %AutoHideBar%, %IniFilePath%, Options, AutoHideBar
+ IniWrite, %RandomSleeps%, %IniFilePath%, Options, RandomSleeps
+ IniWrite, %RandPercent%, %IniFilePath%, Options, RandPercent
+ IniWrite, %DrawButton%, %IniFilePath%, Options, DrawButton
+ IniWrite, %OnRelease%, %IniFilePath%, Options, OnRelease
+ IniWrite, %OnEnter%, %IniFilePath%, Options, OnEnter
+ IniWrite, %LineW%, %IniFilePath%, Options, LineW
+ IniWrite, %ScreenDir%, %IniFilePath%, Options, ScreenDir
+ IniWrite, %GetWinTitle%, %IniFilePath%, Options, GetWinTitle
+ IniWrite, %DefaultEditor%, %IniFilePath%, Options, DefaultEditor
+ IniWrite, %DefaultMacro%, %IniFilePath%, Options, DefaultMacro
+ IniWrite, %StdLibFile%, %IniFilePath%, Options, StdLibFile
+ IniWrite, %KeepDefKeys%, %IniFilePath%, Options, KeepDefKeys
+ IniWrite, %TbNoTheme%, %IniFilePath%, Options, TbNoTheme
+ IniWrite, %AutoBackup%, %IniFilePath%, Options, AutoBackup
+ IniWrite, %MultInst%, %IniFilePath%, Options, MultInst
+ IniWrite, %EvalDefault%, %IniFilePath%, Options, EvalDefault
+ IniWrite, %CloseAction%, %IniFilePath%, Options, CloseAction
+ IniWrite, %ShowLoopIfMark%, %IniFilePath%, Options, ShowLoopIfMark
+ IniWrite, %ShowActIdent%, %IniFilePath%, Options, ShowActIdent
+ IniWrite, %SearchAreaColor%, %IniFilePath%, Options, SearchAreaColor
+ IniWrite, %LoopLVColor%, %IniFilePath%, Options, LoopLVColor
+ IniWrite, %IfLVColor%, %IniFilePath%, Options, IfLVColor
+ IniWrite, %VirtualKeys%, %IniFilePath%, Options, VirtualKeys
+ IniWrite, %AutoUpdate%, %IniFilePath%, Options, AutoUpdate
+ IniWrite, %Ex_AbortKey%, %IniFilePath%, ExportOptions, Ex_AbortKey
+ IniWrite, %Ex_PauseKey%, %IniFilePath%, ExportOptions, Ex_PauseKey
+ IniWrite, %Ex_SM%, %IniFilePath%, ExportOptions, Ex_SM
+ IniWrite, %SM%, %IniFilePath%, ExportOptions, SM
+ IniWrite, %Ex_SI%, %IniFilePath%, ExportOptions, Ex_SI
+ IniWrite, %SI%, %IniFilePath%, ExportOptions, SI
+ IniWrite, %Ex_ST%, %IniFilePath%, ExportOptions, Ex_ST
+ IniWrite, %Ex_SP%, %IniFilePath%, ExportOptions, Ex_SP
+ IniWrite, %Ex_CM%, %IniFilePath%, ExportOptions, Ex_CM
+ IniWrite, %Ex_DH%, %IniFilePath%, ExportOptions, Ex_DH
+ IniWrite, %Ex_DT%, %IniFilePath%, ExportOptions, Ex_DT
+ IniWrite, %Ex_AF%, %IniFilePath%, ExportOptions, Ex_AF
+ IniWrite, %Ex_HK%, %IniFilePath%, ExportOptions, Ex_HK
+ IniWrite, %Ex_PT%, %IniFilePath%, ExportOptions, Ex_PT
+ IniWrite, %Ex_NT%, %IniFilePath%, ExportOptions, Ex_NT
+ IniWrite, %Ex_WN%, %IniFilePath%, ExportOptions, Ex_WN
+ IniWrite, %Ex_SC%, %IniFilePath%, ExportOptions, Ex_SC
+ IniWrite, %SC%, %IniFilePath%, ExportOptions, SC
+ IniWrite, %Ex_SW%, %IniFilePath%, ExportOptions, Ex_SW
+ IniWrite, %SW%, %IniFilePath%, ExportOptions, SW
+ IniWrite, %Ex_SK%, %IniFilePath%, ExportOptions, Ex_SK
+ IniWrite, %SK%, %IniFilePath%, ExportOptions, SK
+ IniWrite, %Ex_MD%, %IniFilePath%, ExportOptions, Ex_MD
+ IniWrite, %MD%, %IniFilePath%, ExportOptions, MD
+ IniWrite, %Ex_SB%, %IniFilePath%, ExportOptions, Ex_SB
+ IniWrite, %SB%, %IniFilePath%, ExportOptions, SB
+ IniWrite, %Ex_MT%, %IniFilePath%, ExportOptions, Ex_MT
+ IniWrite, %MT%, %IniFilePath%, ExportOptions, MT
+ IniWrite, %Ex_IN%, %IniFilePath%, ExportOptions, Ex_IN
+ IniWrite, %Ex_UV%, %IniFilePath%, ExportOptions, Ex_UV
+ IniWrite, %Ex_Speed%, %IniFilePath%, ExportOptions, Ex_Speed
+ IniWrite, %ComCr%, %IniFilePath%, ExportOptions, ComCr
+ IniWrite, %ComAc%, %IniFilePath%, ExportOptions, ComAc
+ IniWrite, %Send_Loop%, %IniFilePath%, ExportOptions, Send_Loop
+ IniWrite, %TabIndent%, %IniFilePath%, ExportOptions, TabIndent
+ IniWrite, %IndentWith%, %IniFilePath%, ExportOptions, IndentWith
+ IniWrite, %ConvertBreaks%, %IniFilePath%, ExportOptions, ConvertBreaks
+ IniWrite, %ShowGroupNames%, %IniFilePath%, ExportOptions, ShowGroupNames
+ IniWrite, %IncPmc%, %IniFilePath%, ExportOptions, IncPmc
+ IniWrite, %Exe_Exp%, %IniFilePath%, ExportOptions, Exe_Exp
+ IniWrite, %MainWinSize%, %IniFilePath%, WindowOptions, MainWinSize
+ IniWrite, %MainWinPos%, %IniFilePath%, WindowOptions, MainWinPos
+ IniWrite, %WinState%, %IniFilePath%, WindowOptions, WinState
+ IniWrite, %ColSizes%, %IniFilePath%, WindowOptions, ColSizes
+ IniWrite, %ColOrder%, %IniFilePath%, WindowOptions, ColOrder
+ IniWrite, %PrevWinSize%, %IniFilePath%, WindowOptions, PrevWinSize
+ IniWrite, %ShowPrev%, %IniFilePath%, WindowOptions, ShowPrev
+ IniWrite, %TextWrap%, %IniFilePath%, WindowOptions, TextWrap
+ IniWrite, %MacroFontSize%, %IniFilePath%, WindowOptions, MacroFontSize
+ IniWrite, %PrevFontSize%, %IniFilePath%, WindowOptions, PrevFontSize
+ IniWrite, %CommentUnchecked%, %IniFilePath%, WindowOptions, CommentUnchecked
+ IniWrite, %CustomColors%, %IniFilePath%, WindowOptions, CustomColors
+ IniWrite, %OSCPos%, %IniFilePath%, WindowOptions, OSCPos
+ IniWrite, %OSTrans%, %IniFilePath%, WindowOptions, OSTrans
+ IniWrite, %OSCaption%, %IniFilePath%, WindowOptions, OSCaption
+ IniWrite, %AutoRefresh%, %IniFilePath%, WindowOptions, AutoRefresh
+ IniWrite, %AutoSelectLine%, %IniFilePath%, WindowOptions, AutoSelectLine
+ IniWrite, %ShowGroups%, %IniFilePath%, WindowOptions, ShowGroups
+ IniWrite, %BarInfo%, %IniFilePath%, WindowOptions, BarInfo
+ IniWrite, %IconSize%, %IniFilePath%, ToolbarOptions, IconSize
+ IniWrite, %UserLayout%, %IniFilePath%, ToolbarOptions, UserLayout
+ IniWrite, %MainLayout%, %IniFilePath%, ToolbarOptions, MainLayout
+ IniWrite, %MacroLayout%, %IniFilePath%, ToolbarOptions, MacroLayout
+ IniWrite, %FileLayout%, %IniFilePath%, ToolbarOptions, FileLayout
+ IniWrite, %RecPlayLayout%, %IniFilePath%, ToolbarOptions, RecPlayLayout
+ IniWrite, %SettingsLayout%, %IniFilePath%, ToolbarOptions, SettingsLayout
+ IniWrite, %CommandLayout%, %IniFilePath%, ToolbarOptions, CommandLayout
+ IniWrite, %EditLayout%, %IniFilePath%, ToolbarOptions, EditLayout
+ IniWrite, %ShowBands%, %IniFilePath%, ToolbarOptions, ShowBands
return
;###########################################################
@@ -15429,34 +15424,34 @@ return
;###########################################################
#If (ctrl := HotkeyCtrlHasFocus())
-*AppsKey::
-*BackSpace::
-*Delete::
-*Enter::
-*NumpadEnter::
-*Escape::
-*Pause::
-*PrintScreen::
-*Space::
-*Tab::
-modifier := ""
-If (GuiA != 15) && (GuiA != 3) && HotkeyCtrlHasFocus()!="ManKey"
-{
- If (GetKeyState("Shift","P"))
- modifier .= "+"
- If (GetKeyState("Ctrl","P"))
- modifier .= "^"
- If (GetKeyState("Alt","P"))
- modifier .= "!"
-}
-Gui, %GuiA%:Submit, NoHide
-If (A_ThisHotkey == "*BackSpace" && %ctrl% && !modifier)
- GuiControl, %GuiA%:,%ctrl%
-Else
- GuiControl, %GuiA%:,%ctrl%, % modifier SubStr(A_ThisHotkey,2)
-SavePrompt(true, A_ThisHotkey)
-GoSub, SaveData
-return
+ *AppsKey::
+ *BackSpace::
+ *Delete::
+ *Enter::
+ *NumpadEnter::
+ *Escape::
+ *Pause::
+ *PrintScreen::
+ *Space::
+ *Tab::
+ modifier := ""
+ If (GuiA != 15) && (GuiA != 3) && HotkeyCtrlHasFocus()!="ManKey"
+ {
+ If (GetKeyState("Shift","P"))
+ modifier .= "+"
+ If (GetKeyState("Ctrl","P"))
+ modifier .= "^"
+ If (GetKeyState("Alt","P"))
+ modifier .= "!"
+ }
+ Gui, %GuiA%:Submit, NoHide
+ If (A_ThisHotkey == "*BackSpace" && %ctrl% && !modifier)
+ GuiControl, %GuiA%:,%ctrl%
+ Else
+ GuiControl, %GuiA%:,%ctrl%, % modifier SubStr(A_ThisHotkey,2)
+ SavePrompt(true, A_ThisHotkey)
+ GoSub, SaveData
+ return
#If
;##################################################
@@ -15464,1242 +15459,1242 @@ return
;##### Subroutines: Checks #####
b_Start:
-Gui, 1:Submit, NoHide
-GoSub, b_Enable
-If (!Record)
- HistCheck()
+ Gui, 1:Submit, NoHide
+ GoSub, b_Enable
+ If (!Record)
+ HistCheck()
return
b_Enable:
-GuiControl, 28:+Range1-%TabCount%, OSHK
-GuiControl, 28:, OSHK, %A_List%
-Gui, 1:+OwnDialogs
-Gui, chMacro:Default
-Gui, chMacro:ListView, InputList%A_List%
-ListCount%A_List% := LV_GetCount(), ListCount := 0
-DebugCheckError := false
-Loop, %TabCount%
-{
- ListCount += ListCount%A_Index%
- If (DebugCheckLoop[A_Index])
- {
- DebugCheckError := true
- MsgBox, 16, %d_Lang007%, % d_Lang085 A_Index " (" CopyMenuLabels[A_Index] ")"
- }
- Else If (DebugCheckIf[A_Index])
- {
- DebugCheckError := true
- MsgBox, 16, %d_Lang007%, % d_Lang086 A_Index " (" CopyMenuLabels[A_Index] ")"
- }
- If (DebugDefault[A_Index])
+ GuiControl, 28:+Range1-%TabCount%, OSHK
+ GuiControl, 28:, OSHK, %A_List%
+ Gui, 1:+OwnDialogs
+ Gui, chMacro:Default
+ Gui, chMacro:ListView, InputList%A_List%
+ ListCount%A_List% := LV_GetCount(), ListCount := 0
+ DebugCheckError := false
+ Loop, %TabCount%
{
- DebugCheckError := true
- MsgBox, 16, %d_Lang007%, % CopyMenuLabels[A_Index] "`n`n" d_Lang098
+ ListCount += ListCount%A_Index%
+ If (DebugCheckLoop[A_Index])
+ {
+ DebugCheckError := true
+ MsgBox, 16, %d_Lang007%, % d_Lang085 A_Index " (" CopyMenuLabels[A_Index] ")"
+ }
+ Else If (DebugCheckIf[A_Index])
+ {
+ DebugCheckError := true
+ MsgBox, 16, %d_Lang007%, % d_Lang086 A_Index " (" CopyMenuLabels[A_Index] ")"
+ }
+ If (DebugDefault[A_Index])
+ {
+ DebugCheckError := true
+ MsgBox, 16, %d_Lang007%, % CopyMenuLabels[A_Index] "`n`n" d_Lang098
+ }
}
-}
-Gui, chMacro:Default
-Gui, chMacro:ListView, InputList%A_List%
-GuiControl, chMacro:+Redraw, InputList%A_List%
-If (ShowGroups)
- GoSub, EnableGroups
+ Gui, chMacro:Default
+ Gui, chMacro:ListView, InputList%A_List%
+ GuiControl, chMacro:+Redraw, InputList%A_List%
+ If (ShowGroups)
+ GoSub, EnableGroups
return
WinCheck:
-WinGet, W_ID, ID, A
-If ((WinActive("ahk_id " PrevID)) || (W_ID = TipScrID)
-|| (W_ID = StartTipID) || (W_ID = PMCOSC))
- return
-WinGetClass, W_CLS, ahk_id %W_ID%
-If (W_CLS = "#32770")
- return
-If ((WPHKC = 1) || (WPHKC = 2))
-{
- Input
- ToolTip
- If (Record = 1)
- GoSub, RowCheck
- If (WinActive("ahk_id " PMCWinID))
+ WinGet, W_ID, ID, A
+ If ((WinActive("ahk_id " PrevID)) || (W_ID = TipScrID)
+ || (W_ID = StartTipID) || (W_ID = PMCOSC))
+ return
+ WinGetClass, W_CLS, ahk_id %W_ID%
+ If (W_CLS = "#32770")
+ return
+ If ((WPHKC = 1) || (WPHKC = 2))
{
- GuiControl, chMacro:+Redraw, InputList%A_List%
- Record := 0 ;, StopIt := 1
- Sleep, 100
- GoSub, RecStop
- ; GoSub, ResetHotkeys
+ Input
+ ToolTip
+ If (Record = 1)
+ GoSub, RowCheck
+ If (WinActive("ahk_id " PMCWinID))
+ {
+ GuiControl, chMacro:+Redraw, InputList%A_List%
+ Record := 0 ;, StopIt := 1
+ Sleep, 100
+ GoSub, RecStop
+ ; GoSub, ResetHotkeys
+ }
+ IfWinExist, ahk_id %PMCOSC%
+ Gui, 28:+AlwaysOntop
}
- IfWinExist, ahk_id %PMCOSC%
- Gui, 28:+AlwaysOntop
-}
-Else
- GoSub, KeepHkOn
-Gui, 1:Submit, NoHide
-Gui, chMacro:ListView, InputList%A_List%
+ Else
+ GoSub, KeepHkOn
+ Gui, 1:Submit, NoHide
+ Gui, chMacro:ListView, InputList%A_List%
return
WaitMenuClose:
-IfWinNotExist, ahk_class #32768
-{
- SetTimer, WaitMenuClose, Off
- SetTimer, ResumeCheck, -333
-}
+ IfWinNotExist, ahk_class #32768
+ {
+ SetTimer, WaitMenuClose, Off
+ SetTimer, ResumeCheck, -333
+ }
return
ResumeCheck:
-HaltCheck := 0
+ HaltCheck := 0
return
RowCheck:
-If (Record = 1)
- return
-Critical
-RowCheckInProgress := true
-Gui, chMacro:Default
-Gui, chMacro:ListView, InputList%A_List%
-GuiControl, chMacro:-Redraw, InputList%A_List%
-ListCount%A_List% := LV_GetCount()
-IdxLv := "", ActLv := "", IsInIf := 0, IsInLoop := 0, RowColorLoop := 0, RowColorIf := 0
-IsUserFunc := InStr(CopyMenuLabels[A_List], "()")
-BadCmd := false, BadPos := false, FuncLn := false, MustDefault := false, DebugDefault[A_List] := false
-HistData := RowCheckFunc()
-GuiControl, chMacro:+Redraw, InputList%A_List%
-DebugCheckLoop[A_List] := RowColorLoop
-DebugCheckIf[A_List] := RowColorIf
-If (BadPos)
- SetTimer, RowCheck, -100, 1
-If (BadCmd)
-{
- SetTimer, RowCheck, -100, 1
- Gui, 1:+OwnDialogs
- MsgBox, 16, %d_Lang007%, %d_Lang100%
-}
-RowCheckInProgress := false
-Critical, Off
+ If (Record = 1)
+ return
+ Critical
+ RowCheckInProgress := true
+ Gui, chMacro:Default
+ Gui, chMacro:ListView, InputList%A_List%
+ GuiControl, chMacro:-Redraw, InputList%A_List%
+ ListCount%A_List% := LV_GetCount()
+ IdxLv := "", ActLv := "", IsInIf := 0, IsInLoop := 0, RowColorLoop := 0, RowColorIf := 0
+ IsUserFunc := InStr(CopyMenuLabels[A_List], "()")
+ BadCmd := false, BadPos := false, FuncLn := false, MustDefault := false, DebugDefault[A_List] := false
+ HistData := RowCheckFunc()
+ GuiControl, chMacro:+Redraw, InputList%A_List%
+ DebugCheckLoop[A_List] := RowColorLoop
+ DebugCheckIf[A_List] := RowColorIf
+ If (BadPos)
+ SetTimer, RowCheck, -100, 1
+ If (BadCmd)
+ {
+ SetTimer, RowCheck, -100, 1
+ Gui, 1:+OwnDialogs
+ MsgBox, 16, %d_Lang007%, %d_Lang100%
+ }
+ RowCheckInProgress := false
+ Critical, Off
return
;##### Size & Position: #####
2GuiSize:
-If (A_EventInfo = 1)
- return
+ If (A_EventInfo = 1)
+ return
-GuiGetSize(GuiWidth, GuiHeight, 2)
-GuiControl, 2:Move, LVPrevF, % "W" GuiWidth "H" GuiHeight-57
+ GuiGetSize(GuiWidth, GuiHeight, 2)
+ GuiControl, 2:Move, LVPrevF, % "W" GuiWidth "H" GuiHeight-57
return
chPrevGuiSize:
-GuiGetSize(GuiWidth, GuiHeight, "chPrev")
-GuiControl, chPrev:Move, LVPrev, % "W" GuiWidth "H" GuiHeight-27
+ GuiGetSize(GuiWidth, GuiHeight, "chPrev")
+ GuiControl, chPrev:Move, LVPrev, % "W" GuiWidth "H" GuiHeight-27
return
28GuiSize:
-If (WinExist("ahk_id " PMCOSC))
- Gui, 28:Show, % (ShowProgBar ? "H40" : "H30") " W380 NoActivate", %AppName%
+ If (WinExist("ahk_id " PMCOSC))
+ Gui, 28:Show, % (ShowProgBar ? "H40" : "H30") " W380 NoActivate", %AppName%
return
chMacroGuiSize:
-GuiGetSize(GuiWidth, GuiHeight, "chMacro")
-GuiControl, chMacro:Move, InputList%A_List%, % "W" GuiWidth-15 "H" GuiHeight-25
-GuiControl, chMacro:Move, A_List, % "W" GuiWidth-40
-GuiControl, chMacro:Move, MacrosMenu, % "X" GuiWidth-29
+ GuiGetSize(GuiWidth, GuiHeight, "chMacro")
+ GuiControl, chMacro:Move, InputList%A_List%, % "W" GuiWidth-15 "H" GuiHeight-25
+ GuiControl, chMacro:Move, A_List, % "W" GuiWidth-40
+ GuiControl, chMacro:Move, MacrosMenu, % "X" GuiWidth-29
return
GuiSize:
-If (A_EventInfo = 1)
- return
-Critical
-Loop, 3
- GuiGetSize(GuiWidth, GuiHeight)
-RbMain.ShowBand(RbMain.IDToIndex(11))
-If (!ShowBand11)
- RbMain.ShowBand(RbMain.IDToIndex(11), false)
-RbMacro.ModifyBand(1, "MinHeight", (GuiHeight-MacroOffset)*(A_ScreenDPI/96))
-RbMacro.ModifyBand(2, "MinHeight", (GuiHeight-MacroOffset)*(A_ScreenDPI/96))
-GuiControl, 1:Move, cRbMacro, % "W" GuiWidth+5
-GuiControl, 1:Move, Repeat, % "y" GuiHeight-23
-GuiControl, 1:Move, Rept, % "y" GuiHeight-27
-GuiControl, 1:Move, BarInfo, % "y" GuiHeight-28
-GuiControl, 1:Move, BarEdit, % "y" GuiHeight-28
-GuiControl, 1:Move, TimesM, % "y" GuiHeight-27
-GuiControl, 1:Move, DelayT, % "y" GuiHeight-23
-GuiControl, 1:Move, Delay, % "y" GuiHeight-27
-GuiControl, 1:Move, DelayG, % "y" GuiHeight-27
-GuiControl, 1:Move, ApplyT, % "y" GuiHeight-28
-GuiControl, 1:Move, ApplyI, % "y" GuiHeight-28
-GuiControl, 1:Move, sInput, % "y" GuiHeight-27
-GuiControl, 1:Move, ApplyL, % "y" GuiHeight-28
-GuiControl, 1:Move, InsertKey, % "y" GuiHeight-28
-GuiControl, 1:Move, Separator1, % "y" GuiHeight-27
-GuiControl, 1:Move, Separator2, % "y" GuiHeight-27
-GuiControl, 1:Move, Separator3, % "y" GuiHeight-27
-GuiControl, 1:Move, Separator4, % "y" GuiHeight-27
-GuiControl, 1:Move, Separator5, % "y" GuiHeight-27
-GuiControl, 1:Move, Separator6, % "y" GuiHeight-27
-GuiControl, 1:Move, Separator7, % "y" GuiHeight-27
-GuiControl, 1:Move, Separator8, % "y" GuiHeight-27
-GuiControl, 1:MoveDraw, THotkeyTip, % "y" GuiHeight-23
-GuiControl, 1:MoveDraw, ContextTip, % "y" GuiHeight-23
-GuiControl, 1:MoveDraw, MacroContextTip, % "y" GuiHeight-23
-GuiControl, 1:MoveDraw, CoordTip, % "y" GuiHeight-23
-GuiControl, 1:MoveDraw, TModeTip, % "y" GuiHeight-23
-GuiControl, 1:MoveDraw, TSendModeTip, % "y" GuiHeight-23
-GuiControl, 1:MoveDraw, TLastMacroTip, % "y" GuiHeight-23
+ If (A_EventInfo = 1)
+ return
+ Critical
+ Loop, 3
+ GuiGetSize(GuiWidth, GuiHeight)
+ RbMain.ShowBand(RbMain.IDToIndex(11))
+ If (!ShowBand11)
+ RbMain.ShowBand(RbMain.IDToIndex(11), false)
+ RbMacro.ModifyBand(1, "MinHeight", (GuiHeight-MacroOffset)*(A_ScreenDPI/96))
+ RbMacro.ModifyBand(2, "MinHeight", (GuiHeight-MacroOffset)*(A_ScreenDPI/96))
+ GuiControl, 1:Move, cRbMacro, % "W" GuiWidth+5
+ GuiControl, 1:Move, Repeat, % "y" GuiHeight-23
+ GuiControl, 1:Move, Rept, % "y" GuiHeight-27
+ GuiControl, 1:Move, BarInfo, % "y" GuiHeight-28
+ GuiControl, 1:Move, BarEdit, % "y" GuiHeight-28
+ GuiControl, 1:Move, TimesM, % "y" GuiHeight-27
+ GuiControl, 1:Move, DelayT, % "y" GuiHeight-23
+ GuiControl, 1:Move, Delay, % "y" GuiHeight-27
+ GuiControl, 1:Move, DelayG, % "y" GuiHeight-27
+ GuiControl, 1:Move, ApplyT, % "y" GuiHeight-28
+ GuiControl, 1:Move, ApplyI, % "y" GuiHeight-28
+ GuiControl, 1:Move, sInput, % "y" GuiHeight-27
+ GuiControl, 1:Move, ApplyL, % "y" GuiHeight-28
+ GuiControl, 1:Move, InsertKey, % "y" GuiHeight-28
+ GuiControl, 1:Move, Separator1, % "y" GuiHeight-27
+ GuiControl, 1:Move, Separator2, % "y" GuiHeight-27
+ GuiControl, 1:Move, Separator3, % "y" GuiHeight-27
+ GuiControl, 1:Move, Separator4, % "y" GuiHeight-27
+ GuiControl, 1:Move, Separator5, % "y" GuiHeight-27
+ GuiControl, 1:Move, Separator6, % "y" GuiHeight-27
+ GuiControl, 1:Move, Separator7, % "y" GuiHeight-27
+ GuiControl, 1:Move, Separator8, % "y" GuiHeight-27
+ GuiControl, 1:MoveDraw, THotkeyTip, % "y" GuiHeight-23
+ GuiControl, 1:MoveDraw, ContextTip, % "y" GuiHeight-23
+ GuiControl, 1:MoveDraw, MacroContextTip, % "y" GuiHeight-23
+ GuiControl, 1:MoveDraw, CoordTip, % "y" GuiHeight-23
+ GuiControl, 1:MoveDraw, TModeTip, % "y" GuiHeight-23
+ GuiControl, 1:MoveDraw, TSendModeTip, % "y" GuiHeight-23
+ GuiControl, 1:MoveDraw, TLastMacroTip, % "y" GuiHeight-23
return
;##### MenuBar: #####
-CreateMenuBar:
-; Menus
-Menu, RecOptMenu, Add, %d_Lang019%, RecOpt
-Menu, RecOptMenu, Add
-Menu, RecOptMenu, Add, %t_Lang021%, RecOpt
-Menu, RecOptMenu, Add, %t_Lang023%, RecOpt
-Menu, RecOptMenu, Add, %t_Lang031%, RecOpt
-Menu, RecOptMenu, Add
-Menu, RecOptMenu, Add, %t_Lang024%, RecOpt
-Menu, RecOptMenu, Add, %t_Lang025%, RecOpt
-Menu, RecOptMenu, Add, %t_Lang026%, RecOpt
-Menu, RecOptMenu, Add, %t_Lang032%, RecOpt
-Menu, RecOptMenu, Add
-Menu, RecOptMenu, Add, %t_Lang027%, RecOpt
-Menu, RecOptMenu, Add, %t_Lang029%, RecOpt
-Menu, RecOptMenu, Add, %t_Lang030%, RecOpt
-
-Menu, SpeedUpMenu, Add, 2x, SpeedOpt
-Menu, SpeedUpMenu, Add, 4x, SpeedOpt
-Menu, SpeedUpMenu, Add, 8x, SpeedOpt
-Menu, SpeedUpMenu, Add, 16x, SpeedOpt
-Menu, SpeedUpMenu, Add, 32x, SpeedOpt
-Menu, SpeedUpMenu, Add, 64x, SpeedOpt
-Menu, SpeedUpMenu, Add, 128x, SpeedOpt
-Menu, SpeedUpMenu, Add, 256x, SpeedOpt
-Menu, SpeedDnMenu, Add, 2x, SpeedOpt
-Menu, SpeedDnMenu, Add, 4x, SpeedOpt
-Menu, SpeedDnMenu, Add, 8x, SpeedOpt
-Menu, SpeedDnMenu, Add, 16x, SpeedOpt
-Menu, SpeedDnMenu, Add, 32x, SpeedOpt
-Menu, SpeedDnMenu, Add, 64x, SpeedOpt
-Menu, SpeedDnMenu, Add, 128x, SpeedOpt
-Menu, SpeedDnMenu, Add, 256x, SpeedOpt
-Menu, PlayOptMenu, Add, %r_Lang007%, ResetHotkeys
-Menu, PlayOptMenu, Add
-Menu, PlayOptMenu, Add, %r_Lang008%, PlayFrom
-Menu, PlayOptMenu, Add, %r_Lang009%, PlayTo
-Menu, PlayOptMenu, Add, %r_Lang010%, PlaySel
-Menu, PlayOptMenu, Add
-Menu, PlayOptMenu, Add, %t_Lang036%, :SpeedUpMenu
-Menu, PlayOptMenu, Add, %t_Lang037%, :SpeedDnMenu
-Menu, PlayOptMenu, Add
-Menu, PlayOptMenu, Add, %t_Lang100%, PlayOpt
-Menu, PlayOptMenu, Add, %t_Lang206%, PlayOpt
-Menu, PlayOptMenu, Add, %t_Lang038%, PlayOpt
-Menu, PlayOptMenu, Add, %t_Lang085%, PlayOpt
-Menu, PlayOptMenu, Add, %t_Lang143%, PlayOpt
-Menu, PlayOptMenu, Add, %t_Lang107%, PlayOpt
-
-GoSub, UpdateRecPlayMenus
-
-Menu, FileMenu, Add, %f_Lang001%`t%_s%Ctrl+N, New
-Menu, FileMenu, Add, %f_Lang002%`t%_s%Ctrl+O, Open
-Menu, FileMenu, Add, %f_Lang003%`t%_s%Ctrl+S, Save
-Menu, FileMenu, Add, %f_Lang004%`t%_s%Ctrl+Shift+S, SaveAs
-Menu, FileMenu, Add, %f_Lang005%, :RecentMenu
-Menu, FileMenu, Add
-Menu, FileMenu, Add, %f_Lang006%`t%_s%Ctrl+E, Export
-Menu, FileMenu, Add, %f_Lang007%`t%_s%Ctrl+P, Preview
-Menu, FileMenu, Add, %f_Lang008%`t%_s%Ctrl+Shift+E, EditScript
-Menu, FileMenu, Add, %f_Lang009%`t%_s%Ctrl+Alt+T, Scheduler
-Menu, FileMenu, Add
-Menu, FileMenu, Add, %f_Lang010%`t%_s%Alt+F3, ListVars
-Menu, FileMenu, Add
-Menu, FileMenu, Add, %f_Lang011%`t%_s%Alt+F4, Exit
-
-Menu, MacroMenu, Add, %r_Lang001%`t%_s%Ctrl+R, Record
-Menu, MacroMenu, Add, %r_Lang002%, :RecOptMenu
-Menu, MacroMenu, Add
-Menu, MacroMenu, Add, %r_Lang003%`t%_s%Ctrl+Enter, PlayStart
-Menu, MacroMenu, Add, %r_Lang004%, :PlayOptMenu
-Menu, MacroMenu, Add, %r_Lang005%`t%_s%Ctrl+Shift+Enter, TestRun
-Menu, MacroMenu, Add, %r_Lang006%`t%_s%Ctrl+Shift+T, RunTimer
-Menu, MacroMenu, Add
-Menu, MacroMenu, Add, %r_Lang007%`t%_s%Ctrl+Alt+D, ResetHotkeys
-Menu, MacroMenu, Add
-Menu, MacroMenu, Add, %r_Lang008%`t%_s%Alt+1, PlayFrom
-Menu, MacroMenu, Add, %r_Lang009%`t%_s%Alt+2, PlayTo
-Menu, MacroMenu, Add, %r_Lang010%`t%_s%Alt+3, PlaySel
-Menu, MacroMenu, Add
-Menu, MacroMenu, Add, %r_Lang011%`t%_s%Ctrl+H, SetWin
-Menu, MacroMenu, Add
-Menu, MacroMenu, Add, %r_Lang012%`t%_s%Ctrl+T, TabPlus
-Menu, MacroMenu, Add, %r_Lang013%`t%_s%Ctrl+W, TabClose
-Menu, MacroMenu, Add, %r_Lang014%`t%_s%Ctrl+Shift+D, DuplicateList
-Menu, MacroMenu, Add, %r_Lang015%`t%_s%Ctrl+Shift+M, EditMacros
-Menu, MacroMenu, Add
-Menu, MacroMenu, Add, %r_Lang016%`t%_s%Ctrl+I, Import
-Menu, MacroMenu, Add, %r_Lang017%`t%_s%Ctrl+Alt+S, SaveCurrentList
-
-Menu, FuncMenu, Add, %u_Lang001%`t%_s%Ctrl+Shift+U, UserFunction
-Menu, FuncMenu, Add, %u_Lang002%`t%_s%Ctrl+Shift+P, FuncParameter
-Menu, FuncMenu, Add, %u_Lang003%`t%_s%Ctrl+Shift+N, FuncReturn
-Menu, FuncMenu, Add
-Menu, FuncMenu, Add, %u_Lang004%`t%_s%Ctrl+Shift+C, ConvertToFunc
-
-Menu, CommandMenu, Add, %i_Lang001%`t%_s%F2, Mouse
-Menu, CommandMenu, Add, %i_Lang002%`t%_s%F3, Text
-Menu, CommandMenu, Add, %i_Lang003%`t%_s%F4, ControlCmd
-Menu, CommandMenu, Add
-Menu, CommandMenu, Add, %i_Lang004%`t%_s%F5, Sleep
-Menu, CommandMenu, Add, %i_Lang005%`t%_s%Shift+F5, MsgBox
-Menu, CommandMenu, Add, %i_Lang006%`t%_s%Ctrl+F5, KeyWait
-Menu, CommandMenu, Add
-Menu, CommandMenu, Add, %i_Lang007%`t%_s%F6, Window
-Menu, CommandMenu, Add, %i_Lang008%`t%_s%F7, Image
-Menu, CommandMenu, Add, %i_Lang009%`t%_s%F8, Run
-Menu, CommandMenu, Add
-Menu, CommandMenu, Add, %i_Lang010%`t%_s%F9, ComLoop
-Menu, CommandMenu, Add, %i_Lang011%`t%_s%Shift+F9, ComGoto
-Menu, CommandMenu, Add, %i_Lang012%`t%_s%Ctrl+F9, TimedLabel
-Menu, CommandMenu, Add
-Menu, CommandMenu, Add, %i_Lang013%`t%_s%F10, IfSt
-Menu, CommandMenu, Add, %i_Lang014%`t%_s%Shift+F10, AsVar
-Menu, CommandMenu, Add, %i_Lang015%`t%_s%Ctrl+F10, AsFunc
-Menu, CommandMenu, Add
-Menu, CommandMenu, Add, %i_Lang016%`t%_s%F11, Email
-Menu, CommandMenu, Add, %i_Lang017%`t%_s%Shift+F11, DownloadFiles
-Menu, CommandMenu, Add, %i_Lang018%`t%_s%Ctrl+F11, ZipFiles
-Menu, CommandMenu, Add
-Menu, CommandMenu, Add, %i_Lang019%`t%_s%F12, IECom
-Menu, CommandMenu, Add, %i_Lang020%`t%_s%Shift+F12, ComInt
-Menu, CommandMenu, Add, %i_Lang021%`t%_s%Ctrl+F12, SendMsg
-Menu, CommandMenu, Add
-Menu, CommandMenu, Add, %i_Lang022%`t%_s%Ctrl+Shift+F, CmdFind
-
-TypesMenu := "Win`nFile`nString"
-Loop
-{
- If (!cType%A_Index%)
- break
- TypesMenu .= "`n" cType%A_Index%
-}
-Sort, TypesMenu
-Loop, Parse, TypesMenu, `n
- Menu, SelCmdMenu, Add, %A_LoopField%, SelectCmd
-
-Menu, SelectMenu, Add, %s_Lang001%`t%_s%Ctrl+A, SelectAll
-Menu, SelectMenu, Add, %s_Lang002%`t%_s%Ctrl+Shift+A, SelectNone
-Menu, SelectMenu, Add, %s_Lang003%`t%_s%Ctrl+Alt+A, InvertSel
-Menu, SelectMenu, Add
-Menu, SelectMenu, Add, %s_Lang004%`t%_s%Ctrl+Q, CheckSel
-Menu, SelectMenu, Add, %s_Lang005%`t%_s%Ctrl+Shift+Q, UnCheckSel
-Menu, SelectMenu, Add, %s_Lang006%`t%_s%Ctrl+Alt+Q, InvertCheck
-Menu, SelectMenu, Add
-Menu, SelectMenu, Add, %s_Lang007%`t%_s%Ctrl+Up, MoveSelUp
-Menu, SelectMenu, Add, %s_Lang008%`t%_s%Ctrl+Down, MoveSelDn
-Menu, SelectMenu, Add
-Menu, SelectMenu, Add, %s_Lang009%, SelType
-Menu, SelectMenu, Add, %s_Lang010%, :SelCmdMenu
-
-If (CopyMenuLabels[1] = "")
-{
- CopyMenuLabels[1] := "Macro1"
- Menu, CopyTo, Add, % CopyMenuLabels[1], CopyList, Radio
- Menu, CopyTo, Check, % CopyMenuLabels[1]
-}
-
-Menu, GroupMenu, Add, %e_Lang018%`t%_s%Ctrl+Shift+G, GroupsMode
-Menu, GroupMenu, Add
-Menu, GroupMenu, Add, %e_Lang019%`t%_s%Ctrl+Shift+Y, AddGroup
-Menu, GroupMenu, Add, %e_Lang020%`t%_s%Ctrl+Shift+R, RemoveGroup
-Menu, GroupMenu, Add, %e_Lang021%, RemoveAllGroups
-Menu, GroupMenu, Add
-Menu, GroupMenu, Add, %e_Lang022%, CollapseGroups
-Menu, GroupMenu, Add, %e_Lang023%, ExpandGroups
-
-Menu, EditMenu, Add, %m_Lang005%`t%_s%Enter, EditButton
-Menu, EditMenu, Add, %e_Lang007%`t%_s%Ctrl+X, CutRows
-Menu, EditMenu, Add, %e_Lang008%`t%_s%Ctrl+C, CopyRows
-Menu, EditMenu, Add, %e_Lang009%`t%_s%Ctrl+V, PasteRows
-Menu, EditMenu, Add, %e_Lang010%`t%_s%Delete, Remove
-Menu, EditMenu, Add
-Menu, EditMenu, Add, %e_Lang001%`t%_s%Ctrl+D, Duplicate
-Menu, EditMenu, Add, %m_Lang006%, :SelectMenu
-Menu, EditMenu, Add, %e_Lang004%, :CopyTo
-Menu, EditMenu, Add
-Menu, EditMenu, Add, %e_Lang017%, :GroupMenu
-Menu, EditMenu, Add
-Menu, EditMenu, Add, %e_Lang011%`t%_s%Ctrl+PgUp, MoveUp
-Menu, EditMenu, Add, %e_Lang012%`t%_s%Ctrl+PgDn, MoveDn
-Menu, EditMenu, Add
-Menu, EditMenu, Add, %e_Lang005%`t%_s%Ctrl+Z, Undo
-Menu, EditMenu, Add, %e_Lang006%`t%_s%Ctrl+Y, Redo
-Menu, EditMenu, Add
-Menu, EditMenu, Add, %e_Lang003%`t%_s%Ctrl+F, FindReplace
-Menu, EditMenu, Add, %e_Lang013%`t%_s%Ctrl+G, GoToMacro
-Menu, EditMenu, Add, %e_Lang002%`t%_s%Ctrl+L, EditComm
-Menu, EditMenu, Add, %e_Lang016%`t%_s%Ctrl+M, EditColor
-Menu, EditMenu, Add
-Menu, EditMenu, Add, %e_Lang014%`t%_s%Insert, ApplyL
-Menu, EditMenu, Add, %e_Lang015%`t%_s%Ctrl+Insert, InsertKey
-Menu, EditMenu, Default, %m_Lang005%`t%_s%Enter
-
-Menu, CustomMenu, Add, %v_Lang014%, TbCustomize
-Menu, CustomMenu, Add, %v_Lang015%, TbCustomize
-Menu, CustomMenu, Add, %v_Lang016%, TbCustomize
-Menu, CustomMenu, Add, %v_Lang017%, TbCustomize
-Menu, CustomMenu, Add, %v_Lang018%, TbCustomize
-
-Menu, PreviewMenu, Add, %v_Lang029%`t%_s%Ctrl+P, Preview
-Menu, PreviewMenu, Add, %v_Lang030%, PrevCopy
-Menu, PreviewMenu, Add
-Menu, PreviewMenu, Add, %v_Lang031%, AutoRefresh
-Menu, PreviewMenu, Add, %v_Lang032%, AutoSelectLine
-Menu, PreviewMenu, Add
-Menu, PreviewMenu, Add, %v_Lang033%, TabIndent
-Menu, PreviewMenu, Add, %v_Lang034%, IndentWith, Radio
-Menu, PreviewMenu, Add, %v_Lang035%, IndentWith, Radio
-Menu, PreviewMenu, Add
-Menu, PreviewMenu, Add, %v_Lang036%, ConvertBreaks
-Menu, PreviewMenu, Add, %v_Lang037%, CommentUnchecked
-Menu, PreviewMenu, Add, %v_Lang038%, TextWrap
-Menu, PreviewMenu, Add, %v_Lang039%, ShowGroupNames
-
-Menu, ToolbarsMenu, Add, %v_Lang014%, ShowHideBand
-Menu, ToolbarsMenu, Add, %v_Lang015%, ShowHideBand
-Menu, ToolbarsMenu, Add, %v_Lang016%, ShowHideBand
-Menu, ToolbarsMenu, Add, %v_Lang017%, ShowHideBand
-Menu, ToolbarsMenu, Add, %v_Lang018%, ShowHideBand
-Menu, ToolbarsMenu, Add
-Menu, ToolbarsMenu, Add, %v_Lang019%, :CustomMenu
-
-Menu, HotkeyMenu, Add, %v_Lang020%, ShowHideBandHK
-Menu, HotkeyMenu, Add, %v_Lang021%, ShowHideBandHK
-Menu, HotkeyMenu, Add, %v_Lang022%, ShowHideBandHK
-Menu, HotkeyMenu, Add, %v_Lang023%, ShowHideBandHK
-
-Menu, SetIconSizeMenu, Add, %v_Lang027%, SetSmallIcons, Radio
-Menu, SetIconSizeMenu, Add, %v_Lang028%, SetLargeIcons, Radio
-
-Menu, SetLayoutMenu, Add, %v_Lang024%, SetBasicLayout
-Menu, SetLayoutMenu, Add, %v_Lang025%, SetBestFitLayout
-Menu, SetLayoutMenu, Add, %v_Lang026%, SetDefaultLayout
-
-Menu, MacroFontMenu, Add, 6, MacroFontSet, Radio
-Menu, MacroFontMenu, Add, 7, MacroFontSet, Radio
-Menu, MacroFontMenu, Add, 8, MacroFontSet, Radio
-Menu, MacroFontMenu, Add, 9, MacroFontSet, Radio
-Menu, MacroFontMenu, Add, 10, MacroFontSet, Radio
-Menu, MacroFontMenu, Add, 11, MacroFontSet, Radio
-Menu, MacroFontMenu, Add, 12, MacroFontSet, Radio
-Menu, MacroFontMenu, Add, 13, MacroFontSet, Radio
-Menu, MacroFontMenu, Add, 14, MacroFontSet, Radio
-Menu, MacroFontMenu, Add, 15, MacroFontSet, Radio
-Menu, MacroFontMenu, Add, 16, MacroFontSet, Radio
-Menu, MacroFontMenu, Add, 17, MacroFontSet, Radio
-Menu, MacroFontMenu, Add, 18, MacroFontSet, Radio
-
-Menu, ViewMenu, Add, %v_Lang001%, MainOnTop
-Menu, ViewMenu, Add, %v_Lang002%, ShowLoopIfMark
-Menu, ViewMenu, Add, %v_Lang003%, ShowActIdent
-Menu, ViewMenu, Add
-Menu, ViewMenu, Add, %v_Lang004%`t%_s%Ctrl+B, OnScControls
-Menu, ViewMenu, Add, %v_Lang005%, :PreviewMenu
-Menu, ViewMenu, Add, %v_Lang006%, :ToolbarsMenu
-Menu, ViewMenu, Add, %v_Lang007%, :HotkeyMenu
-Menu, ViewMenu, Add, %v_Lang008%, ShowLoopCounter
-Menu, ViewMenu, Add, %v_Lang009%, ShowSearchBar
-Menu, ViewMenu, Add
-Menu, ViewMenu, Add, %v_Lang010%`t%_s%Alt+F5, SetColSizes
-Menu, ViewMenu, Add, %v_Lang011%, :MacroFontMenu
-Menu, ViewMenu, Add, %v_Lang012%, :SetIconSizeMenu
-Menu, ViewMenu, Add, %v_Lang013%, :SetLayoutMenu
-
-GoSub, BuildOnFinishMenu
-Menu, OptionsMenu, Add, %o_Lang001%`t%_s%Ctrl+`,, Options
-Menu, OptionsMenu, Add
-Menu, OptionsMenu, Add, %o_Lang002%, HideMainWin
-Menu, OptionsMenu, Add, %o_Lang003%, OnScCtrl
-Menu, OptionsMenu, Add, %o_Lang004%, Capt
-Menu, OptionsMenu, Add, %o_Lang005%, CheckHkOn
-Menu, OptionsMenu, Add, %o_Lang006%, :OnFinishMenu
-Menu, OptionsMenu, Add, %o_Lang007%, WinKey
-Menu, OptionsMenu, Add, %o_Lang008%, SetJoyButton
-Menu, OptionsMenu, Add
-Menu, OptionsMenu, Add, %o_Lang009%, KeepDefKeys
-Menu, OptionsMenu, Add, %o_Lang010%, DefaultMacro
-Menu, OptionsMenu, Add, %o_Lang011%, RemoveDefault
-Menu, OptionsMenu, Add
-Menu, OptionsMenu, Add, %o_Lang012%`t%_s%Alt+F6, DefaultHotkeys
-Menu, OptionsMenu, Add, %o_Lang013%`t%_s%Alt+F7, LoadDefaults
-
-Menu, HelpMenu, Add, %h_Lang001%`t%_s%F1, Help
-Menu, HelpMenu, Add, %h_Lang002%, Tutorials
-Menu, HelpMenu, Add, %h_Lang003%, ShowTips
-Menu, HelpMenu, Add
-Menu, HelpMenu, Add, %h_Lang004%, Homepage
-Menu, HelpMenu, Add, %h_Lang005%, Forum
-Menu, HelpMenu, Add, %h_Lang006%, HelpAHK
-Menu, HelpMenu, Add
-Menu, HelpMenu, Add, %h_Lang007%, CheckNow
-Menu, HelpMenu, Add, %h_Lang008%, AutoUpdate
-Menu, HelpMenu, Add
-Menu, HelpMenu, Add, %h_Lang009%`t%_s%Shift+F1, HelpAbout
-
-Loop, Parse, Start_Tips, `n
-{
- StartTip_%A_Index% := A_LoopField
- MaxTips := A_Index
-}
-
-Menu, DonationMenu, Add, %p_Lang001%, DonatePayPal
-
-Menu, MenuBar, Add, %m_Lang001%, :FileMenu
-Menu, MenuBar, Add, %m_Lang002%, :MacroMenu
-Menu, MenuBar, Add, %m_Lang003%, :CommandMenu
-Menu, MenuBar, Add, %m_Lang004%, :FuncMenu
-Menu, MenuBar, Add, %m_Lang005%, :EditMenu
-Menu, MenuBar, Add, %m_Lang006%, :SelectMenu
-Menu, MenuBar, Add, %m_Lang007%, :ViewMenu
-Menu, MenuBar, Add, %m_Lang008%, :OptionsMenu
-Menu, MenuBar, Add, %m_Lang009%, :DonationMenu
-Menu, MenuBar, Add, %m_Lang010%, :HelpMenu
-
-Gui, Menu, MenuBar
-
-Menu, ToolbarMenu, Add, %c_Lang022%, OSCClose
-Menu, ToolbarMenu, Add
-Menu, ToolbarMenu, Add, %t_Lang104%, ToggleTB
-Menu, ToolbarMenu, Add, %t_Lang105%, ShowHide
-
-Loop, Parse, BIV_Characters, `n
- Menu, BI_Characters, Add, %A_LoopField%, InsertBIVar
-Loop, Parse, BIV_Properties, `n
- Menu, BI_Properties, Add, %A_LoopField%, InsertBIVar
-Loop, Parse, BIV_Date, `n
- Menu, BI_Date, Add, %A_LoopField%, InsertBIVar
-Loop, Parse, BIV_Idle, `n
- Menu, BI_Idle, Add, %A_LoopField%, InsertBIVar
-Loop, Parse, BIV_System, `n
- Menu, BI_System, Add, %A_LoopField%, InsertBIVar
-Loop, Parse, BIV_Misc, `n
- Menu, BI_Misc, Add, %A_LoopField%, InsertBIVar
-Loop, Parse, BIV_Loop, `n
- Menu, BI_Loop, Add, %A_LoopField%, InsertBIVar
-Menu, BuiltInMenu, Add, %b_Lang001%, :BI_Characters
-Menu, BuiltInMenu, Add, %b_Lang002%, :BI_Properties
-Menu, BuiltInMenu, Add, %b_Lang003%, :BI_Date
-Menu, BuiltInMenu, Add, %b_Lang004%, :BI_Idle
-Menu, BuiltInMenu, Add, %b_Lang005%, :BI_System
-Menu, BuiltInMenu, Add, %b_Lang006%, :BI_Misc
-Menu, BuiltInMenu, Add, %b_Lang007%, :BI_Loop
-Menu, BuiltInMenu, Add
-Menu, BuiltInMenu, Add, Built-in Variables, HelpB
-Menu, BuiltInMenu, Icon, Built-in Variables, %ResDllPath%, 24
-
-Menu, Tray, Add, %w_Lang005%, PlayStart
-Menu, Tray, Add, %w_Lang008%, f_AbortKey
-Menu, Tray, Add, %w_Lang004%, Record
-Menu, Tray, Add, %r_Lang006%, RunTimer
-Menu, Tray, Add
-Menu, Tray, Add, %t_Lang121%, SlowKeyToggle
-Menu, Tray, Add, %t_Lang120%, FastKeyToggle
-Menu, Tray, Add
-Menu, Tray, Add, %r_Lang007%, ResetHotkeys
-Menu, Tray, Add
-Menu, Tray, Add, %w_Lang002%, Preview
-Menu, Tray, Add, %f_Lang010%, ListVars
-Menu, Tray, Add, %y_Lang003%, OnScControls
-Menu, Tray, Add, %w_Lang014%, CheckHkOn
-Menu, Tray, Add
-Menu, Tray, Add, %f_Lang001%, New
-Menu, Tray, Add, %f_Lang002%, Open
-Menu, Tray, Add, %f_Lang003%, Save
-Menu, Tray, Add, %w_Lang003%, Options
-Menu, Tray, Add
-Menu, Tray, Add, %y_Lang001%, ShowHide
-Menu, Tray, Add, %f_Lang011%, Exit
-Menu, Tray, Default, %w_Lang005%
-
-GoSub, CheckMenuItems
-
-; Menu Icons
-Menu, FileMenu, Icon, %f_Lang001%`t%_s%Ctrl+N, %ResDllPath%, % IconsNames["new"]
-Menu, FileMenu, Icon, %f_Lang002%`t%_s%Ctrl+O, %ResDllPath%, % IconsNames["open"]
-Menu, FileMenu, Icon, %f_Lang003%`t%_s%Ctrl+S, %ResDllPath%, % IconsNames["save"]
-Menu, FileMenu, Icon, %f_Lang004%`t%_s%Ctrl+Shift+S, %ResDllPath%, % IconsNames["saveas"]
-Menu, FileMenu, Icon, %f_Lang005%, %ResDllPath%, % IconsNames["recent"]
-Menu, FileMenu, Icon, %f_Lang006%`t%_s%Ctrl+E, %ResDllPath%, % IconsNames["export"]
-Menu, FileMenu, Icon, %f_Lang007%`t%_s%Ctrl+P, %ResDllPath%, % IconsNames["preview"]
-Menu, FileMenu, Icon, %f_Lang008%`t%_s%Ctrl+Shift+E, %ResDllPath%, % IconsNames["extedit"]
-Menu, FileMenu, Icon, %f_Lang009%`t%_s%Ctrl+Alt+T, %ResDllPath%, % IconsNames["scheduler"]
-Menu, FileMenu, Icon, %f_Lang011%`t%_s%Alt+F4, %ResDllPath%, % IconsNames["exit"]
-Menu, MacroMenu, Icon, %r_Lang001%`t%_s%Ctrl+R, %ResDllPath%, % IconsNames["record"]
-Menu, MacroMenu, Icon, %r_Lang003%`t%_s%Ctrl+Enter, %ResDllPath%, % IconsNames["play"]
-Menu, MacroMenu, Icon, %r_Lang005%`t%_s%Ctrl+Shift+Enter, %ResDllPath%, % IconsNames["playtest"]
-Menu, MacroMenu, Icon, %r_Lang006%`t%_s%Ctrl+Shift+T, %ResDllPath%, % IconsNames["timer"]
-Menu, MacroMenu, Icon, %r_Lang011%`t%_s%Ctrl+H, %ResDllPath%, % IconsNames["context"]
-Menu, MacroMenu, Icon, %r_Lang012%`t%_s%Ctrl+T, %ResDllPath%, % IconsNames["tabadd"]
-Menu, MacroMenu, Icon, %r_Lang013%`t%_s%Ctrl+W, %ResDllPath%, % IconsNames["tabclose"]
-Menu, MacroMenu, Icon, %r_Lang014%`t%_s%Ctrl+Shift+D, %ResDllPath%, % IconsNames["tabdup"]
-Menu, MacroMenu, Icon, %r_Lang015%`t%_s%Ctrl+Shift+M, %ResDllPath%, % IconsNames["tabedit"]
-Menu, MacroMenu, Icon, %r_Lang016%`t%_s%Ctrl+I, %ResDllPath%, % IconsNames["import"]
-Menu, MacroMenu, Icon, %r_Lang017%`t%_s%Ctrl+Alt+S, %ResDllPath%, % IconsNames["tabsave"]
-Menu, FuncMenu, Icon, %u_Lang001%`t%_s%Ctrl+Shift+U, %ResDllPath%, % IconsNames["userfunc"]
-Menu, FuncMenu, Icon, %u_Lang002%`t%_s%Ctrl+Shift+P, %ResDllPath%, % IconsNames["parameter"]
-Menu, FuncMenu, Icon, %u_Lang003%`t%_s%Ctrl+Shift+N, %ResDllPath%, % IconsNames["return"]
-Menu, CommandMenu, Icon, %i_Lang001%`t%_s%F2, %ResDllPath%, % IconsNames["mouse"]
-Menu, CommandMenu, Icon, %i_Lang002%`t%_s%F3, %ResDllPath%, % IconsNames["text"]
-Menu, CommandMenu, Icon, %i_Lang003%`t%_s%F4, %ResDllPath%, % IconsNames["control"]
-Menu, CommandMenu, Icon, %i_Lang004%`t%_s%F5, %ResDllPath%, % IconsNames["pause"]
-Menu, CommandMenu, Icon, %i_Lang005%`t%_s%Shift+F5, %ResDllPath%, % IconsNames["dialogs"]
-Menu, CommandMenu, Icon, %i_Lang006%`t%_s%Ctrl+F5, %ResDllPath%, % IconsNames["wait"]
-Menu, CommandMenu, Icon, %i_Lang007%`t%_s%F6, %ResDllPath%, % IconsNames["window"]
-Menu, CommandMenu, Icon, %i_Lang008%`t%_s%F7, %ResDllPath%, % IconsNames["image"]
-Menu, CommandMenu, Icon, %i_Lang009%`t%_s%F8, %ResDllPath%, % IconsNames["run"]
-Menu, CommandMenu, Icon, %i_Lang010%`t%_s%F9, %ResDllPath%, % IconsNames["loop"]
-Menu, CommandMenu, Icon, %i_Lang011%`t%_s%Shift+F9, %ResDllPath%, % IconsNames["goto"]
-Menu, CommandMenu, Icon, %i_Lang012%`t%_s%Ctrl+F9, %ResDllPath%, % IconsNames["timer"]
-Menu, CommandMenu, Icon, %i_Lang013%`t%_s%F10, %ResDllPath%, % IconsNames["ifstatements"]
-Menu, CommandMenu, Icon, %i_Lang014%`t%_s%Shift+F10, %ResDllPath%, % IconsNames["variables"]
-Menu, CommandMenu, Icon, %i_Lang015%`t%_s%Ctrl+F10, %ResDllPath%, % IconsNames["functions"]
-Menu, CommandMenu, Icon, %i_Lang016%`t%_s%F11, %ResDllPath%, % IconsNames["email"]
-Menu, CommandMenu, Icon, %i_Lang017%`t%_s%Shift+F11, %ResDllPath%, % IconsNames["download"]
-Menu, CommandMenu, Icon, %i_Lang018%`t%_s%Ctrl+F11, %ResDllPath%, % IconsNames["zip"]
-Menu, CommandMenu, Icon, %i_Lang019%`t%_s%F12, %ResDllPath%, % IconsNames["ie"]
-Menu, CommandMenu, Icon, %i_Lang020%`t%_s%Shift+F12, %ResDllPath%, % IconsNames["com"]
-Menu, CommandMenu, Icon, %i_Lang021%`t%_s%Ctrl+F12, %ResDllPath%, % IconsNames["sendmsg"]
-Menu, CommandMenu, Icon, %i_Lang022%`t%_s%Ctrl+Shift+F, %ResDllPath%, % IconsNames["findcmd"]
-Menu, EditMenu, Icon, %m_Lang005%`t%_s%Enter, %ResDllPath%, % IconsNames["edit"]
-Menu, EditMenu, Icon, %e_Lang007%`t%_s%Ctrl+X, %ResDllPath%, % IconsNames["cut"]
-Menu, EditMenu, Icon, %e_Lang008%`t%_s%Ctrl+C, %ResDllPath%, % IconsNames["copy"]
-Menu, EditMenu, Icon, %e_Lang009%`t%_s%Ctrl+V, %ResDllPath%, % IconsNames["paste"]
-Menu, EditMenu, Icon, %e_Lang010%`t%_s%Delete, %ResDllPath%, % IconsNames["delete"]
-Menu, EditMenu, Icon, %e_Lang001%`t%_s%Ctrl+D, %ResDllPath%, % IconsNames["duplicate"]
-Menu, EditMenu, Icon, %e_Lang017%, %ResDllPath%, % IconsNames["groups"]
-Menu, EditMenu, Icon, %e_Lang011%`t%_s%Ctrl+PgUp, %ResDllPath%, % IconsNames["moveup"]
-Menu, EditMenu, Icon, %e_Lang012%`t%_s%Ctrl+PgDn, %ResDllPath%, % IconsNames["movedn"]
-Menu, EditMenu, Icon, %e_Lang005%`t%_s%Ctrl+Z, %ResDllPath%, % IconsNames["undo"]
-Menu, EditMenu, Icon, %e_Lang006%`t%_s%Ctrl+Y, %ResDllPath%, % IconsNames["redo"]
-Menu, EditMenu, Icon, %e_Lang003%`t%_s%Ctrl+F, %ResDllPath%, % IconsNames["find"]
-Menu, EditMenu, Icon, %e_Lang013%`t%_s%Ctrl+G, %ResDllPath%, % IconsNames["goto"]
-Menu, EditMenu, Icon, %e_Lang002%`t%_s%Ctrl+L, %ResDllPath%, % IconsNames["comment"]
-Menu, EditMenu, Icon, %e_Lang016%`t%_s%Ctrl+M, %ResDllPath%, % IconsNames["color"]
-Menu, EditMenu, Icon, %e_Lang014%`t%_s%Insert, %ResDllPath%, % IconsNames["insert"]
-Menu, EditMenu, Icon, %e_Lang015%`t%_s%Ctrl+Insert, %ResDllPath%, % IconsNames["keystroke"]
-Menu, OptionsMenu, Icon, %o_Lang001%`t%_s%Ctrl+`,, %ResDllPath%, % IconsNames["options"]
-Menu, HelpMenu, Icon, %h_Lang001%`t%_s%F1, %ResDllPath%, % IconsNames["help"]
-Menu, DonationMenu, Icon, %p_Lang001%, %ResDllPath%, % IconsNames["donate"]
-Menu, Tray, Icon, %w_Lang005%, %ResDllPath%, % IconsNames["play"]
-Menu, Tray, Icon, %w_Lang008%, %ResDllPath%, % IconsNames["stop"]
-Menu, Tray, Icon, %w_Lang004%, %ResDllPath%, % IconsNames["record"]
-Menu, Tray, Icon, %r_Lang006%, %ResDllPath%, % IconsNames["timer"]
-Menu, Tray, Icon, %t_Lang121%, %ResDllPath%, % IconsNames["slowdown"]
-Menu, Tray, Icon, %t_Lang120%, %ResDllPath%, % IconsNames["fastforward"]
-Menu, Tray, Icon, %w_Lang002%, %ResDllPath%, % IconsNames["preview"]
-Menu, Tray, Icon, %f_Lang001%, %ResDllPath%, % IconsNames["new"]
-Menu, Tray, Icon, %f_Lang002%, %ResDllPath%, % IconsNames["open"]
-Menu, Tray, Icon, %f_Lang003%, %ResDllPath%, % IconsNames["save"]
-Menu, Tray, Icon, %w_Lang003%, %ResDllPath%, % IconsNames["options"]
-Menu, Tray, Icon, %f_Lang011%, %ResDllPath%, % IconsNames["exit"]
-return
-
-CheckMenuItems:
-Menu, GroupMenu, % (ShowGroups) ? "Check" : "Uncheck", %e_Lang018%`t%_s%Ctrl+Shift+G
-Menu, OptionsMenu, % (KeepDefKeys) ? "Check" : "Uncheck", %o_Lang009%
-Menu, OptionsMenu, % (OnScCtrl) ? "Check" : "Uncheck", %o_Lang003%
-Menu, OptionsMenu, % (WinKey) ? "Check" : "Uncheck", %o_Lang007%
-Menu, OptionsMenu, % (HideMainWin) ? "Check" : "Uncheck", %o_Lang002%
-Menu, OptionsMenu, % (KeepHkOn) ? "Check" : "Uncheck", %o_Lang005%
-Menu, OptionsMenu, % (JoyHK) ? "Check" : "Uncheck", %o_Lang008%
-
-Menu, HelpMenu, % (AutoUpdate) ? "Check" : "Uncheck", %h_Lang008%
-Menu, ViewMenu, % (ShowLoopIfMark) ? "Check" : "Uncheck", %v_Lang002%
-Menu, ViewMenu, % (ShowActIdent) ? "Check" : "Uncheck", %v_Lang003%
-Menu, ViewMenu, % (ShowBarOnStart) ? "Check" : "Uncheck", %v_Lang004%`t%_s%Ctrl+B
-Menu, Tray, % (ShowBarOnStart) ? "Check" : "Uncheck", %y_Lang003%
-
-Menu, PreviewMenu, % (ShowPrev) ? "Check" : "Uncheck", %v_Lang029%`t%_s%Ctrl+P
-Menu, PreviewMenu, % (AutoRefresh) ? "Check" : "Uncheck", %v_Lang031%
-Menu, PreviewMenu, % (AutoSelectLine) ? "Check" : "Uncheck", %v_Lang032%
-Menu, PreviewMenu, % (TabIndent) ? "Check" : "Uncheck", %v_Lang033%
-Menu, PreviewMenu, % (IndentWith = "Tab") ? "Check" : "Uncheck", %v_Lang035%
-Menu, PreviewMenu, % (IndentWith = "Space") ? "Check" : "Uncheck", %v_Lang034%
-Menu, PreviewMenu, % (ConvertBreaks) ? "Check" : "Uncheck", %v_Lang036%
-Menu, PreviewMenu, % (CommentUnchecked) ? "Check" : "Uncheck", %v_Lang037%
-Menu, PreviewMenu, % (TextWrap) ? "Check" : "Uncheck", %v_Lang038%
-Menu, PreviewMenu, % (ShowGroupNames) ? "Check" : "Uncheck", %v_Lang039%
-
-Menu, MacroFontMenu, Check, %MacroFontSize%
-
-Menu, SetIconSizeMenu, % (IconSize = "Small") ? "Check" : "Uncheck", %v_Lang027%
-Menu, SetIconSizeMenu, % (IconSize = "Large") ? "Check" : "Uncheck", %v_Lang028%
+CreateMenuBar:
+ ; Menus
+ Menu, RecOptMenu, Add, %d_Lang019%, RecOpt
+ Menu, RecOptMenu, Add
+ Menu, RecOptMenu, Add, %t_Lang021%, RecOpt
+ Menu, RecOptMenu, Add, %t_Lang023%, RecOpt
+ Menu, RecOptMenu, Add, %t_Lang031%, RecOpt
+ Menu, RecOptMenu, Add
+ Menu, RecOptMenu, Add, %t_Lang024%, RecOpt
+ Menu, RecOptMenu, Add, %t_Lang025%, RecOpt
+ Menu, RecOptMenu, Add, %t_Lang026%, RecOpt
+ Menu, RecOptMenu, Add, %t_Lang032%, RecOpt
+ Menu, RecOptMenu, Add
+ Menu, RecOptMenu, Add, %t_Lang027%, RecOpt
+ Menu, RecOptMenu, Add, %t_Lang029%, RecOpt
+ Menu, RecOptMenu, Add, %t_Lang030%, RecOpt
+
+ Menu, SpeedUpMenu, Add, 2x, SpeedOpt
+ Menu, SpeedUpMenu, Add, 4x, SpeedOpt
+ Menu, SpeedUpMenu, Add, 8x, SpeedOpt
+ Menu, SpeedUpMenu, Add, 16x, SpeedOpt
+ Menu, SpeedUpMenu, Add, 32x, SpeedOpt
+ Menu, SpeedUpMenu, Add, 64x, SpeedOpt
+ Menu, SpeedUpMenu, Add, 128x, SpeedOpt
+ Menu, SpeedUpMenu, Add, 256x, SpeedOpt
+ Menu, SpeedDnMenu, Add, 2x, SpeedOpt
+ Menu, SpeedDnMenu, Add, 4x, SpeedOpt
+ Menu, SpeedDnMenu, Add, 8x, SpeedOpt
+ Menu, SpeedDnMenu, Add, 16x, SpeedOpt
+ Menu, SpeedDnMenu, Add, 32x, SpeedOpt
+ Menu, SpeedDnMenu, Add, 64x, SpeedOpt
+ Menu, SpeedDnMenu, Add, 128x, SpeedOpt
+ Menu, SpeedDnMenu, Add, 256x, SpeedOpt
+ Menu, PlayOptMenu, Add, %r_Lang007%, ResetHotkeys
+ Menu, PlayOptMenu, Add
+ Menu, PlayOptMenu, Add, %r_Lang008%, PlayFrom
+ Menu, PlayOptMenu, Add, %r_Lang009%, PlayTo
+ Menu, PlayOptMenu, Add, %r_Lang010%, PlaySel
+ Menu, PlayOptMenu, Add
+ Menu, PlayOptMenu, Add, %t_Lang036%, :SpeedUpMenu
+ Menu, PlayOptMenu, Add, %t_Lang037%, :SpeedDnMenu
+ Menu, PlayOptMenu, Add
+ Menu, PlayOptMenu, Add, %t_Lang100%, PlayOpt
+ Menu, PlayOptMenu, Add, %t_Lang206%, PlayOpt
+ Menu, PlayOptMenu, Add, %t_Lang038%, PlayOpt
+ Menu, PlayOptMenu, Add, %t_Lang085%, PlayOpt
+ Menu, PlayOptMenu, Add, %t_Lang143%, PlayOpt
+ Menu, PlayOptMenu, Add, %t_Lang107%, PlayOpt
+
+ GoSub, UpdateRecPlayMenus
+
+ Menu, FileMenu, Add, %f_Lang001%`t%_s%Ctrl+N, New
+ Menu, FileMenu, Add, %f_Lang002%`t%_s%Ctrl+O, Open
+ Menu, FileMenu, Add, %f_Lang003%`t%_s%Ctrl+S, Save
+ Menu, FileMenu, Add, %f_Lang004%`t%_s%Ctrl+Shift+S, SaveAs
+ Menu, FileMenu, Add, %f_Lang005%, :RecentMenu
+ Menu, FileMenu, Add
+ Menu, FileMenu, Add, %f_Lang006%`t%_s%Ctrl+E, Export
+ Menu, FileMenu, Add, %f_Lang007%`t%_s%Ctrl+P, Preview
+ Menu, FileMenu, Add, %f_Lang008%`t%_s%Ctrl+Shift+E, EditScript
+ Menu, FileMenu, Add, %f_Lang009%`t%_s%Ctrl+Alt+T, Scheduler
+ Menu, FileMenu, Add
+ Menu, FileMenu, Add, %f_Lang010%`t%_s%Alt+F3, ListVars
+ Menu, FileMenu, Add
+ Menu, FileMenu, Add, %f_Lang011%`t%_s%Alt+F4, Exit
+
+ Menu, MacroMenu, Add, %r_Lang001%`t%_s%Ctrl+R, Record
+ Menu, MacroMenu, Add, %r_Lang002%, :RecOptMenu
+ Menu, MacroMenu, Add
+ Menu, MacroMenu, Add, %r_Lang003%`t%_s%Ctrl+Enter, PlayStart
+ Menu, MacroMenu, Add, %r_Lang004%, :PlayOptMenu
+ Menu, MacroMenu, Add, %r_Lang005%`t%_s%Ctrl+Shift+Enter, TestRun
+ Menu, MacroMenu, Add, %r_Lang006%`t%_s%Ctrl+Shift+T, RunTimer
+ Menu, MacroMenu, Add
+ Menu, MacroMenu, Add, %r_Lang007%`t%_s%Ctrl+Alt+D, ResetHotkeys
+ Menu, MacroMenu, Add
+ Menu, MacroMenu, Add, %r_Lang008%`t%_s%Alt+1, PlayFrom
+ Menu, MacroMenu, Add, %r_Lang009%`t%_s%Alt+2, PlayTo
+ Menu, MacroMenu, Add, %r_Lang010%`t%_s%Alt+3, PlaySel
+ Menu, MacroMenu, Add
+ Menu, MacroMenu, Add, %r_Lang011%`t%_s%Ctrl+H, SetWin
+ Menu, MacroMenu, Add
+ Menu, MacroMenu, Add, %r_Lang012%`t%_s%Ctrl+T, TabPlus
+ Menu, MacroMenu, Add, %r_Lang013%`t%_s%Ctrl+W, TabClose
+ Menu, MacroMenu, Add, %r_Lang014%`t%_s%Ctrl+Shift+D, DuplicateList
+ Menu, MacroMenu, Add, %r_Lang015%`t%_s%Ctrl+Shift+M, EditMacros
+ Menu, MacroMenu, Add
+ Menu, MacroMenu, Add, %r_Lang016%`t%_s%Ctrl+I, Import
+ Menu, MacroMenu, Add, %r_Lang017%`t%_s%Ctrl+Alt+S, SaveCurrentList
+
+ Menu, FuncMenu, Add, %u_Lang001%`t%_s%Ctrl+Shift+U, UserFunction
+ Menu, FuncMenu, Add, %u_Lang002%`t%_s%Ctrl+Shift+P, FuncParameter
+ Menu, FuncMenu, Add, %u_Lang003%`t%_s%Ctrl+Shift+N, FuncReturn
+ Menu, FuncMenu, Add
+ Menu, FuncMenu, Add, %u_Lang004%`t%_s%Ctrl+Shift+C, ConvertToFunc
+
+ Menu, CommandMenu, Add, %i_Lang001%`t%_s%F2, Mouse
+ Menu, CommandMenu, Add, %i_Lang002%`t%_s%F3, Text
+ Menu, CommandMenu, Add, %i_Lang003%`t%_s%F4, ControlCmd
+ Menu, CommandMenu, Add
+ Menu, CommandMenu, Add, %i_Lang004%`t%_s%F5, Sleep
+ Menu, CommandMenu, Add, %i_Lang005%`t%_s%Shift+F5, MsgBox
+ Menu, CommandMenu, Add, %i_Lang006%`t%_s%Ctrl+F5, KeyWait
+ Menu, CommandMenu, Add
+ Menu, CommandMenu, Add, %i_Lang007%`t%_s%F6, Window
+ Menu, CommandMenu, Add, %i_Lang008%`t%_s%F7, Image
+ Menu, CommandMenu, Add, %i_Lang009%`t%_s%F8, Run
+ Menu, CommandMenu, Add
+ Menu, CommandMenu, Add, %i_Lang010%`t%_s%F9, ComLoop
+ Menu, CommandMenu, Add, %i_Lang011%`t%_s%Shift+F9, ComGoto
+ Menu, CommandMenu, Add, %i_Lang012%`t%_s%Ctrl+F9, TimedLabel
+ Menu, CommandMenu, Add
+ Menu, CommandMenu, Add, %i_Lang013%`t%_s%F10, IfSt
+ Menu, CommandMenu, Add, %i_Lang014%`t%_s%Shift+F10, AsVar
+ Menu, CommandMenu, Add, %i_Lang015%`t%_s%Ctrl+F10, AsFunc
+ Menu, CommandMenu, Add
+ Menu, CommandMenu, Add, %i_Lang016%`t%_s%F11, Email
+ Menu, CommandMenu, Add, %i_Lang017%`t%_s%Shift+F11, DownloadFiles
+ Menu, CommandMenu, Add, %i_Lang018%`t%_s%Ctrl+F11, ZipFiles
+ Menu, CommandMenu, Add
+ Menu, CommandMenu, Add, %i_Lang019%`t%_s%F12, IECom
+ Menu, CommandMenu, Add, %i_Lang020%`t%_s%Shift+F12, ComInt
+ Menu, CommandMenu, Add, %i_Lang021%`t%_s%Ctrl+F12, SendMsg
+ Menu, CommandMenu, Add
+ Menu, CommandMenu, Add, %i_Lang022%`t%_s%Ctrl+Shift+F, CmdFind
+
+ TypesMenu := "Win`nFile`nString"
+ Loop
+ {
+ If (!cType%A_Index%)
+ break
+ TypesMenu .= "`n" cType%A_Index%
+ }
+ Sort, TypesMenu
+ Loop, Parse, TypesMenu, `n
+ Menu, SelCmdMenu, Add, %A_LoopField%, SelectCmd
+
+ Menu, SelectMenu, Add, %s_Lang001%`t%_s%Ctrl+A, SelectAll
+ Menu, SelectMenu, Add, %s_Lang002%`t%_s%Ctrl+Shift+A, SelectNone
+ Menu, SelectMenu, Add, %s_Lang003%`t%_s%Ctrl+Alt+A, InvertSel
+ Menu, SelectMenu, Add
+ Menu, SelectMenu, Add, %s_Lang004%`t%_s%Ctrl+Q, CheckSel
+ Menu, SelectMenu, Add, %s_Lang005%`t%_s%Ctrl+Shift+Q, UnCheckSel
+ Menu, SelectMenu, Add, %s_Lang006%`t%_s%Ctrl+Alt+Q, InvertCheck
+ Menu, SelectMenu, Add
+ Menu, SelectMenu, Add, %s_Lang007%`t%_s%Ctrl+Up, MoveSelUp
+ Menu, SelectMenu, Add, %s_Lang008%`t%_s%Ctrl+Down, MoveSelDn
+ Menu, SelectMenu, Add
+ Menu, SelectMenu, Add, %s_Lang009%, SelType
+ Menu, SelectMenu, Add, %s_Lang010%, :SelCmdMenu
+
+ If (CopyMenuLabels[1] = "")
+ {
+ CopyMenuLabels[1] := "Macro1"
+ Menu, CopyTo, Add, % CopyMenuLabels[1], CopyList, Radio
+ Menu, CopyTo, Check, % CopyMenuLabels[1]
+ }
+
+ Menu, GroupMenu, Add, %e_Lang018%`t%_s%Ctrl+Shift+G, GroupsMode
+ Menu, GroupMenu, Add
+ Menu, GroupMenu, Add, %e_Lang019%`t%_s%Ctrl+Shift+Y, AddGroup
+ Menu, GroupMenu, Add, %e_Lang020%`t%_s%Ctrl+Shift+R, RemoveGroup
+ Menu, GroupMenu, Add, %e_Lang021%, RemoveAllGroups
+ Menu, GroupMenu, Add
+ Menu, GroupMenu, Add, %e_Lang022%, CollapseGroups
+ Menu, GroupMenu, Add, %e_Lang023%, ExpandGroups
+
+ Menu, EditMenu, Add, %m_Lang005%`t%_s%Enter, EditButton
+ Menu, EditMenu, Add, %e_Lang007%`t%_s%Ctrl+X, CutRows
+ Menu, EditMenu, Add, %e_Lang008%`t%_s%Ctrl+C, CopyRows
+ Menu, EditMenu, Add, %e_Lang009%`t%_s%Ctrl+V, PasteRows
+ Menu, EditMenu, Add, %e_Lang010%`t%_s%Delete, Remove
+ Menu, EditMenu, Add
+ Menu, EditMenu, Add, %e_Lang001%`t%_s%Ctrl+D, Duplicate
+ Menu, EditMenu, Add, %m_Lang006%, :SelectMenu
+ Menu, EditMenu, Add, %e_Lang004%, :CopyTo
+ Menu, EditMenu, Add
+ Menu, EditMenu, Add, %e_Lang017%, :GroupMenu
+ Menu, EditMenu, Add
+ Menu, EditMenu, Add, %e_Lang011%`t%_s%Ctrl+PgUp, MoveUp
+ Menu, EditMenu, Add, %e_Lang012%`t%_s%Ctrl+PgDn, MoveDn
+ Menu, EditMenu, Add
+ Menu, EditMenu, Add, %e_Lang005%`t%_s%Ctrl+Z, Undo
+ Menu, EditMenu, Add, %e_Lang006%`t%_s%Ctrl+Y, Redo
+ Menu, EditMenu, Add
+ Menu, EditMenu, Add, %e_Lang003%`t%_s%Ctrl+F, FindReplace
+ Menu, EditMenu, Add, %e_Lang013%`t%_s%Ctrl+G, GoToMacro
+ Menu, EditMenu, Add, %e_Lang002%`t%_s%Ctrl+L, EditComm
+ Menu, EditMenu, Add, %e_Lang016%`t%_s%Ctrl+M, EditColor
+ Menu, EditMenu, Add
+ Menu, EditMenu, Add, %e_Lang014%`t%_s%Insert, ApplyL
+ Menu, EditMenu, Add, %e_Lang015%`t%_s%Ctrl+Insert, InsertKey
+ Menu, EditMenu, Default, %m_Lang005%`t%_s%Enter
+
+ Menu, CustomMenu, Add, %v_Lang014%, TbCustomize
+ Menu, CustomMenu, Add, %v_Lang015%, TbCustomize
+ Menu, CustomMenu, Add, %v_Lang016%, TbCustomize
+ Menu, CustomMenu, Add, %v_Lang017%, TbCustomize
+ Menu, CustomMenu, Add, %v_Lang018%, TbCustomize
+
+ Menu, PreviewMenu, Add, %v_Lang029%`t%_s%Ctrl+P, Preview
+ Menu, PreviewMenu, Add, %v_Lang030%, PrevCopy
+ Menu, PreviewMenu, Add
+ Menu, PreviewMenu, Add, %v_Lang031%, AutoRefresh
+ Menu, PreviewMenu, Add, %v_Lang032%, AutoSelectLine
+ Menu, PreviewMenu, Add
+ Menu, PreviewMenu, Add, %v_Lang033%, TabIndent
+ Menu, PreviewMenu, Add, %v_Lang034%, IndentWith, Radio
+ Menu, PreviewMenu, Add, %v_Lang035%, IndentWith, Radio
+ Menu, PreviewMenu, Add
+ Menu, PreviewMenu, Add, %v_Lang036%, ConvertBreaks
+ Menu, PreviewMenu, Add, %v_Lang037%, CommentUnchecked
+ Menu, PreviewMenu, Add, %v_Lang038%, TextWrap
+ Menu, PreviewMenu, Add, %v_Lang039%, ShowGroupNames
+
+ Menu, ToolbarsMenu, Add, %v_Lang014%, ShowHideBand
+ Menu, ToolbarsMenu, Add, %v_Lang015%, ShowHideBand
+ Menu, ToolbarsMenu, Add, %v_Lang016%, ShowHideBand
+ Menu, ToolbarsMenu, Add, %v_Lang017%, ShowHideBand
+ Menu, ToolbarsMenu, Add, %v_Lang018%, ShowHideBand
+ Menu, ToolbarsMenu, Add
+ Menu, ToolbarsMenu, Add, %v_Lang019%, :CustomMenu
+
+ Menu, HotkeyMenu, Add, %v_Lang020%, ShowHideBandHK
+ Menu, HotkeyMenu, Add, %v_Lang021%, ShowHideBandHK
+ Menu, HotkeyMenu, Add, %v_Lang022%, ShowHideBandHK
+ Menu, HotkeyMenu, Add, %v_Lang023%, ShowHideBandHK
+
+ Menu, SetIconSizeMenu, Add, %v_Lang027%, SetSmallIcons, Radio
+ Menu, SetIconSizeMenu, Add, %v_Lang028%, SetLargeIcons, Radio
+
+ Menu, SetLayoutMenu, Add, %v_Lang024%, SetBasicLayout
+ Menu, SetLayoutMenu, Add, %v_Lang025%, SetBestFitLayout
+ Menu, SetLayoutMenu, Add, %v_Lang026%, SetDefaultLayout
+
+ Menu, MacroFontMenu, Add, 6, MacroFontSet, Radio
+ Menu, MacroFontMenu, Add, 7, MacroFontSet, Radio
+ Menu, MacroFontMenu, Add, 8, MacroFontSet, Radio
+ Menu, MacroFontMenu, Add, 9, MacroFontSet, Radio
+ Menu, MacroFontMenu, Add, 10, MacroFontSet, Radio
+ Menu, MacroFontMenu, Add, 11, MacroFontSet, Radio
+ Menu, MacroFontMenu, Add, 12, MacroFontSet, Radio
+ Menu, MacroFontMenu, Add, 13, MacroFontSet, Radio
+ Menu, MacroFontMenu, Add, 14, MacroFontSet, Radio
+ Menu, MacroFontMenu, Add, 15, MacroFontSet, Radio
+ Menu, MacroFontMenu, Add, 16, MacroFontSet, Radio
+ Menu, MacroFontMenu, Add, 17, MacroFontSet, Radio
+ Menu, MacroFontMenu, Add, 18, MacroFontSet, Radio
+
+ Menu, ViewMenu, Add, %v_Lang001%, MainOnTop
+ Menu, ViewMenu, Add, %v_Lang002%, ShowLoopIfMark
+ Menu, ViewMenu, Add, %v_Lang003%, ShowActIdent
+ Menu, ViewMenu, Add
+ Menu, ViewMenu, Add, %v_Lang004%`t%_s%Ctrl+B, OnScControls
+ Menu, ViewMenu, Add, %v_Lang005%, :PreviewMenu
+ Menu, ViewMenu, Add, %v_Lang006%, :ToolbarsMenu
+ Menu, ViewMenu, Add, %v_Lang007%, :HotkeyMenu
+ Menu, ViewMenu, Add, %v_Lang008%, ShowLoopCounter
+ Menu, ViewMenu, Add, %v_Lang009%, ShowSearchBar
+ Menu, ViewMenu, Add
+ Menu, ViewMenu, Add, %v_Lang010%`t%_s%Alt+F5, SetColSizes
+ Menu, ViewMenu, Add, %v_Lang011%, :MacroFontMenu
+ Menu, ViewMenu, Add, %v_Lang012%, :SetIconSizeMenu
+ Menu, ViewMenu, Add, %v_Lang013%, :SetLayoutMenu
+
+ GoSub, BuildOnFinishMenu
+ Menu, OptionsMenu, Add, %o_Lang001%`t%_s%Ctrl+`,, Options
+ Menu, OptionsMenu, Add
+ Menu, OptionsMenu, Add, %o_Lang002%, HideMainWin
+ Menu, OptionsMenu, Add, %o_Lang003%, OnScCtrl
+ Menu, OptionsMenu, Add, %o_Lang004%, Capt
+ Menu, OptionsMenu, Add, %o_Lang005%, CheckHkOn
+ Menu, OptionsMenu, Add, %o_Lang006%, :OnFinishMenu
+ Menu, OptionsMenu, Add, %o_Lang007%, WinKey
+ Menu, OptionsMenu, Add, %o_Lang008%, SetJoyButton
+ Menu, OptionsMenu, Add
+ Menu, OptionsMenu, Add, %o_Lang009%, KeepDefKeys
+ Menu, OptionsMenu, Add, %o_Lang010%, DefaultMacro
+ Menu, OptionsMenu, Add, %o_Lang011%, RemoveDefault
+ Menu, OptionsMenu, Add
+ Menu, OptionsMenu, Add, %o_Lang012%`t%_s%Alt+F6, DefaultHotkeys
+ Menu, OptionsMenu, Add, %o_Lang013%`t%_s%Alt+F7, LoadDefaults
+
+ Menu, HelpMenu, Add, %h_Lang001%`t%_s%F1, Help
+ Menu, HelpMenu, Add, %h_Lang002%, Tutorials
+ Menu, HelpMenu, Add, %h_Lang003%, ShowTips
+ Menu, HelpMenu, Add
+ Menu, HelpMenu, Add, %h_Lang004%, Homepage
+ Menu, HelpMenu, Add, %h_Lang005%, Forum
+ Menu, HelpMenu, Add, %h_Lang006%, HelpAHK
+ Menu, HelpMenu, Add
+ Menu, HelpMenu, Add, %h_Lang007%, CheckNow
+ Menu, HelpMenu, Add, %h_Lang008%, AutoUpdate
+ Menu, HelpMenu, Add
+ Menu, HelpMenu, Add, %h_Lang009%`t%_s%Shift+F1, HelpAbout
+
+ Loop, Parse, Start_Tips, `n
+ {
+ StartTip_%A_Index% := A_LoopField
+ MaxTips := A_Index
+ }
+
+ Menu, DonationMenu, Add, %p_Lang001%, DonatePayPal
+
+ Menu, MenuBar, Add, %m_Lang001%, :FileMenu
+ Menu, MenuBar, Add, %m_Lang002%, :MacroMenu
+ Menu, MenuBar, Add, %m_Lang003%, :CommandMenu
+ Menu, MenuBar, Add, %m_Lang004%, :FuncMenu
+ Menu, MenuBar, Add, %m_Lang005%, :EditMenu
+ Menu, MenuBar, Add, %m_Lang006%, :SelectMenu
+ Menu, MenuBar, Add, %m_Lang007%, :ViewMenu
+ Menu, MenuBar, Add, %m_Lang008%, :OptionsMenu
+ Menu, MenuBar, Add, %m_Lang009%, :DonationMenu
+ Menu, MenuBar, Add, %m_Lang010%, :HelpMenu
+
+ Gui, Menu, MenuBar
+
+ Menu, ToolbarMenu, Add, %c_Lang022%, OSCClose
+ Menu, ToolbarMenu, Add
+ Menu, ToolbarMenu, Add, %t_Lang104%, ToggleTB
+ Menu, ToolbarMenu, Add, %t_Lang105%, ShowHide
+
+ Loop, Parse, BIV_Characters, `n
+ Menu, BI_Characters, Add, %A_LoopField%, InsertBIVar
+ Loop, Parse, BIV_Properties, `n
+ Menu, BI_Properties, Add, %A_LoopField%, InsertBIVar
+ Loop, Parse, BIV_Date, `n
+ Menu, BI_Date, Add, %A_LoopField%, InsertBIVar
+ Loop, Parse, BIV_Idle, `n
+ Menu, BI_Idle, Add, %A_LoopField%, InsertBIVar
+ Loop, Parse, BIV_System, `n
+ Menu, BI_System, Add, %A_LoopField%, InsertBIVar
+ Loop, Parse, BIV_Misc, `n
+ Menu, BI_Misc, Add, %A_LoopField%, InsertBIVar
+ Loop, Parse, BIV_Loop, `n
+ Menu, BI_Loop, Add, %A_LoopField%, InsertBIVar
+ Menu, BuiltInMenu, Add, %b_Lang001%, :BI_Characters
+ Menu, BuiltInMenu, Add, %b_Lang002%, :BI_Properties
+ Menu, BuiltInMenu, Add, %b_Lang003%, :BI_Date
+ Menu, BuiltInMenu, Add, %b_Lang004%, :BI_Idle
+ Menu, BuiltInMenu, Add, %b_Lang005%, :BI_System
+ Menu, BuiltInMenu, Add, %b_Lang006%, :BI_Misc
+ Menu, BuiltInMenu, Add, %b_Lang007%, :BI_Loop
+ Menu, BuiltInMenu, Add
+ Menu, BuiltInMenu, Add, Built-in Variables, HelpB
+ Menu, BuiltInMenu, Icon, Built-in Variables, %ResDllPath%, 24
+
+ Menu, Tray, Add, %w_Lang005%, PlayStart
+ Menu, Tray, Add, %w_Lang008%, f_AbortKey
+ Menu, Tray, Add, %w_Lang004%, Record
+ Menu, Tray, Add, %r_Lang006%, RunTimer
+ Menu, Tray, Add
+ Menu, Tray, Add, %t_Lang121%, SlowKeyToggle
+ Menu, Tray, Add, %t_Lang120%, FastKeyToggle
+ Menu, Tray, Add
+ Menu, Tray, Add, %r_Lang007%, ResetHotkeys
+ Menu, Tray, Add
+ Menu, Tray, Add, %w_Lang002%, Preview
+ Menu, Tray, Add, %f_Lang010%, ListVars
+ Menu, Tray, Add, %y_Lang003%, OnScControls
+ Menu, Tray, Add, %w_Lang014%, CheckHkOn
+ Menu, Tray, Add
+ Menu, Tray, Add, %f_Lang001%, New
+ Menu, Tray, Add, %f_Lang002%, Open
+ Menu, Tray, Add, %f_Lang003%, Save
+ Menu, Tray, Add, %w_Lang003%, Options
+ Menu, Tray, Add
+ Menu, Tray, Add, %y_Lang001%, ShowHide
+ Menu, Tray, Add, %f_Lang011%, Exit
+ Menu, Tray, Default, %w_Lang005%
+
+ GoSub, CheckMenuItems
+
+ ; Menu Icons
+ Menu, FileMenu, Icon, %f_Lang001%`t%_s%Ctrl+N, %ResDllPath%, % IconsNames["new"]
+ Menu, FileMenu, Icon, %f_Lang002%`t%_s%Ctrl+O, %ResDllPath%, % IconsNames["open"]
+ Menu, FileMenu, Icon, %f_Lang003%`t%_s%Ctrl+S, %ResDllPath%, % IconsNames["save"]
+ Menu, FileMenu, Icon, %f_Lang004%`t%_s%Ctrl+Shift+S, %ResDllPath%, % IconsNames["saveas"]
+ Menu, FileMenu, Icon, %f_Lang005%, %ResDllPath%, % IconsNames["recent"]
+ Menu, FileMenu, Icon, %f_Lang006%`t%_s%Ctrl+E, %ResDllPath%, % IconsNames["export"]
+ Menu, FileMenu, Icon, %f_Lang007%`t%_s%Ctrl+P, %ResDllPath%, % IconsNames["preview"]
+ Menu, FileMenu, Icon, %f_Lang008%`t%_s%Ctrl+Shift+E, %ResDllPath%, % IconsNames["extedit"]
+ Menu, FileMenu, Icon, %f_Lang009%`t%_s%Ctrl+Alt+T, %ResDllPath%, % IconsNames["scheduler"]
+ Menu, FileMenu, Icon, %f_Lang011%`t%_s%Alt+F4, %ResDllPath%, % IconsNames["exit"]
+ Menu, MacroMenu, Icon, %r_Lang001%`t%_s%Ctrl+R, %ResDllPath%, % IconsNames["record"]
+ Menu, MacroMenu, Icon, %r_Lang003%`t%_s%Ctrl+Enter, %ResDllPath%, % IconsNames["play"]
+ Menu, MacroMenu, Icon, %r_Lang005%`t%_s%Ctrl+Shift+Enter, %ResDllPath%, % IconsNames["playtest"]
+ Menu, MacroMenu, Icon, %r_Lang006%`t%_s%Ctrl+Shift+T, %ResDllPath%, % IconsNames["timer"]
+ Menu, MacroMenu, Icon, %r_Lang011%`t%_s%Ctrl+H, %ResDllPath%, % IconsNames["context"]
+ Menu, MacroMenu, Icon, %r_Lang012%`t%_s%Ctrl+T, %ResDllPath%, % IconsNames["tabadd"]
+ Menu, MacroMenu, Icon, %r_Lang013%`t%_s%Ctrl+W, %ResDllPath%, % IconsNames["tabclose"]
+ Menu, MacroMenu, Icon, %r_Lang014%`t%_s%Ctrl+Shift+D, %ResDllPath%, % IconsNames["tabdup"]
+ Menu, MacroMenu, Icon, %r_Lang015%`t%_s%Ctrl+Shift+M, %ResDllPath%, % IconsNames["tabedit"]
+ Menu, MacroMenu, Icon, %r_Lang016%`t%_s%Ctrl+I, %ResDllPath%, % IconsNames["import"]
+ Menu, MacroMenu, Icon, %r_Lang017%`t%_s%Ctrl+Alt+S, %ResDllPath%, % IconsNames["tabsave"]
+ Menu, FuncMenu, Icon, %u_Lang001%`t%_s%Ctrl+Shift+U, %ResDllPath%, % IconsNames["userfunc"]
+ Menu, FuncMenu, Icon, %u_Lang002%`t%_s%Ctrl+Shift+P, %ResDllPath%, % IconsNames["parameter"]
+ Menu, FuncMenu, Icon, %u_Lang003%`t%_s%Ctrl+Shift+N, %ResDllPath%, % IconsNames["return"]
+ Menu, CommandMenu, Icon, %i_Lang001%`t%_s%F2, %ResDllPath%, % IconsNames["mouse"]
+ Menu, CommandMenu, Icon, %i_Lang002%`t%_s%F3, %ResDllPath%, % IconsNames["text"]
+ Menu, CommandMenu, Icon, %i_Lang003%`t%_s%F4, %ResDllPath%, % IconsNames["control"]
+ Menu, CommandMenu, Icon, %i_Lang004%`t%_s%F5, %ResDllPath%, % IconsNames["pause"]
+ Menu, CommandMenu, Icon, %i_Lang005%`t%_s%Shift+F5, %ResDllPath%, % IconsNames["dialogs"]
+ Menu, CommandMenu, Icon, %i_Lang006%`t%_s%Ctrl+F5, %ResDllPath%, % IconsNames["wait"]
+ Menu, CommandMenu, Icon, %i_Lang007%`t%_s%F6, %ResDllPath%, % IconsNames["window"]
+ Menu, CommandMenu, Icon, %i_Lang008%`t%_s%F7, %ResDllPath%, % IconsNames["image"]
+ Menu, CommandMenu, Icon, %i_Lang009%`t%_s%F8, %ResDllPath%, % IconsNames["run"]
+ Menu, CommandMenu, Icon, %i_Lang010%`t%_s%F9, %ResDllPath%, % IconsNames["loop"]
+ Menu, CommandMenu, Icon, %i_Lang011%`t%_s%Shift+F9, %ResDllPath%, % IconsNames["goto"]
+ Menu, CommandMenu, Icon, %i_Lang012%`t%_s%Ctrl+F9, %ResDllPath%, % IconsNames["timer"]
+ Menu, CommandMenu, Icon, %i_Lang013%`t%_s%F10, %ResDllPath%, % IconsNames["ifstatements"]
+ Menu, CommandMenu, Icon, %i_Lang014%`t%_s%Shift+F10, %ResDllPath%, % IconsNames["variables"]
+ Menu, CommandMenu, Icon, %i_Lang015%`t%_s%Ctrl+F10, %ResDllPath%, % IconsNames["functions"]
+ Menu, CommandMenu, Icon, %i_Lang016%`t%_s%F11, %ResDllPath%, % IconsNames["email"]
+ Menu, CommandMenu, Icon, %i_Lang017%`t%_s%Shift+F11, %ResDllPath%, % IconsNames["download"]
+ Menu, CommandMenu, Icon, %i_Lang018%`t%_s%Ctrl+F11, %ResDllPath%, % IconsNames["zip"]
+ Menu, CommandMenu, Icon, %i_Lang019%`t%_s%F12, %ResDllPath%, % IconsNames["ie"]
+ Menu, CommandMenu, Icon, %i_Lang020%`t%_s%Shift+F12, %ResDllPath%, % IconsNames["com"]
+ Menu, CommandMenu, Icon, %i_Lang021%`t%_s%Ctrl+F12, %ResDllPath%, % IconsNames["sendmsg"]
+ Menu, CommandMenu, Icon, %i_Lang022%`t%_s%Ctrl+Shift+F, %ResDllPath%, % IconsNames["findcmd"]
+ Menu, EditMenu, Icon, %m_Lang005%`t%_s%Enter, %ResDllPath%, % IconsNames["edit"]
+ Menu, EditMenu, Icon, %e_Lang007%`t%_s%Ctrl+X, %ResDllPath%, % IconsNames["cut"]
+ Menu, EditMenu, Icon, %e_Lang008%`t%_s%Ctrl+C, %ResDllPath%, % IconsNames["copy"]
+ Menu, EditMenu, Icon, %e_Lang009%`t%_s%Ctrl+V, %ResDllPath%, % IconsNames["paste"]
+ Menu, EditMenu, Icon, %e_Lang010%`t%_s%Delete, %ResDllPath%, % IconsNames["delete"]
+ Menu, EditMenu, Icon, %e_Lang001%`t%_s%Ctrl+D, %ResDllPath%, % IconsNames["duplicate"]
+ Menu, EditMenu, Icon, %e_Lang017%, %ResDllPath%, % IconsNames["groups"]
+ Menu, EditMenu, Icon, %e_Lang011%`t%_s%Ctrl+PgUp, %ResDllPath%, % IconsNames["moveup"]
+ Menu, EditMenu, Icon, %e_Lang012%`t%_s%Ctrl+PgDn, %ResDllPath%, % IconsNames["movedn"]
+ Menu, EditMenu, Icon, %e_Lang005%`t%_s%Ctrl+Z, %ResDllPath%, % IconsNames["undo"]
+ Menu, EditMenu, Icon, %e_Lang006%`t%_s%Ctrl+Y, %ResDllPath%, % IconsNames["redo"]
+ Menu, EditMenu, Icon, %e_Lang003%`t%_s%Ctrl+F, %ResDllPath%, % IconsNames["find"]
+ Menu, EditMenu, Icon, %e_Lang013%`t%_s%Ctrl+G, %ResDllPath%, % IconsNames["goto"]
+ Menu, EditMenu, Icon, %e_Lang002%`t%_s%Ctrl+L, %ResDllPath%, % IconsNames["comment"]
+ Menu, EditMenu, Icon, %e_Lang016%`t%_s%Ctrl+M, %ResDllPath%, % IconsNames["color"]
+ Menu, EditMenu, Icon, %e_Lang014%`t%_s%Insert, %ResDllPath%, % IconsNames["insert"]
+ Menu, EditMenu, Icon, %e_Lang015%`t%_s%Ctrl+Insert, %ResDllPath%, % IconsNames["keystroke"]
+ Menu, OptionsMenu, Icon, %o_Lang001%`t%_s%Ctrl+`,, %ResDllPath%, % IconsNames["options"]
+ Menu, HelpMenu, Icon, %h_Lang001%`t%_s%F1, %ResDllPath%, % IconsNames["help"]
+ Menu, DonationMenu, Icon, %p_Lang001%, %ResDllPath%, % IconsNames["donate"]
+ Menu, Tray, Icon, %w_Lang005%, %ResDllPath%, % IconsNames["play"]
+ Menu, Tray, Icon, %w_Lang008%, %ResDllPath%, % IconsNames["stop"]
+ Menu, Tray, Icon, %w_Lang004%, %ResDllPath%, % IconsNames["record"]
+ Menu, Tray, Icon, %r_Lang006%, %ResDllPath%, % IconsNames["timer"]
+ Menu, Tray, Icon, %t_Lang121%, %ResDllPath%, % IconsNames["slowdown"]
+ Menu, Tray, Icon, %t_Lang120%, %ResDllPath%, % IconsNames["fastforward"]
+ Menu, Tray, Icon, %w_Lang002%, %ResDllPath%, % IconsNames["preview"]
+ Menu, Tray, Icon, %f_Lang001%, %ResDllPath%, % IconsNames["new"]
+ Menu, Tray, Icon, %f_Lang002%, %ResDllPath%, % IconsNames["open"]
+ Menu, Tray, Icon, %f_Lang003%, %ResDllPath%, % IconsNames["save"]
+ Menu, Tray, Icon, %w_Lang003%, %ResDllPath%, % IconsNames["options"]
+ Menu, Tray, Icon, %f_Lang011%, %ResDllPath%, % IconsNames["exit"]
+return
-Menu, ToolbarsMenu, % (ShowBand1) ? "Check" : "Uncheck", %v_Lang014%
-Menu, ToolbarsMenu, % (ShowBand2) ? "Check" : "Uncheck", %v_Lang015%
-Menu, ToolbarsMenu, % (ShowBand3) ? "Check" : "Uncheck", %v_Lang016%
-Menu, ToolbarsMenu, % (ShowBand4) ? "Check" : "Uncheck", %v_Lang017%
-Menu, ToolbarsMenu, % (ShowBand5) ? "Check" : "Uncheck", %v_Lang018%
-Menu, ViewMenu, % (ShowBand11) ? "Check" : "Uncheck", %v_Lang008%
-Menu, ViewMenu, % (ShowBand6) ? "Check" : "Uncheck", %v_Lang009%
-Menu, HotkeyMenu, % (ShowBand7) ? "Check" : "Uncheck", %v_Lang020%
-Menu, HotkeyMenu, % (ShowBand8) ? "Check" : "Uncheck", %v_Lang021%
-Menu, HotkeyMenu, % (ShowBand9) ? "Check" : "Uncheck", %v_Lang022%
-Menu, HotkeyMenu, % (ShowBand10) ? "Check" : "Uncheck", %v_Lang023%
+CheckMenuItems:
+ Menu, GroupMenu, % (ShowGroups) ? "Check" : "Uncheck", %e_Lang018%`t%_s%Ctrl+Shift+G
+ Menu, OptionsMenu, % (KeepDefKeys) ? "Check" : "Uncheck", %o_Lang009%
+ Menu, OptionsMenu, % (OnScCtrl) ? "Check" : "Uncheck", %o_Lang003%
+ Menu, OptionsMenu, % (WinKey) ? "Check" : "Uncheck", %o_Lang007%
+ Menu, OptionsMenu, % (HideMainWin) ? "Check" : "Uncheck", %o_Lang002%
+ Menu, OptionsMenu, % (KeepHkOn) ? "Check" : "Uncheck", %o_Lang005%
+ Menu, OptionsMenu, % (JoyHK) ? "Check" : "Uncheck", %o_Lang008%
+
+ Menu, HelpMenu, % (AutoUpdate) ? "Check" : "Uncheck", %h_Lang008%
+ Menu, ViewMenu, % (ShowLoopIfMark) ? "Check" : "Uncheck", %v_Lang002%
+ Menu, ViewMenu, % (ShowActIdent) ? "Check" : "Uncheck", %v_Lang003%
+ Menu, ViewMenu, % (ShowBarOnStart) ? "Check" : "Uncheck", %v_Lang004%`t%_s%Ctrl+B
+ Menu, Tray, % (ShowBarOnStart) ? "Check" : "Uncheck", %y_Lang003%
+
+ Menu, PreviewMenu, % (ShowPrev) ? "Check" : "Uncheck", %v_Lang029%`t%_s%Ctrl+P
+ Menu, PreviewMenu, % (AutoRefresh) ? "Check" : "Uncheck", %v_Lang031%
+ Menu, PreviewMenu, % (AutoSelectLine) ? "Check" : "Uncheck", %v_Lang032%
+ Menu, PreviewMenu, % (TabIndent) ? "Check" : "Uncheck", %v_Lang033%
+ Menu, PreviewMenu, % (IndentWith = "Tab") ? "Check" : "Uncheck", %v_Lang035%
+ Menu, PreviewMenu, % (IndentWith = "Space") ? "Check" : "Uncheck", %v_Lang034%
+ Menu, PreviewMenu, % (ConvertBreaks) ? "Check" : "Uncheck", %v_Lang036%
+ Menu, PreviewMenu, % (CommentUnchecked) ? "Check" : "Uncheck", %v_Lang037%
+ Menu, PreviewMenu, % (TextWrap) ? "Check" : "Uncheck", %v_Lang038%
+ Menu, PreviewMenu, % (ShowGroupNames) ? "Check" : "Uncheck", %v_Lang039%
+
+ Menu, MacroFontMenu, Check, %MacroFontSize%
+
+ Menu, SetIconSizeMenu, % (IconSize = "Small") ? "Check" : "Uncheck", %v_Lang027%
+ Menu, SetIconSizeMenu, % (IconSize = "Large") ? "Check" : "Uncheck", %v_Lang028%
+
+ Menu, ToolbarsMenu, % (ShowBand1) ? "Check" : "Uncheck", %v_Lang014%
+ Menu, ToolbarsMenu, % (ShowBand2) ? "Check" : "Uncheck", %v_Lang015%
+ Menu, ToolbarsMenu, % (ShowBand3) ? "Check" : "Uncheck", %v_Lang016%
+ Menu, ToolbarsMenu, % (ShowBand4) ? "Check" : "Uncheck", %v_Lang017%
+ Menu, ToolbarsMenu, % (ShowBand5) ? "Check" : "Uncheck", %v_Lang018%
+ Menu, ViewMenu, % (ShowBand11) ? "Check" : "Uncheck", %v_Lang008%
+ Menu, ViewMenu, % (ShowBand6) ? "Check" : "Uncheck", %v_Lang009%
+ Menu, HotkeyMenu, % (ShowBand7) ? "Check" : "Uncheck", %v_Lang020%
+ Menu, HotkeyMenu, % (ShowBand8) ? "Check" : "Uncheck", %v_Lang021%
+ Menu, HotkeyMenu, % (ShowBand9) ? "Check" : "Uncheck", %v_Lang022%
+ Menu, HotkeyMenu, % (ShowBand10) ? "Check" : "Uncheck", %v_Lang023%
return
UpdateCopyTo:
-Menu, CopyTo, DeleteAll
-Loop, %TabCount%
- Menu, CopyTo, Add, % CopyMenuLabels[A_Index], CopyList, Radio
-Gui, chMacro:Submit, NoHide
-Try Menu, CopyTo, Check, % CopyMenuLabels[A_List]
+ Menu, CopyTo, DeleteAll
+ Loop, %TabCount%
+ Menu, CopyTo, Add, % CopyMenuLabels[A_Index], CopyList, Radio
+ Gui, chMacro:Submit, NoHide
+ Try Menu, CopyTo, Check, % CopyMenuLabels[A_List]
return
; Playback / Recording options menu:
ShowRecMenu:
-Menu, RecOptMenu, Show, %mX%, %mY%
-mX := "", mY := ""
+ Menu, RecOptMenu, Show, %mX%, %mY%
+ mX := "", mY := ""
return
RecOpt:
-ItemVar := RecOptChecks[A_ThisMenuItemPos], %ItemVar% := !%ItemVar%
-GoSub, UpdateRecPlayMenus
+ ItemVar := RecOptChecks[A_ThisMenuItemPos], %ItemVar% := !%ItemVar%
+ GoSub, UpdateRecPlayMenus
return
ShowPlayMenu:
-Menu, PlayOptMenu, Show, %mX%, %mY%
-mX := "", mY := ""
+ Menu, PlayOptMenu, Show, %mX%, %mY%
+ mX := "", mY := ""
return
PlayOpt:
-ItemVar := PlayOptChecks[A_ThisMenuItemPos-9], %ItemVar% := !%ItemVar%
-GoSub, UpdateRecPlayMenus
+ ItemVar := PlayOptChecks[A_ThisMenuItemPos-9], %ItemVar% := !%ItemVar%
+ GoSub, UpdateRecPlayMenus
return
SpeedOpt:
-ItemVar := SubStr(A_ThisMenu, 1, 7), %ItemVar% := RegExReplace(A_ThisMenuItem, "\D")
-GoSub, UpdateRecPlayMenus
+ ItemVar := SubStr(A_ThisMenu, 1, 7), %ItemVar% := RegExReplace(A_ThisMenuItem, "\D")
+ GoSub, UpdateRecPlayMenus
return
UpdateRecPlayMenus:
-If (ClearNewList)
- Menu, RecOptMenu, Check, %d_Lang019%
-Else
- Menu, RecOptMenu, Uncheck, %d_Lang019%
+ If (ClearNewList)
+ Menu, RecOptMenu, Check, %d_Lang019%
+ Else
+ Menu, RecOptMenu, Uncheck, %d_Lang019%
-If (Strokes)
- Menu, RecOptMenu, Check, %t_Lang021%
-Else
- Menu, RecOptMenu, Uncheck, %t_Lang021%
+ If (Strokes)
+ Menu, RecOptMenu, Check, %t_Lang021%
+ Else
+ Menu, RecOptMenu, Uncheck, %t_Lang021%
-If (CaptKDn)
- Menu, RecOptMenu, Check, %t_Lang023%
-Else
- Menu, RecOptMenu, Uncheck, %t_Lang023%
+ If (CaptKDn)
+ Menu, RecOptMenu, Check, %t_Lang023%
+ Else
+ Menu, RecOptMenu, Uncheck, %t_Lang023%
-If (Mouse)
- Menu, RecOptMenu, Check, %t_Lang024%
-Else
- Menu, RecOptMenu, Uncheck, %t_Lang024%
+ If (Mouse)
+ Menu, RecOptMenu, Check, %t_Lang024%
+ Else
+ Menu, RecOptMenu, Uncheck, %t_Lang024%
-If (MScroll)
- Menu, RecOptMenu, Check, %t_Lang025%
-Else
- Menu, RecOptMenu, Uncheck, %t_Lang025%
+ If (MScroll)
+ Menu, RecOptMenu, Check, %t_Lang025%
+ Else
+ Menu, RecOptMenu, Uncheck, %t_Lang025%
-If (Moves)
- Menu, RecOptMenu, Check, %t_Lang026%
-Else
- Menu, RecOptMenu, Uncheck, %t_Lang026%
+ If (Moves)
+ Menu, RecOptMenu, Check, %t_Lang026%
+ Else
+ Menu, RecOptMenu, Uncheck, %t_Lang026%
-If (TimedI)
- Menu, RecOptMenu, Check, %t_Lang027%
-Else
- Menu, RecOptMenu, Uncheck, %t_Lang027%
+ If (TimedI)
+ Menu, RecOptMenu, Check, %t_Lang027%
+ Else
+ Menu, RecOptMenu, Uncheck, %t_Lang027%
-If (WClass)
- Menu, RecOptMenu, Check, %t_Lang029%
-Else
- Menu, RecOptMenu, Uncheck, %t_Lang029%
+ If (WClass)
+ Menu, RecOptMenu, Check, %t_Lang029%
+ Else
+ Menu, RecOptMenu, Uncheck, %t_Lang029%
-If (WTitle)
- Menu, RecOptMenu, Check, %t_Lang030%
-Else
- Menu, RecOptMenu, Uncheck, %t_Lang030%
+ If (WTitle)
+ Menu, RecOptMenu, Check, %t_Lang030%
+ Else
+ Menu, RecOptMenu, Uncheck, %t_Lang030%
-If (RecMouseCtrl)
- Menu, RecOptMenu, Check, %t_Lang032%
-Else
- Menu, RecOptMenu, Uncheck, %t_Lang032%
+ If (RecMouseCtrl)
+ Menu, RecOptMenu, Check, %t_Lang032%
+ Else
+ Menu, RecOptMenu, Uncheck, %t_Lang032%
-If (RecKeybdCtrl)
- Menu, RecOptMenu, Check, %t_Lang031%
-Else
- Menu, RecOptMenu, Uncheck, %t_Lang031%
+ If (RecKeybdCtrl)
+ Menu, RecOptMenu, Check, %t_Lang031%
+ Else
+ Menu, RecOptMenu, Uncheck, %t_Lang031%
-If (pb_From)
- Menu, PlayOptMenu, Check, %r_Lang008%
-Else
- Menu, PlayOptMenu, Uncheck, %r_Lang008%
+ If (pb_From)
+ Menu, PlayOptMenu, Check, %r_Lang008%
+ Else
+ Menu, PlayOptMenu, Uncheck, %r_Lang008%
-If (pb_To)
- Menu, PlayOptMenu, Check, %r_Lang009%
-Else
- Menu, PlayOptMenu, Uncheck, %r_Lang009%
+ If (pb_To)
+ Menu, PlayOptMenu, Check, %r_Lang009%
+ Else
+ Menu, PlayOptMenu, Uncheck, %r_Lang009%
-If (pb_Sel)
- Menu, PlayOptMenu, Check, %r_Lang010%
-Else
- Menu, PlayOptMenu, Uncheck, %r_Lang010%
+ If (pb_Sel)
+ Menu, PlayOptMenu, Check, %r_Lang010%
+ Else
+ Menu, PlayOptMenu, Uncheck, %r_Lang010%
-If (ShowStep)
- Menu, PlayOptMenu, Check, %t_Lang100%
-Else
- Menu, PlayOptMenu, Uncheck, %t_Lang100%
+ If (ShowStep)
+ Menu, PlayOptMenu, Check, %t_Lang100%
+ Else
+ Menu, PlayOptMenu, Uncheck, %t_Lang100%
-If (HideErrors)
- Menu, PlayOptMenu, Check, %t_Lang206%
-Else
- Menu, PlayOptMenu, Uncheck, %t_Lang206%
+ If (HideErrors)
+ Menu, PlayOptMenu, Check, %t_Lang206%
+ Else
+ Menu, PlayOptMenu, Uncheck, %t_Lang206%
-If (MouseReturn)
- Menu, PlayOptMenu, Check, %t_Lang038%
-Else
- Menu, PlayOptMenu, Uncheck, %t_Lang038%
+ If (MouseReturn)
+ Menu, PlayOptMenu, Check, %t_Lang038%
+ Else
+ Menu, PlayOptMenu, Uncheck, %t_Lang038%
-If (ShowBarOnStart)
- Menu, PlayOptMenu, Check, %t_Lang085%
-Else
- Menu, PlayOptMenu, Uncheck, %t_Lang085%
+ If (ShowBarOnStart)
+ Menu, PlayOptMenu, Check, %t_Lang085%
+ Else
+ Menu, PlayOptMenu, Uncheck, %t_Lang085%
-If (AutoHideBar)
- Menu, PlayOptMenu, Check, %t_Lang143%
-Else
- Menu, PlayOptMenu, Uncheck, %t_Lang143%
+ If (AutoHideBar)
+ Menu, PlayOptMenu, Check, %t_Lang143%
+ Else
+ Menu, PlayOptMenu, Uncheck, %t_Lang143%
-If (RandomSleeps)
- Menu, PlayOptMenu, Check, %t_Lang107%
-Else
- Menu, PlayOptMenu, Uncheck, %t_Lang107%
+ If (RandomSleeps)
+ Menu, PlayOptMenu, Check, %t_Lang107%
+ Else
+ Menu, PlayOptMenu, Uncheck, %t_Lang107%
-Count := 2
-Loop, 8
-{
- Menu, SpeedUpMenu, Uncheck, %Count%x
- Menu, SpeedDnMenu, Uncheck, %Count%x
- Count *= 2
-}
-Menu, SpeedUpMenu, Check, % (SpeedUp = 1 ? SpeedUp := 2 : SpeedUp) "x"
-Menu, SpeedDnMenu, Check, % (SpeedDn = 1 ? SpeedDn := 2 : SpeedDn) "x"
+ Count := 2
+ Loop, 8
+ {
+ Menu, SpeedUpMenu, Uncheck, %Count%x
+ Menu, SpeedDnMenu, Uncheck, %Count%x
+ Count *= 2
+ }
+ Menu, SpeedUpMenu, Check, % (SpeedUp = 1 ? SpeedUp := 2 : SpeedUp) "x"
+ Menu, SpeedDnMenu, Check, % (SpeedDn = 1 ? SpeedDn := 2 : SpeedDn) "x"
return
OnFinish:
-Menu, OnFinish, Add, %w_Lang021%, FinishOpt, Radio
-Menu, OnFinish, Add, %w_Lang022%, FinishOpt, Radio
-Menu, OnFinish, Add, %w_Lang023%, FinishOpt, Radio
-Menu, OnFinish, Add, %w_Lang024%, FinishOpt, Radio
-Menu, OnFinish, Add, %w_Lang025%, FinishOpt, Radio
-Menu, OnFinish, Add, %w_Lang026%, FinishOpt, Radio
-Menu, OnFinish, Add, %w_Lang027%, FinishOpt, Radio
-Menu, OnFinish, Add, %w_Lang028%, FinishOpt, Radio
-Menu, OnFinish, Add, %w_Lang029%, FinishOpt, Radio
-
-Menu, OnFinish, Check, % w_Lang02%OnFinishCode%
-
-Menu, OnFinish, Show, %mX%, %mY%
-Menu, OnFinish, DeleteAll
-SetTimer, FinishIcon, -1
-GoSub, BuildOnFinishMenu
+ Menu, OnFinish, Add, %w_Lang021%, FinishOpt, Radio
+ Menu, OnFinish, Add, %w_Lang022%, FinishOpt, Radio
+ Menu, OnFinish, Add, %w_Lang023%, FinishOpt, Radio
+ Menu, OnFinish, Add, %w_Lang024%, FinishOpt, Radio
+ Menu, OnFinish, Add, %w_Lang025%, FinishOpt, Radio
+ Menu, OnFinish, Add, %w_Lang026%, FinishOpt, Radio
+ Menu, OnFinish, Add, %w_Lang027%, FinishOpt, Radio
+ Menu, OnFinish, Add, %w_Lang028%, FinishOpt, Radio
+ Menu, OnFinish, Add, %w_Lang029%, FinishOpt, Radio
+
+ Menu, OnFinish, Check, % w_Lang02%OnFinishCode%
+
+ Menu, OnFinish, Show, %mX%, %mY%
+ Menu, OnFinish, DeleteAll
+ SetTimer, FinishIcon, -1
+ GoSub, BuildOnFinishMenu
return
BuildOnFinishMenu:
-Menu, OnFinishMenu, Add, %w_Lang021%, FinishOpt, Radio
-Menu, OnFinishMenu, Add, %w_Lang022%, FinishOpt, Radio
-Menu, OnFinishMenu, Add, %w_Lang023%, FinishOpt, Radio
-Menu, OnFinishMenu, Add, %w_Lang024%, FinishOpt, Radio
-Menu, OnFinishMenu, Add, %w_Lang025%, FinishOpt, Radio
-Menu, OnFinishMenu, Add, %w_Lang026%, FinishOpt, Radio
-Menu, OnFinishMenu, Add, %w_Lang027%, FinishOpt, Radio
-Menu, OnFinishMenu, Add, %w_Lang028%, FinishOpt, Radio
-Menu, OnFinishMenu, Add, %w_Lang029%, FinishOpt, Radio
-
-Menu, OnFinishMenu, Uncheck, %w_Lang021%
-Menu, OnFinishMenu, Uncheck, %w_Lang022%
-Menu, OnFinishMenu, Uncheck, %w_Lang023%
-Menu, OnFinishMenu, Uncheck, %w_Lang024%
-Menu, OnFinishMenu, Uncheck, %w_Lang025%
-Menu, OnFinishMenu, Uncheck, %w_Lang026%
-Menu, OnFinishMenu, Uncheck, %w_Lang027%
-Menu, OnFinishMenu, Uncheck, %w_Lang028%
-Menu, OnFinishMenu, Uncheck, %w_Lang029%
-Menu, OnFinishMenu, Check, % w_Lang02%OnFinishCode%
-SetTimer, FinishIcon, -1
+ Menu, OnFinishMenu, Add, %w_Lang021%, FinishOpt, Radio
+ Menu, OnFinishMenu, Add, %w_Lang022%, FinishOpt, Radio
+ Menu, OnFinishMenu, Add, %w_Lang023%, FinishOpt, Radio
+ Menu, OnFinishMenu, Add, %w_Lang024%, FinishOpt, Radio
+ Menu, OnFinishMenu, Add, %w_Lang025%, FinishOpt, Radio
+ Menu, OnFinishMenu, Add, %w_Lang026%, FinishOpt, Radio
+ Menu, OnFinishMenu, Add, %w_Lang027%, FinishOpt, Radio
+ Menu, OnFinishMenu, Add, %w_Lang028%, FinishOpt, Radio
+ Menu, OnFinishMenu, Add, %w_Lang029%, FinishOpt, Radio
+
+ Menu, OnFinishMenu, Uncheck, %w_Lang021%
+ Menu, OnFinishMenu, Uncheck, %w_Lang022%
+ Menu, OnFinishMenu, Uncheck, %w_Lang023%
+ Menu, OnFinishMenu, Uncheck, %w_Lang024%
+ Menu, OnFinishMenu, Uncheck, %w_Lang025%
+ Menu, OnFinishMenu, Uncheck, %w_Lang026%
+ Menu, OnFinishMenu, Uncheck, %w_Lang027%
+ Menu, OnFinishMenu, Uncheck, %w_Lang028%
+ Menu, OnFinishMenu, Uncheck, %w_Lang029%
+ Menu, OnFinishMenu, Check, % w_Lang02%OnFinishCode%
+ SetTimer, FinishIcon, -1
return
FinishOpt:
-OnFinishCode := A_ThisMenuItemPos
-GoSub, BuildOnFinishMenu
+ OnFinishCode := A_ThisMenuItemPos
+ GoSub, BuildOnFinishMenu
SetFinishButton:
-If (OnFinishCode > 1)
- SetTimer, FinishIcon, -1
+ If (OnFinishCode > 1)
+ SetTimer, FinishIcon, -1
return
FinishIcon:
-TB_Edit(TbSettings, "OnFinish",(OnFinishCode = 1) ? 0 : 1,,, (OnFinishCode = 1) ? 20 : 62)
+ TB_Edit(TbSettings, "OnFinish",(OnFinishCode = 1) ? 0 : 1,,, (OnFinishCode = 1) ? 20 : 62)
return
ShowGroupsMenu:
-Menu, GroupMenu, Show, %mX%, %mY%
+ Menu, GroupMenu, Show, %mX%, %mY%
return
AddGroup:
-Gui, chMacro:Default
-Gui, chMacro:Listview, InputList%A_List%
-If A_OSVersion in WIN_2003,WIN_XP,WIN_2000
-{
- Gui, 1:+OwnDialogs
- MsgBox, 16, %d_Lang007%, %d_Lang094%
- return
-}
-If (!LV_GetNext())
-{
- Gui, 1:+OwnDialogs
- MsgBox, 16, %d_Lang089%, %d_Lang090%
- return
-}
-Gui, 37:+owner1 -MinimizeBox
-Gui, chMacro:Default
-Gui, 1:+Disabled
-Gui, 37:Add, GroupBox, Section xm W450 H50, %w_Lang103%:
-Gui, 37:Add, Edit, ys+20 xs+10 vGrName W430 r1, %t_Lang177%
-Gui, 37:Add, Button, -Wrap Section Default xm W75 H23 gGrOK, %c_Lang020%
-Gui, 37:Add, Button, -Wrap ys W75 H23 gGrCancel, %c_Lang021%
-Gui, 37:Show,, %t_Lang176%
-Tooltip
+ Gui, chMacro:Default
+ Gui, chMacro:Listview, InputList%A_List%
+ If A_OSVersion in WIN_2003,WIN_XP,WIN_2000
+ {
+ Gui, 1:+OwnDialogs
+ MsgBox, 16, %d_Lang007%, %d_Lang094%
+ return
+ }
+ If (!LV_GetNext())
+ {
+ Gui, 1:+OwnDialogs
+ MsgBox, 16, %d_Lang089%, %d_Lang090%
+ return
+ }
+ Gui, 37:+owner1 -MinimizeBox
+ Gui, chMacro:Default
+ Gui, 1:+Disabled
+ Gui, 37:Add, GroupBox, Section xm W450 H50, %w_Lang103%:
+ Gui, 37:Add, Edit, ys+20 xs+10 vGrName W430 r1, %t_Lang177%
+ Gui, 37:Add, Button, -Wrap Section Default xm W75 H23 gGrOK, %c_Lang020%
+ Gui, 37:Add, Button, -Wrap ys W75 H23 gGrCancel, %c_Lang021%
+ Gui, 37:Show,, %t_Lang176%
+ Tooltip
return
GrOK:
-Gui, 37:Submit, NoHide
-Gui, 1:-Disabled
-Gui, 37:Destroy
-Gui, chMacro:Default
-Gui, chMacro:Listview, InputList%A_List%
-If (GrName = "")
- GrName := t_Lang177
-If (!ShowGroups)
- GoSub, GroupsMode
-LVManager[A_List].InsertGroup(, GrName)
-LVManager[A_List].Add()
-SavePrompt(true, A_ThisLabel)
-GoSub, PrevRefresh
+ Gui, 37:Submit, NoHide
+ Gui, 1:-Disabled
+ Gui, 37:Destroy
+ Gui, chMacro:Default
+ Gui, chMacro:Listview, InputList%A_List%
+ If (GrName = "")
+ GrName := t_Lang177
+ If (!ShowGroups)
+ GoSub, GroupsMode
+ LVManager[A_List].InsertGroup(, GrName)
+ LVManager[A_List].Add()
+ SavePrompt(true, A_ThisLabel)
+ GoSub, PrevRefresh
return
GrCancel:
37GuiClose:
37GuiEscape:
-Gui, 1:-Disabled
-Gui, 37:Destroy
+ Gui, 1:-Disabled
+ Gui, 37:Destroy
return
GroupsMode:
-Gui, chMacro:Default
-Gui, chMacro:Listview, InputList%A_List%
-If A_OSVersion in WIN_2003,WIN_XP,WIN_2000
-{
- Gui, 1:+OwnDialogs
- MsgBox, 64, %AppName%, %d_Lang094%
- return
-}
-TB_Edit(TbEdit, "GroupsMode", ShowGroups := !ShowGroups)
+ Gui, chMacro:Default
+ Gui, chMacro:Listview, InputList%A_List%
+ If A_OSVersion in WIN_2003,WIN_XP,WIN_2000
+ {
+ Gui, 1:+OwnDialogs
+ MsgBox, 64, %AppName%, %d_Lang094%
+ return
+ }
+ TB_Edit(TbEdit, "GroupsMode", ShowGroups := !ShowGroups)
EnableGroups:
-Gui, chMacro:Submit, NoHide
-Loop, %TabCount%
-{
- Gui, chMacro:Listview, InputList%A_Index%
- GuiControl, chMacro:-g, InputList%A_Index%
- LVManager[A_Index].EnableGroups(ShowGroups, c_Lang061)
- GuiControl, chMacro:+gInputList, InputList%A_Index%
-}
-If (ShowGroups)
- Menu, GroupMenu, Check, %e_Lang018%`t%_s%Ctrl+Shift+G
-Else
- Menu, GroupMenu, Uncheck, %e_Lang018%`t%_s%Ctrl+Shift+G
-GoSub, PrevRefresh
+ Gui, chMacro:Submit, NoHide
+ Loop, %TabCount%
+ {
+ Gui, chMacro:Listview, InputList%A_Index%
+ GuiControl, chMacro:-g, InputList%A_Index%
+ LVManager[A_Index].EnableGroups(ShowGroups, c_Lang061)
+ GuiControl, chMacro:+gInputList, InputList%A_Index%
+ }
+ If (ShowGroups)
+ Menu, GroupMenu, Check, %e_Lang018%`t%_s%Ctrl+Shift+G
+ Else
+ Menu, GroupMenu, Uncheck, %e_Lang018%`t%_s%Ctrl+Shift+G
+ GoSub, PrevRefresh
return
RemoveGroup:
-Gui, chMacro:Default
-Gui, chMacro:Listview, InputList%A_List%
-If (!LV_GetNext())
-{
- Gui, 1:+OwnDialogs
- MsgBox, 16, %d_Lang089%, %d_Lang090%
- return
-}
-LVManager[A_List].RemoveGroup()
-LVManager[A_List].Add()
-SavePrompt(true, A_ThisLabel)
-GoSub, PrevRefresh
+ Gui, chMacro:Default
+ Gui, chMacro:Listview, InputList%A_List%
+ If (!LV_GetNext())
+ {
+ Gui, 1:+OwnDialogs
+ MsgBox, 16, %d_Lang089%, %d_Lang090%
+ return
+ }
+ LVManager[A_List].RemoveGroup()
+ LVManager[A_List].Add()
+ SavePrompt(true, A_ThisLabel)
+ GoSub, PrevRefresh
return
RemoveAllGroups:
-Gui, chMacro:Default
-Gui, chMacro:Listview, InputList%A_List%
-LVManager[A_List].RemoveAllGroups(c_Lang061)
-LVManager[A_List].Add()
-SavePrompt(true, A_ThisLabel)
-GoSub, PrevRefresh
+ Gui, chMacro:Default
+ Gui, chMacro:Listview, InputList%A_List%
+ LVManager[A_List].RemoveAllGroups(c_Lang061)
+ LVManager[A_List].Add()
+ SavePrompt(true, A_ThisLabel)
+ GoSub, PrevRefresh
return
CollapseGroups:
ExpandGroups:
-Gui, chMacro:Default
-Gui, chMacro:Listview, InputList%A_List%
-LVManager[A_List].CollapseAll(A_ThisLabel = "CollapseGroups")
+ Gui, chMacro:Default
+ Gui, chMacro:Listview, InputList%A_List%
+ LVManager[A_List].CollapseAll(A_ThisLabel = "CollapseGroups")
return
;##### Languages: #####
LangChange:
-SelLang := RegExReplace(SelLang, "\s/.*")
-For i, l in LangFiles
-{
- If (LangData.HasKey(i))
- lName := (InStr(i, "_")) ? LangData[i].Lang : LangData[i].Idiom, n := i
- Else
+ SelLang := RegExReplace(SelLang, "\s/.*")
+ For i, l in LangFiles
{
- c := RegExReplace(i, "_.*")
- For e, l in LangData
+ If (LangData.HasKey(i))
+ lName := (InStr(i, "_")) ? LangData[i].Lang : LangData[i].Idiom, n := i
+ Else
{
- If (InStr(e, c)=1)
+ c := RegExReplace(i, "_.*")
+ For e, l in LangData
{
- lName := (InStr(e, "_")) ? l.Lang : l.Idiom, n := c
- break
+ If (InStr(e, c)=1)
+ {
+ lName := (InStr(e, "_")) ? l.Lang : l.Idiom, n := c
+ break
+ }
}
}
+ If (SelLang = lName)
+ {
+ Lang := n
+ break
+ }
}
- If (SelLang = lName)
- {
- Lang := n
- break
- }
-}
-If (Lang = CurrentLang)
- return
+ If (Lang = CurrentLang)
+ return
UpdateLang:
-Gui, Menu
-Menu, SpeedUpMenu, DeleteAll
-Menu, SpeedDnMenu, DeleteAll
-Menu, RecOptMenu, DeleteAll
-Menu, PlayOptMenu, DeleteAll
-Menu, FileMenu, DeleteAll
-Menu, MacroMenu, DeleteAll
-Menu, FuncMenu, DeleteAll
-Menu, CommandMenu, DeleteAll
-Menu, SelectMenu, DeleteAll
-Menu, SelCmdMenu, DeleteAll
-Menu, GroupMenu, DeleteAll
-Menu, EditMenu, DeleteAll
-Menu, CustomMenu, DeleteAll
-Menu, ToolbarsMenu, DeleteAll
-Menu, HotkeyMenu, DeleteAll
-Menu, SetIconSizeMenu, DeleteAll
-Menu, SetLayoutMenu, DeleteAll
-Menu, ViewMenu, DeleteAll
-Menu, PreviewMenu, DeleteAll
-Menu, OnFinishMenu, DeleteAll
-Menu, OptionsMenu, DeleteAll
-Menu, HelpMenu, DeleteAll
-Menu, DonationMenu, DeleteAll
-Menu, MenuBar, DeleteAll
-Menu, ToolbarMenu, DeleteAll
-Menu, BI_Characters, DeleteAll
-Menu, BI_Properties, DeleteAll
-Menu, BI_Date, DeleteAll
-Menu, BI_Idle, DeleteAll
-Menu, BI_System, DeleteAll
-Menu, BI_Misc, DeleteAll
-Menu, BI_Loop, DeleteAll
-Menu, BuiltInMenu, DeleteAll
-Menu, Tray, DeleteAll
-If (PmcRecentFiles != "")
- Menu, RecentMenu, DeleteAll
-PmcRecentFiles := ""
-GoSub, LoadLang
-GoSub, AddRecentFiles
-GoSub, CreateMenuBar
-If (InStr(CopyMenuLabels[A_List], "()"))
- GoSub, FuncTab
-Else
- GoSub, MacroTab
-CurrentLang := Lang
-
-Gui, chMacro:Default
-Loop, %TabCount%
-{
- Gui, chMacro:ListView, InputList%A_Index%
- Loop, % LV_GetCount("Col")
- colTx := "w_Lang0" 29 + A_Index, LV_ModifyCol(A_Index,, %colTx%)
-}
-Gui, chMacro:ListView, InputList%A_List%
-
-GuiControl, 1:, Repeat, %w_Lang015%:
-GuiControl, 1:, DelayT, %w_Lang016%:
-GuiControl, 1:, TLastMacroTip, %w_Lang115%: %LastMacroRun%
-GuiControl, 1:-Redraw, cRbMain
-RbMain.ModifyBand(RbMain.IDToIndex(7), "Text", w_Lang005)
-, RbMain.ModifyBand(RbMain.IDToIndex(8), "Text", w_Lang007)
-, RbMain.ModifyBand(RbMain.IDToIndex(9), "Text", w_Lang008)
-, RbMain.ModifyBand(RbMain.IDToIndex(10), "Text", c_Lang003)
-, RbMain.ModifyBand(RbMain.IDToIndex(11), "Text", w_Lang011 " (" t_Lang004 ")")
-; File
-TB_Edit(tbFile, "New", "", "", w_Lang112), TB_Edit(tbFile, "Open", "", "", w_Lang041), TB_Edit(tbFile, "Save", "", "", w_Lang042), TB_Edit(tbFile, "SaveAs", "", "", w_Lang043)
-, TB_Edit(tbFile, "Export", "", "", w_Lang044), TB_Edit(tbFile, "Preview", "", "", w_Lang045), TB_Edit(tbFile, "Options", "", "", w_Lang046)
-; RecPlay
-TB_Edit(tbRecPlay, "Record", "", "", w_Lang047)
-, TB_Edit(tbRecPlay, "PlayStart", "", "", w_Lang048), TB_Edit(tbRecPlay, "TestRun", "", "", w_Lang049), TB_Edit(tbRecPlay, "RunTimer", "", "", w_Lang050)
-; Command
-TB_Edit(tbCommand, "Mouse", "", "", w_Lang051), TB_Edit(tbCommand, "Text", "", "", w_Lang052), TB_Edit(tbCommand, "ControlCmd", "", "", w_Lang054)
-, TB_Edit(tbCommand, "Sleep", "", "", w_Lang055), TB_Edit(tbCommand, "MsgBox", "", "", w_Lang056), TB_Edit(tbCommand, "KeyWait", "", "", w_Lang057)
-, TB_Edit(tbCommand, "Window", "", "", w_Lang058), TB_Edit(tbCommand, "Image", "", "", w_Lang059), TB_Edit(tbCommand, "Run", "", "", w_Lang060)
-, TB_Edit(tbCommand, "ComLoop", "", "", w_Lang061), TB_Edit(tbCommand, "ComGoto", "", "", w_Lang062), TB_Edit(tbCommand, "TimedLabel", "", "", w_Lang063)
-, TB_Edit(tbCommand, "IfSt", "", "", w_Lang064), TB_Edit(tbCommand, "AsVar", "", "", w_Lang065), TB_Edit(tbCommand, "AsFunc", "", "", w_Lang066)
-, TB_Edit(tbCommand, "Email", "", "", w_Lang067), TB_Edit(tbCommand, "DownloadFiles", "", "", w_Lang068), TB_Edit(tbCommand, "Zipfiles", "", "", w_Lang069)
-, TB_Edit(tbCommand, "IECom", "", "", w_Lang070), TB_Edit(tbCommand, "ComInt", "", "", w_Lang071), TB_Edit(tbCommand, "SendMsg", "", "", w_Lang072)
-, TB_Edit(tbCommand, "CmdFind", "", "", w_Lang092)
-; Settings
-TB_Edit(tbSettings, "HideMainWin", "", "", w_Lang013), TB_Edit(tbSettings, "OnScCtrl", "", "", w_Lang009)
-, TB_Edit(tbSettings, "Capt", "", "", w_Lang012), TB_Edit(tbSettings, "CheckHkOn", "", "", w_Lang014)
-, TB_Edit(tbSettings, "OnFinish", "", "", w_Lang020) , TB_Edit(tbSettings, "SetWin", "", "", t_Lang009)
-, TB_Edit(tbSettings, "WinKey", "", "", w_Lang109), TB_Edit(tbSettings, "SetJoyButton", "", "", w_Lang110)
-; Edit
-TB_Edit(tbEdit, "EditButton", "", "", w_Lang093), TB_Edit(tbEdit, "CutRows", "", "", w_Lang081), TB_Edit(tbEdit, "CopyRows", "", "", w_Lang082), TB_Edit(tbEdit, "PasteRows", "", "", w_Lang083), TB_Edit(tbEdit, "Remove", "", "", w_Lang084)
-, TB_Edit(tbEdit, "Duplicate", "", "", w_Lang080), TB_Edit(tbEdit, "SelectMenu", "", "", t_Lang139), TB_Edit(tbEdit, "CopyTo", "", "", w_Lang087)
-, TB_Edit(tbEdit, "GroupsMode", "", "", w_Lang097)
-, TB_Edit(tbEdit, "MoveUp", "", "", w_Lang078), TB_Edit(tbEdit, "MoveDn", "", "", w_Lang079)
-, TB_Edit(tbEdit, "Undo", "", "", w_Lang085), TB_Edit(tbEdit, "Redo", "", "", w_Lang086)
-, TB_Edit(tbEdit, "FindReplace", "", "", w_Lang088), TB_Edit(tbEdit, "EditComm", "", "", w_Lang089), TB_Edit(tbEdit, "EditColor", "", "", w_Lang090)
-, TB_Edit(tbEdit, "TabPlus", "", "", w_Lang073), TB_Edit(tbEdit, "TabClose", "", "", w_Lang074), TB_Edit(tbEdit, "DuplicateList", "", "", w_Lang075), TB_Edit(tbEdit, "EditMacros", "", "", w_Lang053)
-, TB_Edit(tbEdit, "Import", "", "", w_Lang076), TB_Edit(tbEdit, "SaveCurrentList", "", "", w_Lang077)
-, TB_Edit(tbEdit, "UserFunction", "", "", w_Lang104), TB_Edit(tbEdit, "FuncParameter", "", "", w_Lang105), TB_Edit(tbEdit, "FuncReturn", "", "", w_Lang106)
-; Preview
-TB_Edit(tbPrev, "PrevCopy", "", "", c_Lang023), TB_Edit(tbPrev, "PrevRefreshButton", "", "", t_Lang014), TB_Edit(tbPrev, "GoToLine", "", "", t_Lang218)
-, TB_Edit(tbPrev, "TabIndent", "", "", t_Lang011), TB_Edit(tbPrev, "ConvertBreaks", "", "", t_Lang190), TB_Edit(tbPrev, "CommentUnchecked", "", "", w_Lang108), TB_Edit(tbPrev, "TextWrap", "", "", t_Lang052), TB_Edit(tbPrev, "PrevFontShow", "", "", v_Lang011)
-, TB_Edit(tbPrev, "EditScript", "", "", t_Lang138), TB_Edit(tbPrev, "PrevDock", "", "", t_Lang124), TB_Edit(tbPrev, "Preview", "", "", c_Lang022)
-
-, TB_Edit(tbPrevF, "PrevCopy", "", "", c_Lang023), TB_Edit(tbPrevF, "PrevRefreshButton", "", "", t_Lang014), TB_Edit(tbPrevF, "GoToLine", "", "", t_Lang218)
-, TB_Edit(tbPrevF, "TabIndent", "", "", t_Lang011), TB_Edit(tbPrevF, "ConvertBreaks", "", "", t_Lang190), TB_Edit(tbPrevF, "CommentUnchecked", "", "", w_Lang108), TB_Edit(tbPrevF, "TextWrap", "", "", t_Lang052), TB_Edit(tbPrev, "PrevFontShow", "", "", v_Lang011), TB_Edit(tbPrevF, "OnTop", "", "", t_Lang016)
-, TB_Edit(tbPrevF, "EditScript", "", "", t_Lang138), TB_Edit(tbPrevF, "PrevDock", "", "", t_Lang125)
-; OSC
-TB_Edit(tbOSC, "OSPlay", "", "", t_Lang112), TB_Edit(tbOSC, "OSStop", "", "", t_Lang113), TB_Edit(tbOSC, "ShowPlayMenu", "", "", t_Lang114)
-, TB_Edit(tbOSC, "RecStart", "", "", t_Lang115), TB_Edit(tbOSC, "RecStartNew", "", "", t_Lang116), TB_Edit(tbOSC, "ShowRecMenu", "", "", t_Lang117)
-, TB_Edit(tbOSC, "OSClear", "", "", t_Lang118)
-, TB_Edit(tbOSC, "ProgBarToggle", "", "", t_Lang119)
-, TB_Edit(tbOSC, "SlowKeyToggle", "", "", t_Lang121), TB_Edit(tbOSC, "FastKeyToggle", "", "", t_Lang120)
-, TB_Edit(tbOSC, "ToggleTB", "", "", t_Lang122), TB_Edit(tbOSC, "ShowHideTB", "", "", t_Lang123)
-
-FixedBar.Text := ["OpenT=" t_Lang126 ":42", "SaveT=" t_Lang127 ":59"
- , "", "CutT=" t_Lang128 ":9", "CopyT=" t_Lang129 ":8", "PasteT=" t_Lang130 ":44"
- , "", "RemoveT=" t_Lang132 ":10", "SelAllT=" t_Lang131 ":99"]
-DllCall("SendMessageW", "Ptr", hFindEdit, "Uint", 0x1501, "Ptr", True, "WStr", w_Lang111) ; EM_SETCUEBANNER = 0x1501
-GuiControl, 1:+Redraw, cRbMain
+ Gui, Menu
+ Menu, SpeedUpMenu, DeleteAll
+ Menu, SpeedDnMenu, DeleteAll
+ Menu, RecOptMenu, DeleteAll
+ Menu, PlayOptMenu, DeleteAll
+ Menu, FileMenu, DeleteAll
+ Menu, MacroMenu, DeleteAll
+ Menu, FuncMenu, DeleteAll
+ Menu, CommandMenu, DeleteAll
+ Menu, SelectMenu, DeleteAll
+ Menu, SelCmdMenu, DeleteAll
+ Menu, GroupMenu, DeleteAll
+ Menu, EditMenu, DeleteAll
+ Menu, CustomMenu, DeleteAll
+ Menu, ToolbarsMenu, DeleteAll
+ Menu, HotkeyMenu, DeleteAll
+ Menu, SetIconSizeMenu, DeleteAll
+ Menu, SetLayoutMenu, DeleteAll
+ Menu, ViewMenu, DeleteAll
+ Menu, PreviewMenu, DeleteAll
+ Menu, OnFinishMenu, DeleteAll
+ Menu, OptionsMenu, DeleteAll
+ Menu, HelpMenu, DeleteAll
+ Menu, DonationMenu, DeleteAll
+ Menu, MenuBar, DeleteAll
+ Menu, ToolbarMenu, DeleteAll
+ Menu, BI_Characters, DeleteAll
+ Menu, BI_Properties, DeleteAll
+ Menu, BI_Date, DeleteAll
+ Menu, BI_Idle, DeleteAll
+ Menu, BI_System, DeleteAll
+ Menu, BI_Misc, DeleteAll
+ Menu, BI_Loop, DeleteAll
+ Menu, BuiltInMenu, DeleteAll
+ Menu, Tray, DeleteAll
+ If (PmcRecentFiles != "")
+ Menu, RecentMenu, DeleteAll
+ PmcRecentFiles := ""
+ GoSub, LoadLang
+ GoSub, AddRecentFiles
+ GoSub, CreateMenuBar
+ If (InStr(CopyMenuLabels[A_List], "()"))
+ GoSub, FuncTab
+ Else
+ GoSub, MacroTab
+ CurrentLang := Lang
-Gui 7:+LastFoundExist
-IfWinExist
- GoSub, InsertKey
-Gui 18:+LastFoundExist
-IfWinExist
- GoSub, FindReplace
-Gui 26:+LastFoundExist
-IfWinExist
- GoSub, TipClose
-GoSub, SetFindCmd
-SavePrompt(SavePrompt, A_ThisLabel)
+ Gui, chMacro:Default
+ Loop, %TabCount%
+ {
+ Gui, chMacro:ListView, InputList%A_Index%
+ Loop, % LV_GetCount("Col")
+ colTx := "w_Lang0" 29 + A_Index, LV_ModifyCol(A_Index,, %colTx%)
+ }
+ Gui, chMacro:ListView, InputList%A_List%
+
+ GuiControl, 1:, Repeat, %w_Lang015%:
+ GuiControl, 1:, DelayT, %w_Lang016%:
+ GuiControl, 1:, TLastMacroTip, %w_Lang115%: %LastMacroRun%
+ GuiControl, 1:-Redraw, cRbMain
+ RbMain.ModifyBand(RbMain.IDToIndex(7), "Text", w_Lang005)
+ , RbMain.ModifyBand(RbMain.IDToIndex(8), "Text", w_Lang007)
+ , RbMain.ModifyBand(RbMain.IDToIndex(9), "Text", w_Lang008)
+ , RbMain.ModifyBand(RbMain.IDToIndex(10), "Text", c_Lang003)
+ , RbMain.ModifyBand(RbMain.IDToIndex(11), "Text", w_Lang011 " (" t_Lang004 ")")
+ ; File
+ TB_Edit(tbFile, "New", "", "", w_Lang112), TB_Edit(tbFile, "Open", "", "", w_Lang041), TB_Edit(tbFile, "Save", "", "", w_Lang042), TB_Edit(tbFile, "SaveAs", "", "", w_Lang043)
+ , TB_Edit(tbFile, "Export", "", "", w_Lang044), TB_Edit(tbFile, "Preview", "", "", w_Lang045), TB_Edit(tbFile, "Options", "", "", w_Lang046)
+ ; RecPlay
+ TB_Edit(tbRecPlay, "Record", "", "", w_Lang047)
+ , TB_Edit(tbRecPlay, "PlayStart", "", "", w_Lang048), TB_Edit(tbRecPlay, "TestRun", "", "", w_Lang049), TB_Edit(tbRecPlay, "RunTimer", "", "", w_Lang050)
+ ; Command
+ TB_Edit(tbCommand, "Mouse", "", "", w_Lang051), TB_Edit(tbCommand, "Text", "", "", w_Lang052), TB_Edit(tbCommand, "ControlCmd", "", "", w_Lang054)
+ , TB_Edit(tbCommand, "Sleep", "", "", w_Lang055), TB_Edit(tbCommand, "MsgBox", "", "", w_Lang056), TB_Edit(tbCommand, "KeyWait", "", "", w_Lang057)
+ , TB_Edit(tbCommand, "Window", "", "", w_Lang058), TB_Edit(tbCommand, "Image", "", "", w_Lang059), TB_Edit(tbCommand, "Run", "", "", w_Lang060)
+ , TB_Edit(tbCommand, "ComLoop", "", "", w_Lang061), TB_Edit(tbCommand, "ComGoto", "", "", w_Lang062), TB_Edit(tbCommand, "TimedLabel", "", "", w_Lang063)
+ , TB_Edit(tbCommand, "IfSt", "", "", w_Lang064), TB_Edit(tbCommand, "AsVar", "", "", w_Lang065), TB_Edit(tbCommand, "AsFunc", "", "", w_Lang066)
+ , TB_Edit(tbCommand, "Email", "", "", w_Lang067), TB_Edit(tbCommand, "DownloadFiles", "", "", w_Lang068), TB_Edit(tbCommand, "Zipfiles", "", "", w_Lang069)
+ , TB_Edit(tbCommand, "IECom", "", "", w_Lang070), TB_Edit(tbCommand, "ComInt", "", "", w_Lang071), TB_Edit(tbCommand, "SendMsg", "", "", w_Lang072)
+ , TB_Edit(tbCommand, "CmdFind", "", "", w_Lang092)
+ ; Settings
+ TB_Edit(tbSettings, "HideMainWin", "", "", w_Lang013), TB_Edit(tbSettings, "OnScCtrl", "", "", w_Lang009)
+ , TB_Edit(tbSettings, "Capt", "", "", w_Lang012), TB_Edit(tbSettings, "CheckHkOn", "", "", w_Lang014)
+ , TB_Edit(tbSettings, "OnFinish", "", "", w_Lang020) , TB_Edit(tbSettings, "SetWin", "", "", t_Lang009)
+ , TB_Edit(tbSettings, "WinKey", "", "", w_Lang109), TB_Edit(tbSettings, "SetJoyButton", "", "", w_Lang110)
+ ; Edit
+ TB_Edit(tbEdit, "EditButton", "", "", w_Lang093), TB_Edit(tbEdit, "CutRows", "", "", w_Lang081), TB_Edit(tbEdit, "CopyRows", "", "", w_Lang082), TB_Edit(tbEdit, "PasteRows", "", "", w_Lang083), TB_Edit(tbEdit, "Remove", "", "", w_Lang084)
+ , TB_Edit(tbEdit, "Duplicate", "", "", w_Lang080), TB_Edit(tbEdit, "SelectMenu", "", "", t_Lang139), TB_Edit(tbEdit, "CopyTo", "", "", w_Lang087)
+ , TB_Edit(tbEdit, "GroupsMode", "", "", w_Lang097)
+ , TB_Edit(tbEdit, "MoveUp", "", "", w_Lang078), TB_Edit(tbEdit, "MoveDn", "", "", w_Lang079)
+ , TB_Edit(tbEdit, "Undo", "", "", w_Lang085), TB_Edit(tbEdit, "Redo", "", "", w_Lang086)
+ , TB_Edit(tbEdit, "FindReplace", "", "", w_Lang088), TB_Edit(tbEdit, "EditComm", "", "", w_Lang089), TB_Edit(tbEdit, "EditColor", "", "", w_Lang090)
+ , TB_Edit(tbEdit, "TabPlus", "", "", w_Lang073), TB_Edit(tbEdit, "TabClose", "", "", w_Lang074), TB_Edit(tbEdit, "DuplicateList", "", "", w_Lang075), TB_Edit(tbEdit, "EditMacros", "", "", w_Lang053)
+ , TB_Edit(tbEdit, "Import", "", "", w_Lang076), TB_Edit(tbEdit, "SaveCurrentList", "", "", w_Lang077)
+ , TB_Edit(tbEdit, "UserFunction", "", "", w_Lang104), TB_Edit(tbEdit, "FuncParameter", "", "", w_Lang105), TB_Edit(tbEdit, "FuncReturn", "", "", w_Lang106)
+ ; Preview
+ TB_Edit(tbPrev, "PrevCopy", "", "", c_Lang023), TB_Edit(tbPrev, "PrevRefreshButton", "", "", t_Lang014), TB_Edit(tbPrev, "GoToLine", "", "", t_Lang218)
+ , TB_Edit(tbPrev, "TabIndent", "", "", t_Lang011), TB_Edit(tbPrev, "ConvertBreaks", "", "", t_Lang190), TB_Edit(tbPrev, "CommentUnchecked", "", "", w_Lang108), TB_Edit(tbPrev, "TextWrap", "", "", t_Lang052), TB_Edit(tbPrev, "PrevFontShow", "", "", v_Lang011)
+ , TB_Edit(tbPrev, "EditScript", "", "", t_Lang138), TB_Edit(tbPrev, "PrevDock", "", "", t_Lang124), TB_Edit(tbPrev, "Preview", "", "", c_Lang022)
+
+ , TB_Edit(tbPrevF, "PrevCopy", "", "", c_Lang023), TB_Edit(tbPrevF, "PrevRefreshButton", "", "", t_Lang014), TB_Edit(tbPrevF, "GoToLine", "", "", t_Lang218)
+ , TB_Edit(tbPrevF, "TabIndent", "", "", t_Lang011), TB_Edit(tbPrevF, "ConvertBreaks", "", "", t_Lang190), TB_Edit(tbPrevF, "CommentUnchecked", "", "", w_Lang108), TB_Edit(tbPrevF, "TextWrap", "", "", t_Lang052), TB_Edit(tbPrev, "PrevFontShow", "", "", v_Lang011), TB_Edit(tbPrevF, "OnTop", "", "", t_Lang016)
+ , TB_Edit(tbPrevF, "EditScript", "", "", t_Lang138), TB_Edit(tbPrevF, "PrevDock", "", "", t_Lang125)
+ ; OSC
+ TB_Edit(tbOSC, "OSPlay", "", "", t_Lang112), TB_Edit(tbOSC, "OSStop", "", "", t_Lang113), TB_Edit(tbOSC, "ShowPlayMenu", "", "", t_Lang114)
+ , TB_Edit(tbOSC, "RecStart", "", "", t_Lang115), TB_Edit(tbOSC, "RecStartNew", "", "", t_Lang116), TB_Edit(tbOSC, "ShowRecMenu", "", "", t_Lang117)
+ , TB_Edit(tbOSC, "OSClear", "", "", t_Lang118)
+ , TB_Edit(tbOSC, "ProgBarToggle", "", "", t_Lang119)
+ , TB_Edit(tbOSC, "SlowKeyToggle", "", "", t_Lang121), TB_Edit(tbOSC, "FastKeyToggle", "", "", t_Lang120)
+ , TB_Edit(tbOSC, "ToggleTB", "", "", t_Lang122), TB_Edit(tbOSC, "ShowHideTB", "", "", t_Lang123)
+
+ FixedBar.Text := ["OpenT=" t_Lang126 ":42", "SaveT=" t_Lang127 ":59"
+ , "", "CutT=" t_Lang128 ":9", "CopyT=" t_Lang129 ":8", "PasteT=" t_Lang130 ":44"
+ , "", "RemoveT=" t_Lang132 ":10", "SelAllT=" t_Lang131 ":99"]
+ DllCall("SendMessageW", "Ptr", hFindEdit, "Uint", 0x1501, "Ptr", True, "WStr", w_Lang111) ; EM_SETCUEBANNER = 0x1501
+ GuiControl, 1:+Redraw, cRbMain
+
+ Gui 7:+LastFoundExist
+ IfWinExist
+ GoSub, InsertKey
+ Gui 18:+LastFoundExist
+ IfWinExist
+ GoSub, FindReplace
+ Gui 26:+LastFoundExist
+ IfWinExist
+ GoSub, TipClose
+ GoSub, SetFindCmd
+ SavePrompt(SavePrompt, A_ThisLabel)
return
LoadLangFiles:
-LangFiles := {}
-Loop, Files, %SettingsFolder%\Lang\*.lang
-{
- _L := StrReplace(A_LoopFileName, ".lang"), ReadData := {}
- Loop, Read, %A_LoopFileFullPath%
+ LangFiles := {}
+ Loop, Files, %SettingsFolder%\Lang\*.lang
{
- If (A_Index < 5)
- continue
- If (InStr(A_LoopReadLine, "; ")=1)
+ _L := StrReplace(A_LoopFileName, ".lang"), ReadData := {}
+ Loop, Read, %A_LoopFileFullPath%
{
- _Section := Trim(SubStr(A_LoopReadLine, 3))
- ReadData[_Section] := []
- continue
+ If (A_Index < 5)
+ continue
+ If (InStr(A_LoopReadLine, "; ")=1)
+ {
+ _Section := Trim(SubStr(A_LoopReadLine, 3))
+ ReadData[_Section] := []
+ continue
+ }
+ L := StrSplit(A_LoopReadLine, A_Tab)
+ If (RegExMatch(L.2, " =$"))
+ lVar := RTrim(StrReplace(L.2, " =")), ReadData[_Section][lVar] := Trim(L.3)
+ Else If (L.3 != "")
+ ReadData[_Section][lVar] .= ((ReadData[_Section][lVar] != "") ? "`n" : "") Trim(Trim(L.2) . A_Tab . Trim(L.3))
}
- L := StrSplit(A_LoopReadLine, A_Tab)
- If (RegExMatch(L.2, " =$"))
- lVar := RTrim(StrReplace(L.2, " =")), ReadData[_Section][lVar] := Trim(L.3)
- Else If (L.3 != "")
- ReadData[_Section][lVar] .= ((ReadData[_Section][lVar] != "") ? "`n" : "") Trim(Trim(L.2) . A_Tab . Trim(L.3))
+ LangFiles[_L] := ReadData
}
- LangFiles[_L] := ReadData
-}
return
LoadLang:
-Lang_List := ""
-For i, f in LangFiles
-{
- If (LangData.HasKey(i))
- {
- lName := (InStr(i, "_")) ? LangData[i].Lang : LangData[i].Idiom
- lLocal := LangData[i].Local
- }
- Else
+ Lang_List := ""
+ For i, f in LangFiles
{
- c := RegExReplace(i, "_.*")
- For e, l in LangData
+ If (LangData.HasKey(i))
{
- If (InStr(e, c)=1)
+ lName := (InStr(i, "_")) ? LangData[i].Lang : LangData[i].Idiom
+ lLocal := LangData[i].Local
+ }
+ Else
+ {
+ c := RegExReplace(i, "_.*")
+ For e, l in LangData
{
- lName := (InStr(e, "_")) ? l.Lang : l.Idiom
- lLocal := l.Local
- break
+ If (InStr(e, c)=1)
+ {
+ lName := (InStr(e, "_")) ? l.Lang : l.Idiom
+ lLocal := l.Local
+ break
+ }
}
}
+ Lang_%i% := lName "`t" lLocal, Lang_List .= lName " / " lLocal "|"
}
- Lang_%i% := lName "`t" lLocal, Lang_List .= lName " / " lLocal "|"
-}
-For i, _Section in LangFiles[Lang]
-{
- For _var, _value in _Section
- %_var% := _value
-}
+ For i, _Section in LangFiles[Lang]
+ {
+ For _var, _value in _Section
+ %_var% := _value
+ }
-HelpDocsUrl := (InStr(Lang, "zh")=1) ? "https://ahkcn.github.io/docs/AutoHotkey.htm"
- : (Lang = "de") ? "https://ahkde.github.io/docs/AutoHotkey.htm" : "https://www.autohotkey.com/docs"
-Cmd_Tips := {}, IE_Tips := {}, Com_Tips := {}, Tips_List := ""
-Loop, Parse, Ahk_Cmd_Index, `n
-{
- TipArray := StrSplit(A_LoopField, A_Tab), Command := TipArray[1]
- Loop, Parse, Command, /, %A_Space%
- Cmd_Tips[A_LoopField] := TipArray[2], Tips_List .= A_LoopField "|"
-}
-Loop, Parse, IE_Cmd_Index, `n
-{
- TipArray := StrSplit(A_LoopField, A_Tab), Command := TipArray[1]
- Loop, Parse, Command, /, %A_Space%
- IE_Tips[A_LoopField] := TipArray[2], Tips_List .= A_LoopField "|"
-}
-Loop, Parse, COM_CLSID_Index, `n
-{
- TipArray := StrSplit(A_LoopField, A_Tab), Command := TipArray[1]
- Loop, Parse, Command, /, %A_Space%
- Com_Tips[A_LoopField] := TipArray[2], Tips_List .= A_LoopField "|"
-}
-Sort, Tips_List, UD|
-TipArray := ""
+ HelpDocsUrl := (InStr(Lang, "zh")=1) ? "https://ahkcn.github.io/docs/AutoHotkey.htm"
+ : (Lang = "de") ? "https://ahkde.github.io/docs/AutoHotkey.htm" : "https://www.autohotkey.com/docs"
+ Cmd_Tips := {}, IE_Tips := {}, Com_Tips := {}, Tips_List := ""
+ Loop, Parse, Ahk_Cmd_Index, `n
+ {
+ TipArray := StrSplit(A_LoopField, A_Tab), Command := TipArray[1]
+ Loop, Parse, Command, /, %A_Space%
+ Cmd_Tips[A_LoopField] := TipArray[2], Tips_List .= A_LoopField "|"
+ }
+ Loop, Parse, IE_Cmd_Index, `n
+ {
+ TipArray := StrSplit(A_LoopField, A_Tab), Command := TipArray[1]
+ Loop, Parse, Command, /, %A_Space%
+ IE_Tips[A_LoopField] := TipArray[2], Tips_List .= A_LoopField "|"
+ }
+ Loop, Parse, COM_CLSID_Index, `n
+ {
+ TipArray := StrSplit(A_LoopField, A_Tab), Command := TipArray[1]
+ Loop, Parse, Command, /, %A_Space%
+ Com_Tips[A_LoopField] := TipArray[2], Tips_List .= A_LoopField "|"
+ }
+ Sort, Tips_List, UD|
+ TipArray := ""
return
;##### Command Search: #####
SetFindCmd:
-Type_Keywords := "
+ Type_Keywords := "
(C Join,
" cType4 " ; ControlClick
" cType5 " ; Sleep
@@ -16749,7 +16744,7 @@ WinHttpDownloadToFile
InternetExplorer
" cType34 " ; COMInterface
)"
-Types_Path := "
+ Types_Path := "
(C
" w_Lang051 " ; Mouse (F2)
" w_Lang055 " ; Pause (F5)
@@ -16799,7 +16794,7 @@ OCR
" w_Lang070 " ; Internet Explorer (F12)
" w_Lang071 " ; Expression / COM Interface (Shift+F12)
)"
-Types_Goto := "
+ Types_Goto := "
(
Mouse
Sleep
@@ -16849,12 +16844,12 @@ ZipFiles
IECom
ComInt
)"
-Loop, Parse, Types_Path, `n
- Type%A_Index%_Path := A_LoopField
-Loop, Parse, Types_Goto, `n
- Type%A_Index%_Goto := A_LoopField
+ Loop, Parse, Types_Path, `n
+ Type%A_Index%_Path := A_LoopField
+ Loop, Parse, Types_Goto, `n
+ Type%A_Index%_Goto := A_LoopField
-Text_Keywords := "
+ Text_Keywords := "
(Join,
" cType1 "
" cType2 "
@@ -16864,29 +16859,29 @@ Text_Keywords := "
" cType12 "
" cType22 "
)"
-Text_Path := w_Lang052, Text_Goto := "Text"
+ Text_Path := w_Lang052, Text_Goto := "Text"
-Mouse_Keywords := "
+ Mouse_Keywords := "
(Join,
)"
-While (Action%A_Index%)
- Mouse_Keywords .= Action%A_Index% ","
-Mouse_Path := w_Lang051, Mouse_Goto := "Mouse"
+ While (Action%A_Index%)
+ Mouse_Keywords .= Action%A_Index% ","
+ Mouse_Path := w_Lang051, Mouse_Goto := "Mouse"
-Ctrl_Keywords := RegExReplace(CtrlCmdList, "\|", ",") ","
-. RegExReplace(CtrlCmd, "\|", ",") ","
-. RegExReplace(CtrlGetCmd, "\|", ",")
+ Ctrl_Keywords := RegExReplace(CtrlCmdList, "\|", ",") ","
+ . RegExReplace(CtrlCmd, "\|", ",") ","
+ . RegExReplace(CtrlGetCmd, "\|", ",")
Ctrl_Path := w_Lang054, Ctrl_Goto := "ControlCmd"
-Win_Keywords := RegExReplace(WinCmdList, "\|", ",") ","
-. RegExReplace(WinCmd, "\|", ",") ","
-. RegExReplace(WinGetCmd, "\|", ",")
+ Win_Keywords := RegExReplace(WinCmdList, "\|", ",") ","
+ . RegExReplace(WinCmd, "\|", ",") ","
+ . RegExReplace(WinGetCmd, "\|", ",")
Win_Path := w_Lang058, Win_Goto := "Window"
-Misc_Keywords := RegExReplace(FileCmdList, "\|", ",")
-Misc_Path := w_Lang060, Misc_Goto := "Run"
+ Misc_Keywords := RegExReplace(FileCmdList, "\|", ",")
+ Misc_Path := w_Lang060, Misc_Goto := "Run"
-If_Keywords := "
+ If_Keywords := "
(Join,
If
If (expression)
@@ -16913,49 +16908,49 @@ IfWinNotActive
IfWinExist
IfWinNotExist
)"
-If_Keywords .= "," RegExReplace(IfList, "\$", ",")
-If_Path := w_Lang064, If_Goto := "IfSt"
-
-IE_Keywords := RegExReplace(IECmdList, "\|", ",")
-IE_Path := w_Lang070, IE_Goto := "IECom"
-
-Com_Keywords := RegExReplace(CLSList, "\|", ",")
-Com_Path := w_Lang071, Com_Goto := "ComInt"
-
-Func_Keywords := RegExReplace(BuiltinFuncList, "\$", ",")
-Func_Path := w_Lang066, Func_Goto := "AsFunc"
-
-Meth_Keywords := RegExReplace(ArrayMethodsList, "\$", ",")
-Meth_Path := w_Lang066, Meth_Goto := "AsFunc"
-
-Loop, Parse, KeywordsList, |
- Loop, Parse, %A_LoopField%_Keywords, `,
- Try %A_LoopField%_Desc := SBShowTip(A_LoopField)
-
-If_Replace := { "If": If14
- , "If (expression)": If15
- , "If A_Index": If8
- , "If Clipboard": If7
- , "If ErrorLevel": If9
- , "If var [not] between": If14
- , "If var [not] in": If14
- , "If var [not] contains MatchList": If14
- , "If var is [not] type": If14
- , "IfEqual": If14
- , "IfNotEqual": If14
- , "IfExist": If5
- , "IfNotExist": If6
- , "IfGreater": If14
- , "IfGreaterOrEqual": If14
- , "IfInString": If11
- , "IfNotInString": If12
- , "IfLess": If14
- , "IfLessOrEqual": If14
- , "IfMsgBox": If13
- , "IfWinActive": If1
- , "IfWinNotActive": If2
- , "IfWinExist": If3
- , "IfWinNotExist": If4}
+ If_Keywords .= "," RegExReplace(IfList, "\$", ",")
+ If_Path := w_Lang064, If_Goto := "IfSt"
+
+ IE_Keywords := RegExReplace(IECmdList, "\|", ",")
+ IE_Path := w_Lang070, IE_Goto := "IECom"
+
+ Com_Keywords := RegExReplace(CLSList, "\|", ",")
+ Com_Path := w_Lang071, Com_Goto := "ComInt"
+
+ Func_Keywords := RegExReplace(BuiltinFuncList, "\$", ",")
+ Func_Path := w_Lang066, Func_Goto := "AsFunc"
+
+ Meth_Keywords := RegExReplace(ArrayMethodsList, "\$", ",")
+ Meth_Path := w_Lang066, Meth_Goto := "AsFunc"
+
+ Loop, Parse, KeywordsList, |
+ Loop, Parse, %A_LoopField%_Keywords, `,
+ Try %A_LoopField%_Desc := SBShowTip(A_LoopField)
+
+ If_Replace := { "If": If14
+ , "If (expression)": If15
+ , "If A_Index": If8
+ , "If Clipboard": If7
+ , "If ErrorLevel": If9
+ , "If var [not] between": If14
+ , "If var [not] in": If14
+ , "If var [not] contains MatchList": If14
+ , "If var is [not] type": If14
+ , "IfEqual": If14
+ , "IfNotEqual": If14
+ , "IfExist": If5
+ , "IfNotExist": If6
+ , "IfGreater": If14
+ , "IfGreaterOrEqual": If14
+ , "IfInString": If11
+ , "IfNotInString": If12
+ , "IfLess": If14
+ , "IfLessOrEqual": If14
+ , "IfMsgBox": If13
+ , "IfWinActive": If1
+ , "IfWinNotActive": If2
+ , "IfWinExist": If3
+ , "IfWinNotExist": If4}
return
#Include