home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2001 July / VPR0107A.BIN / mshtmler.dll / HTML / EDLINK.DLG < prev    next >
Text File  |  2000-06-19  |  9KB  |  343 lines
  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML 3.2//EN">
  2. <HTML id=dlgLink style="font-family: MS UI Gothic; font-size: 9pt;
  3. width: 36.7em; height: 12.3em; ">
  4. <HEAD>
  5. <meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
  6. <TITLE>ハイパーリンク</TITLE>
  7. <SCRIPT>
  8. function callHelp(elm)
  9. {
  10. if (null != elm.helpid)
  11. {
  12.  window.showHelp(elm.helpfile, "" + parseInt(elm.helpid),
  13.   "popup");
  14. }
  15. else
  16. {
  17.  if ("BODY" != elm.tagName)
  18.  {
  19.   callHelp(elm.parentElement);
  20.  }
  21. }
  22. } 
  23. function btnCancelClick()
  24. {
  25. window.close();
  26. } 
  27. function getTextRange(elm)
  28. {
  29. var r = elm.parentTextEdit.createTextRange();
  30. r.moveToElementText(elm);
  31. return r;
  32. } 
  33. function mouseClick()
  34. {
  35. if (window.event.srcElement.id.substring(0,3)
  36.  == "txt")
  37. {
  38.  return;
  39. }
  40. if (window.event.button == 2)
  41. {
  42.  callHelp(window.event.srcElement);
  43. }
  44. } 
  45. function txtDefaultESC()
  46. {
  47. if (event.keyCode == 27)
  48. {
  49.  window.close();
  50.  return;
  51. }
  52. } 
  53. window.onerror = HandleError
  54. var L_Dialog_ErrorMessage = "このダイアログでエラーが発生しました。";
  55. var L_ErrorNumber_Text = "エラー : ";
  56. function HandleError(message, url, line)
  57. {
  58. var str = L_Dialog_ErrorMessage + "\n\n" 
  59.  + L_ErrorNumber_Text + line + "\n"
  60.  + message;
  61. alert (str);
  62. window.close();
  63. return true;
  64. }
  65. var g_fOKEnabled = false; 
  66. var g_fURLLoaded = false; 
  67. function findAnchor(range)
  68. {
  69.  var rangeWorking;
  70.  var elmWorking;
  71.  var index;
  72.  elmWorking = range.parentElement()
  73.  while ("HTML" != elmWorking.tagName)
  74.  {
  75.   if ("A" == elmWorking.tagName)
  76.   {
  77.    return elmWorking;
  78.   }
  79.   else
  80.   {
  81.    elmWorking = elmWorking.parentElement
  82.   }
  83.  }
  84.  rangeWorking = range.duplicate();
  85.  rangeWorking.collapse(true);
  86.  rangeWorking.moveEnd("character", 1);
  87.  while (rangeWorking.compareEndPoints("EndToEnd", range) < 0)
  88.  {
  89.   rangeWorking.move("Character");
  90.   if (null != findAnchor(rangeWorking))
  91.   {
  92.    return findAnchor(rangeWorking);
  93.   }
  94.  }
  95.  return null;
  96. } 
  97. function getProtocolFromURL(strURL)
  98. {
  99.  var index;
  100.  return strURL.substring(0, strURL.indexOf(":") + 1);
  101. } 
  102. function updateProtocolSel()
  103. {
  104.  var index;
  105.  var strProtocol = getProtocolFromURL(txtURL.value);
  106.  selProtocol.value = strProtocol;
  107.  if (selProtocol.value != strProtocol)
  108.  {
  109.   selProtocol.value = "";
  110.  }
  111. } 
  112. function updateProtocolTxt()
  113. {
  114.  var strSlashProts = " file:ftp:gopher:http:https:";
  115.  var strProtocolTxt = getProtocolFromURL(txtURL.value);
  116.  var strProtocolSel = selProtocol.value;
  117.  var strTempURL;
  118.  if ("//" == (txtURL.value.substring(strProtocolTxt.length,
  119.   strProtocolTxt.length + 2)))
  120.  {
  121.   strProtocolTxt = strProtocolTxt + "//";
  122.  }
  123.  strTempURL = txtURL.value.substring(strProtocolTxt.length);
  124.  if (0 < strSlashProts.indexOf(strProtocolSel))
  125.  {
  126.   strProtocolSel = strProtocolSel + "//";
  127.  }
  128.  txtURL.value = strProtocolSel + strTempURL;
  129. } 
  130. function setOKState()
  131. {
  132.  var htmlKeyAlt = 18;
  133.  if (!g_fURLLoaded)
  134.  {
  135.   if ((("" == txtURL.value) || (txtURL.value == selProtocol.value)
  136.    ||(txtURL.value == selProtocol.value + "//"))
  137.    == g_fOKEnabled)
  138.   {
  139.    btnOK.disabled = g_fOKEnabled
  140.    g_fOKEnabled = !g_fOKEnabled;
  141.   }
  142.  }
  143. } 
  144. function bdyLoad()
  145. {
  146.  var globalDoc = window.dialogArguments;
  147.  var rngMaster;
  148.  var rngLink;
  149.  var elmLink;
  150.  document.onhelp  = new 
  151.   Function("callHelp(window.event.srcElement)");
  152.  document.onmouseup = new Function("mouseClick()");
  153.  selProtocol.onchange = new Function("updateProtocolTxt()");
  154.  btnOK.onclick = new Function("btnOKClick()");
  155.  btnCancel.onclick = new Function("btnCancelClick()");
  156.  txtURL.onfocus = new Function("txtURL.select()");
  157.  txtURL.onpropertychange = new Function("if (event.propertyName == 'value') setOKState();");
  158.  txtURL.onkeypress = new Function("txtDefaultESC()");
  159.  if ("Control" == globalDoc.selection.type)
  160.  {
  161.   rngMaster = globalDoc.selection.createRange();
  162.   if (1 == rngMaster.length)
  163.   {
  164.    rngMaster = getTextRange(rngMaster(0));
  165.    rngMaster.select();
  166.   }
  167.  }
  168.  if (("Text" == globalDoc.selection.type) ||
  169.   ("None" == globalDoc.selection.type))
  170.  {
  171.   rngMaster = globalDoc.selection.createRange();
  172.   globalDoc.execCommand("AutoDetect");
  173.   elmLink = findAnchor(rngMaster);
  174.   if (null != elmLink)
  175.   {
  176.    rngLink = getTextRange(elmLink);
  177.    if (rngLink.compareEndPoints("StartToStart", rngMaster) < 0)
  178.    {
  179.     rngMaster.setEndPoint("StartToStart", rngLink);
  180.    }
  181.    if (rngLink.compareEndPoints("EndToEnd", rngMaster) > 0)
  182.    {
  183.     rngMaster.setEndPoint("EndToEnd", rngLink);
  184.    }
  185.    rngMaster.select();
  186.    if ("" != elmLink.href)
  187.    {
  188.     txtURL.value = elmLink.href;
  189.     txtURL.href = elmLink.href;
  190.     g_fURLLoaded = true;
  191.     btnOK.disabled = false;
  192.    }
  193.    updateProtocolSel();
  194.   }
  195.  txtURL.focus();
  196.  txtURL.select();
  197.  setOKState();
  198.  }
  199. } 
  200. function IsRangeEmpty( range )
  201. {
  202.  var tempRange;
  203.  tempRange = range.duplicate();
  204.  result = tempRange.compareEndPoints( "StartToEnd", range );
  205.  if ( result == 0 )
  206.  {
  207.   return true;
  208.  }
  209.  else
  210.  {
  211.   return false;
  212.  }
  213. }
  214. function btnOKClick()
  215. {
  216.  var globalDoc = window.dialogArguments;
  217.  var cmdCreateLink = "CreateLink";
  218.  var cmdUnlink  = "Unlink";
  219.  var range = globalDoc.selection.createRange();
  220.  var strSlashProts = " file:ftp:gopher:http:https:";
  221.  var strProtocol = selProtocol.value; 
  222.  var dupRange;
  223.  var initialRange;
  224.  var iRight;
  225.  var fUseExecCommand = true;
  226.  if ("" == txtURL.value)
  227.  {
  228.   range.execCommand(cmdUnlink, false);
  229.   window.close();
  230.   return;
  231.  }
  232.  if (g_fURLLoaded && (txtURL.value == txtURL.href))
  233.  {
  234.   window.close();
  235.   return;
  236.  }
  237.  updateProtocolSel();
  238.  if (0 < strSlashProts.indexOf(strProtocol))
  239.  {
  240.   strProtocol = strProtocol + "//";
  241.  }
  242.  initialRange = range.duplicate();
  243.  if ( IsRangeEmpty( range ) )
  244.  {
  245.   range.text = txtURL.value;
  246.   fUseExecCommand = false;
  247.  }
  248.  else
  249.  {
  250.   dupRange = range.duplicate();
  251.   iRight = dupRange.moveEnd( "Character", 2 );
  252.   if ( iRight < 2 && dupRange.htmlText == "" )
  253.   {
  254.    range.text = txtURL.value;
  255.    fUseExecCommand = false;
  256.   }
  257.  }
  258.  if ( fUseExecCommand )
  259.  {
  260.   range.execCommand(cmdCreateLink, false, txtURL.value);
  261.  }
  262.  else
  263.  {
  264.   dupRange = range.duplicate();
  265.   dupRange.move( "Character", -1 );
  266.   elmParent = dupRange.parentElement();
  267.   if (elmParent.tagName == "A")
  268.   {    
  269.    elmParent.href = txtURL.value;
  270.   }
  271.   else
  272.   {
  273.    range.setEndPoint( "StartToEnd", initialRange );
  274.    dupRange = range.duplicate();
  275.    dupRange.collapse(true); 
  276.    elmParent = dupRange.parentElement();
  277.    if (elmParent.tagName == "A")
  278.    {
  279.     range.execCommand(cmdUnlink, false);
  280.    }     
  281.    range.execCommand(cmdCreateLink, false, txtURL.value);
  282.   }
  283.  }
  284.  window.close();
  285. } 
  286. </SCRIPT>
  287. </HEAD>
  288. <BODY id=bdy style="font-family: MS UI Gothic; font-size: 9pt;
  289. background: threedface; color: windowtext;"
  290. onLoad="bdyLoad()" scroll=no>
  291. <FIELDSET id=fldLink style="font-family: MS UI Gothic; font-size: 9pt; 
  292. position: absolute; left: 0.98em; top: .8em; width: 26.2em; 
  293. height: 7.9em;">
  294. <LEGEND id=lgdLink>
  295. ハイパーリンク情報
  296. </LEGEND>
  297. </FIELDSET>
  298. <DIV id=div2 style="font-family: MS UI Gothic; font-size: 9pt; position: absolute;
  299. left: 1.82em; top: 2.8899em; width: 3.5em; height: 1.2168em; ">
  300. <LABEL id=lblProtocol FOR=selProtocol tabIndex=-1 helpid="35550" 
  301. helpfile=msoe.hlp>
  302. 種類(<U>T</U>):
  303. </LABEL>
  304. </DIV>
  305. <select id=selProtocol size=1 ACCESSKEY=t tabIndex=50
  306. style="font-family: MS UI Gothic; font-size: 9pt; position: absolute;
  307. left: 5.64em; top: 2.7378em; width: 6.44em; height: 2.1294em; "
  308. helpid="35550" helpfile=msoe.hlp>
  309. <OPTION id=optOther value="">     (その他) </OPTION>
  310. <OPTION id=optFile value="file:">   file: </OPTION>
  311. <OPTION id=optFtp value="ftp:">    ftp: </OPTION>
  312. <OPTION id=optGopher value="gopher:">   gopher: </OPTION>
  313. <OPTION id=optHttp value="http:" SELECTED> http: </OPTION>
  314. <OPTION id=optHttps value="https:">   https: </OPTION>
  315. <OPTION id=optMailto value="mailto:">   mailto: </OPTION>
  316. <OPTION id=optNews value="news:">   news: </OPTION>
  317. <OPTION id=optTelnet value="telnet:">   telnet: </OPTION>
  318. <OPTION id=optWais value="wais:">   wais: </OPTION>
  319. </select>
  320. <DIV id=div3 style="font-family: MS UI Gothic; font-size: 9pt; position: absolute;
  321. left: 1.82em; top: 5.9319em; width: 3.5em; height: 1.2168em; ">
  322. <LABEL id=lblURL FOR=txtURL tabIndex=-1 helpid="35550" 
  323. helpfile=msoe.hlp>
  324. URL(<U>U</U>):
  325. </LABEL>
  326. </DIV>
  327. <input accesskey=u ID="txtURL" value="http://" type=text size=35
  328. maxlength=1024 tabIndex=15 helpid="35550" helpfile=msoe.hlp
  329. style="font-family: MS UI Gothic; font-size: 9pt; position: absolute;
  330. left: 5.64em; top: 5.6277em; width: 20.72em; height: 1.7em; ">
  331. <BUTTON id=btnOK tabIndex=35 DISABLED=1 helpid="28443" helpfile="windows.hlp"
  332. style="font-family: MS UI Gothic; font-size: 9pt; position: absolute;
  333. left: 28em; top: 1.521em; width: 7em; height: 1.8em; " type=submit>
  334. OK
  335. </BUTTON>
  336. <BUTTON id=btnCancel tabIndex=40 helpid="28444" helpfile="windows.hlp"
  337. style="font-family: MS UI Gothic; font-size: 9pt; position: absolute;
  338. left: 28em; top: 4.1067em; width: 7em; height: 1.8em; " type=reset>
  339. キャンセル
  340. </BUTTON>
  341. </BODY>
  342. </HTML>
  343.