Class my.c Extends %ZEN.Component.page
{

/// Имя приложения, которому принадлежит эта страница.
Parameter APPLICATION = "my.application";

/// Отображаемое имя для нового приложения.
Parameter PAGENAME;

/// Домен, используемый для локализации.
Parameter DOMAIN = "my";

/// Этот блок Style содержит определение CSS-стиля страницы.
XData Style
{
  <style type="text/css">
  </style>
}

/// Этот XML блок описывает содержимое этой страницы.
XData Contents [ XMLNamespace = "http://www.intersystems.com/zen" ]
{
<page xmlns="http://www.intersystems.com/zen" title="">
  <textarea id="txtEpicrisis" label="Результат" align="left" cols="150" rows="20" dataBinding="Epicrisis" />
  <button caption="test" onclick="zenPage.getCaretPos();"/>
</page>
}

ClientMethod getCaretPos() [ Language = javascript ]
{
  zen("txtEpicrisis").focus();
  var r=document.selection.createRange();
  r.text=' 111 ;
  r.select();
}

Method %OnAfterCreatePage() As %Status
{
  set %page.%GetComponentById("txtEpicrisis").value="AAAAAAAAAAAAAAAAAAA"_$C( 13 , 10 )_"BBBBBBBBBBBBBBBBBBBBBB"_$C( 13 , 10 )_"FFFFFFFFFFFFFFFFFFFFF"
  Quit $$$OK
}

}