AutoHotkey Community

; Displays ToolTip With GPS choords on map
ImgPosX = 0
ImgPosY = 0

HOffSet = 967
WOffSet = 1325
;-----------------------------
SetTimer, FindCoords, 50
Gui, +Resize
Gui, Add, Picture, vMap x0 y0 , 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
   MouseY -= 11 ;offset for the mouse due to the Title height
   MouseY -= %HOffSet% ;place 0,0 at proper coord on map
   MOuseX -= %WOffSet%

;--the problem lies here \|/7777777777777777777777777777777
   MouseY /= 3.141592
   MouseX /= 3.141592
;--the problem lies here /|\7777777777777777777777777777777

   Xcoord = %MouseX%
   Ycoord = %MOuseY%
;-----------Tell north south east and west value based on coord result
   If Xcoord < 0
   {
      EastWest = East
   }
   If Xcoord > 0
   {
      EastWest = West
   }
   If Xcoord = 0
   {
      EastWest =
   }
;----------------------------
   If Ycoord < 0
   {
      NorthSouth = South
   }   
   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
;---------------------------
;CONTROLS MAP TO SCROLL
;IN A DIRECTION
;
;CONTROL + ARROW to scroll
;---------------------------
;OffSet + 5 keeps the coords acurate even when scrolling
;---------------------------
^w:: ;UP
ImgPosY -= 5
HOffSet -= 5
GuiControl, Move, Map, x%ImgPosX% y%ImgPosY% ;C:\Documents and Settings\Owner\My Documents\My Pictures\m-tzone.jpg
Return
;----------
^s:: ;DOWN
ImgPosY += 5
HOffSet += 5
GuiControl, Move, Map, x%ImgPosX% y%ImgPosY% ;C:\Documents and Settings\Owner\My Documents\My Pictures\m-tzone.jpg
Return
;----------
^a:: ;LEFT
ImgPosX -= 5
WOffSet -= 5
GuiControl, Move, Map, x%ImgPosX% y%ImgPosY% ;C:\Documents and Settings\Owner\My Documents\My Pictures\m-tzone.jpg
Return
;----------
^d:: ;RIGHT
ImgPosX += 5
WOffSet += 5
GuiControl, Move, Map, x%ImgPosX% y%ImgPosY% ;C:\Documents and Settings\Owner\My Documents\My Pictures\m-tzone.jpg
Return

;--------RESIZE MAP TO WINDOW SIZE--------
;--------THIS IS COMMENTED OUT DUE TO RESIZING CAUSINGTHE GPS COORDS TO BECOME VERY INACCURATE
;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

;User, Place, Longitude, Latitude
toralf, Stuttgart, 9.11E, 48.46N
BoBo, Frankturt/M, 8.40E, 50.07N
Thalon, Wels, 14.03E, 48.17N

WinNameGui1 = AHK User Distribution MAP

Gui, 1:Add, Text, vTxtIntro w250, AHK Users and their location
Gui, 1:Add, ListView, r20 w250, User|Location|Longitude|Latitude
Gui, 1:Add, Button, Section gBtnImport, &Import list
Gui, 1:Add, Button, ys gBtnUpdate , &Update map
Gui, 1:Add, Button, ys gBtnClose , &Close
Gui, 1:Add, Picture, ym vPicDistroMap w600 h350, AHKdistroMap.png

Gui, 1:Show, , %WinNameGui1%
Return

BtnImport:
    Gui, 1:+OwnDialogs
    FileSelectFile, SelectedFile , 3, , Please select file with list of locations, Text files (*.txt)
    IfExist, %SelectedFile%
        GoSub, ReadFile
Return

ReadFile:
  LV_Delete()
  i = 0
  Loop, Read, %SelectedFile%
    {
      Line = %A_LoopReadLine%            ;remove spaces
      StringLeft, FirstChar, Line , 1
      If ( FirstChar = ";" )
          Continue
      StringSplit, Line, Line, `,
      LV_Add("",Line1,Line2,Line3,Line4)
      i++
    }
  GuiControl,1:,TxtIntro, %i% AHK Users and their location
  LV_ModifyCol()
Return

BtnUpdate:
  If (LV_GetCount() = 0)
      return
  GnuPlotScriptFilename = gnuplotfile
  PictureFileName = AHKdistroMap

  FileDelete, %GnuPlotScriptFilename%.gnuplot
  FileDelete, %GnuPlotScriptFilename%.cor
 
  FileAppend,
    (LTrim
       set terminal png transparent nocrop enhanced font arial 8 size 420,320
       set output '%PictureFileName%.png'
       set yzeroaxis lt 0 lw 1.000
       plot 'world.dat' with lines 3 4, '%GnuPlotScriptFilename%.cor' with points 1 2
     ), %GnuPlotScriptFilename%.gnuplot

  FileAppend, # latitude and longitude of AHK Users`n, %GnuPlotScriptFilename%.cor
  Loop, % LV_GetCount()        ;%
    {
      LV_GetText(User, A_index, 1)
      LV_GetText(Location, A_index, 2)
      LV_GetText(Longitude, A_index, 3)
      StringRight, Rose , Longitude, 1
      StringTrimRight, Longitude, Longitude, 1
      If (Rose = "W")
          Longitude := -1 * Longitude
      LV_GetText(Latitude, A_index, 4)
      StringRight, Rose , Latitude, 1
      StringTrimRight, Latitude, Latitude, 1
      If (Rose = "S")
          Latitude := -1 * Latitude
      FileAppend, %Longitude% %Latitude% # %User% at %Location%`n, %GnuPlotScriptFilename%.cor
    }
  FileAppend, #End of file`n, %GnuPlotScriptFilename%.cor
 
  runwait, wgnuplot.exe %GnuPlotScriptFilename%.gnuplot
  GuiControl, 1:, PicDistroMap, %PictureFileName%

  FileDelete, %GnuPlotScriptFilename%.gnuplot
  FileDelete, %GnuPlotScriptFilename%.cor
Return

BtnClose:
GuiEscape:
GuiClose:
    ExitApp
Return

;User, Place, Longitude, Latitude
toralf, Stuttgart, 9.11E, 48.46N
BoBo, Frankturt/M, 8.40E, 50.07N
Thalon, Wels, 14.03E, 48.17N
 , , ,
 , , ,

set terminal png transparent nocrop enhanced font arial 8 size 420,320
set output '%PictureFileName%.png'
set yzeroaxis lt 0 lw 1.000
plot 'world.dat' with lines 3 4, '%GnuPlotScriptFilename%.cor' with points 1 2