//Copyright+LGPL
//-----------------------------------------------------------------------------------------------------------------------------------------------
// Copyright 2000-2013 Makoto Mori, Nobuyuki Oba
//-----------------------------------------------------------------------------------------------------------------------------------------------
// This file is part of MMVARI.
// MMVARI is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License
// as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
// MMVARI is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details.
// You should have received a copy of the GNU Lesser General Public License along with MMTTY. If not, see
// .
//-----------------------------------------------------------------------------------------------------------------------------------------------
//---------------------------------------------------------------------
#include
#pragma hdrstop
#include
#include "MacroKey.h"
#include "MacEdit.h"
#include "ComLib.h"
#include "InputWin.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
//TMacroKeyDlg *MacroKeyDlg;
MACKEY mackeycom[]={
{1, "<%TX>","送信に切り替え", "Switch to TX"},
{1, "<%RX>","受信に切り替え", "Switch to RX"},
{1, "<%TXRX>","送受の切り替え", "Turns over TX/RX"},
{1, "<%TXOFF>","送信の強制終了", "Abort TX (Switch to RX immediately)"},
{1, "<%AutoClear>","自動的に送信画面をクリア", "Clear TX window automatically"},
{1, "<%ClearTXW>","送信画面をクリア", "Clear TX window"},
{1, "<%ClearRXW>","受信画面をクリア", "Clear RX window"},
{1, "<%MyCall>","自局のコールサイン", "My callsign"},
{1, "<%HisCall>","相手局のコールサイン", "His/her callsign"},
{1, "<%HisName>","相手局の名前", "His/her name"},
{1, "<%DearName>","Dear xxx または xxxさん", "Dear xxx"},
{1, "<%HisRST>","相手局のRST", "His/her RST"},
{1, "<%MyRST>","自局の(伝えられた)RST", "My RST"},
{1, "<%FREQ>","運用周波数(例 7)", "Logging FREQ (e.g. 7)"},
{1, "<%BAND>","運用バンド(例 40m)", "Logging BAND (e.g. 40m)"},
{1, "<%HisQTH>","相手局のQTH", "His/her QTH"},
{1, "<%Note>","Note(備考)", "Note (Remarks)"},
{1, "<%UDATE>","日付(UTC)", "UTC date"},
{1, "<%UTIME>","時刻(UTC) hh:mm", "UTC time (hh:mm)"},
{1, "<%UTIMES>","時刻(UTC) hh:mm:ss", "UTC time (hh:mm:ss)"},
{1, "<%LDATE>","日付(Local)", "Local date"},
{1, "<%LTIME>","時刻(Local) hh:mm", "Local time (hh:mm)"},
{1, "<%LTIMES>","時刻(Local) hh:mm:ss", "Local time (hh:mm:ss)"},
{1, "<%PTIME>","1980/JAN/6 からの経過秒(UTC時刻)", "Passing time from 1980/JAN/6 (UTC)"},
{1, "<%LPTIME>","1980/JAN/6 からの経過秒(ローカル時刻)", "Passing time from 1980/JAN/6 (local time)"},
{1, "<%QPTIME>","QSO開始UTC時刻(1980/JAN/6 からの経過秒)", "QSO Starting time (passing time from 1980/JAN/6 (UTC)"},
{1, "<%VALTIME=year,<%PTIME>>","PTIMEを分解 (year/month/day/hour/minute/second..., PTIME)", "Takes the PTIME apart (year/month/day/hour/minute/second..., PTIME)"},
{1, "<%Capture>","コールサインの捕獲", "Capture callsign"},
{2, "<%HisGreetings=3>","自動挨拶(例 1-GA, 2-Good morning, 3-おはようございます)", NULL},
{3, "<%HisGreetings=2>","Auto Greetings (e.g. 1-GA, 2-Good morning)", NULL},
{1, "<%HisNR>","HisRSTのコンテストNR", "Only the contest number part of his/her RST"},
{1, "<%MyNR>","MyRSTのコンテストNR", "Only the contest number part of my RST"},
{1, "<%Entity=<%HisCall>>","エンティティコード", "Code of the entity"},
{1, "<%EntityName=<%HisCall>>","エンティティ名", "Name of the entity"},
{1, "<%Continent=<%HisCall>>","大陸コード", "Code of the continent"},
{1, "<%PLATFORM>","OSのプラットフォーム", "Platform of the OS"},
{1, "<%CodePage>","OSのコードページ", "Code page of the OS"},
{1, "<%LanguageID>","OSの言語ID", "Language ID of the OS"},
{1, "<%VER>","MMVARIのバージョン", "Program version of MMVARI"},
{1, "<%VERMINOR>","MMVARIのマイナーバージョン", "Program minor version of MMVARI"},
{1, "<%VARITYPE>","バリコード種別(VariSTD, VariJA, VariHL, ...)", "Type of the VARICODE(VariSTD, VariJA, VariHL, ...)"},
{1, "<%MODE>","現在のモード(変調方式)種別(GMSK, FSK, ...)", "Current type of the mode(GMSK, FSK, ...)"},
{1, "<%Level>","信号のS/Nレベル(dB)", "S/N level of the signals"},
{1, "<%PeakLevel>","信号のピークS/Nレベル(dB)", "Peak S/N level of the signals"},
{1, "<%AverageLevel>","信号の平均S/Nレベル(dB)", "Average S/N level of the signals"},
{1, "<%MetricMFSK>","mfsk信号のメトリックレベル", "Metric level in mfsk"},
{1, "<%MetricMFSK=even>","mfsk信号のビタビ別メトリックレベル(even/odd)", "Metric level of the viterbi in mfsk (even/odd)"},
{1, "<%SquelchLevel=3.0>","スケルチレベル(S/N=dB)の設定", "Set squelch level (S/N=dB)"},
{1, "<%CWID>","My callsignをCWで送信", "CWID of the MyCallsign"},
{1, "<%CWID= 73 :>","文字列をCWで送信 (AS @ SK : AR ; KN ] BT =)", "CWID of the strings (AS @ SK : AR ; KN ] BT =)"},
{1, "<%CWSpeed=20>","CW速度(10 - 60)を設定", "CWID speed (10-60)"},
{1, "<%MODE=GMSK>","モード(変調方式)の設定(GMSK, FSK, ...)", "Set the mode(GMSK, FSK, ...)"},
{1, "<%AutoNET>","自動的にNETをONにする", "Turns NET into ON automatically"},
{1, "<%NETON>","NETをONにする", "Turns NET into ON"},
{1, "<%NETOFF>","NETをOFFにする", "Turns NET into OFF"},
{1, "<%AFCON>","AFCをONにする", "Turns AFC into ON"},
{1, "<%AFCOFF>","AFCをOFFにする", "Turns AFC into OFF"},
{1, "<%ATCON>","ATCをONにする", "Turns ATC into ON"},
{1, "<%ATCOFF>","ATCをOFFにする", "Turns ATC into OFF"},
{1, "<%RxCarrier>","受信キャリア周波数(Hz)", "RX carrier FREQ(Hz)"},
{1, "<%TxCarrier>","送信キャリア周波数(Hz)", "TX carrier FREQ(Hz)"},
{1, "<%RxCarrier=1750>","受信キャリア周波数(Hz)を設定", "Set RX carrier FREQ(Hz)"},
{1, "<%TxCarrier=1750>","送信キャリア周波数(Hz)を設定", "Set TX carrier FREQ(Hz)"},
{1, "<%AFCFrequency>","AFC検出周波数(Hz)", "AFC FREQ(Hz)"},
{1, "<%MouseFrequency>","ｽﾍﾟｸﾄﾗﾑ/ｳｫｰﾀﾌｫｰﾙでのマウス周波数(Hz)", "Mouse frequency on Waterfall(Hz)"},
{1, "<%TONE>","シングルトーンを送信", "Transmit single tone"},
{1, "<%BPF=0>","BPF帯域幅(0-3)を設定", "Set BPF width (0-3)"},
{1, "<%BPFTaps=64,80,128,256>","BPFのタップ数を設定", "Set BPF taps"},
{1, "<%Notch=ONOFF>","ノッチフィルタのON/OFF (ON/OFF/ONOFF)", "Turns Notch into ON or OFF (ON/OFF/ONOFF)"},
{1, "<%Notch=1750>","ノッチフィルタの周波数(Hz)を設定", "Set Notch FREQ (Hz)"},
{1, "<%NotchTaps=128>","ノッチフィルタのタップ数を設定(16〜512)", "Set taps of the Notch filter (16-512)"},
{1, "<%NotchWidth=1>","ノッチフィルタの帯域を設定(1〜1000)", "Set width of the Notch filter (1-1000)"},
{1, "<%BAUD>","伝送ボーレート", "BaudRate"},
{1, "<%BAUD=31.25>","伝送ボーレート(20〜300)を設定", "Set BaudRate(20-300)"},
{1, "<%AFCWidth=50>","AFC吸い込み幅(Hz)を設定", "Set AFC FREQ width(Hz)"},
{1, "<%AFCLevel=12>","AFC吸い込みレベル(dB)を設定", "Set AFC sense level(dB)"},
{1, "<%ATCSpeed=0>","ATC応答速度(0-5)を設定", "Set ATC speed(0-5)"},
{1, "<%ATCLevel=15>","ATC検出レベル(dB)を設定", "Set ATC sense level(dB)"},
{1, "<%ATCPPM>","ATC値(ppm)", "ATC value (ppm)"},
{1, "<%PTT=COM1>","PTTポートを設定", "Set PTT port"},
{1, "<%COMFSK=ONOFF>","PTTポート FSKのON/OFF (ON/OFF/ONOFF)", "Turns FSK into ON or OFF (ON/OFF/ONOFF)"},
{1, "<%COMFSKINV=ONOFF>","PTTポート FSKの論理反転のON/OFF (ON/OFF/ONOFF)", "Turns inverting logic (FSK) into ON or OFF (ON/OFF/ONOFF)"},
{1, "<%Radio=COM2>","Radioポートを設定", "Set Radio port"},
{1, "<%RadioOut=\\$000000000F>","Radioポートにデータを出力", "Output data to the radio port"},
{1, "<%RadioCarrierKHz>","リグの補正キャリア周波数(KHz)", "Adjusted carrier FREQ(KHz) of the radio"},
{1, "<%RadioKHz>","リグのVFO周波数(KHz)", "VFO FREQ(KHz) of the radio"},
{1, "<%RadioKHz=YAESU-HF,14073.000>","リグのVFO周波数(KHz)の設定", "Set VFO FREQ(KHz) of the radio"},
{1, "<%RadioMode>","リグのモード", "Mode of the radio"},
{1, "<%RadioMode=CI-V,LSB>","リグのモードを設定", "Set Mode of the radio"},
{1, "<%PTTON>","PTTをONにする", "Turns PTT into ON"},
{1, "<%PTTOFF>","PTTをOFFにする", "Turns PTT into OFF"},
{1, "<%FFTScale>","FFTスケール(0-100dB, 1-60dB, 2-二乗振幅)", "FFT scale (0-100dB, 1-60dB, 2-Square amplitude)"},
{1, "<%FFTScale=2>","FFTスケールを設定", "Set FFT scale"},
{1, "<%FFTWidth=1000>","FFT表示幅(500/1000/2000/3000)", "Choose FFT width(500/1000/2000/3000)"},
{1, "<%SyncWidth=14>","Sync/Wave表示幅(4-24)", "Choose Sync/Waveform width(4-24)"},
{1, "<%ShowCH=1,ONOFF>","サブチャンネル(1-8)表示, ON/OFF/ONOFF", "Show sub-channel(1-8), ON/OFF/ONOFF"},
{1, "<%SetCHSpeed=1,31.25>","サブチャンネル(1-8)のボーレート設定, 15〜300", "Set speed to the sub-channel(1-8), 15-300"},
{1, "<%SetCHMode=1,GMSK>","サブチャンネル(1-8)のモード設定", "Set mode to the sub-channel(1-8)"},
{1, "<%ClearCHW=1>","サブチャンネル(1-8)の画面クリア", "Clear window of the sub-channel(1-8)"},
{1, "<%QSOON>","QSOの開始(ログに記録)", "Start QSO (logging)"},
{1, "<%QSOOFF>","QSOの終了(ログに記録)", "End of the QSO (logging)"},
{1, "<%FREQ=7>","ログの運用周波数を設定", "Set logging FREQ"},
{1, "<%BAND=40m>","ログの運用バンドを設定", "Set logging BAND"},
{1, "<%LogMODE=SSB>","ログの運用モードを設定(ヌル文字列で自動設定)", "Set logging MODE (null is auto)"},
{1, "<%HisCall=<%Capture>>","相手局のコールを設定", "Set his/her callsign"},
{1, "<%HisRST=599>","相手局のRSTを設定", "Set his/her RST"},
{1, "<%MyRST=599>","自局のRSTを設定", "Set my RST"},
{1, "<%Note=<%VARITYPE>>","Note(備考)に設定", "Set note (Remarks)"},
{1, "<%RefRXW>","受信画面の参照画面を開く", "Show RX window with the editor"},
{1, "<%EditFile=memo.txt, 0>","テキストファイル編集画面を開く(Name, ReadOnly)", "Open text editer(Name, ReadOnly)"},
{1, "<%SendFile=test.txt>","テキストファイルの送信", "Send file"},
{1, "<%EditMacro=2>","マクロボタン(1〜160)を編集", "Edit macro button (1-160)"},
{1, "<%EditMacro=OnStart>","イベントマクロを編集(Event名)", "Edit event macro (Name of the event)"},
{1, "<%EditMacro=AS(CW)>","AS(CW)マクロを編集(Event)", "Edit AS(CW) macro"},
{1, "<%EditMacro=MacroTxt.txt>","テキストファイルのマクロを編集", "Edit macro written in the text file"},
{1, "<%MacroText=MacroTxt.txt>","テキストファイルのマクロを実行", "Execute macro written in the text file"},
{1, "<%SaveMacro=Macros.mac>","全てのマクロをファイルに保存", "Save all Macros"},
{1, "<%LoadMacro=Macros.mac>","全てのマクロをファイルからロード", "Load all Macros"},
{1, "<%HEX2DEC=ABCD>","16進数を10進数に変換", "Convert decimal to HEX"},
{1, "<%CHAR=A>","文字コード(10進数)に変換", "Convert character code (decimal)"},
{1, "<%CHARX=A>","文字コード(16進数)に変換", "Convert character code (HEX)"},
{1, "<%CODE=82A0>","文字コード(16進数)で入力", "Input as the character code (HEX)"},
{1, "<%SP>","スペースを入力", "Input space"},
{1, "<%CR>","CRを入力", "Input CR"},
{1, "<%BS>","BSを入力", "Input BS"},
{1, "<%TAB>","TABを入力", "Input TAB"},
{1, "<%SkipCR>","マクロ文内の次のCR(改行)をスキップ", "Skip next CR(Enter) in the macro sentence"},
{1, "<%DisableCR>","マクロ文内のCR(改行)を無効にする", "Disable CR(Enter) in the macro sentence"},
{1, "<%EnableCR>","マクロ文内のCR(改行)を有効にする", "Enable CR(Enter) in the macro sentence"},
{1, "<%DisableTAB>","マクロ文内のTABを無効にする", "Disable TAB in the macro sentence"},
{1, "<%EnableTAB>","マクロ文内のTABを有効にする", "Enable TAB in the macro sentence"},
{1, "<%DisableSP>","マクロ文内のスペースを無効にする", "Disable SPACE in the macro sentence"},
{1, "<%EnableSP>","マクロ文内のスペースを有効にする", "Enable SPACE in the macro sentence"},
{1, "<%Skip$=3,<%HisCall>>","指定の文字数をスキップ(Ascii)", "Skip Ascii characters"},
{1, "<%MSkip$=3,<%Note>>","指定の文字数をスキップ(MBCS)", "Skip MBCS characters"},
{1, "<%Find$=xx,ABCxxVVV>","指定の文字列を検索", "Find string"},
{1, "<%StrLen=<%HisCall>>","文字列の長さ", "String length"},
{1, "<%MStrLen=<%Note>>","MBCS文字列の長さ", "MBSC string length"},
{1, "<%ONOFF=<%Cond=IsSQ>>","ON/OFFを得る", "Get ON/OFF"},
{1, "<%RepeatText=3,<%RepeatText=33,RY><%CR>>","マクロ文字列の繰り返し", "Repeating the macro string"},
{1, "<%IDLE>","アイドル信号を挿入", "Insert idle signals"},
{1, "<%DIDDLE=LTR>","RTTYのDIDDLEコードを設定(BLK/LTR)", "Set DIDDLE code in RTTY (BLK/LTR)"},
{1, "<%UOS=ON>","RTTYのUOSを設定(ON/OFF/ONOFF)", "Set UOS in RTTY (ON/OFF/ONOFF)"},
{1, "<%RTTYWaitC=0>","RTTYの文字ウエイトを設定(0-100)", "Set character wait in RTTY (0-100)"},
{1, "<%RTTYWaitD=0>","RTTYのDIDDLEウエイトを設定(0-100)", "Set DIDDLE wait in RTTY (0-100)"},
{1, "<%RTTYWordOut=ON>","RTTYのワード単位出力を設定(ON/OFF/ONOFF)", "Set word out in RTTY (ON/OFF/ONOFF)"},
{1, "<%RTTYDEM=FFT>","RTTYの復調器を設定(IIR/FFT)", "Set demodulator in RTTY (IIR/FFT)"},
{1, "<%TxShift=170.0>","RTTY/FSK-Wの送信シフト幅を設定(10-450)", "Set TX's shift width in RTTY/FSK-W (10-450)"},
{1, "<%RxShift=170.0>","RTTY/FSK-Wの受信シフト幅を設定(10-450)", "Set RX's shift width in RTTY/FSK-W (10-450)"},
{1, "<%ToUpper=<%HisName>>","アッパーケース(大文字)に変換", "Convert to upper case"},
{1, "<%ToLower=<%HisCall> de <%MyCall>>","ロワーケース(小文字)に変換", "Convert to lower case"},
{1, "<%IME=ON>","IMEを制御する (ON/OFF/ONOFF)", "Control IME (ON/OFF/ONOFF)"},
{1, "<%RepeatTX=3000>","繰り返し送信の受信時間(ms)を設定", "Repeating TX mode (=RX times(ms))"},
{1, "<%Repeat=10000>","マクロの繰り返し(ms)を設定", "Repeating the macro (ms)"},
{1, "<%OnTimer=<%WaterMsg=4,<%AFCFrequency>Hz>>","OnTimerマクロを設定", "Set OnTimer macro"},
{1, "<%OnTimerInterval=1000>","OnTimerマクロの時間間隔(ms)を設定", "Set time interval(ms) of OnTimer macro"},
{1, "<%Page=1>","送信画面ページを切り替え (1〜4)", "Choose TXW-page (1-4)"},
{1, "<%AutoReturn>","自動的に送信画面ページを戻す", "Return TXW-page automatically"},
{1, "<%MoveTop>","カーソルを先頭に移動", "Move cursor to the TOP"},
{1, "<%MoveEnd>","カーソルを最後に移動", "Move cursor to the END"},
{1, "<%ResetScroll>","受信画面のスクロール状態を解除", "Reset scroll in the RX window"},
{1, "<%PopupTXW>","送信画面のポップアップメニューを開く", "Open Popup menu"},
{1, "<%DupeText>","１つ前の行と同じ内容を挿入", "Create dupe text"},
{1, "<%SeekNext>","ボタンページを次へ", "Seek to the next Button page"},
{1, "<%SeekPrev>","ボタンページを前へ", "Seek to the previous Button page"},
{1, "<%SeekTop>","ボタンページを先頭へ", "Seek to the top Button page"},
{1, "<%DigitalLevel=16384>","デジタル出力レベルを設定(1024 - 32768)", "Set digital output level (1024 - 32768)"},
{1, "<%OutputVolume>","出力ボリューム調整画面を開く", "Open output volume"},
{1, "<%InputVolume>","入力ボリューム調整画面を開く", "Open input volume"},
{1, "<%Setup>","設定画面を開く", "Open Setup window"},
{1, "<%SetupLog>","ログ設定画面を開く", "Open Setup logging window"},
{1, "<%SetupRadio>","リグコントロール設定画面を開く", "Open Setup radio command window"},
{1, "<%Calibration>","クロック較正画面を開く", "Open calibration window"},
{1, "<%BaseClock>","ベースクロック値(Hz)", "Base clock(Hz)"},
{1, "<%Clock>","RXクロック値(Hz)", "RX clock(Hz)"},
{1, "<%Clock=11025.00>","RXクロック値を設定", "Set RX clock"},
{1, "<%TxOffset>","TXオフセット値(Hz)", "TX offset clock(Hz)"},
{1, "<%TxOffset=0.00>","TXオフセット値を設定", "Set TX offset clock"},
{1, "<%DemodulatorClock>","復調器クロック値(Hz)", "Demodulator clock(Hz)"},
{1, "<%FFTClock>","FFTクロック値(Hz)", "FFT clock(Hz)"},
{1, "<%FFTSize>","FFTのサイズ（点数)", "FFT size(points)"},
{1, "<%WaterNoise>","ウォータフォールの検出ノイズレベル(dB)", "Sense noise level (dB) in WaterFall"},
{1, "<%WaterNoise=35,65>","ウォータフォールのノイズレベル範囲(dB)を設定", "Set noise level range (dB) in WaterFall"},
{1, "<%WaterLevels>","ウォータフォールのレベル配分", "Levels in WaterFall"},
{1, "<%WaterLevels=10,60,134,192,220,240>","ウォータフォールのレベル配分を設定", "Set levels in WaterFall"},
{1, "<%WaterColors>","ウォータフォールの配色", "Colors in WaterFall"},
{1, "<%WaterColors=0,FF0000,FFFFFF,FF,FFFF00,FF0000,FFFF00,FFFF,80FF,FF,FF,FF>","ウォータフォールの配色を設定", "Set colors in WaterFall"},
{1, "<%SpectrumColors>","スペクトラムの配色", "Colors in Spectrum"},
{1, "<%SpectrumColors=0,FF00,FFFFFF,808080,FFFF00,FF0000>","スペクトラムの配色を設定", "Set colors in Spectrum"},
{1, "<%RxColors>","受信画面の配色", "Colors in RX window"},
{1, "<%RxColors=FFFFFF,0,FF0000,FF,E0E0E0>","受信画面の配色を設定", "Set colors in RX window"},
{1, "<%TxColors>","送信画面の配色", "Colors in TX window"},
{1, "<%TxColors=FFFFFF,0,FF0000,FF,FFFFFF>","送信画面の配色を設定", "Set colors in TX window"},
{1, "<%SoundName>","入力サウンドの名前", "Name of the input sound device"},
{1, "<%SoundOutName>","出力サウンドの名前", "Name of the output sound device"},
{1, "<%SoundDevice=MONO,-1>","サウンドCH(MONO/LEFT/RIGHT)とデバイスIDの設定", "Set CH.(MONO/LEFT/RIGHT) es device ID of the sound"},
{1, "<%Suspend>","サスペンドにする", "Suspend MMVARI"},
{1, "<%Resume>","サスペンドを解除する", "Resume MMVARI"},
{1, "<%Wait=1000>","指定時間(ms)ウエイトする", "Wait the time (ms)"},
{1, "<%Execute=notepad.exe <%Folder>memo.txt>","プログラムの実行", "Execute other program"},
{1, "<%Shell=<%Folder>emmvari.txt>","シェルでドキュメントを開く", "Open document by Shell32"},
{1, "<%Exit>","MMVARIを終了する", "Exit MMVARI"},
{1, "<%ShutDown>","Windowsをシャットダウンする", "Shut down Windows"},
{1, "<%YesNo=String>","Yes/Noのﾒｯｾｰｼﾞﾎﾞｯｸｽ(Yes=6,No=7)", "Show Yes/No message(Yes=6,No=7)"},
{1, "<%YesNoCancel=String>","Yes/No/Cancelのﾒｯｾｰｼﾞﾎﾞｯｸｽ(Yes=6,No=7,Cancel=2)", "Show Yes/No/Cancel message(Yes=6,No=7,Cancel=2)"},
{1, "<%OkCancel=String>","Ok/Cancelのﾒｯｾｰｼﾞﾎﾞｯｸｽ(Ok=1,Cancel=2)", "Show Ok/Cancel message(Ok=1,Cancel=2)"},
{1, "<%Error=Macro ERROR>","エラーメッセージを表示", "Show error message"},
{1, "<%Warning=Macro WARNING>","警告メッセージを表示", "Show warning message"},
{1, "<%Message=Macro message>","メッセージを表示", "Show message"},
{1, "<%WaterMsg=4,Metric=<%MetricMFSK>><%Repeat=1000>","ウォータフォールにメッセージを表示(位置=0-4)", "Show message in the WaterFall (Pos. 0-4)"},
{1, "<%RxStatus=Status>","受信画面にステータスを表示", "Show status in the RX window"},
{1, "<%TableCount=AAA,BBB,CCC>","テーブルの項目数を得る", "Get count of the table"},
{1, "<%TableStr=1,AAA,BBB,CCC>","テーブルの文字列を得る", "Get string of the table"},
{1, "<%Table=<%BAUD>,20.0,31.25,45.0>","テーブルのインデクッスを得る", "Get index of the table"},
{1, "<%Menu=A,B,C,D>","メニューの表示(Input$に入る)", "Show menu (Put into Input$)"},
{1, "<%MenuB=\x22<%Table=<%BAUD>,20.0,31.25,45.45,62.5>\x22,20.0,31.25,45.45,62.5>","マーク付きメニューの表示(Input$に入る)", "Show menu with mark (Put into Input$)"},
{1, "<%Menu>","メニューインデックス", "menu index"},
{1, "<%Input=Input strings>","文字列の入力", "Input strings"},
{1, "<%Input$>","入力された文字列", "The strings which was entered"},
{1, "<%Click$>","受信画面でクリックした文字列", "The strings which was clicked in the RX window"},
{1, "<%CLICK$>","受信画面でクリックした文字列(大文字)", "The strings (upper case) which was clicked in the RX window"},
{1, "<%vvv>","テストメッセージ(英語)", "test message"},
{2, "<%VVV>","テストメッセージ(日本語)", "test message"},
{1, "<%KeyStroke=41>","キー(VK code)を押して離す", "Down and up the keyboard (VK code)"},
{1, "<%KeyDown=12><%KeyStroke=<%CHARX=V>><%KeyUp=12>","キー(VK code)を押す(Shift=10,Ctrl=11,Alt=12)", "Down the keyboard(VK code, Shift=10,Ctrl=11,Alt=12)"},
{1, "<%KeyUp=12>","キー(VK code)を離す(Shift=10,Ctrl=11,Alt=12)", "Up the keyboard(VK code, Shift=10,Ctrl=11,Alt=12)"},
{1, "<%DoMacro=2>","マクロボタン(1〜160)を実行", "Execute macro button (1-160)"},
{1, "<%DoEvent=OnMode>","イベントマクロを実行", "Execute event macro"},
{1, "<%Events>","イベントのリスト", "List of the events"},
{1, "<%ButtonName=1,Clear>","マクロボタン(1〜160)の名前を設定", "Set name of the button (1-160)"},
{1, "<%ButtonContents=1,<%ClearTXW>>","マクロボタン(1〜160)の内容を設定", "Set contents of the button (1-160)"},
{1, "<%PlayBack=ON>","サウンドプレーバックボタン機能の設定(ON/OFF/ONOFF)", "Set Sound Playback function (ON/OFF/ONOFF)"},
{1, "<%PlayBack=10>","サウンドプレーバック(0〜60秒)を実行", "Execute Sound Playback (0-60s)"},
{1, "<%PlayBackSpeed=5>","サウンドプレーバックの速度(1〜20)を設定", "Set speed of the Sound Playback (1-20)"},
{1, "<%PlayBackButtons=60,30,15>","サウンドプレーバックボタンの時間を設定", "Set time of the Sound Playback buttons"},
{1, "<%PlaySound=sound.mmv>","サウンドファイルの再生", "Sound playing from the file"},
{1, "<%PlaySound>","サウンドファイルの再生ダイアログを表示する", "Show sound playing dialog"},
{1, "<%RecordSound=sound.mmv>","サウンドファイルの録音", "Sound recording to the file"},
{1, "<%RecordSound>","サウンドファイルの録音ダイアログを表示する", "Show sound recording dialog"},
{1, "<%QuickRecordSound>","サウンドファイルの録音", "Sound recording (filename = Time stamp)"},
{1, "<%StopPlayRecord>","サウンド再生/録音の停止", "Close recording or playing"},
{1, "<%SoundTime>","再生/録音時間(秒)", "Time (sec) of sound (playing or recording)"},
{1, "<%Slider=CW speed,<%CWSpeed>,10,60,1,10>","スライダーを表示(ﾀｲﾄﾙ,値,Min,Max,ｽﾃｯﾌﾟ,目盛の数) Input$に入る", "Show slider (Title,Value,Min,Max,Step,Scale) Put into Input$"},
{1, "<%FileDialog=Text file,Text Files(*.txt)|*.txt|,Default,txt,>","ファイル選択ダイアログを表示(Input$に入る)", "Show choose file dialog box (Put into Input$)"},
{1, "<%CPUBENCHMARK>","CPUベンチマーク値 (us)", "The values of CPU-benchmark (us)"},
{1, "<%RANDOM=<%PTIME>>","乱数の種の初期化", "Initialization of a random seed"},
{1, "<%RANDOM>","乱数(0〜32767)", "A random values (0 - 32767)"},
{1, "<%String=Name>","#defineで定義した文字列を展開", "Defined strings by #define"},
{1, "<%CallProc=Name>","プロシジャーを実行", "Execute the procedure"},
{1, "<%DebugProc=Name>","<%CallProc=...>のデバッグ版", "Debug version of <%CallProc=...>"},
{1, "<%Format=%.3f,<%BAUD>>","書式変換(C言語)指定で展開 (書式文字列,式)", "Convert format (C Language) string"},
{1, "<%Inv=<%Cond=IsSQ>>","論理を反転", "Invert logic"},
{1, "<%Floor=<%BAUD>>","小数点以下を切り捨て", "Returns the largest integer that is not greater than the argument"},
{1, "<%Log=10>","自然対数を計算", "Calculates logarithms"},
{1, "<%Exp=2.302585092994046>","指数関数 e の x 乗を計算", "Calculates the exponential"},
{1, "<%Sqrt=10>","平方根を計算", "Calculates the square root"},
{1, "<%Pow=10,2>","x の y 乗を計算", "Calculates x raised to the power of y"},
{1, "<%Sin=0.5>","sin(x)を計算", "Calculates the sin(x)"},
{1, "<%Cos=0.5>","cos(x)を計算", "Calculates the cos(x)"},
{1, "<%Tan=0.5>","tan(x)を計算", "Calculates the tan(x)"},
{1, "<%ArcTan=0.5>","arc-tan(x)を計算", "Calculates the arc-tan(x)"},
{1, "<%Cond=IsSQ>","条件命令のテスト結果(0-FALSE, 1-TRUE)", "Test result of condition command (0-FALSE, 1-TRUE)"},
{1, "<%ListSpeed=15.625,31.25,62.5,93.75,125.0,250.0>","Speedボックスのリストを設定", "Set list of Speed box"},
{1, "<%ListCarrier=500,800,1000,1200,1500,1750,2000,2210>","Carrierボックスのリストを設定", "Set list of Carrier box"},
{1, "<%ListRST=599,579,559,449,339>","RSTボックスのリストを設定", "Set list of RST box"},
{1, "<%ListLogFreq=1.8,3.5,7,10,14,18,21,24,28,50,144,430,1200>","ログ周波数ボックスのリストを設定", "Set list of Log-FREQ box"},
{1, "<%SetCaptureLimit>","文字列捕獲の検索範囲を設定", "Set the limit of the capturing range"},
{1, "<%ClearCaptureLimit>","文字列捕獲の検索範囲をクリア", "Clear the limit of the capturing range"},
{1, "<%Font>","受信画面のフォントパラメータ(Name, Size, Charset)", "Font parameters of the RX window (Name, Size, Charset)"},
{1, "<%Font=,14,>","受信/送信画面のフォントを設定(=Name, Size, Charset)", "Sets font into the TX/RX window (=Name, Size, Charset)"},
{1, "<%SetFocus>","送信画面にキーボードフォーカスを設定する", "Sets keyboard focus to the TX window"},
{1, "<%Folder>","MMVARIのフォルダ", "MMVARI's folder"},
{1, "<%AddMenu=E&X,Caption&1,OnCaption1Click>","拡張メニューの追加 (=Name,Caption,Procedure,Arg...)", "Add extension menu (=Name,Caption,Procedure,Arg...)"},
{1, "<%InsertMenu=&H,&P,Caption&1, OnCaption1Click>","拡張メニューの挿入 (=Name,InsPos,Caption,Procedure,Arg...)", "Insert extension menu (=Name,InsPos,Caption,Procedure,Arg...)"},
{1, "<%ShowMenu=&F, ONOFF>","メニューの表示 (=Name...,ON/OFF/ONOFF)", "Show the menu (=Name...,ON/OFF/ONOFF)"},
{1, "<%EnableMenu=&F, ONOFF>","メニューの許可 (=Name...,ON/OFF/ONOFF)", "Enable the menu (=Name...,ON/OFF/ONOFF)"},
{1, "<%ShortCut=&V, &C, &1, Ctrl+1>","メニューにショートカットを設定 (=Name...,Key)", "Set menu short cut (=Name...,Key)"},
{1, "<%CheckMenu=&H, &P, ONOFF>","メニューにチェックの付ける (=Name...,ON/OFF/ONOFF)", "Set menu check (=Name...,ON/OFF/ONOFF)"},
{1, "<%DeleteMenu=&X>","メニューを削除 (=Name...)", "Delete menu (=Name...)"},
{1, "<%DoMenu=&V,&C,&1>","メニューを実行 (=Name...)", "Execute the menu (=Name...)"},
{1, "<%DoButton=FFT>","ボタンをクリックする", "Click the button"},
{1, "<%ShowHTML=home>","HTML/ウェーブサイトを表示", "Show html or Web site"},
{1, "<%SendMessage=PSKGNRFUNC,0,1>","ウインドウメッセージの送信 (=Name, wParam, lParam)", "Send window message (=Name, wParam, lParam)"},
// {1, "<%SendMessage=this,16,0,0>","ウインドウメッセージの送信 (this, uMsg, wParam, lParam)", "Send window message (this, uMsg, wParam, lParam)"},
// {1, "<%CallDLL=QRZ.DLL,FuncName,<%HisCall>>","DLLファンクションの呼び出し", "Call the function in the DLL"},
{1, "<%Memory>","メモリ状態(Load[%],Total[MB],Free[MB])", "Memory status(Load[%],Total[MB],Free[MB])"},
{1, "<%BuffSize=4096>","マクロバッファの最小のサイズを設定(512-65536)", "Set minimum buffer size for Macro function (512-65536)"},
{1, "<%EOF>","定義の終了", "End of the macro"},
{0, NULL, NULL},
};
#if AN(mackeycom) >= MACLISTMAX
#error macro key over follow
#endif
MACKEY condcom[]={
{1, "IsCall","Callに文字が存在する時", "Letters exists in the Call-box"},
{1, "IsName","Nameに文字が存在する時", "Letters exists in the Name-box"},
{1, "IsHisRST","Hisに文字が存在する時", "Letters exists in the His-box"},
{1, "IsMyRST","Myに文字が存在する時", "Letters exists in the My-box"},
{1, "IsQTH","QTHに文字が存在する時", "Letters exists in the QTH-box"},
{1, "IsNote","Noteに文字が存在する時", "Letters exists in the Note-box"},
{1, "IsLocal","同じエンティティの時", "Same entity (country)"},
{1, "IsQSO","QSOボタンを押している時", "QSO button down"},
{1, "IsDupe","重複QSOの場合", "Is dupe QSO?"},
{1, "IsAFC","AFCがONの時", "Is AFC ON?"},
{1, "IsNET","NETがONの時", "Is NET ON?"},
{1, "IsTX","送信中の時", "Is transmitting?"},
{1, "IsPTT","PTTがONの時", "Is PTT ON?"},
{1, "IsSQ","スケルチが開いている時", "Is Squelch open?"},
{1, "IsTone","シングルトーン送信中の時", "Is single tone transmitting?"},
{1, "IsTXEmpty","未送信文字が存在しない時", "Letters do not exist in the TX window"},
{1, "IsRXScroll","受信画面がスクロール中の時", "Is RX window scrolling?"},
{1, "IsRepeat","マクロが繰り返し中の時", "Is the macro repeating?"},
{1, "IsIME","IMEがONの時", "Is IME ON?"},
{1, "IsPlaying","サウンド再生中の時", "Is sound playing?"},
{1, "IsFileSending","ファイル送信中の時", "Is file sending?"},
{1, "IsRecording","サウンド録音中の時", "Is sound recording?"},
{1, "IsFile(test.txt)","ファイルが存在する時", "File exists"},
{1, "IsDefined(Name)","文字列変数が存在する時", "Variable strings exists"},
{1, "IsMBCS(<%HisName>)","文字列にMBCSが含まれる時", "Is string including MBCS?"},
{1, "IsAlpha(<%MyNR>)","文字列がアルファベットの時", "Is string alphabet?"},
{1, "IsNumber(<%MyNR>)","文字列が数字の時", "Is string number?"},
{1, "IsUOS","RTTYのUOSがONの時", "Is UOS active in RTTY?"},
{1, "IsRadioLSB","RigがLSBモードの時", "Is LSB of the radio?"},
{1, "IsCaptureText(CQ)","受信テキストに文字列が存在する時", "Does string exist in the received text?"},
{1, "IsOnTimer","OnTimerマクロを実行中の時", "Is OnTimer executing?"},
{1, "IsIdle","アイドル状態の時", "Is idle?"},
{1, "IsEnglish","英語モードの時", "Is English mode running?"},
{1, "IsMfskCenter","mfskが中心周波数合わせの時", "Is center FREQ handling in mfsk?"},
{1, "IsMfskMetricSq","mfskがメトリックスケルチの時", "Is squelch metric in mfsk?"},
{1, "Is1stCR","送信開始時に自動でCR/LF出力する時", "Is CR/LF sending automatically at the beginning?"},
{1, "IsPlayBack","サウンドプレーバック機能がONの時", "Is sound play back enabled?"},
{1, "IsCodeMM","MMVARIコード(VariJA, VariHL,...)の時", "Is MMVARI code (VariJA, VariHL,...)?"},
{1, "IsCall(<%CLICK$>)","文字列がコールサインの時", "Is the strings call sign?"},
{1, "IsRST(<%CLICK$>)","文字列がRSTの時", "Is the strings RST?"},
{1, "IsMenu(&H, &U)","メニューが存在する時", "Menu exists?"},
{1, "IsMenuEnabled(&H, &U)","メニューが許可されている時", "Is the menu enabled?"},
{1, "IsMenuChecked(&H, &U)","メニューがチェックされている時", "Is the menu checked?"},
{1, "IsMenuVisible(&H, &U)","メニューが表示されている時", "Is the menu visible?"},
{1, "IsButton(QSO)","ボタンが存在する時", "Button exists?"},
{1, "IsButtonEnabled(QSO)","ボタンが許可されている時", "Is the button enabled?"},
{1, "IsButtonDown(QSO)","ボタンが押されている時", "Is the button down?"},
{1, "ValFreq>=144","ログ周波数の比較", "Compare logging FREQ"},
{1, "ValBaud==31.25","伝送速度(Bps)の比較", "Compare speed (baudrate)"},
{1, "ValCarrierRX<1500","受信キャリア周波数の比較", "Compare RX carrier FREQ"},
{1, "ValCarrierTX<1500","送信キャリア周波数の比較", "Compare TX carrier FREQ"},
{1, "ValPage!=1","送信画面ページの比較", "Compare TX window page"},
{1, "ValTimeLocal<1200","時刻(Local)の比較", "Compare Local time"},
{1, "ValTimeUTC>=0900","時刻(UTC)の比較", "Compare UTC time"},
{1, "ValDateLocal>=0801","日付(Local)の比較", "Compare Local date"},
{1, "ValDateUTC<0401","日付(UTC)の比較", "Compare UTC date"},
{1, "ValScope","スコープの状態を比較(FFT=0, WF=1, SYNC=2)", "Compare condition of the scope (FFT=0, WF=1, SYNC=2)"},
{1, "ValMacro(<%VER>)>="VERNO,"マクロ展開文字列の数値を比較", "Compare value of the Macro"},
{1, "ValMenu","選択された<%Menu=...>のインデックス番号を比較", "Compare value of the selected <%Menu=...> index"},
{1, "StrCall==JA3QRZ","コールサインの比較", "Compare his callsign"},
{1, "StrMode==GMSK","モードの比較", "Compare current Mode"},
{1, "StrBand==40m","ログ周波数（バンド）の比較", "Compare logging BAND"},
{1, "StrHisRST==599","HisRSTの比較", "Compare HisRST"},
{1, "StrMyRST==599","MyRSTの比較", "Compare MyRST"},
{1, "StrNote==???","Noteの比較", "Compare Note"},
{1, "StrEntity==JA","エンティティの比較", "Compare the entity of his callsign"},
{1, "StrContinent==AS","大陸の比較", "Compare the continent of his callsign"},
{1, "StrVARITYPE==JA","VARICODE種別(JA/HL/BV/BY/STD)の比較", "Compare type of the VARICODE(JA/HL/BV/BY/STD)"},
{1, "StrPLATFORM==XP","Windowsプラットフォーム(95/98/98SE/ME/NT/2000/XP)の比較", "Compare platform of the Windows(95/98/98SE/ME/NT/2000/XP)"},
{1, "StrMacro(<%VER>)=="VERNO,"マクロ展開文字列の比較", "Compare strings of the Macro"},
{1, "#else","残りのすべてで真", "Rest of all"},
{1, "#endif","条件ブロックを終了", "Exit condition block"},
{1, "#macro <%TX>","マクロコマンドをパス1で実行", "Execute macro at the pass 1"},
{1, "#proc Name","プロシジャーの登録 (Name, Dummy...)", "Register procedure (Name, Dummy...)"},
{1, "#endp","プロシジャーの登録の終了", "End of the procedure"},
{1, "#repeat 3","#repeat 〜 #endpまでを繰り返し", "Repeat the block #repeat to #endp"},
{1, "#define Name Strings","文字列を名前変数に定義", "Define variable strings to the name"},
{1, "#DEFINE Name Strings","文字列を名前変数に定義(INIフィアルに保存)", "Define variable strings to the name (Save to INI file)"},
{1, "#DELETE Name", "名前変数またはプロシジャーを削除", "Delete variable string or procedure"},
{1, "#DELETEALL", "すべての名前変数を削除", "Delete all variable strings and procedures"},
{1, "#exit","マクロ文の終了(パス１で終了)", "Exit macro at the pass 1"},
{1, "#comment","コメント行", "Comment line"},
{0, NULL, NULL},
};
static int g_Pos[2]={0,0};
static int g_TopPos[2]={0,0};
static POINT g_xySave;//={0,0};
//---------------------------------------------------------------------
__fastcall TMacroKeyDlg::TMacroKeyDlg(TComponent* AOwner)
: TForm(AOwner)
{
g_xySave.x = 0;
g_xySave.y = 0;
m_pDlg = NULL;
FormStyle = ((TForm *)AOwner)->FormStyle;
Font->Name = ((TForm *)AOwner)->Font->Name;
Font->Charset = ((TForm *)AOwner)->Font->Charset;
if( sys.m_MsgEng ){
// Caption = "Choose macro";
CancelBtn->Caption = "Close";
SBIns->Caption = "Insert";
SBSpace->Caption = "Space";
SBCR->Caption = "Enter";
SBUndo->Caption = "Undo";
SBFind->Caption = "Find";
SBPrint->Caption = "Print";
SBIns->Hint = "Insert current command";
SBSpace->Hint = "Insert 'Space'";
SBCR->Hint = "Insert 'Enter'";
SBUndo->Hint = "Cancel of the operation";
SBFind->Hint = "Find strings";
SBPrint->Hint = "Print the list (Right click for create file)";
Grid->Hint = "Insert command for double click (Sort - click the title)";
}
OnWave();
m_Type = 0;
m_fSort = FALSE;
m_fSortType = 0;
m_fDisDblClick = FALSE;
}
//---------------------------------------------------------------------------
void __fastcall TMacroKeyDlg::FormDestroy(TObject *Sender)
{
g_xySave.x = Left;
g_xySave.y = Top;
g_Pos[m_Type] = Grid->Row;
g_TopPos[m_Type] = Grid->TopRow;
}
//---------------------------------------------------------------------------
void __fastcall TMacroKeyDlg::UpdateUI(int row)
{
int r = row - 1;
if( r >= 0 ){
SBIns->Enabled = TRUE;
}
else {
SBIns->Enabled = FALSE;
}
}
//---------------------------------------------------------------------------
void __fastcall TMacroKeyDlg::UpdateUndo(BOOL undo)
{
SBUndo->Enabled = undo;
}
//---------------------------------------------------------------------
int __fastcall TMacroKeyDlg::AddMacKey(MACKEY *mp, int n)
{
for( ; mp->r; mp++){
if( (mp->r == 2) && sys.m_MsgEng ) continue;
if( (mp->r == 3) && !sys.m_MsgEng ) continue;
mackey[n] = *mp;
n++;
}
return n;
}
//---------------------------------------------------------------------
void __fastcall TMacroKeyDlg::Execute(int x, int y, TMacEditDlg *pDlg, int type)
{
m_fSort = FALSE;
m_Type = type;
Grid->RowCount = AddMacKey(type ? condcom : mackeycom, 0) + 1;
if( (g_Pos[type] > 0) && (g_Pos[type] < Grid->RowCount) ){
Grid->Row = g_Pos[type];
Grid->TopRow = g_TopPos[type];
}
UpdateUI(Grid->Row);
if( type ){
Caption = sys.m_MsgEng ? "Choose Condition command (pass 1 command)" : "条件命令(パス1命令)の選択";
}
else {
Caption = sys.m_MsgEng ? "Choose Macro command (pass 2 command)" : "マクロコマンド(パス2命令)の選択";
}
SBSpace->Enabled = !type;
SBCR->Enabled = !type;
#if DEBUG
char bf[256];
sprintf(bf, "%s (Commands=%u/%u)", Caption.c_str(), Grid->RowCount-1, MACLISTMAX);
Caption = bf;
#endif
m_pDlg = pDlg;
if( (x >= 0) && (y >= 0) ){
if( g_xySave.x && g_xySave.y ){
Left = g_xySave.x;
Top = g_xySave.y;
}
else {
Left = x;
Top = y;
}
}
Visible = TRUE;
OnWave();
Grid->SetFocus();
}
//---------------------------------------------------------------------
LPCSTR __fastcall TMacroKeyDlg::GetComment(const MACKEY *mp)
{
LPCSTR pCom;
if( sys.m_MsgEng ){
pCom = mp->pEng;
if( pCom == NULL ){
pCom = mp->pJpn;
}
}
else {
pCom = mp->pJpn;
}
return pCom;
}
//---------------------------------------------------------------------
void __fastcall TMacroKeyDlg::GridDrawCell(TObject *Sender, int Col,
int Row, TRect &Rect, TGridDrawState State)
{
char bf[256];
Grid->Canvas->Font->Height = -12;
Grid->Canvas->FillRect(Rect);
int X = Rect.Left + 4;
int Y = Rect.Top + 2;
if( Row ){
Row--;
bf[0] = 0;
switch(Col){
case 0:
OnWave();
strcpy(bf, mackey[Row].pKey);
break;
case 1:
strcpy(bf, GetComment(&mackey[Row]));
break;
}
Grid->Canvas->TextRect(Rect, X, Y, bf);
}
else { // タイトル
LPCSTR _tt[]={
"Commands","Comments",
};
Grid->Canvas->TextRect(Rect, X, Y, _tt[Col]);
}
}
//---------------------------------------------------------------------------
void __fastcall TMacroKeyDlg::GridSelectCell(TObject *Sender, int Col,
int Row, bool &CanSelect)
{
UpdateUI(Row);
}
//---------------------------------------------------------------------------
void __fastcall TMacroKeyDlg::CancelBtnClick(TObject *Sender)
{
g_Pos[m_Type] = Grid->Row;
g_TopPos[m_Type] = Grid->TopRow;
Visible = FALSE;
}
//---------------------------------------------------------------------------
void __fastcall TMacroKeyDlg::SBInsClick(TObject *Sender)
{
if( m_pDlg ){
if( Grid->Row ){
LPCSTR p = mackey[Grid->Row - 1].pKey;
if( m_Type ){
char bf[256];
sprintf(bf, (*p == '#') ? "%s\r" : "#if %s\r", p);
p = bf;
}
m_pDlg->OnInsertText(p);
}
}
}
//---------------------------------------------------------------------------
void __fastcall TMacroKeyDlg::SBSpaceClick(TObject *Sender)
{
if( m_pDlg ){
m_pDlg->OnInsertText(" ");
}
}
//---------------------------------------------------------------------------
void __fastcall TMacroKeyDlg::SBCRClick(TObject *Sender)
{
if( m_pDlg ){
m_pDlg->OnInsertText("\r");
}
}
//---------------------------------------------------------------------------
void __fastcall TMacroKeyDlg::SBUndoClick(TObject *Sender)
{
if( m_pDlg ){
m_pDlg->Undo();
}
}
//---------------------------------------------------------------------------
void __fastcall TMacroKeyDlg::GridMouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if( Y < Grid->DefaultRowHeight ){
if( Button == mbLeft ){
int type = (X <= Grid->ColWidths[0]) ? 0 : 1;
if( type == m_fSortType ){
m_fSort = m_fSort ? FALSE : TRUE;
}
else {
m_fSort = TRUE;
}
m_fSortType = type;
Sort(m_fSort, type);
Grid->Invalidate();
m_fDisDblClick = TRUE;
}
}
else {
m_fDisDblClick = FALSE;
}
}
//---------------------------------------------------------------------------
static int _USERENTRY _cmpK(const void *s, const void *t)
{
const MACKEY *sp = (const MACKEY *)s;
const MACKEY *tp = (const MACKEY *)t;
return strcmpi(sp->pKey, tp->pKey);
}
//---------------------------------------------------------------------------
static int _USERENTRY _cmpC(const void *s, const void *t)
{
const MACKEY *sp = (const MACKEY *)s;
const MACKEY *tp = (const MACKEY *)t;
LPCSTR pComS, pComT;
if( sys.m_MsgEng ){
pComS = sp->pEng;
if( pComS == NULL ) pComS = sp->pJpn;
pComT = tp->pEng;
if( pComT == NULL ) pComT = tp->pJpn;
}
else {
pComS = sp->pJpn;
pComT = tp->pJpn;
}
return strcmpi(pComS, pComT);
}
//---------------------------------------------------------------------------
void __fastcall TMacroKeyDlg::Sort(BOOL fSort, int type)
{
if( fSort ){
qsort(mackey, Grid->RowCount - 1, sizeof(MACKEY), type ? _cmpC : _cmpK);
}
else {
AddMacKey(m_Type ? condcom : mackeycom, 0);
}
}
//---------------------------------------------------------------------------
void __fastcall TMacroKeyDlg::GridDblClick(TObject *Sender)
{
if( m_fDisDblClick ){
m_fDisDblClick = FALSE;
return;
}
SBInsClick(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TMacroKeyDlg::FormKeyPress(TObject *Sender, char &Key)
{
if( isalpha(Key) ){
int c = toupper(Key);
if( !m_fSort || m_fSortType ){
m_fSort = TRUE;
m_fSortType = 0;
Sort(m_fSort, m_fSortType);
}
MACKEY *mp = mackey;
LPCSTR p;
for( int i = 0; i < Grid->RowCount - 1; i++, mp++ ){
p = mp->pKey;
if( p ){
if( *p == '<' ) p++;
if( *p == '%' ) p++;
if( toupper(*p) == c ){
int top = i;
if( top < 1 ) top = 1;
Grid->TopRow = top;
Grid->Row = i + 1;
break;
}
}
}
Grid->Invalidate();
}
}
//---------------------------------------------------------------------------
static BOOL __fastcall jstrstr(LPCSTR s, LPCSTR p)
{
CMBCS *pM = &MainVARI->m_RxSet[0].m_MBCS;
int l = strlen(p);
for( ; *s; s++ ){
if( !strnicmp(s, p, l) ) return TRUE;
if( pM->IsLead(BYTE(*s)) ) s++;
if( !*s ) break;
}
return FALSE;
}
//---------------------------------------------------------------------------
void __fastcall TMacroKeyDlg::SBFindClick(TObject *Sender)
{
AnsiString as;
if( InputMB("MMVARI", sys.m_MsgEng ? "Find string" : "検索文字列", as) ){
if( as.IsEmpty() ) return;
MACKEY mac[MACLISTMAX];
memset(mac, 0, sizeof(mac));
int N = 0;
MACKEY *wp = mac;
MACKEY *mp = mackey;
LPCSTR p;
int i;
for( i = 0; i < Grid->RowCount - 1; i++, mp++ ){
p = mp->pKey;
if( p ){
if( jstrstr(p, as.c_str()) ){
memcpy(wp, mp, sizeof(MACKEY)), wp++;
N++;
}
else {
p = GetComment(mp);
if( p && jstrstr(p, as.c_str()) ){
memcpy(wp, mp, sizeof(MACKEY)), wp++;
N++;
}
}
}
}
mp = mackey;
for( i = 0; i < Grid->RowCount - 1; i++, mp++ ){
BOOL f = FALSE;
MACKEY *rp = mac;
for( int j = 0; j < N; j++, rp++ ){
if( !memcmp(rp, mp, sizeof(MACKEY)) ){
f = TRUE;
break;
}
}
if( !f ){
memcpy(wp, mp, sizeof(MACKEY)), wp++;
N++;
}
}
memcpy(mackey, mac, sizeof(mackey));
m_fSort = FALSE;
Grid->TopRow = 1;
Grid->Row = 1;
Grid->Invalidate();
}
}
//---------------------------------------------------------------------------
// リストの印刷
void __fastcall TMacroKeyDlg::SBPrintClick(TObject *Sender)
{
CWaitCursor w;
#if 1 // 設定ダイアログ
TPrinterSetupDialog *pBox = new TPrinterSetupDialog(this);
#else // 印刷ダイアログ
TPrintDialog *pBox = new TPrintDialog(this);
pBox->Options.Clear();
#endif
OnWave();
if( pBox->Execute() ){
OnWave();
char bf[512];
Printer()->Title = VERTTL2;
Printer()->BeginDoc();
int kcount = Grid->RowCount - 1; // 項目の数
int pyw = Printer()->PageHeight; // 用紙の縦幅
int pxw = Printer()->PageWidth; // 用紙の横幅
int xoff = pxw * 5 / 100; // 左右のマージン
int yoff = pyw * 5 / 100; // 上下のマージン
int yw = pyw - (yoff*2); // 印刷領域の縦幅
int xw = pxw - (xoff*2); // 印刷領域の横幅
int pline;
if( yw > xw ){ // 縦長
pline = 50;
}
else { // 横長
pline = 25;
}
int lyw = yw / (pline + 2); // １行あたりのピクセル数
yw = lyw * (pline + 2);
TCanvas *pCanvas = Printer()->Canvas;
pCanvas->Font->Name = Font->Name;
pCanvas->Font->Charset = Font->Charset;
pCanvas->Font->Height = -(lyw * 8 / 10);
pCanvas->Font->Color = clBlack;
pCanvas->Pen->Color = clBlack;
int pagemax = (kcount + pline - 1) / pline; // ページの数
TRect rc; // 表の枠の範囲
rc.Left = xoff; rc.Top = yoff;
rc.Right = rc.Left + xw; rc.Bottom = rc.Top + yw;
int xt = (lyw * 1) / 10; // 文字のオフセット
int yt = (lyw * 1) / 10; // 文字のオフセット
if( !xt ) xt++;
if( !yt ) yt++;
int xp = ((rc.Right - rc.Left) * 4 / 10); // 垂直分割線の位置
const MACKEY *mp = mackey;
int n = 0;
for( int i = 1; i <= pagemax; i++ ){
OnWave();
int y = rc.Top;
for( int j = 0; j < (pline+2); j++, y += lyw ){
switch(j){
case 0: // タイトルの描画
sprintf(bf, "%s - " VERTTL2, m_Type ? "Conditions" : "Macros");
pCanvas->TextOut(rc.Left, y, bf);
sprintf(bf, "%u/%u", i, pagemax);
pCanvas->TextOut(rc.Right - pCanvas->TextWidth(bf), y, bf);
break;
case 1: // 項目名の描画
pCanvas->TextOut(rc.Left+xt, y+yt, sys.m_MsgEng ? "Commands" : "コマンド");
pCanvas->TextOut(rc.Left+xp+xt, y+yt, sys.m_MsgEng ? "Comments" : "機能/動作");
break;
default: // 各項目の描画
if( n < kcount ){
pCanvas->TextOut(rc.Left + xt, y+yt, mp->pKey);
pCanvas->TextOut(rc.Left + xp + xt, y+yt, GetComment(mp));
n++; mp++;
}
break;
}
pCanvas->MoveTo(rc.Left, y+lyw); pCanvas->LineTo(rc.Right, y+lyw);
}
y = rc.Top + lyw;
pCanvas->MoveTo(rc.Left, y);
pCanvas->LineTo(rc.Right, y);
pCanvas->LineTo(rc.Right, rc.Bottom);
pCanvas->LineTo(rc.Left, rc.Bottom);
pCanvas->LineTo(rc.Left, y);
pCanvas->MoveTo(rc.Left + xp, y); pCanvas->LineTo(rc.Left + xp, rc.Bottom);
if( i < pagemax ) Printer()->NewPage();
}
Printer()->EndDoc();
OnWave();
}
delete pBox;
}
//---------------------------------------------------------------------------
void __fastcall TMacroKeyDlg::SBPrintMouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if( Button == mbRight ){
TSaveDialog *pBox = new TSaveDialog(this);
pBox->Options << ofOverwritePrompt;
pBox->Options << ofNoReadOnlyReturn;
if( sys.m_MsgEng ){
pBox->Title = "Create list file";
pBox->Filter = "Text Files(*.txt)|*.txt|";
}
else {
pBox->Title = "一覧表ファイルを作成";
pBox->Filter = "テキストファイル(*.txt)|*.txt|";
}
pBox->FileName = "Temp";
pBox->DefaultExt = "txt";
pBox->InitialDir = sys.m_TextDir;
OnWave();
if( pBox->Execute() == TRUE ){
OnWave();
FILE *fp = fopen(AnsiString(pBox->FileName).c_str(), "wt"); //JA7UDE 0428
if( fp ){
const MACKEY *mp = mackey;
for( int i = 1; i < Grid->RowCount; i++, mp++ ){
fprintf(fp, "%d\t%s\t%s\n", i, mp->pKey, GetComment(mp));
}
fclose(fp);
}
}
delete pBox;
}
}
//---------------------------------------------------------------------------