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.
- #maxhotkeysperinterval 100000
- #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"))
- pbrushclear:=New_Brush("ffffff","00")
- 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
- a::
- win.x-=5
- gosub update
- return
- d::
- win.x+=5
- gosub update
- return
- w::
- win.y-=5
- gosub update
- return
- s::
- win.y+=5
- gosub update
- return
- update:
- Gdip_GraphicsClear(win.g)
- Gdip_FillEllipse(win.g, circle.brush, circle.x-win.x, circle.y-win.y,circle.d , circle.d)
- colour=000000
- Drawbox_2(win.g,colour,"ff",0,0,win.w,win.h,10)
- UpdateLayeredWindow(win.hwnd, win.hdc,win.x,win.y)
- return
- Drawbox_2(g,colour,Alpha,x0,y0,w0,h0,d0){
- pPen1:=New_Pen(colour,Alpha,d0)
- Gdip_DrawRectangle(g, pPen1, x0+d0/2, y0+d0/2, w0-d0, h0-d0)
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement