home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2001 June / VPR0106A.BIN / OLS / FSC202 / fsc202.lzh / Cmd.fxl < prev    next >
Text File  |  2001-03-19  |  1KB  |  61 lines
  1. //       Name : コマンドウィンドウ
  2. //     Author : y.Fuji
  3. //     Upadte : 01/03/18 12:02:34
  4. //  Generator : FXL designer for FScript v1.01
  5.  
  6. // == 前処理 ==
  7.  
  8.  
  9. // == フォーム作成 ==
  10.     main.add();
  11.     main.taskbar=true;
  12.  
  13. // == オブジェクト生成 ==
  14.     main.width="363";
  15.     main.height="365";
  16.     main.caption="コマンドウィンドウ";
  17.  
  18.     main.fxedit.add(0,0,355,338);  //object
  19.     main.fxedit.align="alClient";
  20.  
  21.  
  22. // == 後処理 ==
  23.     main.deffunc.set(macro.body);
  24.     main.bring("center");
  25.     main.visible="true";
  26.     main.fxedit.setfocus();
  27.     main.fxedit.ed("AddAlias:%CR%=Post:OnEnter()");
  28.     main.fxedit.ed("Stop Undo");    //メモリの消費を押さえるため
  29.     main.fxedit.ed("ShowMarkLine=On");
  30.     main.fxedit.ed("Color=mark_bk2,#C0C0C0");
  31.  
  32. // == サブルーチン ==
  33. function OnEnter()
  34. {
  35.     CMD_ID = main.id;
  36.     main.fxedit.ed("Clear Mark");//マーク行のクリア
  37.     w.set(main.fxedit(1).ed("Get,Line"));
  38.     if (w.length()==0) {
  39.         //対象行が空行の場合はスキップ
  40.         main.fxedit.ed("PutStr:\r\n");
  41.         return;
  42.     }
  43.     if (main.fxedit.ed("Get,X")==0) {
  44.         //カーソル行が先頭位置の場合はスキップ
  45.         main.fxedit.ed("PutStr:\r\n");
  46.         return;
  47.     }
  48.     w.set(macro.str(w.pos()));
  49.     main.fxedit.ed("PutStr:\r\n");
  50.     w.insert(0,"sPutStr:");        //結果がそのままではわかりにくいので
  51.                                 //選択してみる
  52.     main(CMD_ID).fxedit(1).ed(w.pos());
  53.     main.fxedit.ed("Mark=2");    //選択範囲の色を変える
  54.     main.fxedit.ed("LineEnd");    //選択範囲の解除
  55.     main.fxedit.ed("PutStr:\r\n");
  56.     main.fxedit.setfocus();
  57. }
  58.  
  59.  
  60.  
  61.