TMapFind.OnFilterObj

TMapFind

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

TFilterObj = procedure (aSender : TObject; aFindObjHandle : HOBJ;  var aAccept : boolean) of object;

property OnFilterObj: TFilterObjt;

Описание:

Событие генерируется в процессе выполнения методов поиска First, Next, Prior, Last в случае, если был найден какой либо объект и необходимо дополнительно принять решение о том, что найденный объект подходит в качестве результата.

Параметры события:

      - aSender  - компонент TMapFind, вызвавший событие.

      - aFindObjHandle - указатель на найденный объекта карты.

      - aAccept – признак, который указывает системе поиска о том, что объект не подходит в качестве результата поиска.

В событии, используя aFindObjHandl и вызовы функций MAP API, можно проверить объект карты по дополнительным критериям. Если aAccept установить в false, то объект будет пропущен. Если такой объект был последним, согласно условиям поиска, то методы  поиска First, Next, Prior, Last вернут false.