Conceited MsgBox

[burque505]

You would need the "Symbola" font to run this. You can get it here.
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
}

glaringMsgBox.gif (29.27 KiB) Viewed 839 times