城市路灯智能监控管理系统源码-课程设计

城市路灯智能监控管理系统源码-课程设计内容摘要：

useDown(Sender: TObject。 Button: TMouseButton。 Shift: TShiftState。 X, Y: Integer)。 procedure ImageMapMouseMove(Sender: TObject。 Shift: TShiftState。 X, Y: Integer)。 procedure ImageMapMouseUp(Sender: TObject。 Button: TMouseButton。 Shift: TShiftState。 X, Y: Integer)。 procedure Action7Execute(Sender: TObject)。 procedure PanelMapResize(Sender: TObject)。 procedure Action8Execute(Sender: TObject)。 procedure ImageNavMouseDown(Sender: TObject。 Button: TMouseButton。 Shift: TShiftState。 X, Y: Integer)。 private { Private declarations } MapOper: integer。 //0允许平移地图， 1地图平移中 , 1新建终端， 2允许平移地图， 4新建中心 MapXSave, MapYSave: integer。 //点击鼠标，保存坐标 MapConstWidth, MapConstHeight: integer。 // NavConstWidth, NavConstHeight: integer。 // procedure InitMap。 //初始化原文请找 地图 procedure InitTreeSiteList。 //初始化终端列表树 procedure InitListSite。 //初始化终端表（终端运行状态，终端运行数据，终端数据返回） procedure MapReposition。 //地图重定位 procedure RefreshShapeNav。 //刷新地图游标 public { Public declarations } ZoomRate: integer。 //地图缩放比例 end。 const MapRate: array [0..6] of double=(, 1/, 1/2, 1/, 1/4, 1/, 1/8)。 var FormMain: TFormMain。 ChartSiteList: TChartSiteList。 implementation uses UnitData, UnitSuperUser。 {$R *.dfm} procedure (Sender: TObject)。 begin := not。 :=。 :=。 end。 procedure (Sender: TObject)。 begin := not。 :=。 :=。 end。 procedure (Sender: TObject)。 begin := not。 :=。 :=。 :=。 end。 procedure (Sender: TObject)。 begin := not。 :=。 :=。 :=。 end。 procedure (Sender: TObject)。 var p: TPoint。 begin := trunc(( div 2 ) / MapRate[ZoomRate])。 := trunc(( div 2 ) / MapRate[ZoomRate])。 if ZoomRate=0 then exit。 ZoomRate := ZoomRate 1。 := trunc(MapConstWidth * MapRate[ZoomRate])。 := trunc(MapConstHeight * MapRate[ZoomRate])。 := div 2 trunc( * MapRate[ZoomRate])。 := div 2 trunc( * MapRate[ZoomRate])。 MapReposition。 RefreshShapeNav。 //RefreshControlCenter。 end。 procedure (Sender: TObject)。 var p: TPoint。 begin := trunc(( div 2 ) / MapRate[ZoomRate])。 := trunc(( div 2 ) / MapRate[ZoomRate])。 if ZoomRate=6 then exit。 ZoomRate := ZoomRate + 1。 := trunc(MapConstWidth * MapRate[ZoomRate])。 := trunc(MapConstHeight * MapRate[ZoomRate])。 := div 2 trunc( * MapRate[ZoomRate])。 := div 2 trunc( * MapRate[ZoomRate])。 MapReposition。 RefreshShapeNav。 //RefreshControlCenter。 end。 procedure (Sender: TObject)。 var p: TPoint。 begin := MapConstWidth div 2。 := MapConstHeight div 2。 ZoomRate := 0。 := div 2。 := div 2。 := MapConstWidth。 := MapConstHeight。 RefreshShapeNav。 //。 //RefreshControlCenter。 end。 procedure (Sender: TObject)。 begin。 end。 procedure (Sender: TObject)。 begin //Caption :=。 //LoadFormMain。 InitMap。 //InitLux。 //InitImageGprs。 //InitImageComm。