mmvari/MacroTxt/AddMenu.txt
2013-07-05 15:09:45 -05:00

30 lines
1.1 KiB
Plaintext

<%DisableCR>
#define _Name1 拡張(&1)
<%DeleteMenu=_Name1>
<%AddMenu=_Name1, CWの速度(&C)..., Slider, CWの速度, CWSpeed, 10, 40>
<%AddMenu=_Name1, デジタル出力レベル(&D)..., Slider, デジタル出力レベル, DigitalLevel, 1024, 32768, 1024>
<%AddMenu=_Name1, ->
<%AddMenu=_Name1, CQ DX(&1) (リピート), OnCQDXClick, 1, 3, 3, 4000>
<%AddMenu=_Name1, CQ DX(&3) (リピート), OnCQDXClick, 3, 3, 3, 5000>
<%AddMenu=_Name1, ->
<%AddMenu=_Name1, リモート接続(&M)..., OnCommand, "<%SoundDevice=MONO,WLClient><%Radio=RPClient>">
<%AddMenu=_Name1, リモート接続の解除(&R)..., OnCommand, "<%SoundDevice=MONO,-1><%Radio=NONE>">
#proc OnCommand @Command
<%DisableCR>@Command
#endp
#proc OnCQDXClick @Nline, @Ncq, @Ncall, @Interval
<%DisableCR><%ClearTXW><%AutoClear><%TX><%RX>
<%RepeatText=@Nline,<%RepeatText=@Ncq,CQ DX<%SP>>de<%RepeatText=@Ncall,<%SP><%MyCall>><%CR>>
<%BS><%SP>pse DX k<%CR><%RepeatTX=@Interval>
#endp
#proc Slider @Title, @Command, @Min, @Max, @Step, @NumScales
<%DisableCR>
#macro <%Slider=@Title, <%@Command>, @Min, @Max, @Step, @NumScales>
#if StrMacro(<%Input$>)
<%@Command=<%Input$>>
#endif
#endp