thyphoon/PBMap
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
djes
2016-08-29 15:49:44 +02:00
parent afab1a76d1
commit 612fb30bab
1 changed files with 5 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
PBMap.pb
View File

@@ -1072,10 +1072,6 @@ Module PBMap
EndProcedure EndProcedure
; Procedure Event_MouseWheel() ; Procedure Event_MouseWheel()
; Protected MouseX.i, MouseY.i
; Protected Marker.Position
; Protected *Drawing.DrawingParameters
;
; If PBMap\Options\WheelMouseRelative ; If PBMap\Options\WheelMouseRelative
; ;Relative zoom (centered on the mouse) ; ;Relative zoom (centered on the mouse)
; SetZoomOnPosition(GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseX), GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseY), GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_WheelDelta)) ; SetZoomOnPosition(GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseX), GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseY), GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_WheelDelta))
@@ -1083,12 +1079,10 @@ Module PBMap
; ;Absolute zoom (centered on the center of the map) ; ;Absolute zoom (centered on the center of the map)
; SetZoom(GetGadgetAttribute(PBMap\Gadget,#PB_Canvas_WheelDelta), #PB_Relative) ; SetZoom(GetGadgetAttribute(PBMap\Gadget,#PB_Canvas_WheelDelta), #PB_Relative)
; EndIf ; EndIf
;
; EndProcedure ; EndProcedure
; Procedure Event_LeftButtonDown() ; Procedure Event_LeftButtonDown()
; Protected MouseX.i, MouseY.i
; Protected Marker.Position ; Protected Marker.Position
; Protected *Drawing.DrawingParameters
; ;
; ;Check if we select a marker ; ;Check if we select a marker
; MouseX = PBMap\Position\x - GadgetWidth(PBMap\Gadget) / 2 + GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseX) ; MouseX = PBMap\Position\x - GadgetWidth(PBMap\Gadget) / 2 + GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseX)
@@ -1105,13 +1099,11 @@ Module PBMap
; ;Mem cursor Coord ; ;Mem cursor Coord
; PBMap\MoveStartingPoint\x = GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseX) ; PBMap\MoveStartingPoint\x = GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseX)
; PBMap\MoveStartingPoint\y = GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseY) ; PBMap\MoveStartingPoint\y = GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseY)
;
;
; EndProcedure ; EndProcedure
; Procedure Event_MouseMove() ; Procedure Event_MouseMove()
; Protected MouseX.i, MouseY.i ; Protected MouseX.i, MouseY.i
; Protected Marker.Position ; Protected Marker.Position
; Protected *Drawing.DrawingParameters
; If PBMap\MoveStartingPoint\x <> - 1 ; If PBMap\MoveStartingPoint\x <> - 1
; MouseX = GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseX) - PBMap\MoveStartingPoint\x ; MouseX = GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseX) - PBMap\MoveStartingPoint\x
; MouseY = GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseY) - PBMap\MoveStartingPoint\y ; MouseY = GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseY) - PBMap\MoveStartingPoint\y
@@ -1141,13 +1133,11 @@ Module PBMap
; PBMap\MoveStartingPoint\x = GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseX) ; PBMap\MoveStartingPoint\x = GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseX)
; PBMap\MoveStartingPoint\y = GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseY) ; PBMap\MoveStartingPoint\y = GetGadgetAttribute(PBMap\Gadget, #PB_Canvas_MouseY)
; EndIf ; EndIf
;
; EndProcedure ; EndProcedure
; Procedure Event_LeftButtonUp() ; Procedure Event_LeftButtonUp()
; Protected MouseX.i, MouseY.i ; Protected MouseX.i, MouseY.i
; Protected Marker.Position ; Protected Marker.Position
; Protected *Drawing.DrawingParameters
;
; PBMap\Moving = #False ; PBMap\Moving = #False
; PBMap\MoveStartingPoint\x = - 1 ; PBMap\MoveStartingPoint\x = - 1
; If PBMap\EditMarkerIndex > -1 ; If PBMap\EditMarkerIndex > -1
@@ -1159,7 +1149,6 @@ Module PBMap
; XY2LatLon(@PBMap\Drawing, @PBMap\TargetLocation) ; XY2LatLon(@PBMap\Drawing, @PBMap\TargetLocation)
; Drawing() ; Drawing()
; EndIf ; EndIf
;
; EndProcedure ; EndProcedure
; ;
; Procedure Event_Redraw() ; Procedure Event_Redraw()
@@ -1336,8 +1325,8 @@ CompilerIf #PB_Compiler_IsMainFile
CompilerEndIf CompilerEndIf
; IDE Options = PureBasic 5.50 (Windows - x64) ; IDE Options = PureBasic 5.50 (Windows - x64)
; CursorPosition = 1183 ; CursorPosition = 1197
; FirstLine = 1033 ; FirstLine = 1154
; Folding = --------- ; Folding = ---------
; EnableThread ; EnableThread
; EnableXP ; EnableXP