AutoHotkey Community

Code: Select all

; example dock with Relative position
#NoEnv
#SingleInstance, force
SetTitleMatchMode, 2

FormatTime, TimeString, , HH:mm:ss 
Run, notepad.exe
sleep 100
WinGet, HostHwnd, ID, ahk_exe notepad.exe

; clock gui
Gui, +hwndClienthwnd +ToolWindow +AlwaysOnTop -SysMenu +E0x08000000
Gui, -Caption ; use this to remove the tooltip top!
Gui, Color, CCCCCC
Gui, Add, Picture, x3 y0 icon44 w16, shell32.dll
Gui, Font, cFFFFFF s6 wbold, terminal
Gui, Add, Text, vTxtCurrentTime  xp+20 y2, %TimeString% 

; Instance := new Dock(Host hwnd, Client hwnd, [Callback], [CloseCallback])
Instance := new Dock(Hosthwnd, Clienthwnd)
Instance.CloseCallback := Func("CloseCallback")

Gui, Show, AutoSize NoActivate h18 w240
WinSet, TransColor, CCCCCC 255, ahk_class AutoHotkeyGUI
Instance.Position("Relative 25 5")
SetTimer, AdjustTime, 500
Return

CloseCallback(self)
{
	WinKill, % "ahk_id " self.hwnd.Client
	ExitApp
}


Esc::
GuiClose:
Gui, Destroy
ExitApp

AdjustTime:
FormatTime, TimeString, , HH:mm:ss
GuiControl, , TxtCurrentTime, %TimeString%
return

#include dock.ahk

Code: Select all

	EVENT_OBJECT_LOCATIONCHANGE(self, via)
		{
			Host := this.WinGetPos(self.hwnd.Host)
			Client := this.WinGetPos(self.hwnd.Client)

			If InStr(self.pos, "Embedded")
			{
				If (via = "host")
				{
					Return this.MoveWindow(self.hwnd.Client 	;hwnd
								, Host.x + Host.w/2		;x
								, Host.y 	;y
								, Client.w	  	;width
								, Client.h) 		;height
				}

				If (via = "client")
				{
					Return this.MoveWindow(self.hwnd.Host	   	;hwnd
								, Client.x-Host.w/2	  	;x
								, Client.y   ;y
								, Host.w		;width
								, Host.h)	   	;height
				}
				WinSet, AlwaysOnTop, On, % "ahk_id " . self.hwnd.Client				
			}