MetabaseListView.OnAfterSearch

Синтаксис Fore

OnAfterSearch(Sender: Object; Args: IMetabaseListViewAfterSearchEventArgs);

Синтаксис Fore.NET

OnAfterSearch(Sender: Object; pArgs: Prognoz.Platform.Interop.ExtCtrls.MetabaseListViewAfterSearchEventArgs);

Параметры

Sender. Параметр, возвращающий компонент, сгенерировавший событие;

Args. Параметр, позволяющий определить параметры события.

Описание

Событие OnAfterSearch наступает для компонента, если в диалоге поиска осуществлялся поиск всех объектов, удовлетворяющих заданным условиям.

Диалог поиска в компоненте вызывается при нажатии сочетания горячих клавиш CTRL+F или при выполнении метода IMetabaseListView.ShowFindDialog. Кнопка «Найти все» доступна в диалоге поиска, когда свойство IMetabaseListView.EnableFindAll принимает значение True. Если в диалоге была нажата кнопка «Найти все», то после поиска для компонента будет сгенерировано событие OnAfterSearch. Используя свойство IMetabaseListViewAfterSearchEventArgs.FoundObjects аргумента события, можно получить описания найденных объектов.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с идентификатором Button1 и компонента MetabaseListView с идентификатором MetabaseListView1. У компонента MetabaseListView в свойстве Root выбрана какая-либо папка репозитория.

Добавьте ссылки на системные сборки: ExtCtrls, Metabase.

// Обработчик события OnAfterSearch для компонента MetabaseListView1
Sub MetabaseListView1OnAfterSearch(Sender: Object; Args: IMetabaseListViewAfterSearchEventArgs);
Begin
    Debug.WriteLine("Количество найденных объектов:");
    Debug.WriteLine(Args.FoundObjects.Count);
End Sub MetabaseListView1OnAfterSearch;
// Обработчик события OnClick для компонента Button1
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
    MetabaseListView1.EnableFindAll := True;
    MetabaseListView1.ShowFindDialog;
End Sub Button1OnClick;

В результате выполнения примера в окно консоли будет выведена информация о количестве найденных объектов.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.

Imports Prognoz.Platform.Interop.ExtCtrls;
…

// Обработчик события OnAfterSearch для компонента MetabaseListView1
Private Sub metabaseListViewNet1_OnAfterSearch(pSender: System.Object; pArgs: Prognoz.Platform.Interop.ExtCtrls.MetabaseListViewAfterSearchEventArgs);
Begin
    System.Diagnostics.Debug.WriteLine("Количество найденных объектов:");
    System.Diagnostics.Debug.WriteLine(pArgs.FoundObjects.Count);
End Sub;
// Обработчик события OnClick для компонента Button1
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Begin
    MetabaseListViewNet1.EnableFindAll := True;
    MetabaseListViewNet1.CtrlBox.ShowFindDialog();
End Sub;

См. также:

MetabaseListView