Code: Select all
; ========================================================================================
; NAME .........: OFFICE 365 GUI STYLE
; DESCRIPTION ..: USE AUTOHOTKEY CONTROLS TO IMITATE OFFICE 365 THEME
; AHK VERSION ..: AHK_L 1.1.19.01 (UNICODE 32-BIT) - JANUARY 5, 2015
; PLATFORM .....: WINDOWS 7 PROFESSIONAL SP1 64-BIT
; LANGUAGE .....: ENGLISH (EN-US)
; AUTHOR .......: THEDEWD
; MODIFIED......: 20150115170730
; ========================================================================================
; GLOBAL =================================================================================
#SingleInstance, Force ; ALLOWS ONLY ONE RUNNING INSTANCE OF SCRIPT
#Persistent ; KEEPS SCRIPT PERMANENTLY RUNNING UNTIL TERMINATED
#NoEnv ; AVOIDS CHECKING EMPTY VARIABLES TO SEE If THEY ARE ENVIRONMENT VARIABLES
#Warn ; ENABLES 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
SetBatchLines, -1 ; RUNS SCRIPT AT MAXIMUM SPEED/NEVER SLEEPS
#NoTrayIcon ; DISABLES THE SHOWING OF A TRAY ICON
GuiW := 700 ; GUI WIDTH
GuiH := 400 ; GUI HEIGHT
; SCRIPT =================================================================================
Gui, -Caption -Border +Resize +LastFound +hwndhMainWindow ; GUI OPTIONS
Gui, Margin, 0, 0
Gui, Color, FFFFFF ; GUI COLOR
Gui, Add, Text, % " x" 1 " y" 1 " w" 37 " h" 28 " +BackgroundTrans gGuiIcon" ; GUI ICON TRIGGER
Gui, Add, Text, % " x" GuiW-89 " y" 4 " w" 29 " h" 22 " +BackgroundTrans gGuiMinimize hwndhMinTrig" ; GUI MINIMIZE TRIGGER
Gui, Add, Text, % " x" GuiW-59 " y" 4 " w" 30 " h" 22 " +BackgroundTrans gGuiMaximize hwndhMaxTrig" ; GUI MINIMIZE TRIGGER
Gui, Add, Text, % " x" GuiW-30 " y" 4 " w" 29 " h" 22 " +BackgroundTrans gGuiClose hwndhXTrig" ; GUI CLOSE TRIGGER
Gui, Add, Text, % " x" 1 " y" 1 " w" GuiW-2 " h" 28 " +BackgroundTrans gGuiMove hwndhMoveTrig" ; GUI MOVE TRIGGER
Gui, Add, Progress, % " x" 11 " y" 4 " w" 16 " h" 16 " Background0072C6", 0 ; GUI ICON
Gui, Add, Progress, % " x" GuiW-80 " y" 10 " w" 9 " h" 2 " Background777777 hwndhMin", 0 ; GUI MINIMIZE
Gui, Add, Progress, % " x" GuiW-50 " y" 3 " w" 11 " h" 2 " Background777777 hwndhMaxT", 0 ; GUI MAXIMIZE TOP
Gui, Add, Progress, % " x" GuiW-50 " y" 11 " w" 11 " h" 2 " Background777777 hwndhMaxB", 0 ; GUI MAXIMIZE BOTTOM
Gui, Add, Progress, % " x" GuiW-41 " y" 3 " w" 2 " h" 10 " Background777777 hwndhMaxR", 0 ; GUI MAXIMIZE RIGHT
Gui, Add, Progress, % " x" GuiW-50 " y" 3 " w" 2 " h" 10 " Background777777 hwndhMaxL", 0 ; GUI MAXIMIZE LEFT
Gui, Add, Progress, % " x" GuiW-20 " y" 4 " w" 1 " h" 1 " Background777777 hwndhXTL1", 0 ; GUI CLOSE TOP-LEFT 01
Gui, Add, Progress, % " x" GuiW-21 " y" 5 " w" 3 " h" 1 " Background777777 hwndhXTL2", 0 ; GUI CLOSE TOP-LEFT 02
Gui, Add, Progress, % " x" GuiW-20 " y" 6 " w" 3 " h" 1 " Background777777 hwndhXTL3", 0 ; GUI CLOSE TOP-LEFT 03
Gui, Add, Progress, % " x" GuiW-13 " y" 4 " w" 1 " h" 1 " Background777777 hwndhXTR1", 0 ; GUI CLOSE TOP-RIGHT 01
Gui, Add, Progress, % " x" GuiW-14 " y" 5 " w" 3 " h" 1 " Background777777 hwndhXTR2", 0 ; GUI CLOSE TOP-RIGHT 02
Gui, Add, Progress, % " x" GuiW-15 " y" 6 " w" 3 " h" 1 " Background777777 hwndhXTR3", 0 ; GUI CLOSE TOP-RIGHT 03
Gui, Add, Progress, % " x" GuiW-19 " y" 7 " w" 6 " h" 1 " Background777777 hwndhXC1", 0 ; GUI CLOSE CENTER 01
Gui, Add, Progress, % " x" GuiW-18 " y" 8 " w" 4 " h" 1 " Background777777 hwndhXC2", 0 ; GUI CLOSE CENTER 02
Gui, Add, Progress, % " x" GuiW-18 " y" 9 " w" 4 " h" 1 " Background777777 hwndhXC3", 0 ; GUI CLOSE CENTER 03
Gui, Add, Progress, % " x" GuiW-19 " y" 10 " w" 6 " h" 1 " Background777777 hwndhXC4", 0 ; GUI CLOSE CENTER 04
Gui, Add, Progress, % " x" GuiW-20 " y" 11 " w" 3 " h" 1 " Background777777 hwndhCBL1", 0 ; GUI CLOSE BOTTOM-LEFT 01
Gui, Add, Progress, % " x" GuiW-21 " y" 12 " w" 3 " h" 1 " Background777777 hwndhCBL2", 0 ; GUI CLOSE BOTTOM-LEFT 02
Gui, Add, Progress, % " x" GuiW-20 " y" 13 " w" 1 " h" 1 " Background777777 hwndhCBL3", 0 ; GUI CLOSE BOTTOM-LEFT 03
Gui, Add, Progress, % " x" GuiW-15 " y" 11 " w" 3 " h" 1 " Background777777 hwndhCBR1", 0 ; GUI CLOSE BOTTOM-RIGHT 01
Gui, Add, Progress, % " x" GuiW-14 " y" 12 " w" 3 " h" 1 " Background777777 hwndhCBR2", 0 ; GUI CLOSE BOTTOM-RIGHT 02
Gui, Add, Progress, % " x" GuiW-13 " y" 13 " w" 1 " h" 1 " Background777777 hwndhCBR3", 0 ; GUI CLOSE BOTTOM-RIGHT 03
Gui, Add, Progress, % " x" 1 " y" GuiH-23 " w" GuiW-2 " h" 22 " Background0072C6 hwndhBar", 0 ; GUI STATUSBAR
Gui, Font, s9 c444444, Segoe UI ; SET FONT OPTIONS
Gui, Add, Text, % " x" 37 " y" 2 " w" GuiW-96 " +Center +BackgroundTrans hwndhTitletext", Window Title ; GUI TITLE TEXT
Gui, Font ; RESET FONT OPTIONS
Gui, Font, s8 cFFFFFF, Segoe UI ; SET FONT OPTIONS
Gui, Add, Text, % " x" 8 " y" GuiH-19 " w" GuiW-16 " +BackgroundTrans hwndhBarText", STATUSBAR TEXT ; GUI STATUSBAR TEXT
Gui, Font ; RESET FONT OPTIONS
Gui, Show, % " w" GuiW " h" GuiH, Office Style ; SHOW MAIN GUI
Return ; END AUTOMATIC EXECUTION
; LABELS =================================================================================
GuiIcon:
Send, !{Space}
Return
GuiMinimize:
WinMinimize
Return
GuiMaximize:
VarSetCapacity(rect, 16, 0)
DllCall("GetClientRect", uint, hMainWindow, uint, &rect )
if NumGet( rect, 8, "int" ) >= A_ScreenWidth - 50
WinRestore
else
WinMaximize
return
GuiClose:
GuiEscape:
ExitApp
Return
GuiMove:
PostMessage, 0xA1, 2,,, A
return
MenuHandler:
MsgBox, 48, MenuHandler, Success!
Return
GuiSize:
GuiControl, Move, % hMinTrig, % "x" A_GuiWidth - 89 " y" 4 " w" 29 " h" 22
;Gui, Add, Text, % " x" GuiW-59 " y" 4 " w" 29 " h" 22 " +BackgroundTrans gGuiMinimize hwndhMinTrig" ; GUI MINIMIZE TRIGGER
GuiControl, Move, % hMaxTrig, % "x" A_GuiWidth - 59 " y" 4 " w" 29 " h" 22
GuiControl, Move, % hXTrig, % "x" A_GuiWidth - 30 " y" 4 " w" 29 " h" 22
;Gui, Add, Text, % " x" GuiW-30 " y" 4 " w" 29 " h" 22 " +BackgroundTrans gGuiClose hwndhXTrig" ; GUI CLOSE TRIGGER
GuiControl, Move, % hMoveTrig, % "x" 1 " y" 1 " w" A_GuiWidth - 2 " h" 28
;Gui, Add, Text, % " x" 1 " y" 1 " w" GuiW-2 " h" 28 " +BackgroundTrans gGuiMove hwndhMoveTrig" ; GUI MOVE TRIGGER
/*
GuiControl, Move, % hBT, % "x" 0 " y" 0 " w" A_GuiWidth " h" 1
;Gui, Add, Progress, % " x" 0 " y" 0 " w" GuiW " h" 1 " Background0072C6 hwndhBT", 0 ; GUI BORDER-TOP
GuiControl, Move, % hBB, % "x" 0 " y" A_GuiHeight - 1 " w" A_GuiWidth " h" 1
;Gui, Add, Progress, % " x" 0 " y" GuiH-1 " w" GuiW " h" 1 " Background0072C6 hwndhBB", 0 ; GUI BORDER-BOTTOM
GuiControl, Move, % hBL, % "x" 0 " y" 1 " w" 1 " h" A_GuiHeight - 2
;WinMove, % "ahk_id " hBL,, 0, 1, 1, % A_GuiHeight -2
;Gui, Add, Progress, % " x" 0 " y" 1 " w" 1 " h" GuiH-2 " Background0072C6 hwndhBL", 0 ; GUI BORDER-LEFT
GuiControl, Move, % hBR, % "x" A_GuiWidth - 1 " y" 1 " w" 1 " h" A_GuiHeight - 2
;Gui, Add, Progress, % " x" GuiW-1 " y" 1 " w" 1 " h" GuiH-2 " Background0072C6 hwndhBR", 0 ; GUI BORDER-RIGHT
*/
GuiControl, Move, % hMin, % "x" A_GuiWidth - 80 " y" 10 " w" 9 " h" 2
;Gui, Add, Progress, % " x" GuiW-50 " y" 16 " w" 9 " h" 2 " Background777777 hwndhMin", 0 ; GUI MINIMIZE
GuiControl, Move, % hMaxT, % "x" A_GuiWidth - 50 "y" 3 "w" 11 "h" 2
;Gui, Add, Progress, % " x" GuiW-50 " y" 3 " w" 11 " h" 2 " Background777777 hwndhMaxT", 0 ; GUI MAXIMIZE TOP
GuiControl, Move, % hMaxB, % "x" A_GuiWidth - 50 "y" 11 "w" 11 "h" 2
;Gui, Add, Progress, % " x" GuiW-50 " y" 11 " w" 11 " h" 2 " Background777777 hwndhMaxB", 0 ; GUI MAXIMIZE BOTTOM
GuiControl, Move, % hMaxR, % "x" A_GuiWidth - 41 "y" 3 "w" 2 "h" 10
;Gui, Add, Progress, % " x" GuiW-41 " y" 3 " w" 2 " h" 10 " Background777777 hwndhMaxR", 0 ; GUI MAXIMIZE RIGHT
GuiControl, Move, % hMaxL, % "x" A_GuiWidth - 50 "y" 3 "w" 2 "h" 10
;Gui, Add, Progress, % " x" GuiW-50 " y" 3 " w" 2 " h" 10 " Background777777 hwndhMaxL", 0 ; GUI MAXIMIZE LEFT
GuiControl, Move, % hXTL1, % "x" A_GuiWidth - 20 " y" 4 " w" 1 " h" 1
;Gui, Add, Progress, % " x" GuiW-20 " y" 10 " w" 1 " h" 1 " Background777777 hwndhXTL1", 0 ; GUI CLOSE TOP-LEFT 01
GuiControl, Move, % hXTL2, % "x" A_GuiWidth - 21 " y" 5 " w" 3 " h" 1
;Gui, Add, Progress, % " x" GuiW-21 " y" 11 " w" 3 " h" 1 " Background777777 hwndhXTL2", 0 ; GUI CLOSE TOP-LEFT 02
GuiControl, Move, % hXTL3, % "x" A_GuiWidth - 20 " y" 6 " w" 3 " h" 1
;Gui, Add, Progress, % " x" GuiW-20 " y" 12 " w" 3 " h" 1 " Background777777 hwndhXTL3", 0 ; GUI CLOSE TOP-LEFT 03
GuiControl, Move, % hXTR1, % "x" A_GuiWidth - 13 " y" 4 " w" 1 " h" 1
;Gui, Add, Progress, % " x" GuiW-13 " y" 10 " w" 1 " h" 1 " Background777777 hwndhXTR1", 0 ; GUI CLOSE TOP-RIGHT 01
GuiControl, Move, % hXTR2, % "x" A_GuiWidth - 14 " y" 5 " w" 3 " h" 1
;Gui, Add, Progress, % " x" GuiW-14 " y" 11 " w" 3 " h" 1 " Background777777 hwndhXTR2", 0 ; GUI CLOSE TOP-RIGHT 02
GuiControl, Move, % hXTR3, % "x" A_GuiWidth - 15 "y" 6 "w" 3 "h" 1
;Gui, Add, Progress, % " x" GuiW-15 " y" 12 " w" 3 " h" 1 " Background777777 hwndhXTR3", 0 ; GUI CLOSE TOP-RIGHT 03
GuiControl, Move, % hXC1, % "x" A_GuiWidth - 19 " y" 7 " w" 6 " h" 1
;Gui, Add, Progress, % " x" GuiW-19 " y" 13 " w" 6 " h" 1 " Background777777 hwndhXC1", 0 ; GUI CLOSE CENTER 01
GuiControl, Move, % hXC2, % "x" A_GuiWidth - 18 " y" 8 " w" 4 " h" 1
;Gui, Add, Progress, % " x" GuiW-18 " y" 14 " w" 4 " h" 1 " Background777777 hwndhXC2", 0 ; GUI CLOSE CENTER 02
GuiControl, Move, % hXC3, % "x" A_GuiWidth - 18 " y" 9 " w" 4 " h" 1
;Gui, Add, Progress, % " x" GuiW-18 " y" 15 " w" 4 " h" 1 " Background777777 hwndhXC3", 0 ; GUI CLOSE CENTER 03
GuiControl, Move, % hXC4, % "x" A_GuiWidth - 19 " y" 10 " w" 6 " h" 1
;Gui, Add, Progress, % " x" GuiW-19 " y" 16 " w" 6 " h" 1 " Background777777 hwndhXC4", 0 ; GUI CLOSE CENTER 04
GuiControl, Move, % hCBL1, % "x" A_GuiWidth - 20 " y" 11 " w" 3 " h" 1
;Gui, Add, Progress, % " x" GuiW-20 " y" 17 " w" 3 " h" 1 " Background777777 hwndhCBL1", 0 ; GUI CLOSE BOTTOM-LEFT 01
GuiControl, Move, % hCBL2, % "x" A_GuiWidth - 21 " y" 12 " w" 3 " h" 1
;Gui, Add, Progress, % " x" GuiW-21 " y" 18 " w" 3 " h" 1 " Background777777 hwndhCBL2", 0 ; GUI CLOSE BOTTOM-LEFT 02
GuiControl, Move, % hCBL3, % "x" A_GuiWidth - 20 " y" 13 " w" 1 " h" 1
;Gui, Add, Progress, % " x" GuiW-20 " y" 19 " w" 1 " h" 1 " Background777777 hwndhCBL3", 0 ; GUI CLOSE BOTTOM-LEFT 03
GuiControl, Move, % hCBR1, % "x" A_GuiWidth - 15 " y" 11 " w" 3 " h" 1
;Gui, Add, Progress, % " x" GuiW-15 " y" 17 " w" 3 " h" 1 " Background777777 hwndhCBR1", 0 ; GUI CLOSE BOTTOM-RIGHT 01
GuiControl, Move, % hCBR2, % "x" A_GuiWidth - 14 " y" 12 " w" 3 " h" 1
;Gui, Add, Progress, % " x" GuiW-14 " y" 18 " w" 3 " h" 1 " Background777777 hwndhCBR2", 0 ; GUI CLOSE BOTTOM-RIGHT 02
GuiControl, Move, % hCBR3, % "x" A_GuiWidth - 13 " y" 13 " w" 1 " h" 1
;Gui, Add, Progress, % " x" GuiW-13 " y" 19 " w" 1 " h" 1 " Background777777 hwndhCBR3", 0 ; GUI CLOSE BOTTOM-RIGHT 03
GuiControl, Move, % hBar, % "x" 1 " y" A_GuiHeight - 23 " w" A_GuiWidth - 2 " h" 22
;Gui, Add, Progress, % " x" 1 " y" GuiH-23 " w" GuiW-2 " h" 22 " Background0072C6 hwndhBar", 0 ; GUI STATUSBAR
GuiControl, Move, % hTitletext, % "x" 37 " y" 2 " w" A_GuiWidth - 96
;Gui, Add, Text, % " x" 37 " y" 8 " w" GuiW-96 " +Center +BackgroundTrans hwndhTitletext", Window Title ; GUI TITLE TEXT
GuiControl, Move, % hBarText, % "x" 8 " y" A_GuiHeight - 19 " w" A_GuiWidth - 16
;Gui, Add, Text, % " x" 8 " y" GuiH-19 " w" GuiW-16 " +BackgroundTrans hwndhBarText", STATUSBAR TEXT ; GUI STATUSBAR TEXT
WinSet, Redraw
return