Люди помогите пожалуйста! Пытаюсь хотя бы подсветить объект, по которому кликнули.
Приложение пишу в Delphi, вот такая процедура:
private
m_pARFeatureSetFails: ARFeatureSet;
procedure TForm1.ArcReaderControl1MouseDown(ASender: TObject; button,
shift, x, y: Integer);
var searchDef : ArcReaderSearchDef;
pARMap: ARMap;
pARSearchDef: ArcReaderSearchDef;
begin
pARSearchDef := CoArcReaderSearchDef.Create;
pARMap := ArcReaderControl1.ARPageLayout.FocusARMap;
pARSearchDef.SpatialRelationship := esriARSpatialRelationshipIntersects;
pARSearchDef.SetPointShape(x,y,0);
m_pARFeatureSetFails:=pARMap.ARLayer[0].QueryARFeatures(pARSearchDef);
m_pARFeatureSetFails.Flash;
end.
не работает. Помогите найти ошибку. Если у кого-нибудь есть мысли или примеры на других языках - опубликуйте пожалуйста. Благодарен всем, кто пытается вникнуть в данный вопрос!