Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
- ; #Warn ; Enable warnings to assist with detecting common errors.
- SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
- SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
- #Include,<hellbents_gdip>
- SetBatchLines, -1
- win:=Layered_Window_SetUp(4,20,20,500,500,1,"+alwaysontop")
- gui,1:show,,me
- gui,1: add,text,x0 y0 w1366 h768 gmove_window
- pbrush1:=New_Brush("0000ff")
- circle:={d:100,x:500,y:300,brush:pbrush1}
- pbrush:=New_Brush("000000","ff")
- Fill_Box(win.g, pBrush, 0, 0, win.w, win.h)
- Gdip_FillEllipse(win.g, circle.brush, circle.x-win.x, circle.y-win.y,circle.d , circle.d)
- brush:=[]
- brush.push(New_Brush("f0ff00"))
- brush.push(New_Brush("f0fffa"))
- brush.push(New_Brush("aaaaaa"))
- UpdateLayeredWindow(win.hwnd, win.hdc, win.x, win.y, win.w, win.h)
- SetTimer,sub_xy,1
- ttt:=1
- return
- move_window:
- PostMessage,0xa1,2
- return
- sub_xy:
- WinGetPos, X, Y, Width, Height,me
- win.x:=x
- win.y:=y
- ToolTip,% x " < > " y
- Fill_Box(win.g, pBrush, 0, 0, win.w, win.h)
- Gdip_FillEllipse(win.g, circle.brush, circle.x-win.x, circle.y-win.y,circle.d , circle.d)
- UpdateLayeredWindow(win.hwnd, win.hdc)
- return
- GuiClose:
- GuiEscape:
- *x::
- Layered_Window_ShutDown(win)
- gdip_deletebrush(pbrush)
- ExitApp
- d::
- Fill_Box(win.g, brush[ttt], 200, 200, 50, 50)
- ttt++
- UpdateLayeredWindow(win.hwnd, win.hdc)
- return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement