procedure TForm1.ImageEnViewLayerNotify(Sender: TObject; layer: Integer;
  event: TIELayerEvent);
var
  iIELayerKind: TIELayerKind;
begin
  iIELayerKind := ImageEnView.CurrentLayer.Kind;
  if (event = ielCreated) and (iIELayerKind = ielkPolyline) then
  begin
    SelectLayers1.Down := True;
    ImageEnView.LayersCurrent := layer;
    ImageEnView.MouseInteract := [miMoveLayers, miResizeLayers];
  end
  else if (event = ielSelected) or (event = ielLeftClicked) then
  begin
    Layers1.ItemIndex := layer;
    if (iIELayerKind = ielkImage) and (layer <> 0) then
      GetImageLayerParameters
    else if iIELayerKind = ielkShape then
      GetShapeLayerParameters
    else if iIELayerKind = ielkLine then
      GetLineLayerParameters
    else if iIELayerKind = ielkText then
      GetTextLayerParameters
    else if iIELayerKind = ielkPolyline then
      GetPolylineLayerParameters;
    UpdateStatusBar;
  end
  else if (event = ielMoving) or (event = ielResizing) or (event = ielMoved) or
    (event = ielResized) or (event = ielRemoved) then
  begin
    DrawLayers;
    RefreshLayer;
  end;
end;