home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / henkyaku1.0.exe / henkyaku / Program / Kernel / Util / CheckBox.tonyu < prev    next >
Text File  |  2004-07-04  |  2KB  |  75 lines
  1. extends SecretChar;
  2.  
  3. function init(number) {
  4.   var a;
  5.   ChkBox=new Array();
  6.   for (a=0;a<number;a++) {
  7.     ChkBox.add(0);
  8.   }
  9. }
  10.  
  11. function create(x,y,number,col,zOr) {
  12.   var a;
  13.   drawLine(x,y,x,y+10,col,zOr);
  14.   drawLine(x,y+10,x+10,y+10,col,zOr);
  15.   drawLine(x+10,y+10,x+10,y,col,zOr);
  16.   drawLine(x+10,y,x,y,col,zOr);
  17.   if ($mouseX>=x && $mouseX<=x+10 && $mouseY>=y && $mouseY<=y+10) {
  18.     if (getkey(1)==1) {
  19.       if (ChkBox.get(number)==1) ChkBox.set(number,0);else ChkBox.set(number,1);
  20.     }
  21.   }
  22.   if (ChkBox.get(number)==1) {
  23.     fillRect(x+2,y+2,x+9,y+9,col,zOr);
  24.   }
  25.   if (ChkBox.get(number)==1) return 1;
  26.   return 0;
  27. }
  28.  
  29.  
  30. /*
  31. ***************** NewChkBox(number) ******************
  32.       ChkBoxùpé╠Å≤æ╘é≡èiö[é╖éΘò╧Éöé≡Åëè·ë╗é╡é▄é╖
  33. *âüâCâôâïü[âvé╠æOé╔özÆué╡é─é¡é╛é│éó(òKé╕î─é±é┼é¡é╛é│éó)*
  34.  
  35. number
  36.         âIâuâWâFâNâgôαé┼ì∞éΘâ`âFâbâNâ{âbâNâXé╠Éö
  37.  
  38. ************ ChkBox(x,y,number,col[,zOr]) ************
  39.               â`âFâbâNâ{âbâNâXé≡ì∞éΦé▄é╖
  40. ò╘éΦÆl: ON=1 OFF=0  (Æ╝É┌ò╧ÉöChkBoxé≡ÄQÅ╞é╖éΘé▒é╞éαÅoùêé▄é╖)
  41.  
  42. x
  43.          xì└òW
  44. y
  45.          yì└òW
  46. number
  47.          â`âFâbâNâ{âbâNâXé╠ID(0é⌐éτïlé▀é─é¡é╛é│éó)
  48. col
  49.          ÉF
  50. zOr
  51.          èGëµÅçÅÿ
  52.  
  53.          
  54.          
  55. a=new Array();
  56. a.add("OFF");a.add("OFF");a.add("OFF");a.add("OFF");a.add("OFF");a.add("OFF");
  57. newCheckBox(6);
  58. while(1) {
  59.   if (checkBox(60,120,0,$clBlack)==1) a.set(0,"ON");else a.set(0,"OFF");
  60.   if (checkBox(60,140,1,$clRed)==1) a.set(1,"ON");else a.set(1,"OFF");
  61.   if (checkBox(60,160,2,$clGreen)==1) a.set(2,"ON");else a.set(2,"OFF");
  62.   if (checkBox(110,120,3,$clYellow)==1) a.set(3,"ON");else a.set(3,"OFF");
  63.   if (checkBox(110,140,4,$clPink)==1) a.set(4,"ON");else a.set(4,"OFF");
  64.   if (checkBox(110,160,5,$clWhite)==1) a.set(5,"ON");else a.set(5,"OFF");
  65.   drawText(75,120,a.get(0),$clBlack,10);
  66.   drawText(75,140,a.get(1),$clBlack,10);
  67.   drawText(75,160,a.get(2),$clBlack,10);
  68.   drawText(125,120,a.get(3),$clBlack,10);
  69.   drawText(125,140,a.get(4),$clBlack,10);
  70.   drawText(125,160,a.get(5),$clBlack,10);
  71.   update();
  72. }
  73.          
  74. */
  75.