I have made all of the Gui events, into functions.
I was inspired to make this because of Tic's Gdip original library.
It's so simplistic to use.
This however just looks like a bunch of mumbo jumbo with tons of useless things.
I'll say one thing. To make multiple Gui windows, you have to do GuiNew() everytime
Code: Select all
/*
# =====================================================
# Gui Functions
# =====================================================
*/
GuiDestroy() {
Gui, Destroy
Return
}
GuiNew(Options := "", Title := "") {
Global
Gui, New, % Options, % Title
Return
}
GuiShow(Options := "", Title := "") {
Global
Gui, Show, % Options, % Title
Return
}
GuiColor(Options := "White") {
Global
Gui, Color, % Options
Return
}
GuiMargin(w := 10, h := 10) {
Global
Gui, Margin, %w%, %h%
Return
}
GuiHide() {
Gui, Hide
Return
}
GuiFont(Options := "", Font := "Verdana") {
Gui, Font, % Options, % Font
Return
}
GuiMenu(MenuHandle := "") {
Gui, Menu
Return
}
GuiMini() {
Gui, Minimize
Return
}
GuiMax() {
Gui, Maximize
Return
}
GuiRes() {
Gui, Restore
Return
}
GuiFlash(Var := 1) {
If (Var = 1) {
OnOff := ""
} Else {
OnOff := "Off"
}
Gui, Flash, %OnOff%
Return
}
GuiSubmit(HideGui := 0) {
Global
If (HideGui = 1) {
Hide := "NoHide"
} Else If (HideGui = 0) {
Hide := "NA"
} Else {
Hide := ""
}
Gui, Submit, %Hide%
Return
}
/*
# =====================================================
# Gui Types
# =====================================================
*/
GuiButton(Options := "", Text := "Ok") {
Global
Gui, Add, Button, % Options, % Text
Return
}
GuiCheckBox(Options := "", Text := "") {
Global
Gui, Add, CheckBox, % Options, % Text
Return
}
GuiCombobox(Options := "", Text := "One|Two|Three") {
Global
Gui, Add, ComboBox, % Options, % Text
Return
}
GuiDateTime(Options := "", Text := "") {
Global
Gui, Add, DateTime, % Options, % Text
Return
}
GuiDropdownList(Options := "", Text := "One|Two|Three") {
Global
Gui, Add, DropDownList, % Options, % Text
Return
}
GuiEdit(Options := "", Text := "") {
Global
Gui, Add, Edit, % Options, % Text
Return
}
GuiGroupBox(Options := "", Text := "Options") {
Global
Gui, Add, GroupBox, % Options, % Text
Return
}
GuiHotkey(Options := "", Text := "") {
Global
Gui, Add, Hotkey, % Options, % Text
Return
}
GuiListBox(Options := "", Text := "") {
Global
Gui, Add, ListBox, % Options, % Text
Return
}
GuiListView(Options := "", Text := "") {
Global
Gui, Add, ListView, % Options, % Text
Return
}
GuiMonthCal(Options := "", Text := "") {
Global
Gui, Add, MonthCal, % Options, % Text
Return
}
GuiPicture(Options := "", Text := "NotePad.exe") {
Global
Gui, Add, Picture, % Options, % Text
Return
}
GuiProgress(Options := "", Text := 0) {
Global
Gui, Add, Progress, % Options, % Text
Return
}
GuiRadio(Options := "", Text := "") {
Global
Gui, Add, Radio, % Options, % Text
Return
}
GuiSlider(Options := "", Text := 0) {
Global
Gui, Add, Slider, % Options, % Text
Return
}
GuiTab1(Options := "", Text := "One|Two|Three") {
Global
Gui, Add, Tab, % Options, % Text
Return
}
GuiTab2(Options := "", Text := "One|Two|Three") {
Global
Gui, Add, Tab2, % Options, % Text
Return
}
GuiTab3(Options := "", Text := "One|Two|Three") {
Global
Gui, Add, Tab3, % Options, % Text
Return
}
GuiText(Options := "", Text := "Just Some Text.") {
Global
Gui, Add, Text, % Options, % Text
Return
}
GuiTreeView(Options := "") {
Global
Gui, Add, TreeView, % Options
Return
}
GuiUpDown(Options := "", Text := 0) {
Global
Gui, Add, UpDown, % Options, % Text
Return
}
GuiCustom(Options := "", Text := "") {
Global
Gui, Add, Custom, % Options, % Text
Return
}
GuiActiveX(Options := "", Text := "") {
Global
Gui, Add, ActiveX, % Options, % Text
Return
}
/*
# =====================================================
# Misc Functions I made for automation. :P
# =====================================================
*/
MB(Message := "Press Ok to Continue.", Title := "", Type := 0, Time := "") {
MsgBox, % Type, % Title, % Message, % Time
Return
}
ToolTip(Message, Time := 3000) {
ToolTip %Message%
SetTimer, RemToolTip, %Time%
Return
RemToolTip:
SetTimer, RemToolTip, Off
ToolTip
Return
}
TransparentWin(Amount := 255) {
WinGetTitle, Window
WinSet, Transparent, %Amount%, %Window%
Return
}
/*
Library concluded
*/
Code: Select all
#NoEnv
#Warn
#SingleInstance Force
SendMode Input
SetWorkingDir %A_ScriptDir%
#Include %A_ScriptDir%\Func Lib.ahk
GuiNew("+ToolWindow +Caption")
GuiEdit("w75 h25 vEdit -WantReturn")
GuiButton("w75 h25 gSend vSend", "Send")
GuiButton("w75 h25 gClose", "Close")
GuiShow("", "New")
Return
Esc::
GuiClose:
GuiEscape:
Close:
ExitApp
Return
Send:
GuiSubmit(1)
MB(Edit)
Return
If you have any questions, suggestions, or comments, please feel free to speak up!
Enjoy your summer everyone!
Edit: Fixed the Gui Destroy giving an error.