#NoEnv
#SingleInstance Force
TransColor = D4D1C8
Gui, Color, %transColor%
Gui, Font, S10 CBlack Bold, Arial
Gui, Font, 03b1fc
Gui, Add, Button, x10 y10 h38 w130 gAction01, Insert 4 A bars
Gui, Add, Button, x150 y10 h38 w130 gAction02, Insert 4 B bars
Gui, Add, Button, x290 y10 h38 w130 gAction03, Set A
Gui, Add, Button, x430 y10 h38 w130 gAction04, Set B
Gui, Add, Button, x10 y80 h38 w130 gAction05, Insert 4 bars
Gui, Add, Button, x150 y80 h38 w130 gAction06, Delete 4 bars
Gui, Add, Button, x290 y80 h38 w130 gAction07, Action?
Gui, Add, Button, x430 y80 h38 w130 gAction08, Action?
Gui, Font, S20 CBlack Bold, Arial
Gui, Add, Button, x100 y150 h30 w30 gAction09, ^
Gui, Add, Button, x100 y200 h30 w30 gAction10, V
Gui, Add, Button, x75 y175 h30 w30 gAction11, <
Gui, Add, Button, x125 y175 h30 w30 gAction12, >
Gui, Font, S20 cBlue Bold, Arial
Gui, Add, Text, x100 y300, Some Text
;GUI, Color, 333333
Gui, +AlwaysOnTop
Gui, Show, x277 y206 h640 w600, Action Buttons,
return
Action01:
winactivate,ahk_class TBandWindow
Send, {RIGHT}
Send, {LEFT}
WinMenuSelectItem, ahk_class TBandWindow, , Edit, Insert Bar(s)...
Sleep, 200
Send, 4
Send, {ENTER}
Sleep, 200
Clipboard := "[Chords]`n|a)%|%|%|%|%|%|%|%|`n[ChordsEnd]" ; "`n" = new line
;winactivate,ahk_class TBandWindow
Send, ^+v ;send ctrl+shift+v to Biab (paste chords from clipboard)
;Sleep, 100
Send, {ENTER}
Return
Action02:
winactivate,ahk_class TBandWindow
Send, {RIGHT}
Send, {LEFT}
WinMenuSelectItem, ahk_class TBandWindow, , Edit, Insert Bar(s)...
Sleep, 200
Send, 4
Send, {ENTER}
Sleep, 200
Clipboard := "[Chords]`n|b)%|%|%|%|%|%|%|%|`n[ChordsEnd]" ; "`n" = new line
;winactivate,ahk_class TBandWindow
Send, ^+v ;send ctrl+shift+v to Biab (paste chords from clipboard)
;Sleep, 100
Send, {ENTER}
Return
Action03:
winactivate,ahk_class TBandWindow
Send, {RIGHT}
Send, {LEFT}
Sleep, 200
Clipboard := "[Chords]`n|a)%|`n[ChordsEnd]" ; "`n" = new line
Send, ^+v ;send ctrl+shift+v to Biab (paste chords from clipboard)
Sleep, 100
Send, {ENTER}
Return
Action04:
winactivate,ahk_class TBandWindow
Send, {RIGHT}
Send, {LEFT}
Sleep, 200
Clipboard := "[Chords]`n|b)%|`n[ChordsEnd]" ; "`n" = new line
Send, ^+v ;send ctrl+shift+v to Biab (paste chords from clipboard)
;Sleep, 200
Send, {ENTER}
Return
Action05:
winactivate,ahk_class TBandWindow
Send, {RIGHT}
Send, {LEFT}
WinMenuSelectItem, ahk_class TBandWindow, , Edit, Insert Bar(s)...
Sleep, 200
Send, 4
Send, {ENTER}
Return
Action06:
winactivate,ahk_class TBandWindow
WinMenuSelectItem, ahk_class TBandWindow, , Edit, Delete Bar(s)...
Sleep, 200
Send, 4
Send, {ENTER}
Return
Action07:
winactivate,ahk_class TBandWindow
Return
Action08:
winactivate,ahk_class TBandWindow
Return
Action09:
winactivate,ahk_class TBandWindow
Send {UP}
Return
Action10:
winactivate,ahk_class TBandWindow
Send {DOWN}
Return
Action11:
winactivate,ahk_class TBandWindow
Send {LEFT}
Return
Action12:
winactivate,ahk_class TBandWindow
Send {RIGHT}
Return
GuiClose:
GuiEscape:
ExitApp