zoukankan      html  css  js  c++  java
  • Delphi ArcEngine 闪烁显示指定点附近元素方法

    function FlashElement(aeMapControl: TMapControl; iFlashCount, iInternal: Integer;
      pColor: IColor; pPoint: IPoint): Boolean;
    var
      pEnumElement: IEnumElement;
      pElement: IElement;
      pGraphicsContainer: IGraphicsContainer;
      pMarkerSymbol: ISimpleMarkerSymbol;
      pLineSymbol: ISimpleLineSymbol;
      pFillSymbol: ISimpleFillSymbol;
      pSymbol: ISymbol;
    begin
      pGraphicsContainer := aeMapControl.Map as IGraphicsContainer;

      pEnumElement := pGraphicsContainer.LocateElements(pPoint, 10);

      if pEnumElement = nil then
        Exit(False);

      pElement := pEnumElement.Next;
      while pElement <> nil do
      begin

        case pElement.Geometry.GeometryType of
          esriGeometryPoint, esriGeometryMultipoint:
            begin
              pMarkerSymbol := CoSimpleMarkerSymbol.Create as ISimpleMarkerSymbol;
              pMarkerSymbol.Color := pColor;
              pMarkerSymbol.Style := esriSMSCircle;

              pSymbol := pMarkerSymbol as ISymbol;
            end;

          esriGeometryLine, esriGeometryPolyline:
            begin
              pLineSymbol := CoSimpleLineSymbol.Create as ISimpleLineSymbol;
              pLineSymbol.Color := pColor;
              pLineSymbol.Style := esriSLSSolid;
              pSymbol := pLineSymbol as ISymbol;
            end;

          esriGeometryPolygon:
            begin
              pFillSymbol := CoSimpleFillSymbol.Create as ISimpleFillSymbol;
              pFillSymbol.Color := pColor;
              pFillSymbol.Style := esriSFSSolid;
              pSymbol := pFillSymbol as ISymbol;
            end;
        end;
        aeMapControl.FlashShape(pElement.Geometry, iFlashCount, iInternal, pSymbol);
        pElement := pEnumElement.Next;
      end;
      Result := True;
    end;
  • 相关阅读:
    Mysql-windows安装
    go-jwt生成token
    github下载慢的问题
    mysql主从复制(二)
    软件下载网站推荐
    Ubuntu14.04 安装ssh
    Ubuntu14.04 更换镜像源
    docker安装记录
    k8s安装记录
    Docker(一):Docker入门教程
  • 原文地址:https://www.cnblogs.com/chinacodegear/p/1425456.html
Copyright © 2011-2022 走看看