home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2001 June / VPR0106A.BIN / OLS / FSC202 / fsc202.lzh / Selector.fxl < prev    next >
Text File  |  2001-03-14  |  1KB  |  74 lines
  1. //       Name : 
  2. //     Author : 
  3. //     Upadte : 01/02/26 21:26:35
  4. //  Generator : FXL designer for FScript v1.00
  5.  
  6. // == 前処理 ==
  7.  
  8.  
  9. // == フォーム作成 ==
  10.     main.add(360,300);
  11.     main.bring("center");
  12.     main.taskbar=true;
  13.  
  14. // == オブジェクト生成 ==
  15.     main.width="545";
  16.     main.height="225";
  17.     main.caption="FScript Starter/ Author:SYNC";
  18.  
  19.     main.label.add(25,11,24,12);  //object
  20.     main.label.caption="説明";
  21.  
  22.     main.btn.add(368,50,60,30);  //object
  23.     main.btn.caption="実行";
  24.  
  25.     main.label.add(27,28,126,12);  //object
  26.     main.label.caption="スクリプトファイルの実行";
  27.  
  28.     main.label.add(25,51,257,12);  //object
  29.     main.label.caption="下のリストボックスの実行したいファイルを選択して";
  30.  
  31.     main.label.add(27,73,187,12);  //object
  32.     main.label.caption="実行ボタンを押すと実行を開始します";
  33.  
  34.     main.listbox.add(29,99,483,82);  //object
  35.     
  36.     
  37.     
  38.     
  39.  
  40. // == 後処理 ==
  41.     x.readdir(".\\", "*.fxl");
  42.     main.listbox.items=x.pos();
  43.  
  44.     main.deffunc.set(macro.body);
  45.     main.visible="true";
  46.  
  47. // == サブルーチン ==
  48. function OnBtnClick1()
  49. {
  50.     x.set(main.getwinlist());
  51.     x.topline();
  52.     x.take();    //id = 1のフォームはこのフォーム
  53.     while (x.take()=="true") {
  54.         main(x.line).close();    //全てのフォームをクローズ
  55.     }
  56.     //変数の初期化
  57.     deffunc.clear();
  58.     value.clear();
  59.     macro.file(main(1).listbox(1).selected);
  60. }
  61.  
  62.  
  63.  
  64. function OnBtnClick1() 
  65. {
  66.     wfile=str(sys.instpath(),"\\*.fxl");
  67.     wk=sys.fileselect("file select",wfile);
  68.     if(wk!="") {
  69.             main.combobox(1).caption=wk;
  70.     }
  71. }
  72.  
  73.  
  74.