Skip to content

Commit

Permalink
Update v 1.3
Browse files Browse the repository at this point in the history 
Added support for ARGB colors
  • Loading branch information
@AHK-just-me
AHK-just-me committed Feb 28, 2014
1 parent ec9b77c commit b638d62
Show file tree
Hide file tree
Showing 3 changed files with 38 additions and 19 deletions.
9 changes: 5 additions & 4 deletions README.md
View file
Original file line number Diff line number Diff line change
Expand Up @@ -43,17 +43,18 @@ The class creates an image list and assigns it to the pushbutton control. Button
7 - 'raised' style (just try out!)
2 StartColor mandatory for Option[1], higher indices will inherit the value of
Option[1], if omitted:
- RGB integer value (0xRRGGBB) or HTML color name ("Red").
- ARGB integer value (0xAARRGGBB) or HTML color name ("Red").
- Path of an image file or HBITMAP handle for Mode 0
3 TargetColor mandatory for Option[1] if Mode > 0, ignored if Mode = 0. Higher
indcices will inherit the color of Option[1], if omitted:
- RGB integer value (0xRRGGBB) or HTML color name ("Red").
- ARGB integer value (0xAARRGGBB) or HTML color name ("Red").
4 TextColor optional, if omitted, the default text color will be used for Option[1],
higher indices will inherit the color of Option[1]:
- RGB integer value (0xRRGGBB) or HTML color name ("Red").
- ARGB integer value (0xAARRGGBB) or HTML color name ("Red").
Default: 0x000000 (black)
5 Rounded optional:
- Radius of the rounded corners in pixel
- Radius of the rounded corners in pixel; the letters 'H' and 'W' may be
specified also to use the half of the button's height or width respectively.
Default: 0 - not rounded
6 GuiColor optional, needed for rounded buttons if you've changed the GUI background color:
- RGB integer value (0xRRGGBB) or HTML color name ("Red").
Expand Down
34 changes: 26 additions & 8 deletions Sources/Class_ImageButton.ahk
View file
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,8 @@
; Function: Create images and assign them to pushbuttons.
; Tested with: AHK 1.1.14.03 (A32/U32/U64)
; Tested on: Win 7 (x64)
; Change log: 1.2.00.00/2014-02-23/just me - added borders
; Change history: 1.3.00.00/2014-02-28/just me - added support for ARGB colors
; 1.2.00.00/2014-02-23/just me - added borders
; 1.1.00.00/2013-12-26/just me - added rounded and bicolored buttons
; 1.0.00.00/2013-12-21/just me - initial release
; How to use:
Expand Down Expand Up @@ -35,17 +36,18 @@
; 6 - horizontal gradient using StartColor at both borders and TargetColor at the center
; 7 - 'raised' style
; 2 StartColor mandatory for Option[1], higher indices will inherit the value of Option[1], if omitted:
; - RGB integer value (0xRRGGBB) or HTML color name ("Red").
; - ARGB integer value (0xAARRGGBB) or HTML color name ("Red").
; - Path of an image file or HBITMAP handle for mode 0.
; 3 TargetColor mandatory for Option[1] if Mode > 0, ignored if Mode = 0. Higher indcices will inherit
; the color of Option[1], if omitted:
; - RGB integer value (0xRRGGBB) or HTML color name ("Red").
; - ARGB integer value (0xAARRGGBB) or HTML color name ("Red").
; 4 TextColor optional, if omitted, the default text color will be used for Option[1], higher indices
; will inherit the color of Option[1]:
; - RGB integer value (0xRRGGBB) or HTML color name ("Red").
; Default: 0x000000 (black)
; - ARGB integer value (0xAARRGGBB) or HTML color name ("Red").
; Default: 0xFF000000 (black)
; 5 Rounded optional:
; - Radius of the rounded corners in pixel
; - Radius of the rounded corners in pixel; the letters 'H' and 'W' may be specified
; also to use the half of the button's height or width respectively.
; Default: 0 - not rounded
; 6 GuiColor optional, needed for rounded buttons if you've changed the GUI background color:
; - RGB integer value (0xRRGGBB) or HTML color name ("Red").
Expand Down Expand Up @@ -128,7 +130,8 @@ Class ImageButton {
}
; ===================================================================================================================
GetARGB(RGB) {
Return 0xFF000000 | ((This.HTML.HasKey(RGB) ? This.HTML[RGB] : RGB) & 0xFFFFFF)
ARGB := This.HTML.HasKey(RGB) ? This.HTML[RGB] : RGB
Return (ARGB & 0xFF000000) = 0 ? 0xFF000000 | ARGB : ARGB
}
; ===================================================================================================================
PathAddRectangle(Path, X, Y, W, H) {
Expand Down Expand Up @@ -237,10 +240,13 @@ Class ImageButton {
If (Option[A_Index] = "")
Option[A_Index] := Options.1[A_Index]
}
; -------------------------------------------------------------------------------------------------------------
; Check option values
; Mode
Mode := SubStr(Option.1, 1 ,1)
If !InStr("0123456789", Mode)
Return This.SetError("Invalid value for Mode in Options[" . Index . "]!")
; StartColor & TargetColor
If (Mode = 0)
&& (FileExist(Option.2) || (DllCall("Gdi32.dll\GetObjectType", "Ptr", Option.2, "UInt") = OBJ_BITMAP))
Image := Option.2
Expand All @@ -254,25 +260,34 @@ Class ImageButton {
Return This.SetError("Invalid value for TargetColor in Options[" . Index . "]!")
BkgColor2 := This.GetARGB(Option.3)
}
; TextColor
If (Option.4 = "")
Option.4 := This.DefTxtColor
If !(Option.4 + 0) && !This.HTML.HasKey(Option.4)
Return This.SetError("Invalid value for TxtColor in Options[" . Index . "]!")
TxtColor := This.GetARGB(Option.4)
; Rounded
Rounded := Option.5
If (Rounded = "H")
Rounded := BtnH * 0.5
If (Rounded = "W")
Rounded := BtnW * 0.5
If !(Rounded + 0)
Rounded := 0
; GuiColor
If (Option.6 = "")
Option.6 := This.DefGuiColor
If !(Option.6 + 0) && !This.HTML.HasKey(Option.6)
Return This.SetError("Invalid value for GuiColor in Options[" . Index . "]!")
GuiColor := This.GetARGB(Option.6)
; BorderColor
BorderColor := ""
If (Option.7 <> "") {
If !(Option.7 + 0) && !This.HTML.HasKey(Option.7)
Return This.SetError("Invalid value for BorderColor in Options[" . Index . "]!")
BorderColor := This.GetARGB(Option.7)
BorderColor := 0xFF000000 | This.GetARGB(Option.7) ; BorderColor must be always opaque
}
; BorderWidth
BorderWidth := Option.8 ? Option.8 : 1
; -------------------------------------------------------------------------------------------------------------
; Create a GDI+ bitmap
Expand Down Expand Up @@ -313,6 +328,9 @@ Class ImageButton {
This.PathAddRectangle(PPATH, PathX, PathY, PathW - PathX, PathH - PathY)
Else ; the path is a rounded rectangle
This.PathAddRoundedRect(PPATH, PathX, PathY, PathW, PathH, Rounded)
; If a BorderColor has been drawn, BkgColors must be opaque
BkgColor1 := 0xFF000000 | BkgColor1
BkgColor2 := 0xFF000000 | BkgColor2
}
PathW -= PathX
PathH -= PathY
Expand Down
14 changes: 7 additions & 7 deletions Sources/Sample.ahk
View file
Original file line number Diff line number Diff line change
Expand Up @@ -14,32 +14,32 @@ HPIC1 := ErrorLevel
; PBS_DEFAULTED = 5
; PBS_STYLUSHOT = 6 <- used only on tablet computers
; ----------------------------------------------------------------------------------------------------------------------
GuiColor := "Silver"
GuiColor := "Blue"
Gui, Margin, 50, 20
Gui, Font, s10
Gui, Color, %GuiColor%
ImageButton.SetGuiColor(GuiColor)
; Common button --------------------------------------------------------------------------------------------------------
Gui, Add, Button, w200, Common Button
; Rounded unicolored button with different colors for states normal, hot and defaulted ---------------------------------
; Unicolored button rounded by half of its height with different colors for states normal, hot and defaulted -----------
Gui, Add, Button, vBT1 w200 hwndHBT1, Button 1`nLine 2
Opt1 := [0, 0xCF0000, , "White", 22, , "Yellow", 2] ; normal flat background & text color
Opt1 := [0, 0x80CF0000, , "White", "H", , "Red", 4] ; normal flat background & text color
Opt2 := [ , "Red"] ; hot flat background color
Opt5 := [ , , ,"Gray"] ; defaulted text color -> animation
If !ImageButton.Create(HBT1, Opt1, Opt2, , , Opt5)
MsgBox, 0, ImageButton Error Btn1, % ImageButton.LastError
; Vertical bicolored button with different 3D-style colors for states normal, hot, and pressed ------------------------
Gui, Add, Button, vBT2 w200 h30 hwndHBT2, Button 2
Opt1 := [1, 0xF0F0F0, 0xC0F0FF, "Black", , , "Lime", 1] ; normal background & text colors
Opt1 := [1, 0xC0E0E0E0, 0xC0B0E0FF, 0x60000000] ; normal background & text colors
Opt2 := {2: 0xE0E0E0, 3: 0xB0E0FF, 4: "Black"} ; hot background & text colors (object syntax)
Opt3 := {4: "Red"} ; pressed text color (object syntax)
If !ImageButton.Create(HBT2, Opt1, Opt2, Opt3)
MsgBox, 0, ImageButton Error Btn2, % ImageButton.LastError
; Raised button with different 3D-style colors for states normal, hot, and disabled ------------------------------------
Gui, Add, Button, vBT3 w200 Disabled hwndHBT3, Button 3
Opt1 := [6, 0x404040, 0xC0C0C0, "Yellow", 6, , "White", 2] ; normal background & text colors
Opt2 := [ , 0x606060, 0xF0F0F0, 0x606000] ; hot background & text colors
Opt4 := [0, 0xA0A0A0, , 0x606000] ; disabled flat background & text colors
Opt1 := [6, 0x80404040, 0xC0C0C0, "Yellow"] ; normal background & text colors
Opt2 := [ , 0x80606060, 0xF0F0F0, 0x606000] ; hot background & text colors
Opt4 := [0, 0xC0A0A0A0, , 0xC0606000] ; disabled flat background & text colors
If !ImageButton.Create(HBT3, Opt1, Opt2, "", Opt4)
MsgBox, 0, ImageButton Error Btn3, % ImageButton.LastError
Gui, Font
Expand Down

0 comments on commit b638d62

Please sign in to comment.