mokaさんの「クリップレス」を参考にした、「簡易」レス書き支援ソフトです。 (mokaさん、ありがとうございます) ボタンクリックで、引用符追加・クリップボード内クリア、 コンボ内の文字を選択→Ctrl+Vで文字貼り付けをします。 挿入文字については、ご自分で「moji.txt」ファイルを作ってください。 (書式は、一行につき一単語(+改行)です。)
既知の問題 母艦の幅・高さの設定が、INIファイルに正しく反映されない。 設定値より若干大きめになってしまう(TT)。
ソース記述ミス等ありましたら、ご指示下さいm(__)m。
=== {ResQ:簡易レス書き支援} '引用符追加コードは、mokaさん作を使用
母艦の、テキストは、「ResQ」。 その、幅は、136。 その、高さは、115。 その、リサイズは、オフ。 その、背景色は、「#363636」。
{引用符追加} 引用符追加ボタンを、ボタンとして、作成。 その、サイズは、(10,10,60,30) その、テキストは、「Add >」。 その、フォントサイズ=10。 その、イベントは、引用符追加。
{クリップボードクリア} クリップクリアボタンを、ボタンとして、作成。 その、サイズは、(70,10,120,30) その、テキストは、「clear」。 その、フォントサイズ=10。 その、イベントは、クリップクリア。
{選択した顔文字をクリップボードに保存} 顔文字コンボを、コンボとして、作成。 その、サイズは、(10,40,120,60) 作業フォルダ&「moji.txt」を、読む。 その、アイテムは、「{それ}\n」。 その、フォントサイズ=10。 その、イベントは、顔文字コンボ選択。
{オプションの作成} メニュー設定を、メニュー作成。 その、テキストは、「Option」。 メニュー設定に、最前面表示を、メニュー追加。 その、テキストは、「常に手前に表示」。 その、イベントは、( もし、(最前面表示の、値)ならば、最前面表示の、値は、0。 違えば、最前面表示の、値は、1。 )。 {メニューの編集作成} メニュー2を、メニュー作成。 その、テキストは、「Edit(&S)」。 その、ショートカットキーは、「Ctrl+S」。 その、イベントは、作業フォルダ&「moji.txt」を、起動。{txtに関連づけられたエディタが起動} 作業フォルダ&「resq.ini」の、INIファイル開く。 「window」の、「stay_top」を、INIファイル読む。 もし、それが、「」でなければ、最前面表示の、値は、それ。 もし、それが、1ならば、母艦を、最前面。 作業フォルダ&「resq.ini」から、フォーム位置復元。 INIファイル閉じる。
終了処理に、終了処理設定。 待機。
*引用符追加 クリップボードを、開く。 結果=「」
それを、反復( 結果は、結果&「> {それ}\n」。 )
それは、結果。 クリップボードへ、保存。 戻る。
*クリップクリア クリップボードを、開く。 結果=「」
それを、反復( それは、「{それ}\n」。 「{それ}\n」を、「 」に、置換。{半角スペースに置換}} )
それは、結果。 クリップボードへ、保存。 戻る。
*顔文字コンボ選択 クリップボードを、開く。 顔文字コンボの、テキストを、それに、得る。 「{それ}」を、クリップボードへ、保存。 戻る。
*終了処理 作業フォルダ&「resq.ini」へ、フォーム位置記録。 作業フォルダ&「resq.ini」の、INIファイル開く。 それは、最前面表示の、値。 「window」の、「stay_top」へ、INIファイル書く。 INIファイル閉じる 終わり。 |