JS+
Усиленный язык сценариев для Windows
с возможностью встраивания
в ваши приложения
О языке JS+ Справочник Скачать JS+ DLL
Контакты
СПРАВОЧНИК ПО ЯЗЫКУ JS+ Содержание

TFindDialog

- диалоговый компонент
Диалоговые компоненты JS+
Определяет стандартный диалог поиска текстовой строки.

Создание объекта

dlgObj=new TFindDialog(Parent);

Собственные свойства
Свойство Тип Описание
FindText String искомый текст
Left Number позиция диалога по горизонтали
Options Enumset параметры (см. ниже)
Title String заголовок диалога
Top Number позиция диалога по вертикали
Только чтение
Handle Number дескриптор окна диалога

Свойство Options
Значение Описание
frDown выбрать по умолчанию радио-кнопку "Вниз"
frFindNext устанавливается при нажатии пользователем на кнопку "Найти далее"
frHideMatchCase скрыть переключатель "С учетом регистра"
frHideWholeWord скрыть переключатель "Только слово целиком"
frHideUpDown скрыть радио-кнопки "Вверх" и "Вниз"
frMatchCase включить по умолчанию переключатель "С учетом регистра"
frDisableMatchCase сделать недоступным переключатель "С учетом регистра"
frDisableUpDown сделать недоступными радио-кнопки "Вверх" и "Вниз"
frDisableWholeWord сделать недоступным переключатель "Только слово целиком"
frWholeWord включить по умолчанию переключатель "Только слово целиком"
frShowHelp показать кнопку "Справка"

Стандартные методы

Собственные события
Событие Описание
OnFind нажата кнопка "Найти далее"

Стандартные события

Пример (JS+)
var txt_pos=0,fnd_Txt="Строка";

// Главная форма
frm=new TForm();
frm.Caption="JS+ - диалоговый компонент TFindDialog";
frm.Width =600;
frm.Height=450;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=' Нажмите кнопку "Найти"';

// Кнопка
btn=new TButton(frm);
btn.Caption="Найти";
btn.Left=frm.ClientWidth-btn.Width-10;
btn.Top =stb.Top-btn.Height-10;
btn.OnClick=btn_Click;

// Memo
mem=new TMemo(frm);
mem.BorderStyle=bsSingle;
mem.SetBounds(10,10,frm.ClientWidth-20,btn.Top-20);
mem.ScrollBars=ssBoth;

for (i=1;i<10;i++)
  mem.Lines.Add("Строка "+i);

frm.ShowModal();

// Обработчик события OnClick
function btn_Click(btn)
{
  var dlg;

  // Диалог
  with (dlg=new TFindDialog(frm)) {
    Title="Поиск текста ...";
    FindText=fnd_Txt;
    OnShow=dlg_Show;
    OnFind=dlg_Find;
    Execute();
  }
}

// Обработчик события OnFind
function dlg_Find(dlg)
{
  var i,n,fnd_str=dlg.FindText;

  dlg.Delete();

  stb.SimpleText=" Поиск текста: "+(fnd_Txt=fnd_str);

  if (((i=mem.Lines.Text.indexOf(fnd_str,txt_pos))>=0) || ((i=mem.Lines.Text.indexOf(fnd_str,0))>=0)) {
    n=fnd_str.length;
    txt_pos=i+1;
  }
  else {
    n=0; i=txt_pos;
  }

  mem.SelStart=i;
  mem.SelLength=n;
  mem.SetFocus();
}

// Обработчик события OnShow
function dlg_Show(dlg)
{
  stb.SimpleText=' Диалог "'+dlg.Title+'" показан';
}
Совместимость
C++ Builder/Delphi
См. также
JS+Руководство пользователя
Адрес этой страницы: http://jsplus.ru/MANUAL/JSPlus/Component/Dialog/TFindDialog.htm
© 2024,