AutoHotkey Community

; Displays ToolTip With GPS choords on map

SetTimer, FindCoords, 50
Gui, +Resize
Gui, Add, Picture, vMap x0 y0 w1180 h600, C:\Documents and Settings\Owner\My Documents\My Pictures\m-tzone.jpg
Gui, Show, x53 y191 h608 w1167, GPS Coords
;Return


FindCoords:
WinGetActiveStats, ActiveTitle, Width, Height, X, Y
;ToolTip,
If ActiveTitle = GPS Coords
{
   MouseGetPos, MouseX, MouseY
   Width /= 2
   Height /= 2
   
   
   
   
   Width -= %MouseX%
   Height -= %MouseY%
   Height += 11 ;offset for the mouse due to the Title height
   Height += 83 ;place 0,0 at proper coord on map
   Width += -33  ;Comment the next two line to find what to place in this line and line above
   


   Width /= 3.141592
   Height /= 3.141592
   
   Xcoord = %Width%
   Ycoord = %Height%
;-----------Tell north south east and west value based on coord result
   If Xcoord < 0
   {
      EastWest = East
;      StringTrimRight, Xcoord, %Xcoord%, 1
      
   }
   If Xcoord > 0
   {
      EastWest = West
   }
   If Xcoord = 0
   {
      EastWest =
   }
;----------------------------
   If Ycoord < 0
   {
      NorthSouth = South
;      StringTrimRight, Ycoord, %Ycoord%, 1
   }   
   If Ycoord > 0
   {
      NorthSouth = North
   }
   If Ycoord = 0
   {
      NorthSouth =
   }

   
   
;--------------------------
   ToolTip, GPS COORDS `nLatitude= %EastWest% %Xcoord%`, Longitude= %NorthSouth% %Ycoord%
   Return
}
If ActiveTitle <> GPS Coords
{
   ToolTip,
   Return
}
Else
   Return

;--------RESIZE MAP TO WINDOW SIZE--------

GuiSize:
SetEnv, W, *w%A_GuiWidth%
SetEnv, H, *h%A_GuiHeight%
GuiControl,,Map, %W% %H% C:\Documents and Settings\Owner\My Documents\My Pictures\m-tzone.jpg
Return

;----------RESETS DEFAULT WINDOW SIZE------

!#R:: ;Win+Ctrl+R to resize map to default Size
WinMove, GPS Coords,,,, 1167, 608
Return


GuiClose:
ExitApp