mapx中如何控制缩放度？.txt

MAPX中如何控制缩放度

const   
      zoommax=1.8;     //地图放大最大值   
      zoommin=3000;   //地图缩小最大值   
      zoomintool=1;   //自定义地图放大工具   
      zoomouttool=2;//自定义地图缩小工具   
    
      form1.Map1.CreateCustomTool(zoomintool,mitooltypepoint,miselectcursor);   //创建放大工具   
      form1.Map1.CreateCustomTool(zoomouttool,mitooltypepoint,miselectcursor);//创建缩小工具   
    
  procedure   mapzoomin(x,y:double);   
  begin   
      if   zoomnum   >   100   then     //zoomnum   地图缩放当前值   
      begin   
          if   zoomnum   >   300   then   
          begin   
              zoomnum:=zoomnum-150;   
          end   
          else   
          begin   
              zoomnum:=zoomnum-80;   
          end;   
      end   
      else   
      begin   
          if   zoomnum   >   30   then   
          begin   
              zoomnum:=zoomnum-20;   
          end   
          else   
          begin   
              if   zoomnum   >   10   then   
              begin   
                  zoomnum:=zoomnum-5;   
              end   
              else   
              begin   
                  zoomnum:=zoomnum-2;   
              end;   
          end;   
    
      end;   
      if   zoomnum<zoommax   then   zoomnum:=zoommax;   
      form1.Map1.ZoomTo(zoomnum,x,y);   
  end;   
    
  procedure   TForm1.Map1ToolUsed(Sender:   TObject;   ToolNum:   Smallint;   X1,   Y1,   
      X2,   Y2,   Distance:   Double;   Shift,   Ctrl:   WordBool;   
      var   EnableDefault:   WordBool);   
  begin   
      if   toolnum=   zoomintool   then   
      begin   
          mapzoomin(x1,y1);   
      end;   
  end;