#persistent #SingleInstance force version=Aquarelle Rule v1a CoordMode, Mouse, Screen CoordMode, ToolTip, Screen Menu, tray, add, ABOUT, ABOUT ; create a Tray Menu Menu, tray, add, Exit, Exit Menu, tray, tip, %Version% `nA Personal Logfile Menu, tray, NoStandard whichtooltip=1 hotkey,lbutton,,off SetTimer, ToolTipDisplay , 250 ;update the tooltip in the text edit input box SW := A_Screenwidth ;position GUI in lower right corner SH := A_Screenheight ;position GUI in lower right corner GuiPosX := (SW-400) GuiPosY := (SH-350) Gui, Add, button, w330 gFibo,Set the Fibonacci Lines gui, add, groupbox, y+15 w330 h120 xm, Screen Text - Press f11 to set the text position Gui, Add, edit, r3 w320 xp+5 yp+20 vTTPtext, Gui, Add, text, yp+60 xp+45 ,X Gui, Add, edit,x+5 w60 vMouseXpos , Gui, Add, UpDown,+0x80 Range1-%sw%,100 Gui, Add, text,x+45,Y Gui, Add, edit, w60 x+5 vMouseYpos , Gui, Add, UpDown,+0x80 Range1-%sh%,100 Gui, Add, button,w100 xs gAddnewToolTip,&New text Gui, Add, button,w100 x+10 gReload,&Restart Gui, Add, button,w100 x+10 gGuiClose,&Exit Gui, +AlwaysOnTop gui, show,x%GuiPosX% y%GuiPosY%,The Aquarelle Rule return f11:: ;hotkey to grab current mouse position MouseGetpos, MouseX, MouseY, Guicontrol,,MouseXpos,%MouseX% Guicontrol,,MouseYpos,%MouseY% return ToolTipDisplay: ;display the Text input box at the x y inpts Guicontrolget,MX,,MouseXpos Guicontrolget,MY,,MouseYpos Guicontrolget,TTPinputtext,,TTPtext Tooltip,%TTPinputtext%,%MX%,%MY%,%whichtooltip% return AddnewToolTip: ;append tooltip to the file whichtooltip:=whichtooltip+1 ;increase the tooltips by one Guicontrol,,MouseXpos,100 ;clear input X box Guicontrol,,MouseYpos,100 ;clear input Y box Guicontrol,,TTPtext, ;clear input Text box ; tooltip, ;turn off tooltip return Fibo: Hotkey, lbutton, , On MesY = %A_ScreenHeight% ; Y coordinate..., start with Lower righ Screen corner Count=0 prompt=Left click on the High SetTimer Ruler, 100 ; Activate: Start a timer to Check the Mouse every 100 ms Return Ruler: MouseGetPos RulerX, RulerY, ID ; Get coordinates of Mouse cursor and window ID If (OldX = RulerX and OldY = RulerY) Return ; If Mouse have not moved: Do nothing OldY = %RulerY% ; Remember Y Height:= Abs(OldY-MesY) ; Vertical distance from anchor ToolTip, %prompt%, RulerX-50, RulerY-30 ,20 ; These draw green crosshair SplashImage 3:,% "B W" A_ScreenWidth "H1 Y" RulerY-1 "X0 CWFF00FF" Return ; "-1" avoids Mouse Clicks on crosshair Lines lbutton:: If prompt=Left click on the High { high:=RulerY SplashImage 5:,% "B W" A_ScreenWidth "H1 Y" high-1 "X0 CW00FF00" prompt=Left click on the Low Return } If prompt=Left click on the Low { Low:=RulerY SplashImage 6:,% "B W" A_ScreenWidth "H1 Y" low-1 "X0 CW00FF00" thirtyeight:=(low-high)/100*38.2 + high Fifty:=(low-high)/100*50 + high sixtyone:=(low-high)/100*61.8 + high SplashImage 7:,% "B W" A_ScreenWidth "H1 Y" thirtyeight-1 "X0 CW00FF00" SplashImage 8:,% "B W" A_ScreenWidth "H1 Y" fifty-1 "X0 CW00FF00" SplashImage 9:,% "B W" A_ScreenWidth "H1 Y" sixtyone-1 "X0 CW00FF00" Settimer Ruler, off SplashImage ,off } tooltip,,,,20 hotkey,lbutton,,off return reload: f12:: reload Escape:: exit: GuiClose: ExitApp ABOUT: Gui,9:Font,Bold Gui,9:Add,Text,x+10 yp+10,%version% Gui,9:Font Gui,9:Add,Text,xm+10,'%Version%' Gui,9:Add,Text,xm+10,Draw Fibonacci Lines ontop of the screen Gui,9:Add,Text,xm+10,Select a High Gui,9:Add,Text,xm+10,Select a Low Gui,9:Add,Text,xm+10,And the lines will be added automatically Gui,9:Add,Text,xm+10,Insert Text ontop of the display Gui,9:Add,Text,y+0,`t Gui,9:Font,Bold Gui,9:Add,Text,xm+10 yp+10,DonationCoder Gui,9:Font Gui,9:Add,Text,xm+10,Please support the DonationCoder community Gui,9:Font,CBlue underline Gui,9:Add,Text,xm+10 GDONATIONCODER,www.DonationCoder.com Gui,9:Font Gui,9:Add,Text,y+0,`t Gui,9:Font,Bold Gui,9:Add,Text,xm+10 yp+10,AutoHotkey Gui,9:Font Gui,9:Add,Text,xm+10,This program was made using AutoHotkey Gui,9:Font,CBlue underline Gui,9:Add,Text,xm+10 GAUTOHOTKEY,www.AUTOHOTKEY.com Gui,9:Font Gui,9:Add,Text,y+0,`t Gui,9:Font,Bold Gui,9:Add,Text,xm+10 yp+10,made by DoubleBogey Gui,9:Font Gui,9:Add,Text,xm+10,Find more mini-apps like this visit Gui,9:Font,CBlue underline Gui,9:Add,Text,xm+10 GDONATIONCODER,www.DonationCoder.com Gui,9:Font Gui,9:Add,Text,y+0,`t Gui,9:Add,Button,GABOUTOK Default w75,&OK Gui,9:Show,,About %Version% Return ABOUTOK: Gui, 9:Destroy Return DONATIONCODER: Run,http://www.donationcoder.com,,UseErrorLevel Return AUTOHOTKEY: Run,http://www.autoHotkey.com,,UseErrorLevel Return