AutoHotkey Community

  ScanFile allows you to force TillaGoto to always scan a file, as if it was an Include file, even though it isn't
used with the #Include directive. The directive is processed in exactly the same way as an #Include file would be.
For example, the directive ";TillaGoto.ScanFile = %A_ScriptDir%\script.ahk" will have the same effect as if
TillaGoto saw the directive "#Include %A_ScriptDir%\script.ahk". Directories to change the working directory
are also supported. The variable iIncludeMode must contain the 0x00000001 option in order to work.

  Note that the ScanFile directives are queued up and processed right after the script's actual #Include files are
scanned. Therefore, it doesn't matter where they are placed relative to the actual #Include directives, but the
order in which they are written does (in order to be able to change the working directory of subsequent ones).
The working directory is set back to %A_ScriptDir% before processing them.
  The ScanFile feature is useful when working inside a project with many satellite files. A simple ScanFile
directive to the main script in each satellite file will allow access to all the functions no matter on which
file you're working on.

bTrayIcon           := True     ;Set to True to show the tray icon, False to keep it hidden.

iControlFontSize    := 8        ;Specify the size of the font for the textbox and listbox.
fControlFont        := "Courier New" ;Name of the font for the textbox and listbox. Must be monospace for proper
                                ;alignment. A better font than Courier New would be Consolas.

Gosub, IniCheck

; TillaGoto IniSaver
; (w) Feb 2010 by derRaphael / Licensed under EUPL 1.1 or later
; see http://ec.europa.eu/idabc/eupl for a version in your language

IniCheck:

   SplitPath, A_ScriptName,,,, OutNameNoExt
   IniFileName := OutNameNoExt ".ini"
   
   tg_matchWindows := "sActiveWindow,sScintillaClass,sPathMatching"
   tg_appearance   := "bTrayIcon,iGUIWidth,iGUIHeight,iMargin,iTransparency,"
                . "bPosLeft,bWideView,cGUIBG,cControlBG,cControlFG,iControlFontSize,fControlFont"
   tg_hotkeys      := "uSummonGUI,uGoBack,uGoForward,uGotoDef"
   tg_behvaiour    := "bFilterComments,bQuickMode,bMatchEverywhere,bUseMButton,iCancelWait,"
                . "iIncludeMode,bCacheFiles,bDirectives"

   tg_sections     := "matchWIndows,appearance,hotkeys,behaviour"
   
   tg_readIni      := ( FileExist( IniFileName ) )

   Loop, Parse, tg_sections, @,
   {
      tg_currentSection := A_LoopField
      Loop, Parse, tg_%tg_currentSection%, @,
      {
         tg_currentName  := A_LoopField
         tg_currentValue := %tg_currentName%
         
         If ( tg_readIni )
         {
            IniRead, %tg_currentName%, %IniFileName%, %tg_currentSection%, %tg_currentName%, %tg_currentValue%
         }
         Else
         {
            IniWrite, %tg_currentValue%, %IniFileName%, %tg_currentSection%, %tg_currentName%
         }
      }
   }

Return

Sci_GetText(hSci)
{   
    ;Used constants
    SCI_GETLENGTH := 2006
    SCI_GETTEXT := 2182
    ;Retrieve text length
    SendMessage SCI_GETLENGTH, 0, 0,, ahk_id %hSci%
    iLength := ErrorLevel   
    ;Open remote buffer (add 1 for 0 at the end of the string)
    RemoteBuf_Open(hBuf, hSci, iLength + 1) 
    ;Fill buffer with text
    SendMessage SCI_GETTEXT, iLength + 1, RemoteBuf_Get(hBuf),, ahk_id %hSci%   
    ;Read buffer
    VarSetCapacity(sText, iLength)
    RemoteBuf_Read(hBuf, sText, iLength + 1)   
    ;We're done with the remote buffer
    RemoteBuf_Close(hBuf)   
    Return sText
}

bQuitWithEditor     := False    ;Set to True to make TillaGoto terminate when the editor is also terminated. If
                                ;set to True, please also see sMustExist.
sMustExist          := "ahk_class (Notepad(\+\+|2)|SciTEWindow)" ;Needed if bQuitWithEditor is True. This regex
                                ;will make TillaGoto quit if a matching window does not exist. It is currently set
                                ;to match the editors' classes, but it may be set to match anything else.

sActiveWindow       := "\.ahk (-|\*) (Notepad(\+\+|2)|SciTE(4AutoHotkey)?( \[.*?\])?)$" ;Regular expression which

ScanScriptFile("C:\Program Files\AutoHotkey\7plus.ahk", iIncludeMode & 0x01000000, False, True)

Loop, C:\Program Files\AutoHotkey\*.ahk, 1, 1
  ScanScriptFile(A_LoopFileLongPath, 0, False, False)