home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2002 July / VPR0207A.ISO / OLS / IRVINE0_4_1A / irvine0_4_1a.lzh / scripts / listsuccess.dms < prev    next >
Text File  |  2002-01-28  |  883b  |  40 lines
  1. /*
  2. スクリプト初期化データ
  3. guid={E23517A1-0197-478A-97CE-8629CBEF901B}
  4. caption=アイテム成功
  5. version=0
  6. hint=選択アイテムを成功アイコンにします
  7. event=OnListMenuClick
  8. match=
  9. author=Wolfy
  10. */
  11.  
  12. function OnListMenuClick(irvine,action){
  13. //キューリストメニューのクリックイベント
  14.   item = new IrvineItem;
  15.  
  16.   flag = false;
  17.   irvine.BeginProgressBar(irvine.SelectedItemCount);
  18.   try{
  19.     for(i = 0; i < irvine.ItemCount; i++){
  20.       if (irvine.GetItemSelected(i)){
  21.         item.data = irvine.GetItemData(i);
  22.         item.success = true;
  23.         irvine.SetItemData(i,item.data);
  24.         irvine.ProgressBarStepBy(1);
  25.         flag = true;
  26.       }
  27.     }
  28.   }
  29.   finally{
  30.     irvine.EndProgressBar();
  31.     if(flag)
  32.       irvine.Invalidate();
  33.   }
  34. }
  35.  
  36. function OnMenuUpdate(irvine,action){
  37. //メニューの更新イベント
  38.   action.enabled = (irvine.SelectedItemCount > 0);
  39. }
  40.