home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2001 July / VPR0107A.BIN / mshtmler.dll / HTML / INSIMAGE.DLG < prev    next >
Text File  |  2000-06-19  |  12KB  |  377 lines
  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML 3.2//EN">
  2. <HTML id=dlgImage STYLE="font-family: MS UI Gothic; font-size: 9pt;
  3. width: 40.1em; height: 18em">
  4. <HEAD>
  5. <meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
  6. <TITLE>
  7. 画像
  8. </TITLE>
  9. <SCRIPT defer>
  10. function callHelp(elm)
  11. {
  12. if (null != elm.helpid)
  13. {
  14.  window.showHelp(elm.helpfile, "" + parseInt(elm.helpid),
  15.   "popup");
  16. }
  17. else
  18. {
  19.  if ("BODY" != elm.tagName)
  20.  {
  21.   callHelp(elm.parentElement);
  22.  }
  23. }
  24. } 
  25. function btnCancelClick()
  26. {
  27. window.close();
  28. } 
  29. function getTextRange(elm)
  30. {
  31. var r = elm.parentTextEdit.createTextRange();
  32. r.moveToElementText(elm);
  33. return r;
  34. } 
  35. function mouseClick()
  36. {
  37. if (window.event.srcElement.id.substring(0,3)
  38.  == "txt")
  39. {
  40.  return;
  41. }
  42. if (window.event.button == 2)
  43. {
  44.  callHelp(window.event.srcElement);
  45. }
  46. } 
  47. function txtDefaultESC()
  48. {
  49. if (event.keyCode == 27)
  50. {
  51.  window.close();
  52.  return;
  53. }
  54. } 
  55. window.onerror = HandleError
  56. var L_Dialog_ErrorMessage = "このダイアログでエラーが発生しました。";
  57. var L_ErrorNumber_Text = "エラー : ";
  58. function HandleError(message, url, line)
  59. {
  60. var str = L_Dialog_ErrorMessage + "\n\n" 
  61.  + L_ErrorNumber_Text + line + "\n"
  62.  + message;
  63. alert (str);
  64. window.close();
  65. return true;
  66. }
  67. function setOKState(fEvent) { if (fEvent && (event.propertyName != "value")) { return; } if (("" == txtFileName.value) == g_fOKEnabled) { btnOK.disabled = g_fOKEnabled; g_fOKEnabled = !g_fOKEnabled; } } var g_fOKEnabled = false;
  68. function btnBrowseClick()
  69. {
  70. var L_Picture_DIALOG_Title_DialogTitle = "画像";
  71. var L_Picture_DIALOG_FileTypes_Text = "GIF および JPEG (*.gif, *.jpg)|*.gif;*.jpg|ビットマップ (*.bmp)|*.bmp|Windows メタファイル (*.wmf)|*.wmf|XBM (*.xbm)|*.xbm|ART (*.art)|*.art|すべてのファイル (*.*)|*.*|";
  72. var strFileName;
  73. strFileName = dialogHelper.openfiledlg("", "",
  74.  L_Picture_DIALOG_FileTypes_Text,L_Picture_DIALOG_Title_DialogTitle);
  75. if ("" != strFileName)
  76. {
  77.  txtFileName.value = strFileName;
  78. }
  79. setOKState(false);
  80. } 
  81. function getProtocolFromURL(strURL)
  82. {
  83. var index;
  84. return strURL.substring(0, strURL.indexOf(":") + 1);
  85. } 
  86. function bdyLoad()
  87. {
  88. var elmSelectedImage;  
  89. var htmlSelectionControl = "Control";
  90. var globalDoc = window.dialogArguments;
  91. var grngMaster = globalDoc.selection.createRange();
  92. txtFileName.onfocus = new Function("txtFileName.select()");
  93. txtFileName.onkeypress = new Function("txtDefaultESC()");
  94. txtAltText.onfocus = new Function("txtAltText.select()");
  95. txtAltText.onkeypress = new Function("txtDefaultESC()");
  96. txtHorizontal.onfocus = new Function("txtHorizontal.select()");
  97. txtHorizontal.onkeypress = new Function("txtDefaultESC()");
  98. txtBorder.onfocus = new Function("txtBorder.select()");
  99. txtBorder.onkeypress = new Function("txtDefaultESC()");
  100. txtVertical.onfocus = new Function("txtVertical.select()");
  101. txtVertical.onkeypress = new Function("txtDefaultESC()");
  102. btnBrowse.onclick = new Function("btnBrowseClick()");
  103. btnOK.onclick = new Function("btnOKClick()");
  104. btnCancel.onclick = new Function("btnCancelClick()");
  105. document.onhelp  = new Function("callHelp(window.event.srcElement)");
  106. document.onmouseup = new Function("mouseClick()");
  107. txtFileName.onpropertychange = new Function("setOKState(true)");
  108. txtFileName.fImageLoaded = false; 
  109. txtFileName.intImageWidth = 0; 
  110. txtFileName.intImageHeight = 0; 
  111. if (globalDoc.selection.type == htmlSelectionControl)  
  112. {
  113.  if (grngMaster.length == 1) 
  114.  {
  115.   elmSelectedImage = grngMaster.item(0);
  116.   if (elmSelectedImage.tagName == "IMG") 
  117.   {
  118.    txtFileName.fImageLoaded = true;
  119.    if (elmSelectedImage.src)
  120.     txtFileName.value = elmSelectedImage.src;
  121.    txtFileName.intImageHeight = elmSelectedImage.height;
  122.    txtFileName.intImageWidth = elmSelectedImage.width;
  123.    txtVertical.value = elmSelectedImage.vspace;
  124.    txtHorizontal.value = elmSelectedImage.hspace;
  125.    txtBorder.value = elmSelectedImage.border;
  126.    txtAltText.value = elmSelectedImage.alt;
  127.    selAlignment.value = elmSelectedImage.align;
  128.   }
  129.  }
  130. }
  131. setOKState(false);
  132. txtFileName.focus();
  133. } 
  134. function testTextValue(txtBox)
  135. {
  136. var val = parseInt(txtBox.value);
  137. if (isNaN(val) || val < 0 || val > 999)
  138. {
  139.  return false;
  140. }
  141. return true;
  142. } 
  143. function btnOKClick()
  144. {
  145. var elmImage;  
  146. var intAlignment; 
  147. var L_HorizontalNotNumber_ErrorMessage
  148.  = "横の間隔には 0 から 999 の数字を入力してください。";
  149. var L_VerticalNotNumber_ErrorMessage
  150.  = "縦の間隔には 0 から 999 の数字を入力してください。";
  151. var L_BoderNotNumber_ErrorMessage
  152.  = "外枠の太さには 0 から 999 の数字を入力してください。";
  153. var cmdInsertImage = "InsertImage";
  154. var cmdDelete = "Delete";
  155. var htmlSelectionControl = "Control";
  156. var globalDoc = window.dialogArguments;
  157. var grngMaster = globalDoc.selection.createRange();
  158. if ("" != txtHorizontal.value)
  159. {
  160.  if (!testTextValue(txtHorizontal))
  161.  {
  162.   alert(L_HorizontalNotNumber_ErrorMessage);
  163.   txtHorizontal.focus();
  164.   return;
  165.  }
  166. }
  167. if ("" != txtBorder.value)
  168. {
  169.  if (!testTextValue(txtBorder))
  170.  {
  171.   alert(L_BoderNotNumber_ErrorMessage);
  172.   txtBorder.focus();
  173.   return;
  174.  }
  175. }
  176. if ("" != txtVertical.value)
  177. {
  178.  if (!testTextValue(txtVertical))
  179.  {
  180.   alert(L_VerticalNotNumber_ErrorMessage);
  181.   txtVertical.focus();
  182.   return;
  183.  }
  184. }
  185. if (globalDoc.selection.type == htmlSelectionControl
  186.  && !txtFileName.fImageLoaded)
  187. {
  188.  grngMaster.execCommand(cmdDelete);
  189.  grngMaster = globalDoc.selection.createRange();
  190. }
  191. idstr = "\" id=\"c2eec6217e1a474eb649bfedd577334a";
  192. if (!txtFileName.fImageLoaded)
  193. {
  194.  grngMaster.execCommand(cmdInsertImage, false, idstr);
  195.  elmImage = globalDoc.all.c2eec6217e1a474eb649bfedd577334a;
  196.  elmImage.removeAttribute("id");
  197.  elmImage.removeAttribute("src");
  198.  grngMaster.moveStart("character", -1);
  199. }
  200. else 
  201. {
  202.  elmImage = grngMaster.item(0);
  203.  if (elmImage.src != txtFileName.value)
  204.  {
  205.   grngMaster.execCommand(cmdDelete);
  206.   grngMaster = globalDoc.selection.createRange();
  207.   grngMaster.execCommand(cmdInsertImage, false, idstr);
  208.   elmImage = globalDoc.all.c2eec6217e1a474eb649bfedd577334a;
  209.   elmImage.removeAttribute("id");
  210.   elmImage.removeAttribute("src");
  211.   grngMaster.moveStart("character", -1);
  212.   txtFileName.fImageLoaded = false;
  213.  }
  214.  grngMaster = getTextRange(elmImage);
  215. }
  216. if (txtFileName.fImageLoaded)
  217. {
  218.  elmImage.style.width = txtFileName.intImageWidth;
  219.  elmImage.style.height = txtFileName.intImageHeight;
  220. }
  221. if (txtFileName.value.length > 2040)
  222.  txtFileName.value = txtFileName.value.substring(0,2040);
  223. if ("" == getProtocolFromURL(txtFileName.value))
  224. {
  225.  elmImage.src = "file://" + txtFileName.value;
  226. }
  227. else
  228. {
  229.  elmImage.src = txtFileName.value;
  230. }
  231. if (txtHorizontal.value != "")
  232. {
  233.  elmImage.hspace = parseInt(txtHorizontal.value);
  234. }
  235. else
  236. {
  237.  elmImage.hspace = 0;
  238. }
  239. if (txtVertical.value != "")
  240. {
  241.  elmImage.vspace = parseInt(txtVertical.value);
  242. }
  243. else
  244. {
  245.  elmImage.vspace = 0;
  246. }
  247. elmImage.alt = txtAltText.value;
  248. if (txtBorder.value != "")
  249. {
  250.  elmImage.border = parseInt(txtBorder.value);
  251. }
  252. else
  253. {
  254.  elmImage.border = 0;
  255. }
  256. elmImage.align = selAlignment.value;
  257. grngMaster.collapse(false); 
  258. grngMaster.select();
  259. window.close();
  260. } 
  261. </SCRIPT>
  262. </HEAD>
  263. <BODY id=bdy onload="bdyLoad()" style="font-family: MS UI Gothic; 
  264. font-size: 9pt; background: threedface; color: windowtext;" scroll=no>
  265. <OBJECT ID="dialogHelper" CLASSID="CLSID:3050f4e1-98b5-11cf-bb82-00aa00bdce0b"
  266.  HEIGHT=0 WIDTH=0 tabindex=-1>
  267. </OBJECT>
  268. <DIV id=divFileName style="font-family: MS UI Gothic; font-size: 9pt; position: absolute;
  269. left: 0.98em; top: 1.2168em; width: 7em; height: 1.2168em; ">
  270. <LABEL id=lblFileName FOR=txtFileName tabIndex=-1
  271. helpid="35450" helpfile=msoe.hlp>
  272. ファイル名(<U>P</U>):
  273. </LABEL>
  274. </DIV>
  275. <INPUT ID=txtFileName type=text style="font-family: MS UI Gothic; font-size: 9pt;
  276. position: absolute; left: 8.54em; top: 1.0647em; width: 13.58em;
  277. height: 1.7em; " tabIndex=10 ACCESSKEY=p 
  278. helpid="35450" helpfile=msoe.hlp>
  279. <DIV id=divAltText style="font-family: MS UI Gothic; font-size: 9pt; position: absolute;
  280. left: 0.98em; top: 4.1067em; width: 7.5em; height: 1.2168em; ">
  281. <LABEL id=lblAltText FOR=txtAltText tabIndex=-1
  282. helpid="35455" helpfile=msoe.hlp>
  283. 代替テキスト(<U>T</U>):
  284. </LABEL>
  285. </DIV>
  286. <INPUT type=text ID=txtAltText tabIndex=15 ACCESSKEY=t
  287. style="font-family: MS UI Gothic; font-size: 9pt; position: absolute;
  288. left: 8.54em; top: 3.8025em; width: 21.5em; height: 1.7em; "
  289. helpid="35455" helpfile=msoe.hlp>
  290. <BUTTON ID=btnBrowse style="font-family: MS UI Gothic; font-size: 9pt; position: absolute;
  291. left: 22.96em; top: 1.0647em; width: 7em; height: 1.8em; "
  292. ACCESSKEY=r tabIndex=12 helpid="35462" helpfile=msoe.hlp>
  293. 参照(<U>R</U>)...
  294. </BUTTON>
  295. <FIELDSET id=fldLayout style="font-family: MS UI Gothic; font-size: 9pt; 
  296. position: absolute; left: .9em; top: 7.1em; width: 17.08em; 
  297. height: 7.6em;">
  298. <LEGEND id=lgdLayout>
  299. レイアウト
  300. </LEGEND>
  301. </FIELDSET>
  302. <FIELDSET id=fldSpacing style="font-family: MS UI Gothic; font-size: 9pt; 
  303. position: absolute; left: 18.9em; top: 7.1em; width: 11em; 
  304. height: 7.6em;">
  305. <LEGEND id=lgdSpacing>
  306. 間隔
  307. </LEGEND>
  308. </FIELDSET>
  309. <DIV id=divAlign style="font-family: MS UI Gothic; font-size: 9pt; 
  310. position: absolute; left: 1.82em; top: 9.126em; width: 4.76em; 
  311. height: 1.2168em; ">
  312. <LABEL id=lblAlignment FOR=selAlignment tabIndex=-1 helpid="35465" 
  313. helpfile=msoe.hlp>
  314. 配置(<U>A</U>):
  315. </LABEL>
  316. </DIV>
  317. <SELECT size=1 ID=selAlignment tabIndex=20 ACCESSKEY=a
  318. style="font-family: MS UI Gothic; font-size: 9pt; position: absolute;
  319. left: 9.36em; top: 8.8218em; width: 7.5em; height: 1.2168em; "
  320. helpid="35465" helpfile=msoe.hlp>
  321. <OPTION id=optNotSet value="">    設定なし </OPTION>
  322. <OPTION id=optLeft  value=left>    左  </OPTION>
  323. <OPTION id=optRight  value=right>    右  </OPTION>
  324. <OPTION id=optTexttop value=textTop>   上 (テキスト) </OPTION>
  325. <OPTION id=optAbsMiddle value=absMiddle>   全体の中央 </OPTION>
  326. <OPTION id=optBaseline value=baseline SELECTED> ベースライン </OPTION>
  327. <OPTION id=optAbsBottom value=absBottom>   全体の下 </OPTION>
  328. <OPTION id=optBottom value=bottom>   下  </OPTION>
  329. <OPTION id=optMiddle value=middle>   中央  </OPTION>
  330. <OPTION id=optTop  value=top>    上  </OPTION>
  331. </SELECT>
  332. <DIV id=divHoriz style="font-family: MS UI Gothic; font-size: 9pt; position: absolute;
  333. left: 19.88em; top: 9.126em; width: 4.76em; height: 1.2168em; ">
  334. <LABEL id=lblHorizontal FOR=txtHorizontal tabIndex=-1 helpid="35475" 
  335. helpfile=msoe.hlp>
  336. 横(<U>H</U>):
  337. </LABEL>
  338. </DIV>
  339. <INPUT ID=txtHorizontal style="font-family: MS UI Gothic; font-size: 9pt; position: absolute;
  340. left: 24.92em; top: 8.8218em; width: 4.2em; height: 1.7em; ime-mode: disabled;"
  341. type=text size=3 value="" tabIndex=25 ACCESSKEY=h
  342. helpid="35475" helpfile=msoe.hlp>
  343. <DIV id=divBorder style="font-family: MS UI Gothic; font-size: 9pt; position: absolute;
  344. left: 1.82em; top: 12.0159em; width: 8.12em; height: 1.2168em; ">
  345. <LABEL id=lblBorder tabIndex=-1 FOR=txtBorder helpid="35470" 
  346. helpfile=msoe.hlp>
  347. 外枠の太さ(<U>B</U>):
  348. </LABEL>
  349. </DIV>
  350. <INPUT ID=txtBorder style="font-family: MS UI Gothic; font-size: 9pt; position: absolute;
  351. left: 9.36em; top: 11.5596em; width: 7.5em; height: 1.7em; ime-mode: disabled;"
  352. type=text size=3 value="" tabIndex=21 ACCESSKEY=b
  353. helpid="35470" helpfile=msoe.hlp>
  354. <DIV id=divVert style="font-family: MS UI Gothic; font-size: 9pt; position: absolute;
  355. left: 19.88em; top: 12.0159em; width: 3.64em; height: 1.2168em; ">
  356. <LABEL id=lblVertical FOR=txtVertical tabIndex=-1 helpid="35480" 
  357. helpfile=msoe.hlp>
  358. 縦(<U>V</U>):
  359. </LABEL>
  360. </DIV>
  361. <INPUT ID=txtVertical style="font-family: MS UI Gothic; font-size: 9pt; position: absolute;
  362. left: 24.92em; top: 11.5596em; width: 4.2em; height: 1.7em; ime-mode: disabled;"
  363. type=text size=3 value="" tabIndex=30 ACCESSKEY=v
  364. helpid="35480" helpfile=msoe.hlp>
  365. <BUTTON ID=btnOK style="font-family: MS UI Gothic; font-size: 9pt; position: absolute;
  366. left: 31.36em; top: 1.0647em; width: 7em; height: 1.8em; " type=submit
  367. tabIndex=40 DISABLED=1 helpid="28443" helpfile="windows.hlp">
  368. OK
  369. </BUTTON>
  370. <BUTTON ID=btnCancel style="font-family: MS UI Gothic; font-size: 9pt; position: absolute;
  371. left: 31.36em; top: 3.6504em; width: 7em; height: 1.8em; " type=reset
  372. tabIndex=45 helpid="28444" helpfile="windows.hlp">
  373. キャンセル
  374. </BUTTON>
  375. </BODY>
  376. </HTML>
  377.