;^=Ctrl ;^!=Ctrl-Alt ;+=Shift

#z::Run www.autohotkey.com

;hotkey improvements for the Propeller-Tool
;close small windows on pressing ESC

#IfWinACtive Find/Replace
  ESC:: 
  WinClose
  send {left}{right}    ; remove marking
return
  
#IfWinACtive Parallax Font Character Chart
  ESC:: 
  WinClose
return

SetTitleMatchMode 2
#IfWinACtive Character Chart  ;Character-chart Window name in BST
  ESC:: 
  Click 730,10
  ;WinClose
return

#IfWinACtive Compiler Information
  ESC:: 
  WinClose
return

#IfWinACtive Object Info
  ESC:: 
  WinClose
return

#IfWinActive bst Terminal
  ESC:: 
  WinClose
return

#IfWinActive Compiled Listing
  ESC:: 
  WinClose
return

#IfWinActive bst Release Notes
  ESC:: 
  WinClose
return

#IfWinActive About BST
  ESC:: 
  WinClose
return

#IfWinActive Auswahl
  ESC:: 
  WinClose
  Click 30,200
  Click 30,250
return


#IfWinActive daVinci
  ^f::
  ;MsgBox, Strg-f
  Click 30,200
  Click 30,250
      
return


#IfWinActive bst Terminal
  !C::
  Click 165,30           ;Connect/Disconnect to Serial Terminal
  Click 165,50
return



#IfWinActive BST - Brad's Spin Tool
  !L::
  Click 210,30           ;Open Listfile Window
  Click 210,125
return



#IfWinActive bst Terminal
  !R::
  Click 165,30           ;Reset Propeller
  Click 165,80
return



#IfWinActive BST - Brad's Spin Tool
  !T::
  Click 210,30                 ;Open Serial Terminal
  Click 210,135
  WinwaitActive bst Terminal
    Click 165,30                 ;Connect Serial Terminal
    Click 165,50
return


;show character-chart on pressing Alt-v
#IfWinActive Propeller Tool
!v::
  Click 110,30
  Click 110,175
return


#IfWinActive BST - Brad's Spin Tool
!v::
  Click 175,30
  Click 175,85
return

;start search for word under cursor by pressing Shift-Ctrl-f
;remove various kinds of characters that the cursormark-function jumps over = marks more than the word itself


#IfWinActive Propeller Tool
+^f::
  {
    clipboard =    ;Start off empty to allow ClipWait to detect when the text has arrived.
    send ^{Left}   ;jump Cursor on first letter of the word
    send +^{Right} ;mark word
    ;send +{Left}   ;in most cases jumps until next word over move 
    Send ^c
    ClipWait 1 ; Wait for the clipboard to contain text.
    send {Left} ;remove marking
    
    ClipBoard := Remove_Additional_Chars(ClipBoard)

    Click 45,30                                    ;open find-window
    Click 45,175
    send ^v                                        ;paste clipboard-content
    Click 350,40                                   ;click on find-button
  }

return


#IfWinActive BST - Brad's Spin Tool
+^f::
  {
    clipboard =    ;Start off empty to allow ClipWait to detect when the text has arrived.
    send ^{Left}   ;jump Cursor on first letter of the word
    send +^{Right} ;mark word
    ;send +{Left}   ;in most cases jumps until next word over move 
    Send ^c
    ClipWait 1 ; Wait for the clipboard to contain text.
    send {Left} ;remove marking

    ClipBoard := Remove_Additional_Chars(ClipBoard)

    Click 45,30                                    ;open find-window
    Click 45,190
    send {Pos1}   ;for what reason ever BST Version 0.18.4
    send +^{End}  ;has a bug that the find textfield is preloaded with rubisch
    send {Del}    ;so I delete it
    send ^v                                        ;paste clipboard-content
    Click 375,40                                   ;click on find-button
  }

return

 
   
; context-sensitive search in the propeller-manual


#IfWinActive Propeller Tool
F1::
  {
    clipboard =  ; Start off empty to allow ClipWait to detect when the text has arrived.
    send ^{Left}
    send +^{Right}
    Send ^c
    ClipWait 1 ; Wait for the clipboard to contain text.
    send {Left} ;remove marking

    ClipBoard := Remove_Additional_Chars(ClipBoard)
  
    IfWinExist Propeller Manual v1.1.pdf - Adobe Reader
    {
      WinActivate Propeller Manual v1.1.pdf - Adobe Reader ;set focus on PDF-file
      send !{F4}  ;terminate that new search does perfom properly
    }
    Run "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe" /A "search=%clipboard%" "C:\Program Files\Parallax Inc\Propeller Tool v1.2.6\Propeller Manual v1.1.pdf"
  }

return


#IfWinActive BST - Brad's Spin Tool
F1::
  {
    clipboard =  ; Start off empty to allow ClipWait to detect when the text has arrived.
    send ^{Left}
    send +^{Right}
    Send ^c
    ClipWait 1 ; Wait for the clipboard to contain text.
    send {Left} ;remove marking

    ClipBoard := Remove_Additional_Chars(ClipBoard)
  
    IfWinExist Propeller Manual v1.1.pdf - Adobe Reader
    {
      WinActivate Propeller Manual v1.1.pdf - Adobe Reader ;set focus on PDF-file
      send !{F4}  ;terminate that new search does perfom properly
    }
    Run "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe" /A "search=%clipboard%" "C:\Program Files\Parallax Inc\Propeller Tool v1.2.6\Propeller Manual v1.1.pdf"
  }
return


Remove_Additional_Chars(p_string)
{
    l_string = %p_string%

    AutoTrim,On
    l_string = %l_string% ;remove spaces

    StringSplit, OutputArray, l_string, %A_Space% ;on constants the marking jumps over the "="  example "MyConst = 100"
    l_string = %OutputArray1%                     ;after StringSplit %OutputArray1% contains only "MyConst"

    StringSplit, OutputArray, l_string, `'        ;remove "'"
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `.        ;remove "."
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `,        ;remove ","
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `}        ;remove "}"
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `{        ;remove "}"
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `(        ;remove "("
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `)        ;remove ")"
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `[        ;remove "["
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `<        ;remove "<"
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `>        ;remove ">"
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `==        ;remove "=="
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `=        ;remove "="
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `&        ;remove "&"
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `!        ;remove "!"
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `"        ;remove """
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `+        ;remove "+"
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `-        ;remove "-"
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `*        ;remove "*"
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `/        ;remove "/"
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `:        ;remove ":"
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `#        ;remove "#"
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `~        ;remove "~"
    l_string = %OutputArray1%                     

    StringSplit, OutputArray, l_string, `~~        ;remove "~~"
    l_string = %OutputArray1%                     

  return l_string
}