home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2001 June / VPR0106A.BIN / OLS / FSC202 / fsc202.lzh / Image.fxl < prev    next >
Text File  |  2001-03-20  |  1KB  |  59 lines
  1. //       Name : 
  2. //     Author : 
  3. //     Upadte : 01/03/20 21:42:07
  4. //  Generator : FXL designer for FScript v1.01
  5.  
  6. // == 前処理 ==
  7.  
  8.  
  9. // == フォーム作成 ==
  10.     main.add();
  11.     main.taskbar=true;
  12.  
  13. // == オブジェクト生成 ==
  14.     main.width="390";
  15.     main.height="325";
  16.     main.caption="FScript";
  17.  
  18.     main.checkbox.add(25,15,95,15);  //object
  19.     main.checkbox.caption="alClient";
  20.  
  21.     main.editbox.add(155,15,30,20);  //object
  22.  
  23.     main.label.add(140,20,5,10);  //object
  24.     main.label.caption="#";
  25.  
  26.     main.btn.add(205,15,75,20);  //object
  27.     main.btn.caption="適用";
  28.  
  29.     main.image.add(10,50,195,165);  //object
  30.     main.image.align="alNone";
  31.  
  32.  
  33. // == 後処理 ==
  34.     main.deffunc.set(macro.body);
  35.     main.bring("center");
  36.     main.visible="true";
  37.  
  38. // == サブルーチン ==
  39. function OnDrop()
  40. {
  41. main.image.width=0;    //ファイルを伸張しない
  42. main.image.height=0;
  43. FILE_NAME = arg(1);
  44. main.image.readfile(FILE_NAME);
  45. }
  46. function OnBtnClick1()
  47. {
  48. if (main.checkbox(1).checked=="true") {
  49.     main.image(1).align="alClient";
  50. } else {
  51.     main.image(1).align="alNone";
  52.     main.image.left="10";
  53.     main.image.top="50";
  54. }
  55. main.repaint();
  56. a = main.editbox(1).text;
  57. main.image.readfile(str(FILE_NAME,"#",a));
  58. }
  59.