Code: Select all
; ===============================================================================================================================
IBStyles := Map()
IBStyles["info"] := [[0x80C6E9F4,,, 0, 0x8046B8DA, 1], [0x8086D0E7,,, 0, 0x8046B8DA, 1], [0x8046B8DA,,, 0, 0x8046B8DA, 1], [0xFFF0F0F0,,, 0, 0x8046B8DA, 1]]
IBStyles["success"] := [[0x80C6E6C6,,, 0, 0x805CB85C, 1], [0x8091CF91,,, 0, 0x805CB85C, 1], [0x805CB85C,,, 0, 0x805CB85C, 1], [0xFFF0F0F0,,, 0, 0x805CB85C, 1]]
IBStyles["warning"] := [[0x80FCEFDC,,, 0, 0x80F0AD4E, 1], [0x80F6CE95,,, 0, 0x80F0AD4E, 1], [0x80F0AD4E,,, 0, 0x80F0AD4E, 1], [0xFFF0F0F0,,, 0, 0x80F0AD4E, 1]]
IBStyles["critical"] := [[0x80F0B9B8,,, 0, 0x80D43F3A, 1], [0x80E27C79,,, 0, 0x80D43F3A, 1], [0x80D43F3A,,, 0, 0x80D43F3A, 1], [0xFFF0F0F0,,, 0, 0x80D43F3A, 1]]
IBStyles["info-outline"] := [[0xFFF0F0F0,,, 0, 0x8046B8DA, 1], [0x80C6E9F4,,, 0, 0x8046B8DA, 1], [0x8086D0E7,,, 0, 0x8046B8DA, 1], [0xFFF0F0F0,,, 0, 0x8046B8DA, 1]]
IBStyles["success-outline"] := [[0xFFF0F0F0,,, 0, 0x805CB85C, 1], [0x80C6E6C6,,, 0, 0x805CB85C, 1], [0x8091CF91,,, 0, 0x805CB85C, 1], [0xFFF0F0F0,,, 0, 0x805CB85C, 1]]
IBStyles["warning-outline"] := [[0xFFF0F0F0,,, 0, 0x80F0AD4E, 1], [0x80FCEFDC,,, 0, 0x80F0AD4E, 1], [0x80F6CE95,,, 0, 0x80F0AD4E, 1], [0xFFF0F0F0,,, 0, 0x80F0AD4E, 1]]
IBStyles["critical-outline"] := [[0xFFF0F0F0,,, 0, 0x80D43F3A, 1], [0x80F0B9B8,,, 0, 0x80D43F3A, 1], [0x80E27C79,,, 0, 0x80D43F3A, 1], [0xFFF0F0F0,,, 0, 0x80D43F3A, 1]]
IBStyles["info-round"] := [[0x80C6E9F4,,, 8, 0x8046B8DA, 1], [0x8086D0E7,,, 8, 0x8046B8DA, 1], [0x8046B8DA,,, 8, 0x8046B8DA, 1], [0xFFF0F0F0,,, 8, 0x8046B8DA, 1]]
IBStyles["success-round"] := [[0x80C6E6C6,,, 8, 0x805CB85C, 1], [0x8091CF91,,, 8, 0x805CB85C, 1], [0x805CB85C,,, 8, 0x805CB85C, 1], [0xFFF0F0F0,,, 8, 0x805CB85C, 1]]
IBStyles["warning-round"] := [[0x80FCEFDC,,, 8, 0x80F0AD4E, 1], [0x80F6CE95,,, 8, 0x80F0AD4E, 1], [0x80F0AD4E,,, 8, 0x80F0AD4E, 1], [0xFFF0F0F0,,, 8, 0x80F0AD4E, 1]]
IBStyles["critical-round"] := [[0x80F0B9B8,,, 8, 0x80D43F3A, 1], [0x80E27C79,,, 8, 0x80D43F3A, 1], [0x80D43F3A,,, 8, 0x80D43F3A, 1], [0xFFF0F0F0,,, 8, 0x80D43F3A, 1]]
IBStyles["info-outline-round"] := [[0xFFF0F0F0,,, 8, 0x8046B8DA, 1], [0x80C6E9F4,,, 8, 0x8046B8DA, 1], [0x8086D0E7,,, 8, 0x8046B8DA, 1], [0xFFF0F0F0,,, 8, 0x8046B8DA, 1]]
IBStyles["success-outline-round"] := [[0xFFF0F0F0,,, 8, 0x805CB85C, 1], [0x80C6E6C6,,, 8, 0x805CB85C, 1], [0x8091CF91,,, 8, 0x805CB85C, 1], [0xFFF0F0F0,,, 8, 0x805CB85C, 1]]
IBStyles["warning-outline-round"] := [[0xFFF0F0F0,,, 8, 0x80F0AD4E, 1], [0x80FCEFDC,,, 8, 0x80F0AD4E, 1], [0x80F6CE95,,, 8, 0x80F0AD4E, 1], [0xFFF0F0F0,,, 8, 0x80F0AD4E, 1]]
IBStyles["critical-outline-round"] := [[0xFFF0F0F0,,, 8, 0x80D43F3A, 1], [0x80F0B9B8,,, 8, 0x80D43F3A, 1], [0x80E27C79,,, 8, 0x80D43F3A, 1], [0xFFF0F0F0,,, 8, 0x80D43F3A, 1]]
; ===============================================================================================================================
UseGDIP()
MyGui := Gui(, "Bootstrap Buttons")
MyGui.MarginX := 20
MyGui.MarginY := 20
MyGui.SetFont("s11", "Segoe UI")
CreateImageButton("SetDefGuiColor", 0xFFF0F0F0)
; -----------------------------------------------------------------------------
Btn11 := MyGui.AddButton("xm ym w80 h24", "Info")
CreateImageButton(Btn11.Hwnd, 0, IBStyles["info"]*)
Btn12 := MyGui.AddButton("x+20 yp w80 h24", "Success")
CreateImageButton(Btn12.Hwnd, 0, IBStyles["success"]*)
Btn13 := MyGui.AddButton("x+20 yp w80 h24", "Warning")
CreateImageButton(Btn13.Hwnd, 0, IBStyles["warning"]*)
Btn14 := MyGui.AddButton("x+20 yp w80 h24", "Critical")
CreateImageButton(Btn14.Hwnd, 0, IBStyles["critical"]*)
; -----------------------------------------------------------------------------
Btn21 := MyGui.AddButton("x+20 yp w80 h24", "Info")
CreateImageButton(Btn21.Hwnd, 0, IBStyles["info-outline"]*)
Btn22 := MyGui.AddButton("x+20 yp w80 h24", "Success")
CreateImageButton(Btn22.Hwnd, 0, IBStyles["success-outline"]*)
Btn23 := MyGui.AddButton("x+20 yp w80 h24", "Warning")
CreateImageButton(Btn23.Hwnd, 0, IBStyles["warning-outline"]*)
Btn24 := MyGui.AddButton("x+20 yp w80 h24", "Critical")
CreateImageButton(Btn24.Hwnd, 0, IBStyles["critical-outline"]*)
; -----------------------------------------------------------------------------
Btn31 := MyGui.AddButton("xm y+20 w80 h24", "Info")
CreateImageButton(Btn31.Hwnd, 0, IBStyles["info-round"]*)
Btn32 := MyGui.AddButton("x+20 yp w80 h24", "Success")
CreateImageButton(Btn32.Hwnd, 0, IBStyles["success-round"]*)
Btn33 := MyGui.AddButton("x+20 yp w80 h24", "Warning")
CreateImageButton(Btn33.Hwnd, 0, IBStyles["warning-round"]*)
Btn34 := MyGui.AddButton("x+20 yp w80 h24", "Critical")
CreateImageButton(Btn34.Hwnd, 0, IBStyles["critical-round"]*)
; -----------------------------------------------------------------------------
Btn41 := MyGui.AddButton("x+20 yp w80 h24", "Info")
CreateImageButton(Btn41.Hwnd, 0, IBStyles["info-outline-round"]*)
Btn42 := MyGui.AddButton("x+20 yp w80 h24", "Success")
CreateImageButton(Btn42.Hwnd, 0, IBStyles["success-outline-round"]*)
Btn43 := MyGui.AddButton("x+20 yp w80 h24", "Warning")
CreateImageButton(Btn43.Hwnd, 0, IBStyles["warning-outline-round"]*)
Btn44 := MyGui.AddButton("x+20 yp w80 h24", "Critical")
CreateImageButton(Btn44.Hwnd, 0, IBStyles["critical-outline-round"]*)
; -----------------------------------------------------------------------------
Btn51 := MyGui.AddButton("xm y+20 w200 h40", "Info")
CreateImageButton(Btn51.Hwnd, 0, IBStyles["info"]*)
Btn52 := MyGui.AddButton("x+20 yp w200 h40", "Success")
CreateImageButton(Btn52.Hwnd, 0, IBStyles["success"]*)
Btn53 := MyGui.AddButton("x+20 yp w200 h40", "Warning")
CreateImageButton(Btn53.Hwnd, 0, IBStyles["warning"]*)
Btn54 := MyGui.AddButton("x+20 yp w200 h40", "Critical")
CreateImageButton(Btn54.Hwnd, 0, IBStyles["critical"]*)
; -----------------------------------------------------------------------------
Btn61 := MyGui.AddButton("xm y+20 w200 h40", "Info")
CreateImageButton(Btn61.Hwnd, 0, IBStyles["info-outline"]*)
Btn62 := MyGui.AddButton("x+20 yp w200 h40", "Success")
CreateImageButton(Btn62.Hwnd, 0, IBStyles["success-outline"]*)
Btn63 := MyGui.AddButton("x+20 yp w200 h40", "Warning")
CreateImageButton(Btn63.Hwnd, 0, IBStyles["warning-outline"]*)
Btn64 := MyGui.AddButton("x+20 yp w200 h40", "Critical")
CreateImageButton(Btn64.Hwnd, 0, IBStyles["critical-outline"]*)
; -----------------------------------------------------------------------------
Btn71 := MyGui.AddButton("xm y+20 w200 h40", "Info")
CreateImageButton(Btn71.Hwnd, 0, IBStyles["info-round"]*)
Btn72 := MyGui.AddButton("x+20 yp w200 h40", "Success")
CreateImageButton(Btn72.Hwnd, 0, IBStyles["success-round"]*)
Btn73 := MyGui.AddButton("x+20 yp w200 h40", "Warning")
CreateImageButton(Btn73.Hwnd, 0, IBStyles["warning-round"]*)
Btn74 := MyGui.AddButton("x+20 yp w200 h40", "Critical")
CreateImageButton(Btn74.Hwnd, 0, IBStyles["critical-round"]*)
; -----------------------------------------------------------------------------
Btn81 := MyGui.AddButton("xm y+20 w200 h40", "Info")
CreateImageButton(Btn81.Hwnd, 0, IBStyles["info-outline-round"]*)
Btn82 := MyGui.AddButton("x+20 yp w200 h40", "Success")
CreateImageButton(Btn82.Hwnd, 0, IBStyles["success-outline-round"]*)
Btn83 := MyGui.AddButton("x+20 yp w200 h40", "Warning")
CreateImageButton(Btn83.Hwnd, 0, IBStyles["warning-outline-round"]*)
Btn84 := MyGui.AddButton("x+20 yp w200 h40", "Critical")
CreateImageButton(Btn84.Hwnd, 0, IBStyles["critical-outline-round"]*)
; -----------------------------------------------------------------------------
MyGui.Show()
; ===============================================================================================================================
#Include CreateImageButton.ahk
#Include UseGDIP.ahk