;ToolTipPrompt 
;By jgpaiva
;date: jUNE 2006
;function: Creates tooltips based on a user-defined plain text file
ScriptVersion = 1

#persistent
#singleinstance,force

CoordMode, ToolTip, relative
Gui,add,Button,X5 Y5 W60 H20 gnext,&Next
Gui,Add,Button,X70 Y5 W60 H20 gclose,&Close
Gui,Add,Button,X135 Y5 W60 H20 gprevious,&Previous
Gui,Show,,ToolTipPrompt v%ScriptVersion%
flag := false
line := 1
if 0 <> 0
  {
  filetoread = %1%
  flag := true
  GoSub,readline
  }
else
  tooltip,please drag and drop the file to read
return

GuiDropFiles:
  filetoread = %A_GuiControlEvent%
  flag := true
  gosub,readline
  return

readline:
  FileReadLine,information,%filetoread%,%line%
  if ErrorLevel <> 0
    {
		ToolTip, the end`,please close the gui.
		return
		}
  Loop, Parse, information,CSV
  {
  If A_Index = 1
    ToolTipX =%a_loopfield%
  If A_Index = 2
    ToolTipY =%a_loopfield%
  If A_index = 3
    ToolTipText =%a_loopfield%
  If A_Index > 3
    ToolTipText=%TooltipText%,%a_loopfield%
  }
  Tooltip,%tooltiptext%,%tooltipX%,%tooltipY%
  return
  
next:
  if not flag
    return 
  line := line + 1
  gosub,readline
  return

previous:
  if not flag
    return 
  line := line - 1
  gosub,readline
  return
  
close:
  exitapp

GuiClose:
  exitapp