No graphics here, just fonts.
Code: Select all
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn ; Enable 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.
SetTitleMatchMode, 2
Gui, New
Gui,Color, EEAA99
Gui, +LastFound -Caption +AlwaysOnTop +ToolWindow +hwndThisHwnd
WinSet, TransColor, EEAA99
;ShadowText()
ShadowText("24","5","Impact","Black", "Red", 10, 10, -3, -3, "Click1", "I am a conceited MsgBox.")
Gui, Add, Text
ShadowText("36","5","Symbola","Black", "Aqua", 10, 50, -3, -3, "Click2", "▣") ;✗
Gui, Add, Text
ShadowText("36","5","Symbola","Black", "Red", 250, 50, -3, -3, "Click3", "✗")
Gui, Show, x800 y300, Shadow
Escape::
GuiClose:
ExitApp
ShadowText(Size := 40
, qual := 5
, myFont := "Impact"
, bgColor := "Black"
, fgColor := "Red"
, startX := 10
, startY := 10
, shadowX := 3
, shadowY := 3
, gLabel := "ClickMe"
, shText := "Hello, World!!!") {
dropX := startX - shadowX
dropY := startY - shadowY
Gui, Font, s%Size% q%qual% c%bgColor%, %myFont%
Gui, Add, Text, x%startX% y%StartY% g%gLabel%, %shText%
Gui, Font, q%qual% c%fgColor%
Gui, Add, Text, x%dropX% y%dropY% BackGroundTrans, %shText%
return
}
Click1:
If (A_GuiEvent) {
; add your own event here
return
}
ClickMe:
return
Click2:
If (A_GuiEvent) {
msgbox I am a plain msgbox that never gets asked to dance.
;~ ControlGetText, text2, Static5
;~ text = "%text2%"
;~ RunIt(text)
return
}
Click3:
If (A_GuiEvent) {
msgbox, , ,Exiting..., 1
ExitApp
}