AutoHotkey Community

#SingleInstance Force

Colors=Red,Green,Blue,Yellow,Black,White
AvailableFonts=Arial,Tahoma,Verdana,Courier New,Times

loop, parse, Colors, `,
{
   Menu, FGColor, Add, %A_LoopField%, FGColorMenuHandler
   Menu, BGColor, Add, %A_LoopField%, BGColorMenuHandler
}

loop, parse, AvailableFonts, `,
{
   Menu, FontMenu, Add, %A_LoopField%, FontMenuHandler
}

Menu, TextAlignMenu, Add, Right, TextAlignMenu
Menu, TextAlignMenu, Add, Left, TextAlignMenu
Menu, TextAlignMenu, Add, Center, TextAlignMenu

Menu, ContextMenu, Add, Background Color, :BGColor
Menu, ContextMenu, Add, Foreground Color, :FGColor
Menu, ContextMenu, Add, Font, :FontMenu
Menu, ContextMenu, Add, Align, :TextAlignMenu

Menu, FileMenu, Add, &Exit, FileMenuHandler

Menu, MenuBar, Add, &File, :FileMenu

Gui, Menu, MenuBar

Text=Here is the first line of Text to show`nand this is the second one much like the first`nThe third is also quite similar and`nIs now followed by the fourth line which ends here.

WindowTitle=SmartSong
WinWidth=%A_ScreenWidth%;800
WinHeight=%A_ScreenHeight%;600
TextWidth := WinWidth
TextHeight := WinHeight
Font=Verdana
FontWeight=1000
FontSizer = 24
FontSize := FontSizer
Gui +ToolWindow
Gui, color, white
Gui, Font, s%FontSize% w%FontWeight%, %Font%
Gui, Add, Text,x0 y0 w%TextWidth% h%TextHeight% vPageText,%Text%
Gui, Show, w%WinWidth% h%WinHeight%, %WindowTitle%

return

WheelUp::
ifWinActive, %WindowTitle%
{
   FontSizer++
   if FontSizer > 72
      FontSizer = 72
   else
      Gui, Font, s%FontSizer%

   GuiControl, Font, PageText
} else {
   Send, {WheelUp}
}
return

WheelDown::
ifWinActive, %WindowTitle%
{
   FontSizer--
   if FontSizer < 8
      FontSizer = 8
   else
      Gui, Font, s%FontSizer%

   GuiControl, Font, PageText
} else {
   Send, {WheelDown}
}
return

GuiContextMenu:
Menu, ContextMenu, Show, %A_GuiX%, %A_GuiY%
return

ContextMenuHandler:
msgbox, You selected %A_ThisMenuItem%
return

FileMenuHandler:
ExitApp
return

FontMenuHandler:
Gui, Font,,%A_ThisMenuItem%
GuiControl,Font,PageText
return

BGColorMenuHandler:
Gui, Color, %A_ThisMenuItem%
return

FGColorMenuHandler:
Gui, Font, c%A_ThisMenuItem%
GuiControl, Font, PageText
return

TextAlignMenu:
GuiControl,+%A_ThisMenuItem%,PageText
return

GuiClose:
ExitApp

Loop
{
sleep,100
pic++
if pic=37
break
guicontrol,,Static1, loading_animation\%pic%.bmp
}
sleep,1000

current:=(a_screenheight-67)/2
;the super- cool animated drop (so i'm being slightly sarcastic)
loop, 33
{
x:=50-a_index
sleep,%x%
y:=a_index-4
current:=current+y
guicontrol, move, Static1,% " x" (a_screenwidth-185)/2 " y" current
}