AutoHotkey Community

Code: Select all

#Include GDI.ahk
#SingleInstance, Force
Gui, +LastFound -Resize +HwndhGuiMain +AlwaysOnTop -Caption -dpiscale +ToolWindow +E0x08000000
Gui, Color, 0x000000
Gui, Margin, 50, 50
Winset, Transcolor, 0x000000
Gui, Add, Progress, x50 w100 h100 hWndButton1 ; Progress controls make ideal canvases
Gui, Add, Progress, x50 y200 w100 h100 hWndButton2 ; Progress controls make ideal canvases

Gui, Show

global MyButton := new CustomButton(Button1)
global MyButton2 := new CustomButton(Button2)

OnMessage(0xF, "WM_PAINT")
OnMessage(0x200, "WM_MOUSEMOVE")
OnMessage(0x201, "WM_LBUTTONDOWN")
OnMessage(0x202, "WM_LBUTTONUP")

OnMessage(0x2A2, "WM_NCMOUSELEAVE")
SetTimer, CheckIfMouseIsOutsideGui,10
return

GuiClose:
ExitApp
Return

CheckIfMouseIsOutsideGui:
  MouseGetPos,,,MouseOverWindow,
  Gui, +Lastfound
  If (MouseOverWindow <> WinExist())
      WM_NCMOUSELEAVE()
return

WM_NCMOUSELEAVE()
{ 
global LasthWnd
global hwnd
If (lasthWnd == MyButton.hWnd)
	{
	hWnd := MyButton.hWnd
	lasthWnd =
	MyButton.Default()
	}
Else if (lasthWnd == MyButton2.hWnd)
	{
	hWnd := MyButton2.hWnd
	lasthWnd =
	MyButton2.Default()
	}
}


WM_PAINT()
{
	Sleep, -1 ; Let the scrollbar redraw before painting over it
	MyButton.BitBlt()
	MyButton2.BitBlt()
}

WM_MOUSEMOVE(wParam, lParam, Msg, hWnd)
{
	global LasthWnd
	if (hWnd != LasthWnd)
	{
		if (hWnd == MyButton.hWnd) 
			MyButton.Hovering()
		else if (hWnd == MyButton2.hWnd) 
			MyButton2.Hovering()
		else if (lasthWnd == MyButton.hWnd)
			MyButton.Default()
		else if (lasthWnd == MyButton2.hWnd)
			MyButton2.Default()
		
		LasthWnd := hWnd
	}
}

WM_LBUTTONDOWN(wParam, lParam, Msg, hWnd)
{
	if (hWnd == MyButton.hWnd)
		MyButton.Held()
	else if (hWnd == MyButton2.hWnd)
		MyButton2.Held()
}

WM_LBUTTONUP(wParam, lParam, Msg, hWnd)
{
	if (hWnd == MyButton.hWnd)
		MyButton.Hovering()
	else if (hWnd == MyButton2.hWnd)
		MyButton2.Hovering()
}

class CustomButton
{

	__New(hWnd)
	{
		this.GDI := new GDI(hWnd)
		this.hWnd := hWnd
		this.Default()
	}
	
	Default()
	{
	global LasthWnd
	global hwnd
	if (hWnd == MyButton.hWnd)
			this.Draw("Hover1", 0x000000, 0x00000F)
	Else if (hWnd == MyButton2.hWnd)
			this.Draw("Hover2", 0x000000, 0x00000F)
	}
	
	Hovering()
	{
	global LasthWnd
	global hwnd
	if (hWnd == MyButton.hWnd)
		this.Draw("Click1", 0xC0C0C0, 0x00000F)
	Else if (hWnd == MyButton2.hWnd)
	this.Draw("Click2", 0xC0C0C0, 0x00000F)
	}
	
	Held()
	{
		this.Draw("Release", 0x00000F, 0x0000FF)
	}
	
	Draw(Text, Color, TextColor)
	{
		critical
		this.GDI.FillEllipse(0, 0, this.GDI.CliWidth, this.GDI.CliHeight, Color, TextColor)
		this.GDI.DrawText(0, 0, 100, 100, Text, TextColor, "Arial", 20, "CC")
		this.GDI.BitBlt()
	}
	
	BitBlt()
	{
		this.GDI.BitBlt()
	}
}

F8::
Reload

Code: Select all

	FillEllipse(x, y, w, h, Color, BorderColor=-1)
	{
		if (w == 1 && h == 1)
			return this.SetPixel(x, y, Color)
		
		Pen := new this.Pen(BorderColor < 0 ? Color : BorderColor)
		Brush := new this.Brush(Color)
		
		; Replace the original pen and brush with our own
		hOriginalPen := DllCall("SelectObject", "UPtr", this.hMemDC, "UPtr", Pen.Handle, "UPtr")
		hOriginalBrush := DllCall("SelectObject", "UPtr", this.hMemDC, "UPtr", Brush.Handle, "UPtr")
		
		x1 := this.TranslateX(x)
		x2 := this.TranslateX(x+w)
		y1 := this.TranslateY(y)
		y2 := this.TranslateY(y+h)
		
		DllCall("Ellipse", "UPtr", this.hMemDC
		, "Int", x1, "Int", y1
		, "Int", x2, "Int", y2)
		
		; Reselect the original pen and brush
		DllCall("SelectObject", "UPtr", this.hMemDC, "UPtr", hOriginalPen, "UPtr")
		DllCall("SelectObject", "UPtr", this.hMemDC, "UPtr", hOriginalBrush, "UPtr")
	}

Code: Select all

;#####################################################################################
; Quality functions (from Gdip_All.ahk)
;#####################################################################################

; SystemDefault = 0
; SingleBitPerPixelGridFit = 1
; SingleBitPerPixel = 2
; AntiAliasGridFit = 3
; AntiAlias = 4
Gdip_SetTextRenderingHint(pGraphics, RenderingHint)
{
	return DllCall("gdiplus\GdipSetTextRenderingHint", A_PtrSize ? "UPtr" : "UInt", pGraphics, "int", RenderingHint)
}

; Default = 0
; LowQuality = 1
; HighQuality = 2
; Bilinear = 3
; Bicubic = 4
; NearestNeighbor = 5
; HighQualityBilinear = 6
; HighQualityBicubic = 7
Gdip_SetInterpolationMode(pGraphics, InterpolationMode)
{
   return DllCall("gdiplus\GdipSetInterpolationMode", A_PtrSize ? "UPtr" : "UInt", pGraphics, "int", InterpolationMode)
}

; Default = 0
; HighSpeed = 1
; HighQuality = 2
; None = 3
; AntiAlias = 4
Gdip_SetSmoothingMode(pGraphics, SmoothingMode)
{
   return DllCall("gdiplus\GdipSetSmoothingMode", A_PtrSize ? "UPtr" : "UInt", pGraphics, "int", SmoothingMode)
}

; CompositingModeSourceOver = 0 (blended)
; CompositingModeSourceCopy = 1 (overwrite)
Gdip_SetCompositingMode(pGraphics, CompositingMode=0)
{
   return DllCall("gdiplus\GdipSetCompositingMode", A_PtrSize ? "UPtr" : "UInt", pGraphics, "int", CompositingMode)
}