; https://autohotkey.com/board/topic/29449-gdi-standard-library-145-by-tic/page-65
; by just_me 

#Include ../Gdip_All.ahk

SS_BITMAP    := 0xE
SS_ICON      := 0x3
STM_SETIMAGE := 0x172
IMAGE_BITMAP := 0x0
W := 200
H := 200

GdipToken := Gdip_Startup()
Gui, New, hwndHGUI -DPIScale +LabelGUI, PathGradientBrush
Gui, Add, Pic, w%W% h%H% hwndHPIC
ScaleX := 0.0 ; focus scale for x-axis (0.0 - 1.0)
ScaleY := 0.0 ; focus scale for y-axis (0.0 - 1.0)
BlendFocus := 0.5 ; blend focus (0.0 - 1.0)
GoSub, PathGradientBrush
Gui, Add, Pic, ym w%W% h%H% hwndHPIC
ScaleX := 0.75 ; focus scale for x-axis (0.0 - 1.0)
ScaleY := 0.75 ; focus scale for y-axis (0.0 - 1.0)
BlendFocus := 1.0 ; blend focus (0.0 - 1.0)
GoSub, PathGradientBrush
Gui, Show
Return

PathGradientBrush:
   PBitMap := Gdip_CreateBitmap(W, H)
   PGraphics := Gdip_GraphicsFromImage(PBitMap)
   Gdip_SetSmoothingMode(PGraphics, 4)
   PPath := Gdip_CreatePath(PGraphics)
   If (BlendFocus=0.5)
      Gdip_AddPathRectangle(PPath, 0, 0, W, H)
   Else
      Gdip_AddPathEllipse(PPath, 0, 0, W, H)
   PBrush := Gdip_PathGradientCreateFromPath(PPath)
   Gdip_PathGradientSetCenterPoint(PBrush, W / 2, H / 2)
   Gdip_PathGradientSetCenterColor(PBrush, 0xFFFFFFFF)
   Gdip_PathGradientSetSurroundColors(PBrush, 0xFF202090)
   Gdip_PathGradientSetSigmaBlend(PBrush, BlendFocus)
   Gdip_PathGradientSetLinearBlend(PBrush, BlendFocus)
   Gdip_PathGradientSetFocusScales(PBrush, ScaleX, ScaleY)
   Gdip_FillPath(PGraphics, PBrush, PPath)
   HBitmap := Gdip_CreateHBITMAPFromBitmap(PBitMap, 0x00FFFFFF)
   Gdip_DeleteBrush(PBrush)
   Gdip_DeletePath(PPath)
   Gdip_DeleteGraphics(PGraphics)
   Gdip_DisposeImage(PBitmap)
   ; Set control styles
   Control, Style, -%SS_ICON%, , ahk_id %HPIC%
   Control, Style, +%SS_BITMAP%, , ahk_id %HPIC%
   ; Assign the bitmap
   SendMessage, STM_SETIMAGE, IMAGE_BITMAP, HBitmap, , ahk_id %HPIC%
   ; Done!
   DeleteObject(HBitmap)
Return

Esc::
GuiClose:
GuiEscape:
Gdip_ShutDown(GdipToken)
ExitApp
Return