Свойства и функции для работы с редактором

содержимое текущей строки в редакторе под курсором.

Например, показать текущий символ под курсором:

msgbox(substr(Editor.Value,Editor.CurPos-1,1),Editor.FileName,0)

содержимое выделенного блока.

Аналогично тому, как Far поместил бы в clipboard (блок текста с наличием crlf в конце строк).

$If (Editor.State & 0x8) выполнить действия, если файл модифицирован $End

Установка заголовка в статусной строке редактора.

Если параметр Title отсутствует или равен пустой строке, то восстанавливается предыдущее значение статусной строки.

При показе заголовок будет усечён до размера, не затрагивающего служебную информацию (кодировка, позиция, etc.)

Возвращает 1 для успешно выполненной операции или 0 - редактор не в фокусе.

Получение/установка позиций в редакторе.

Параметр Action задаёт поведение функции:

Функция возвращает -1 в случае прочих ошибок (например, неверные параметры, или функция вызвана не из редактора).

Параметр Object - над чем выполняется операция:

Пример см. в разделе Примеры.

В случае ошибки (в т. ч. функция вызвана не из "редактора") возвращаемое значение равно 0, иначе 1.

Для Action=0 возвращается запрошенное значение.

Например, повторим некоторые сочетания клавиш из Turbo-сред (макрос на сочетание Ctrl-K):

%k=waitkey(0,1);
$if(%k==B || %k==b || %k==CtrlB)
  editor.sel(2,0)
$else
  $if(%k==K || %k==k || %k==CtrlK)
    editor.sel(2,1)
  $else
    $if((%k==C || %k==c || %k==CtrlC) && Selected)
      CtrlC
    $else
      $if((%k==Y || %k==y || %k==CtrlY) && Selected)
        CtrlD
      $else
        eval("F1")
      $end
    $end
  $end
$end

Значение Value может быть опущено или равно -1, в этом случае функция ничего не изменит, а вернёт текущее значение настройки.

Возвращает предыдущее значение опций или -1, если данные указаны некорректно, или функция вызвана не из редактора.

Значения опции 16 изменить нельзя.

Например, макрос, перемещающий выделенный фрагмент на одну строку вниз (сохраняет выделение вне зависимости от настрок постоянных блоков):

clip(5) CtrlX %a=editor.set(2,1); Down CtrlV %a=editor.set(2,%a);

Удаление строки с номером Line. Если Line не указан или меньше 1, то удаляется текущая строка.

Возвращает 1 для успешно выполненной операции или 0 - если редактор не в фокусе/редактор залочен/нет строки с запрашиваемым номером.

Получить содержимое строки с номером Line. Если Line не указан или меньше 1, то возвращается текущая строка.

Возвращает строку с запрашиваемым номером.

Вставить значение S после строки с номером Line. Если S не указан, то вставляется пустая строка. Если Line не указан или меньше 1, то вставляется в текущую строку.

Возвращает 1 для успешно выполненной операции или 0 - если редактор не в фокусе/редактор залочен/нет строки с запрашиваемым номером.

Заменить строку с номером Line на значение S. Если S не указан, то строка будет пустой. Если Line не указан или меньше 1, то заменяется текущая строка.

Позиция курсора в редакторе не меняется.

Возвращает 1 для успешно выполненной операции или 0 - если редактор не в фокусе/редактор залочен/нет строки с запрашиваемым номером.

Удаление пустых строк:

$If(Selected)
  %StartLine=Editor.Sel(0, 0);
  %EndLine=Editor.Sel(0, 2);
$Else
  %StartLine=1;
  %EndLine=Editor.Lines;
$End

%Count=%EndLine-%StartLine+1;
%i=%StartLine;
Editor.Undo(0);
$Rep(%Count)
  $If(Len(Trim(Editor.GetStr(%i)))==0)
    Editor.DelLine(%i);
  $Else
    %i=%i+1;
  $End
$End
Editor.Undo(1);

Удалить закладку с указанным индексом Idx.

Если параметр Idx не указан или равен 0 - удаляется текущая закладка.

Перейти на предыдущую закладку.

Если непосредственно перед ней была вызвана bm.add - добавить перед переходом закладку с текущими параметрами.

Перейти на закладку с указанным индексом Idx.

Если параметр Idx не указан или равен 0 - переход на текущую закладку.

Получить параметры закладки с индексом Idx. Idx=0 - текущая закладка.

Параметр Param может быть одним из следующих:

Получить информацию о закладках.

Параметр Param может быть одним из следующих:

Пример работы с закладками:

#ifndef __NEWARC_MODULEMANAGER_CPP__
#define __NEWARC_MODULEMANAGER_CPP__

#endif //! __NEWARC_MODULEMANAGER_CPP__

%d = "__" + UCase(Replace(FSplit(Editor.FileName,12),".","_"))+"__";
bm.add()
CtrlHome
$If (LCase(Trim(Editor.Value))=="#pragma once")
  Down
$End
print("#ifndef " + %d + "\n\t#define " + %d + "\n")
CtrlEnd
Enter
Home
print("#endif //! " + %d + "\n")
bm.next()
bm.del()