home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 January (DVD) / VPR980100.ISO / OLS / WIN32 / KAKIMAC / KAKIMACG.LZH / K_GREPLT.MAC < prev    next >
Text File  |  1995-12-21  |  7KB  |  136 lines
  1. //【マクロ名】k_grepLT.mac by 水銀水(Suigwinsui)/小田 明夫 (HGD01603)
  2. //            日本語文書作成支援「書きマクロ」αシリーズ　第Ｇ集 Ver.1
  3. //【主な用途】k_GREP 閲覧部担当マクロ。
  4.  
  5. call startSetting;
  6. while(1){setSpeedByWaitDev:
  7.     if(!#exKey)$$sSBmK="Ctrl,Shift：前頁、次頁が可能";
  8.     else $$sSBmK="Ctrl,Shift：なにもしない";
  9.  
  10.     if(!#dispSize)$$dS="元へ戻す";
  11.     else $$dS="終了時のサイズ";
  12.     menu
  13.     " ■ 設定　　　k_GREP 閲覧部 Ver.1　(C)水銀水",
  14.     "────────────[上下移動速度 &s]──",
  15.     "　(&1)低速移動の速度="+str(#wD1),
  16.     "　(&2)中速移動の速度="+str(#wD2),
  17.     "　(&3)高速移動の速度="+str(#wD3),
  18.     "────────────[MODE &m]──",
  19.     "　(&K)"+$$sSBmK,
  20.     "　(&L)ログ閲覧MODEへ",
  21.     "────────────[動作 &a]──",
  22.     "　(&Q)最後の秀丸を閉じるか",
  23.     "　(&W)終了サイズ",
  24.     "　(&U)検索で正式なk_SRCH V1.1使用",
  25.     "────────────[戻る　&e]──";
  26.     if(result==0){goto ending;
  27.     }else if(result==1){
  28.         message "● k_GREP閲覧部の設定を行います。\n　主に自動スクロールの速度を数字で設定します。また、各種の設定が行えますが、この版では、マクロ上から設定をコントロールするタイプではなく、直接、ﾏｸﾛﾌｧｲﾙを編集するようにしました。その方がマクロの起動を速くできるためです。閲覧マクロは起動が遅くては意味がないという判断からです。ご理解下さいませ<m(_._)m>　あ、ﾏｸﾛﾌｧｲﾙを編集すると言っても、「0」を「1」にして上書き保存する、みたいな『編集』だけですのでご安心を(^^;"+
  29.         "もし、k_LOOKが導入されている場合には、閲覧時の動作設定は共有されます。";
  30.     }else if(result==2){
  31.         message "●「上下移動速度」の変更方法とその結果の反映\n　自動スクロールの速度を数字で設定して下さい。低速、中速、高速を別々に指定できます。ただし、低速に100を指定して、高速に100を指定しても、高速の方が速いスクロールをします。\n　ま、実際に10、100、1000……などを入れてみてスクロールさせてみて、各自のハード環境や好みに応じた値を見つけて下さい。一応、486/66程度のCPUで、ごく普通のビデオボードを載せている場合、「低速=100、中速=50、高速=20」くらいが適当だという意見もあるようです(^^)";
  32.     }else if(result==3){
  33.         i1:
  34.         $$i1=input($hmH+"●低速移動の速度拡張（零以上の数字）\n　数字が小さいほど早く移動",str(#wD1));
  35.         if(!result)continue;
  36.         else if(val($$i1)<0)goto i1;
  37.         else #wD1=val($$i1);
  38.         call endingForWiteIniWait;
  39.         goto setSpeedByWaitDev;
  40.     }else if(result==4){
  41.         i2:
  42.         $$i2=input($hmH+"●中速移動の速度拡張（零以上の数字）\n　数字が小さいほど早く移動",str(#wD2));
  43.         if(!result)continue;
  44.         else if(val($$i2)<0)goto i2;
  45.         else #wD2=val($$i2);
  46.         call endingForWiteIniWait;
  47.         goto setSpeedByWaitDev;
  48.     }else if(result==5){
  49.         i3:
  50.         $$i3=input($hmH+"●高速移動の速度拡張（零以上の数字）\n　数字が小さいほど早く移動",str(#wD3));
  51.         if(!result)continue;
  52.         else if(val($$i3)<0)goto i3;
  53.         else #wD3=val($$i3);
  54.         call endingForWiteIniWait;
  55.         goto setSpeedByWaitDev;
  56.     }else if(result==6){
  57.         message "●キー操作とログ閲覧への切り替え\n　閲覧部のデフォルトでは、『[Ctrl]は[PgUp]、[Shift]は[PgDn]と同じ動き』をするようになっています。これは、閲覧部を操作すればその合理性が分かるかと思いますが、起動するとすぐｽﾍﾟｰｽｷｰでスクロール開始。スクロールさせていると、「おっ、ここやっ！」と目に留まる部分があったとします。しかし、時はすでに遅く、着目したい部分はスクロールの彼方へと流れ去っている場合がほとんどではないでしょうか。こうした時に通常、下矢印キーを押していたならば、上矢印キーを押して、スクロール方向を反転させるわけですが、画面がスクロールしているとどうしても見にくいモノです。そんな時、[PgUp][PgDn]まで手を伸ばさなくても、ポンと[Ctrl]か[Shift]を左手で打つと、流れ去った画面が素早く、しかもスクロールではなく、フィックスの画面で見ることができます。スクロールの機能と、前/後画面の機能の美しい究極の融合ではないかと存知おります(^^)\n　これは、日常、スクロールさせて目的部部を探す行動を、人間学的見地から深く考察を重ね、永年の研究と幾多の実験の結果、得られた貴重なレポートに基づいて……(^^;？　とにかく、右手でコーヒーカップを持って左手だけでスクロール操作をしたいという「ナマケモノ」発想から付け足した機能なんかじゃ決してありませんので、ヨロシク(^^；　おぅと、その切り替えをします。ログ閲覧マクロは、続いて公開する予定です";
  58. //        goto setSpeedByWaitDev;
  59.     }else if(result==7){
  60.         if(#exKey)#exKey=0;
  61.         else #exKey=1;
  62.     }else if(result==8){
  63.         call checkLOGLfile;
  64.     }else if(result==9){
  65.         message "●　閲覧部の下記の３つの動きを設定できます。\n\n"+
  66.             "・最後の秀丸を閉じるか\n　　...[Q]キー操作で全ての秀丸を閉じるか、一つは残すか\n"+
  67.             "・終了サイズ\n　　...起動した秀丸が終了するときに、サイズを元に戻すかどうか。\n"+
  68.             "・検索で正式なk_SRCH V1.1使用\n　　...公開済みのk_SRCHを検索エンジンとして使います\n"+
  69.             "\n";
  70.     }else if(result==10){
  71.         message "●最後の秀丸を閉じるか\n"+
  72.         "・機能...「[Q]キー操作で全ての秀丸を閉じるか、一つは残すか」を設定します\n"+
  73.         "・方法...「k_grepLT.macを開き、［★設定★］部分の #closeAll=0; の行を見つけます。ここを「0」か「1」に書き換えて、上書き保存します。」";
  74.     }else if(result==11){
  75.         message "●終了サイズ\n"+
  76.         "・機能...「起動した秀丸が終了するときに、サイズを元に戻すかどうか」を設定します\n"+
  77.         "・方法...「k_grepLT.macを開き、［★設定★］部分の #keepOrgSize=0; の行を見つけます。ここを「0」か「1」に書き換えて、上書き保存します。」";
  78.         
  79.     }else if(result==12){
  80.         message "●検索で正式なk_SRCH V1.1使用\n"+
  81.         "・機能...「公開済みのk_SRCHを検索エンジンとして使います」を設定します\n"+
  82.         "・方法...「k_grepLT.macを開き、［★設定★］部分の #keepOrgSize=0; の行を見つけます。ここを「0」か「1」に書き換えて、上書き保存します。」";
  83.         
  84.     }else if(result==13){
  85.         break;
  86.     }
  87. }
  88. endmacro;
  89.  
  90.  
  91. startSetting:
  92. $f0=hidemarudir+"\\kakimac\\kakimac.kdf";
  93. call getIniDW;
  94. #getSearchCharOrg=#getSearchChar;
  95. #getWordCharOrg=#getWordChar;
  96. #endSetBufferOrg=#endSetBuffer;
  97. return;
  98.  
  99. ending:
  100. if(##return){
  101.     call writeIniChanged;
  102.     message "●報告...設定内容を新たに書き込みました。\n"+
  103.         "●確認...起動時の変更（ 1.～5.までの変更した設定内容）は、次回のk_SRCH.macの起動時から有効になります。"+
  104.         "また、終了時の変更（ 6.～7.までの変更した設定内容）は、現在のマクロ終了時から有効です。";
  105. }
  106. endmacro;
  107.  
  108.  
  109. getIniDW:
  110. #wD1=getininum($f0,"LOOK00","waitDev1");
  111. #wD2=getininum($f0,"LOOK00","waitDev2");
  112. #wD3=getininum($f0,"LOOK00","waitDev3");
  113. return;
  114.  
  115. checkLOGLfile:
  116.         $HMMacroDir=getinistr("hidemaru.ini","Env","MacroPath");
  117.         if($HMMacroDir=="")$HMMacroDir=hidemarudir;
  118.         if(existfile($HMMacroDir+"\\k_LOOG.mac"))endmacro;
  119.         else{
  120.             beep;
  121.             message "●報告...ログファイル閲覧は、まだ準備ができていません(^^;\n"+
  122.                 "●理由...ログ版の k_logL.mac がありません\n"+
  123.                 "●対策...k_logL.macとk_LOOG.macをマクロ用ディレクトリに移して、k_LOOG.macを実行してください。";
  124.         }
  125. return;
  126.  
  127.  
  128.  
  129. endingForWiteIniWait://自動スクロール速度
  130.     writeininum $f0,"LOOK00","waitDev1",#wD1;
  131.     writeininum $f0,"LOOK00","waitDev2",#wD2;
  132.     writeininum $f0,"LOOK00","waitDev3",#wD3;
  133. return;
  134.  
  135.  
  136.