TMappl.GetLayerObjectsInScreenPoint

Модуль: Mappl
Класс: TMappl

Найти объекты слоя в точке с экранными координатами

Объявление

function GetLayerObjectsInScreenPoint(lCode: integer; X,Y,Delta: double;
	 aObjects: TLayerObjectIdentificationList;
	 flBlinkFindObjects: boolean = false; flDisplaying: boolean = true;
	 sFilter: string=''): integer;

Параметры

lCode
код слоя
X
экранная координата точки по горизонтали
Y
экранная координата точки по вертикали
Delta
радиус поиска в пикселях
aObjects
список структур хранения параметров, идентифицирующих найденные объекты слоя
flBlinkFindObjects
флаг подсветки найденных объектов
flDisplaying
флаг необходимости проверки отображения слоя (если false, то слой может быть не отображен)
sFilter
строка фильтрации объектов слоя (часть where SQL-запроса)

Возвращает

-1 если слой не найден, иначе количество найденных объектов

Описание

Пример

     var
       lCode,Count: integer;
       X,Y,Delta: double;
       oIndexes: TArrayInteger;
       sFilter: string;
     begin
       lCode:=12;
       X:=100;
       Y:=100;
       Delta:=2;
       sFilter:='OKey > 1000';

       Count:=Mappl.GetObjectsInScreenPoint(lCode,X,Y,Delta,@oIndexes,false,true,
                      flHighlightObjects ,flDisplaying,sFilter);
       if Count > 0 then
           .................
       oIndexes:=nil  // чистка массива
     end;