home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2001 June / VPR0106A.BIN / OLS / FSC202 / fsc202.lzh / Sysmoni.fxl < prev    next >
Text File  |  2001-03-14  |  1KB  |  66 lines
  1. //       Name : 
  2. //     Author : 
  3. //     Upadte : 01/02/24 21:48:05
  4. //  Generator : FXL designer for FScript v1.00
  5.  
  6. // == 前処理 ==
  7.  
  8.  
  9. // == フォーム作成 ==
  10.     main.add(0,0,0,0,4194304);
  11.     main.bring("topmost");
  12.     main.taskbar=false;
  13.  
  14. // == オブジェクト生成 ==
  15.     main.width="250";
  16.     main.height="112";
  17.     main.caption="FXL Macro Program";
  18.  
  19.     main.label.add(25,15,200,12);  //object
  20.     main.label.caption="---";
  21.  
  22.     main.label.add(143,35,50,13);  //object
  23.     main.label.caption="---";
  24.  
  25.     main.label.add(143,55,50,12);  //object
  26.     main.label.caption="---";
  27.  
  28.     main.label.add(143,75,50,12);  //object
  29.     main.label.caption="---";
  30.  
  31.     main.label.add(26,35,140,12);  //object
  32.     main.label.caption="system リソース";
  33.  
  34.     main.label.add(26,55,140,12);  //object
  35.     main.label.caption="user リソース";
  36.  
  37.     main.label.add(26,75,140,12);  //object
  38.     main.label.caption="GDI リソース";
  39.  
  40.  
  41. // == 後処理 ==
  42.     main.btn.add(0,0,20,10);    //object
  43.     main.deffunc.set(macro.body);
  44.     timer.set(1,10); //1sec毎更新
  45.     main.visible="true";
  46.  
  47. // == サブルーチン ==
  48.  
  49. function OnBtnClick1()
  50. {
  51.     end();
  52. }
  53.  
  54. function OnTimer1()
  55. {
  56.     x.set(sys.Resource);
  57.     main.label(2).caption=str(x(1),"%");
  58.     main.label(3).caption=str(x(2),"%");
  59.     main.label(4).caption=str(x(3),"%");
  60.  
  61.     //y.set(sys.nowdate("'%02d年%2d月%2d日 %2d時%2d分%02d秒"));
  62.     y.set(sys.nowdate());
  63.     main.label(1).caption=y.substring(14,8);
  64. }
  65.  
  66.