AutoHotkey Community

; ++++++++++++++++++++++++++++++++++++++++ Setup

#Persistent
#SingleInstance, Force
#NoEnv
SetBatchLines, -1
SetWorkingDir, %A_ScriptDir%

; ++++++++++++++++++++++++++++++++++++++++

OnExit, Exit
Delimiter := ","
Offset = 0
Circles := Text := 1
Tips = 0
WinWidth := A_ScreenWidth
WinHeight := A_ScreenHeight

; ++++++++++++++++++++++++++++++++++++++++ Start

If Tips
   ToolTip, Start!

If pToken := Gdip_Startup()
{
   GDIP_RegisterClass(),
   hwnd1 := GDIP_CreateWindow()
}
Else
   ExitApp
   
; Prepare the Canvas
hBitmap := CreateDIBSection(WinWidth, WinHeight)
hDC := CreateCompatibleDC()
obm := SelectObject(hDC, hBitmap)
G := Gdip_GraphicsFromhDC(hDC)

If Tips
   ToolTip, Setting timer!
GoSub, Draw
SetTimer, Draw, 4000
Return

; ++++++++++++++++++++++++++++++++++++++++ Draw

Draw:
   If Tips
      ToolTip, Draw!
   
   If Tips
      ToolTip, Getting palette!
   Palette := GetCL_Palette("TOP", Offset)
   
   Alpha := Dec2Hex("255")
   StringSplit, Colour_, Palette, %Delimiter%, %Delimiter%
   RectWidth := Ceil(WinWidth / (Colour_0 - 1))
   
   Gdip_SetSmoothingMode(G, 0)
   Loop % Colour_0-1 ;%
   {
      i := A_Index + 1
      pBrush := Gdip_BrushCreateSolid(Alpha Colour_%i%)
      Gdip_FillRectangle(G, pBrush, xPos, 0, RectWidth, WinHeight)
      xPos += RectWidth
   }
   
   If Tips
      ToolTip, Drawn BG!
   Gdip_DeleteBrush(pBrush)
   xPos = 0
   Offset++
   
   If Circles
   {
      Gdip_SetSmoothingMode(G, 2)
      Loop 500
      {
         Random, RandColor, 2, %Colour_0%
         Random, RandSize, 2, % WinHeight / 8 ;%
         Random, RandXPos, 0, %WinWidth%
         Random, RandYPos, 0, %WinHeight%
         Random, RandAlpha, 255, 255
         
         pBrush := Gdip_BrushCreateSolid(Dec2Hex(RandAlpha) Colour_%RandColor%)
         Gdip_FillEllipse(G, pBrush, RandXPos, RandYPos, RandSize, RandSize)
      }
      If Tips
         ToolTip, Drawn circles!
   }
   
   Options := "x20 y" (WinHeight - 55) "c" SubStr(Dec2Hex("200"), 3) "ffffff" " r4 s30"
   
   If Text
   {
      Gdip_SetSmoothingMode(G, 4)
      pBrush2 := Gdip_BrushCreateSolid(0xffff0000)
      pBrush3 := Gdip_BrushCreateSolid(Dec2Hex("200") "000000")
      RectF := Gdip_TextToGraphics(G, Colour_1 "`n" Chr(160), Options, "Arial", WinWidth, WinHeight, 1)
      If Tips
         ToolTip, %RectF%
      StringSplit, RectF_, RectF, |, |
      
      Gdip_FillRoundedRectangle(G, pBrush3, RectF_1, RectF_2, RectF_3, RectF_4/2, 4)
      Gdip_TextToGraphics(G, Colour_1 "`n" Chr(160), Options, "Arial", WinWidth, WinHeight)
   }

   
   UpdateLayeredWindow(hwnd1, hDC, 0, 0, WinWidth, WinHeight)
Return

; ++++++++++++++++++++++++++++++++++++++++ Functions

DrawCL_Palette(Palette, Delimiter = ",", Alpha = "255")
{
   Alpha := Dec2Hex(Alpha)
   StringSplit, Colour_, Palette, %Delimiter%, %Delimiter%
   RectWidth := Ceil(WinWidth / Colour_0)
   
   Loop %Colour_0%
   {
      pBrush := Gdip_BrushCreateSolid(Alpha Colour_%A_Index%)
      Gdip_FillRectangle(G, pBrush, xPos, 0, RectWidth, WinHeight)
      xPos += RectWidth
   }
   Gdip_DeleteBrush(pBrush)
}

; ++++++++++++++++++++++++++++++++++++++++

GetCL_Palette(Type = "TOP", Offset = "0")
{
   global Delimiter
   If (Type = "Top")
      URL = http://www.colourlovers.com/api/palettes/top&numResults=1&resultOffset=%Offset%
   If (Type = "RAND")
      URL = http://www.colourlovers.com/api/palettes/random
   
   ; URL = http://www.colourlovers.com/api/palettes/top&keywordExact=0&keywords=dark&numResults=1&resultOffset=%Offset%
   
   httpQuery(html, URL, POSTdata)
   VarSetCapacity(html, -1)

   RegExMatch(html, "iS)\Q<title><![CDATA[\E(.+?)\Q]]></title>\E", titleNode)
   RegExMatch(html, "iS)\Q<userName><![CDATA[\E(.+?)\Q]]></userName>\E", userNameNode)
   
   Loop, Parse, html, `n, `n
   {
      RegExMatch(A_LoopField, "iS)<hex>(.+?)</hex>", hexNode)
      If hexNode
         Output .= hexNode1 Delimiter
      If InStr(A_LoopField, "</palette>")
         Output .= "`n"
   }   
   Return titleNode1 " by " userNameNode1 Delimiter SubStr(Output, 1, -2)
}

; ++++++++++++++++++++++++++++++++++++++++

Dec2Hex(Dec)
{
   SetFormat, integer, hex
   Dec += 0
   SetFormat, integer, d
   Return Dec
}
; ++++++++++++++++++++++++++++++++++++++++ Labels

^S::
   pBitmap := Gdip_CreateBitmapFromHBITMAP(hBitmap)
   Gdip_SaveBitmapToFile(pBitmap, A_Desktop "\CL.png")
   Gdip_DisposeImage(pBitmap)
   GoSub, Exit
Return

Space::
   pBitmap := Gdip_CreateBitmapFromHBITMAP(hBitmap)
   Gdip_SaveBitmapToFile(pBitmap, A_Desktop "\CL.bmp")
   Gdip_DisposeImage(pBitmap)
   DllCall("SystemParametersInfo", "UInt", 0x14, "UInt", 0, "Str", A_Desktop "\CL.bmp", "UInt", 2)
   FileDelete, %A_Desktop%\CL.bmp
   GoSub, Exit
Return

F1::
   Circles := !Circles
Return

F2::
   Text := !Text
Return

F3::
   Tips := !Tips
   ToolTip
Return

Esc::
Exit:
   SelectObject(hDC, obm)
   DeleteObject(hBitmap)
   DeleteDC(hDC)
   Gdip_DeleteGraphics(G)
   Gdip_Shutdown(pToken)
ExitApp

Gdip_TextToGraphics(pGraphics, Text, Options, Font="Arial", Width="", Height="", MeasureOnly="")
{
   IWidth := Width, IHeight:= Height
   
   RegExMatch(Options, "i)X([\-0-9]+)(p*)", xpos)
   RegExMatch(Options, "i)Y([\-0-9]+)(p*)", ypos)
   RegExMatch(Options, "i)W([0-9]+)(p*)", Width)
   RegExMatch(Options, "i)H([0-9]+)(p*)", Height)
   RegExMatch(Options, "i)C(?!(entre|enter))([a-f0-9]{8})", Colour)
   RegExMatch(Options, "i)Top|Up|Bottom|Down|vCentre|vCenter", vPos)
   RegExMatch(Options, "i)R([0-9])", Rendering)
   RegExMatch(Options, "i)S([0-9]+)(p*)", Size)

   If !(IWidth && IHeight) && (xpos2 || ypos2 || Width2 || Height2 || Size2)
   Return, -1

   Style := 0, Styles := "Regular|Bold|Italic|BoldItalic|Underline|Strikeout"
   Loop, Parse, Styles, |
   {
      If RegExMatch(Options, "\b" A_loopField)
      Style |= (A_LoopField != "StrikeOut") ? (A_Index-1) : 8
   }
 
   Align := 0, Alignments := "Near|Left|Centre|Center|Far|Right"
   Loop, Parse, Alignments, |
   {
      If RegExMatch(Options, "\b" A_loopField)
      Align |= A_Index//2.1      ; 0|0|1|1|2|2
   }

   xpos := (xpos1 != "") ? xpos2 ? IWidth*(xpos1/100) : xpos1 : 0
   ypos := (ypos1 != "") ? ypos2 ? IHeight*(ypos1/100) : ypos1 : 0
   Width := Width1 ? Width2 ? IWidth*(Width1/100) : Width1 : IWidth
   Height := Height1 ? Height2 ? IHeight*(Height1/100) : Height1 : IHeight
   Colour := "0x" (Colour2 ? Colour2 : "ff000000")
   Rendering := ((Rendering1 >= 0) && (Rendering1 <= 4)) ? Rendering1 : 4
   Size := (Size1 > 0) ? Size2 ? IHeight*(Size1/100) : Size1 : 12

   hFamily := Gdip_FontFamilyCreate(Font)
   hFont := Gdip_FontCreate(hFamily, Size, Style)
   hFormat := Gdip_StringFormatCreate(0x4000)
   pBrush := Gdip_BrushCreateSolid(Colour)
   If !(hFamily && hFont && hFormat && pBrush && pGraphics)
   Return, !pGraphics ? -2 : !hFamily ? -3 : !hFont ? -4 : !hFormat ? -5 : !pBrush ? -6 : 0
   
   CreateRectF(RC, xpos, ypos, Width, Height)
   Gdip_SetStringFormatAlign(hFormat, Align)
   Gdip_SetTextRenderingHint(pGraphics, Rendering)
   ReturnRC := Gdip_MeasureString(pGraphics, Text, hFont, hFormat, RC)
   
   If MeasureOnly
   {
      Gdip_DeleteBrush(pBrush)
      Gdip_DeleteStringFormat(hFormat)   
      Gdip_DeleteFont(hFont)
      Gdip_DeleteFontFamily(hFamily)
      Return ReturnRC
   }

   If vPos
   {
      StringSplit, ReturnRC, ReturnRC, |
      
      If (vPos = "vCentre") || (vPos = "vCenter")
         ypos := (Height-ReturnRC4)//2
      Else If (vPos = "Top") || (vPos = "Up")
         ypos := 0
      Else If (vPos = "Bottom") || (vPos = "Down")
         ypos := Height-ReturnRC4
      
      CreateRectF(RC, xpos, ypos, Width, ReturnRC4)
   }

   E := Gdip_DrawString(pGraphics, Text, hFont, hFormat, pBrush, RC)

   Gdip_DeleteBrush(pBrush)
   Gdip_DeleteStringFormat(hFormat)   
   Gdip_DeleteFont(hFont)
   Gdip_DeleteFontFamily(hFamily)
   Return, E ? E : ReturnRC
}

; ++++++++++++++++++++++++++++++++++++++++

; additional GDIP functions, to register a new GDIP Canvas class
; and work on a GUI which is NOT created by Gui* Commands
; initially written by derRaphael for tic's gdip library on nov 30, 2008
; licensed under the terms of gdip.ahk's license

; Inspiration to this came from this thread:
;    majkinetor's [tutorial] Creating windows without GUI commands
;    http://www.autohotkey.com/forum/viewtopic.php?t=22904

GDIP_CreateWindow(lpWindowName="dR's GDIP Canvas") {
   return DllCall("CreateWindowEx" ; This function actually creates the window and returns its hWnd
      , "uInt",dwExStyle:=0x80088, "Str", lpClassName:="GDIP_Canvas"
     , "Str", lpWindowName, "uInt", dwStyle:=0x940A0000
      , "Int", x, "Int", y, "Int", nWidth, "Int", nHeight, "uInt", hWndParent
      , "uInt",hMenu, "uInt", hInstance, "uInt", lpParam)
}

GDIP_RegisterClass(){ ; needs to be called only once, so it can register the class
   cName := "GDIP_Canvas", WndProc := RegisterCallback("GDIP_WndProc", "F")
   VarSetCapacity(WndClass, 40, 0)
   NumPut(WndProc, WndClass, 4) ; style / lpfnWndProc
   ; If below is NOT specified, the app must take care of assigning proper IDC_* Cursors
   ; the provoded method assigns standard cursor for the window
   NumPut((hCursor := DllCall( "LoadCursor", "Uint",0, "Int", IDC_ARROW:=32512 )), WndClass , 24)
   NumPut(&cName, WndClass, 36) ; lpszClassName
   return DllCall("RegisterClass", "uint", &WndClass )
}

/*
; Additional WndClass - http://msdn.microsoft.com/en-us/library/ms633576(VS.85).aspx
   NumPut(0, WndClass, 0)   ; style see http://msdn.microsoft.com/en-us/library/ms633574(VS.85).aspx
   NumPut(0, WndClass, 8)   ; cbClsExtra
   NumPut(0, WndClass, 12)  ; cbWndExtra
   NumPut(0, WndClass, 16)  ; hInstance
   NumPut(0, WndClass, 20)  ; hIcon
   NumPut(0, WndClass, 28)  ; hbrBackground (brush background)
   NumPut(0, WndClass, 32)  ; lpszMenuName
*/

; The callback for our new registered class
GDIP_WndProc(hwnd, uMsg, wParam, lParam) { ; This one can handle additional WndMsgs
   if (uMsg=0x111) {
      DllCall("DestroyWindow", "uint", hwnd)
   }
   return, DllCall("DefWindowProc", "uint", hwnd, "uint", umsg, "uint", wParam, "uint", lParam)
}

Gdip_TextToGraphics(pGraphics, Text, Options, Font="Arial", Width="", Height="", Measure="", pBrush="")
{
   IWidth := Width, IHeight:= Height
   
   RegExMatch(Options, "i)X([\-0-9]+)(p*)", xpos)
   RegExMatch(Options, "i)Y([\-0-9]+)(p*)", ypos)
   RegExMatch(Options, "i)W([0-9]+)(p*)", Width)
   RegExMatch(Options, "i)H([0-9]+)(p*)", Height)
   RegExMatch(Options, "i)C(?!(entre|enter))([a-f0-9]{8})", Colour)
   RegExMatch(Options, "i)Top|Up|Bottom|Down|vCentre|vCenter", vPos)
   RegExMatch(Options, "i)R([0-9])", Rendering)
   RegExMatch(Options, "i)S([0-9]+)(p*)", Size)

   If !(IWidth && IHeight) && (xpos2 || ypos2 || Width2 || Height2 || Size2)
   Return, -1

   Style := 0, Styles := "Regular|Bold|Italic|BoldItalic|Underline|Strikeout"
   Loop, Parse, Styles, |
   {
      If RegExMatch(Options, "\b" A_loopField)
      Style |= (A_LoopField != "StrikeOut") ? (A_Index-1) : 8
   }
 
   Align := 0, Alignments := "Near|Left|Centre|Center|Far|Right"
   Loop, Parse, Alignments, |
   {
      If RegExMatch(Options, "\b" A_loopField)
      Align |= A_Index//2.1      ; 0|0|1|1|2|2
   }

   xpos := (xpos1 != "") ? xpos2 ? IWidth*(xpos1/100) : xpos1 : 0
   ypos := (ypos1 != "") ? ypos2 ? IHeight*(ypos1/100) : ypos1 : 0
   Width := Width1 ? Width2 ? IWidth*(Width1/100) : Width1 : IWidth-xpos
   Height := Height1 ? Height2 ? IHeight*(Height1/100) : Height1 : IHeight-ypos
   Colour := "0x" (Colour2 ? Colour2 : "ff000000")
   Rendering := ((Rendering1 >= 0) && (Rendering1 <= 4)) ? Rendering1 : 4
   Size := (Size1 > 0) ? Size2 ? IHeight*(Size1/100) : Size1 : IHeight//10

   hFamily := Gdip_FontFamilyCreate(Font)
   hFont := Gdip_FontCreate(hFamily, Size, Style)
   hFormat := Gdip_StringFormatCreate(0x4000)
   pBrush := pBrush ? pBrush : Gdip_BrushCreateSolid(Colour)
   If !(hFamily && hFont && hFormat && pBrush && pGraphics)
   Return, !pGraphics ? -2 : !hFamily ? -3 : !hFont ? -4 : !hFormat ? -5 : !pBrush ? -6 : 0
   
   CreateRectF(RC, xpos, ypos, Width, Height)
   Gdip_SetStringFormatAlign(hFormat, Align)
   Gdip_SetTextRenderingHint(pGraphics, Rendering)
   ReturnRC := Gdip_MeasureString(pGraphics, Text, hFont, hFormat, RC)

   If !Measure
   {
      If vPos
      {
         StringSplit, ReturnRC, ReturnRC, |
         
         If (vPos = "vCentre") || (vPos = "vCenter")
         ypos := (Height-ReturnRC4)//2
         Else If (vPos = "Top") || (vPos = "Up")
         ypos := 0
         Else If (vPos = "Bottom") || (vPos = "Down")
         ypos := Height-ReturnRC4
         
         CreateRectF(RC, xpos, ypos, Width, ReturnRC4)
      }
      E := Gdip_DrawString(pGraphics, Text, hFont, hFormat, pBrush, RC)
   }

   Gdip_DeleteBrush(pBrush)
   Gdip_DeleteStringFormat(hFormat)
   Gdip_DeleteFont(hFont)
   Gdip_DeleteFontFamily(hFamily)
   Return, E ? E : ReturnRC
}

pBitmap := Gdip_BitmapFromScreen(0, 0x00CC0020|0x40000000)

SetBatchLines, -1
Process, Exist
Process, priority, %ErrorLevel%, High
OnExit, Exit
Gui, Show, h300 w300, Test
Gui, Add, Button, x10 y10 w270 h25 , Save To pBitmap/hBitmap
hWnd := WinExist("Test")
hDC := DllCall("GetDC", UInt, hWnd)
color := 0xFF0000FF
OnMessage(0x201, "Draw")
Return

LButton::
Loop
   If GetKeyState("Lbutton", "P")
      Click
   Else
      break
Return

Draw(wParam, lParam)
{
   Global hDC, color
   DllCall("SetPixel", UInt, hDC, Int, lParam & 0xFFFF, Int, lParam >> 16, UInt, color)
}

GuiClose:
GuiEscape:
Exit:
If hDC
   DllCall("ReleaseDC", UInt, hDC)
ExitApp

#singleinstance force
#NoTrayIcon
xpos:=A_screenwidth-200
Gui, color, black
Gui, -Caption +LastFound +ToolWindow +disabled
WinSet, Transparent, 80
Gdip_Startup()
onexit, exit
ClockDiameter := 130
Width := Height := 500
CenterX := 100
CenterY := 100
Gui, 2: -Caption +E0x80000 +LastFound +ToolWindow +OwnDialogs +disabled
Gui, 2: Show,,clock
WinSet, Bottom,, clock
Gui, show, w200 h%A_screenheight% x%xpos%, bar
WinSet, Bottom,, bar
hwnd1 := WinExist()
hbm := CreateDIBSection(Width, Height), hdc := CreateCompatibleDC()
obm := SelectObject(hdc, hbm), G := Gdip_GraphicsFromHDC(hdc)
Gdip_SetSmoothingMode(G, 4)
Diameter := 300
pBrush := Gdip_BrushCreateSolid(0x60000000)
Gdip_FillEllipse(G, pBrush, CenterX-(Diameter//2), CenterY-(Diameter//2),Diameter, Diameter)
Gdip_DeleteBrush(pBrush)
Diameter := 150
pBrush := Gdip_BrushCreateSolid(0x80000000)
Gdip_FillEllipse(G, pBrush, CenterX-(Diameter//2), CenterY-(Diameter//2),Diameter, Diameter)
Gdip_DeleteBrush(pBrush)
R1 := 70
R2 := 58
Items := 12
pPen := Gdip_CreatePen(0xffffffff, 2)
GoSub, DrawClockMarks
Gdip_DeletePen(pPen)
UpdateLayeredWindow(hwnd1, hdc, xpos,0, Width, Height)
SetTimer, sec, 1000
Diameter := 110
sec:
Gdip_SetCompositingMode(G, 1)
pBrush := Gdip_BrushCreateSolid(0x00000000)
Gdip_FillEllipse(G, pBrush, CenterX-(Diameter//2), CenterY-(Diameter//2),Diameter, Diameter)
t := A_Sec*360//60+90
R1 := ClockDiameter//2-ceil((ClockDiameter//2)*0.2)
pPen := Gdip_CreatePen(0x6fffffff, floor((ClockDiameter/100)*1.2))
Gdip_DrawLine(G, pPen, CenterX, CenterY
, ceil(CenterX - (R1 * Cos(t * Atan(1) * 4 / 180)))
, ceil(CenterY - (R1 * Sin(t * Atan(1) * 4 / 180))))
t := A_Min*360//60+90
R1 := ClockDiameter//2-ceil((ClockDiameter//2)*0.25)
pPen := Gdip_CreatePen(0xdfffffff, floor((ClockDiameter/100)*2.7))
Gdip_DrawLine(G, pPen, CenterX, CenterY
, ceil(CenterX - (R1 * Cos(t * Atan(1) * 4 / 180)))
, ceil(CenterY - (R1 * Sin(t * Atan(1) * 4 / 180))))
t := A_Hour*360//12 + (A_Min*360//60)//12 +90
R1 := 35
pPen := Gdip_CreatePen(0xdfffffff, 3)
Gdip_DrawLine(G, pPen, CenterX, CenterY
, ceil(CenterX - (R1 * Cos(t * Atan(1) * 4 / 180)))
, ceil(CenterY - (R1 * Sin(t * Atan(1) * 4 / 180))))
Gdip_DeletePen(pPen)
UpdateLayeredWindow(hwnd1, hdc)
return
DrawClockMarks:
Loop, % Items
Gdip_DrawLine(G, pPen
, CenterX - ceil(R1 * Cos(((a_index-1)*360//Items) * Atan(1) * 4 / 180))
, CenterY - ceil(R1 * Sin(((a_index-1)*360//Items) * Atan(1) * 4 / 180))
, CenterX - ceil(R2 * Cos(((a_index-1)*360//Items) * Atan(1) * 4 / 180))
, CenterY - ceil(R2 * Sin(((a_index-1)*360//Items) * Atan(1) * 4 / 180)) )
return
Exit:
SelectObject(hdc, obm)
DeleteObject(hbm)
DeleteDC(hdc)
Gdip_DeleteGraphics(G)
Gdip_Shutdown(pToken)
ExitApp
Return