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