Возникает при изменении объектов в режиме редактирования.

Возникает от:

MapCtrl

Синтаксис:

Event ElementsChanged(Elems As ChangedElementKeys, LayerIndex As Long, Action As eEditorAction, Reserved As eUserReaction)

Elems - коллекция объектов, подвергшихся редактированию.

LayerIndex - индекс слоя, в котором происходит редактирование.

Action - флаг, значение которого индицируют операцию, произведенную над объектом из набора констант eEditorAction.

Reserved - зарезервирован.

Описание:

Позволяет проанализировать произведенную операцию редактирования слоя.

Пример:

Sub MapCtrl1_ElementsChanged(ByVal IDs As IChangedElementKeys, ByVal layer_index As Long, ByVal Action  As eEditorAction, Reserved As eUserReaction)
         Dim i As Long
         Dim result As String
         'в переменную resulut сохраняем произведенное над объектом действие
         If Action = eEditorAddObject Then
         resulut = "eEditorAddObject"
         ElseIf Action = eEditorDeleteGroup Then
         resulut = "eEditorDeleteGroup"
         ElseIf Action = eEditorDeleteNode Then
         resulut = "eEditorDeleteNode"
         ElseIf Action = eEditorDelObject Then
         resulut = "eEditorDelObject"
         ElseIf Action = eEditorInsertNode Then
         resulut = "eEditorInsertNode"
         ElseIf Action = eEditorInsertSymbol Then
         resulut = "eEditorInsertSymbol"
         ElseIf Action = eEditorMoveArc Then
         resulut = "eEditorMoveArc"
         ElseIf Action = eEditorMoveObject Then
         resulut = "eEditorMoveObject"
         ElseIf Action = eEditorRedo Then
         resulut = "eEditorRedo"
         ElseIf Action = eEditorRotateObject Then
         resulut = "eEditorRotateObject"
         ElseIf Action = eEditorUndo Then
         resulut = "eEditorUndo"
         End If
         Label1.Caption = resulut
         'В ListView перечисляем все измененные объекты и какие изменения над ними были произведены
         List1.Clear
         For i = 1 To IDs.Count
         List1.AddItem Str(IDs.Item(i)) & " " & Str(IDs.EditResult(i))
         Next i
End Sub