SpiderBasic

Code: Select all

Procedure.i CopyToClipboard(txt.s)
  retval = 0
  !var x = document.createElement("TEXTAREA");
  !//styling is to prevent the element flashing on the screen
  !x.style.position = 'fixed';
  !x.style.top = 0;
  !x.style.left = 0;
  !x.style.width = '2em';
  !x.style.height = '2em';
  !x.style.padding = 0;
  !x.style.border = 'none';
  !x.style.outline = 'none';
  !x.style.boxShadow = 'none';
  !x.style.background = 'transparent';
  !x.value = v_txt;
  !document.body.appendChild(x);
  !x.select();
  !try {
    !var ok = document.execCommand('copy');
    !if(ok) { v_retval = 1; }
  !} catch(err) {
    !console.log(err.message);
  !}
  !document.body.removeChild(x);
  ProcedureReturn retval
EndProcedure