AutoHotkey Community

Posted: **03 Aug 2021, 04:43**

Update on 2024-01-01:

Changed default color options:
Gui.Backcolor is used for the background if set, otherwise AHK's Gui default color.
You can call SetDefGuiColor() and/or SetDefTxtColor() to change the defaults.
*INIT* has been replaced with *DEF*.
Updated sample script.

Update on 2023-07-10:

Updated the sample script to meet the requirements of the latest version of the function.

Update on 2023-02-03:
Released v 1.0.00:

Added modes 8 and 9 for LinearGradientModeForwardDiagonal and LinearGradientModeBackwardDiagonal. (@jNizM)
Added underlined accelerators in the caption. (@robodesign)
Other minor changes related to AHK v2 function calls.

Hi,

this is the v2 version of [Class] ImageButton. It's my first attempt to port one of my scripts to v2 beta. I didn't expect to need so much effort, but finally it seems to work. The new 'simplified' AHK object concepts are just annoying compared to v1, but that might be caused by my lack of real OOP knowledge. On the other hand I found that nested functions can be used to replace classes like ImageButton with functions. So I come up with a function to show how it can be done in v2.

I also struggled with porting my UseGDIP() function. It isn't possible to realize an automatic function call with static initializers any more. On the other hand #DllLoad was added to preload Dll files. So I finally came up with this version which must be called once manually

UseGDIP()

So here comes the new function

CreateImageButton()

Code: Select all

; ======================================================================================================================
; Name:              CreateImageButton()
; Function:          Create images and assign them to pushbuttons.
; Tested with:       AHK 2.0.11 (U32/U64)
; Tested on:         Win 10 (x64)
; Change history:    1.0.01/2024-01-01/just me   - Use Gui.Backcolor as default for the background if available
;                    1.0.00/2023-02-03/just me   - Initial stable release for AHK v2
; Credits:           THX tic for GDIP.AHK, tkoi for ILBUTTON.AHK
; ======================================================================================================================
; How to use:
;     1. Call UseGDIP() to initialize the Gdiplus.dll before the first call of this function.
;     2. Create a push button (e.g. "MyGui.AddButton("option", "caption").
;     3. If you want to want to use another color than the GUI's current Backcolor for the background of the images
;        - especially for rounded buttons - call CreateImageButton("SetDefGuiColor", NewColor) where NewColor is a RGB
;        integer value (0xRRGGBB) or a HTML color name ("Red"). You can also change the default text color by calling
;        CreateImageButton("SetDefTxtColor", NewColor).
;        To reset the colors to the AHK/system default pass "*DEF*" in NewColor, to reset the background to use
;        Gui.Backcolor pass "*GUI*".
;     4. To create an image button call CreateImageButton() passing two or more parameters:
;        GuiBtn      -  Gui.Button object.
;        Mode        -  The mode used to create the bitmaps:
;                       0  -  unicolored or bitmap
;                       1  -  vertical bicolored
;                       2  -  horizontal bicolored
;                       3  -  vertical gradient
;                       4  -  horizontal gradient
;                       5  -  vertical gradient using StartColor at both borders and TargetColor at the center
;                       6  -  horizontal gradient using StartColor at both borders and TargetColor at the center
;                       7  -  'raised' style
;                       8  -  forward diagonal gradient from the upper-left corner to the lower-right corner
;                       9  -  backward diagonal gradient from the upper-right corner to the lower-left corner
;                      -1  -  reset the button
;        Options*    -  variadic array containing up to 6 option arrays (see below).
;        ---------------------------------------------------------------------------------------------------------------
;        The index of each option object determines the corresponding button state on which the bitmap will be shown.
;        MSDN defines 6 states (http://msdn.microsoft.com/en-us/windows/bb775975):
;           PBS_NORMAL    = 1
;	         PBS_HOT       = 2
;	         PBS_PRESSED   = 3
;	         PBS_DISABLED  = 4
;	         PBS_DEFAULTED = 5
;	         PBS_STYLUSHOT = 6 <- used only on tablet computers (that's false for Windows Vista and 7, see below)
;        If you don't want the button to be 'animated' on themed GUIs, just pass one option object with index 1.
;        On Windows Vista and 7 themed bottons are 'animated' using the images of states 5 and 6 after clicked.
;        ---------------------------------------------------------------------------------------------------------------
;        Each option array may contain the following values:
;           Index Value
;           1     StartColor  mandatory for Option[1], higher indices will inherit the value of Option[1], if omitted:
;                             -  ARGB integer value (0xAARRGGBB) or HTML color name ("Red").
;                             -  Path of an image file or HBITMAP handle for mode 0.
;           2     TargetColor mandatory for Option[1] if Mode > 0. Higher indcices will inherit the color of Option[1],
;                             if omitted:
;                             -  ARGB integer value (0xAARRGGBB) or HTML color name ("Red").
;                             -  String "HICON" if StartColor contains a HICON handle.
;           3     TextColor   optional, if omitted, the default text color will be used for Option[1], higher indices
;                             will inherit the color of Option[1]:
;                             -  ARGB integer value (0xAARRGGBB) or HTML color name ("Red").
;                                Default: 0xFF000000 (black)
;           4     Rounded     optional:
;                             -  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
;           5     BorderColor optional, ignored for modes 0 (bitmap) and 7, color of the border:
;                             -  RGB integer value (0xRRGGBB) or HTML color name ("Red").
;           6     BorderWidth optional, ignored for modes 0 (bitmap) and 7, width of the border in pixels:
;                             -  Default: 1
;        ---------------------------------------------------------------------------------------------------------------
;        If the the button has a caption it will be drawn upon the bitmaps.
;     5. Call GdiplusShutDown() to clean up the resources used by GDI+ after the last function call or
;        before the script terminates.
; ======================================================================================================================
; This software is provided 'as-is', without any express or implied warranty.
; In no event will the authors be held liable for any damages arising from the use of this software.
; ======================================================================================================================
#Requires AutoHotkey 2.0.0
; ======================================================================================================================
; CreateImageButton()
; ======================================================================================================================
CreateImageButton(GuiBtn, Mode, Options*) {
   ; Default colors - COLOR_3DFACE is used by AHK as default Gui background color
   Static DefGuiColor := SetDefGuiColor("*GUI*"),
          DefTxtColor := SetDefTxtColor("*DEF*"),
          GammaCorr   := False
   Static HTML := {BLACK:  0x000000, GRAY:   0x808080, SILVER:  0xC0C0C0, WHITE: 0xFFFFFF,
                   MAROON: 0x800000, PURPLE: 0x800080, FUCHSIA: 0xFF00FF, RED:   0xFF0000,
                   GREEN:  0x008000, OLIVE:  0x808000, YELLOW:  0xFFFF00, LIME:  0x00FF00,
                   NAVY:   0x000080, TEAL:   0x008080, AQUA:    0x00FFFF, BLUE:  0x0000FF}
   Static MaxBitmaps := 6, MaxOptions := 6
   Static BitMaps := [], Buttons := Map()
   Static Bitmap := 0, Graphics := 0, Font := 0, StringFormat := 0, HIML := 0
   Static BtnCaption := "", BtnStyle := 0
   Static HWND := 0
   Bitmap := Graphics := Font := StringFormat := HIML := 0
   NumBitmaps := 0
   BtnCaption := ""
   BtnStyle := 0
   BtnW := 0
   BtnH := 0
   GuiColor := ""
   TxtColor := ""
   HWND := 0
   ; -------------------------------------------------------------------------------------------------------------------
   ; Check for 'special calls'
   If !IsObject(GuiBtn) {
      Switch GuiBtn {
         Case "SetDefGuiColor":
            DefGuiColor := SetDefGuiColor(Mode)
            Return True
         Case "SetDefTxtColor":
            DefTxtColor := SetDefTxtColor(Mode)
            Return True
         Case "SetGammaCorrection":
            GammaCorr := !!Mode
            Return True
      }
   }
   ; -------------------------------------------------------------------------------------------------------------------
   ; Check the control object
   If (Type(GuiBtn) != "Gui.Button")
      Return ErrorExit("Invalid parameter GuiBtn!")
   HWND := GuiBtn.Hwnd
   ; -------------------------------------------------------------------------------------------------------------------
   ; Check Mode
   If !IsInteger(Mode) || (Mode < -1) || (Mode > 9)
      Return ErrorExit("Invalid parameter Mode!")
   If (Mode = -1) { ; reset the button
      If Buttons.Has(HWND) {
         Btn := Buttons[HWND]
         BIL := Buffer(20 + A_PtrSize, 0)
         NumPut("Ptr", -1, BIL) ; BCCL_NOGLYPH
         SendMessage(0x1602, 0, BIL.Ptr, HWND) ; BCM_SETIMAGELIST
         IL_Destroy(Btn["HIML"])
         ControlSetStyle(Btn["Style"], HWND)
         Buttons.Delete(HWND)
         Return True
      }
      Return False
   }
   ; -------------------------------------------------------------------------------------------------------------------
   ; Check Options
   If !(Options Is Array) || !Options.Has(1) || (Options.Length > MaxOptions)
      Return ErrorExit("Invalid parameter Options!")
   ; -------------------------------------------------------------------------------------------------------------------
   HBITMAP := HFORMAT := PBITMAP := PBRUSH := PFONT := PGRAPHICS := PPATH := 0
   ; -------------------------------------------------------------------------------------------------------------------
   ; Get control's styles
   BtnStyle := ControlGetStyle(HWND)
   ; -------------------------------------------------------------------------------------------------------------------
   ; Get the button's font
   PFONT := 0
   If (HFONT := SendMessage(0x31, 0, 0, HWND)) { ; WM_GETFONT
      DC := DllCall("GetDC", "Ptr", HWND, "Ptr")
      DllCall("SelectObject", "Ptr", DC, "Ptr", HFONT)
      DllCall("Gdiplus.dll\GdipCreateFontFromDC", "Ptr", DC, "PtrP", &PFONT)
      DllCall("ReleaseDC", "Ptr", HWND, "Ptr", DC)
   }
   If !(Font := PFONT)
      Return ErrorExit("Couldn't get button's font!")
   ; -------------------------------------------------------------------------------------------------------------------
   ; Get the button's width and height
   ControlGetPos( , , &BtnW, &BtnH, HWND)
   ; -------------------------------------------------------------------------------------------------------------------
   ; Get the button's caption
   BtnCaption := GuiBtn.Text
   ; -------------------------------------------------------------------------------------------------------------------
   ; Create a GDI+ bitmap
   PBITMAP := 0
   DllCall("Gdiplus.dll\GdipCreateBitmapFromScan0",
           "Int", BtnW, "Int", BtnH, "Int", 0, "UInt", 0x26200A, "Ptr", 0, "PtrP", &PBITMAP)
   If !(Bitmap := PBITMAP)
      Return ErrorExit("Couldn't create the GDI+ bitmap!")
   ; Get the pointer to its graphics
   PGRAPHICS := 0
   DllCall("Gdiplus.dll\GdipGetImageGraphicsContext", "Ptr", PBITMAP, "PtrP", &PGRAPHICS)
   If !(Graphics := PGRAPHICS)
      Return ErrorExit("Couldn't get the the GDI+ bitmap's graphics!")
   ; Quality settings
   DllCall("Gdiplus.dll\GdipSetSmoothingMode", "Ptr", PGRAPHICS, "UInt", 4)
   DllCall("Gdiplus.dll\GdipSetInterpolationMode", "Ptr", PGRAPHICS, "Int", 7)
   DllCall("Gdiplus.dll\GdipSetCompositingQuality", "Ptr", PGRAPHICS, "UInt", 4)
   DllCall("Gdiplus.dll\GdipSetRenderingOrigin", "Ptr", PGRAPHICS, "Int", 0, "Int", 0)
   DllCall("Gdiplus.dll\GdipSetPixelOffsetMode", "Ptr", PGRAPHICS, "UInt", 4)
   DllCall("Gdiplus.dll\GdipSetTextRenderingHint", "Ptr", PGRAPHICS, "Int", 0)
   ; Create a StringFormat object
   HFORMAT := 0
   DllCall("Gdiplus.dll\GdipStringFormatGetGenericTypographic", "PtrP", &HFORMAT)
   ; Horizontal alignment
   ; BS_LEFT = 0x0100, BS_RIGHT = 0x0200, BS_CENTER = 0x0300, BS_TOP = 0x0400, BS_BOTTOM = 0x0800, BS_VCENTER = 0x0C00
   ; SA_LEFT = 0, SA_CENTER = 1, SA_RIGHT = 2
   HALIGN := (BtnStyle & 0x0300) = 0x0300 ? 1
           : (BtnStyle & 0x0300) = 0x0200 ? 2
           : (BtnStyle & 0x0300) = 0x0100 ? 0
           : 1
   DllCall("Gdiplus.dll\GdipSetStringFormatAlign", "Ptr", HFORMAT, "Int", HALIGN)
   ; Vertical alignment
   VALIGN := (BtnStyle & 0x0C00) = 0x0400 ? 0
           : (BtnStyle & 0x0C00) = 0x0800 ? 2
           : 1
   DllCall("Gdiplus.dll\GdipSetStringFormatLineAlign", "Ptr", HFORMAT, "Int", VALIGN)
   DllCall("Gdiplus.dll\GdipSetStringFormatHotkeyPrefix", "Ptr", HFORMAT, "UInt", 1) ; THX robodesign
   StringFormat := HFORMAT
   ; -------------------------------------------------------------------------------------------------------------------
   ; Create the bitmap(s)
   BitMaps := []
   BitMaps.Length := MaxBitmaps
   Opt1 := Options[1]
   Opt1.Length := MaxOptions
   Loop MaxOptions
      If !Opt1.Has(A_Index)
         Opt1[A_Index] := ""
   If (Opt1[3] = "")
      Opt1[3] := GetARGB(DefTxtColor)
   For Idx, Opt In Options {
      If !IsSet(Opt) || !IsObject(Opt) || !(Opt Is Array)
         Continue
      BkgColor1 := BkgColor2 := TxtColor := Rounded := GuiColor := Image := ""
      ; Replace omitted options with the values of Options.1
      If (Idx > 1) {
         Opt.Length := MaxOptions
         Loop MaxOptions {
            If !Opt.Has(A_Index) || (Opt[A_Index] = "")
               Opt[A_Index] := Opt1[A_Index]
         }
      }
      ; ----------------------------------------------------------------------------------------------------------------
      ; Check option values
      ; StartColor & TargetColor
      If (Mode = 0) && BitmapOrIcon(Opt[1], Opt[2])
         Image := Opt[1]
      Else {
         If !IsInteger(Opt[1]) && !HTML.HasOwnProp(Opt[1])
            Return ErrorExit("Invalid value for StartColor in Options[" . Idx . "]!")
         BkgColor1 := GetARGB(Opt[1])
         If (Opt[2] = "")
            Opt[2] := Opt[1]
         If !IsInteger(Opt[2]) && !HTML.HasOwnProp(Opt[2])
            Return ErrorExit("Invalid value for TargetColor in Options[" . Idx . "]!")
         BkgColor2 := GetARGB(Opt[2])
      }
      ; TextColor
      If (Opt[3] = "")
         Opt[3] := GetARGB(DefTxtColor)
      If !IsInteger(Opt[3]) && !HTML.HasOwnProp(Opt[3])
         Return ErrorExit("Invalid value for TxtColor in Options[" . Idx . "]!")
      TxtColor := GetARGB(Opt[3])
      ; Rounded
      Rounded := Opt[4]
      If (Rounded = "H")
         Rounded := BtnH * 0.5
      If (Rounded = "W")
         Rounded := BtnW * 0.5
      If !IsNumber(Rounded)
         Rounded := 0
      ; GuiColor
      If DefGuiColor = "*GUI*"
         GuiColor := GetARGB(GuiBtn.Gui.Backcolor != "" ? "0x" GuiBtn.Gui.Backcolor : SetDefGuiColor("*DEF*"))
      Else
         GuiColor := GetARGB(DefGuiColor)
      ; BorderColor
      BorderColor := ""
      If (Opt[5] != "") {
         If !IsInteger(Opt[5]) && !HTML.HasOwnProp(Opt[5])
            Return ErrorExit("Invalid value for BorderColor in Options[" . Idx . "]!")
         BorderColor := 0xFF000000 | GetARGB(Opt[5]) ; BorderColor must be always opaque
      }
      ; BorderWidth
      BorderWidth := Opt[6] ? Opt[6] : 1
      ; ----------------------------------------------------------------------------------------------------------------
      ; Clear the background
      DllCall("Gdiplus.dll\GdipGraphicsClear", "Ptr", PGRAPHICS, "UInt", GuiColor)
      ; Create the image
      If (Image = "") { ; Create a BitMap based on the specified colors
         PathX := PathY := 0, PathW := BtnW, PathH := BtnH
         ; Create a GraphicsPath
         PPATH := 0
         DllCall("Gdiplus.dll\GdipCreatePath", "UInt", 0, "PtrP", &PPATH)
         If (Rounded < 1) ; the path is a rectangular rectangle
            PathAddRectangle(PPATH, PathX, PathY, PathW, PathH)
         Else ; the path is a rounded rectangle
            PathAddRoundedRect(PPATH, PathX, PathY, PathW, PathH, Rounded)
         ; If BorderColor and BorderWidth are specified, 'draw' the border (not for Mode 7)
         If (BorderColor != "") && (BorderWidth > 0) && (Mode != 7) {
            ; Create a SolidBrush
            PBRUSH := 0
            DllCall("Gdiplus.dll\GdipCreateSolidFill", "UInt", BorderColor, "PtrP", &PBRUSH)
            ; Fill the path
            DllCall("Gdiplus.dll\GdipFillPath", "Ptr", PGRAPHICS, "Ptr", PBRUSH, "Ptr", PPATH)
            ; Free the brush
            DllCall("Gdiplus.dll\GdipDeleteBrush", "Ptr", PBRUSH)
            ; Reset the path
            DllCall("Gdiplus.dll\GdipResetPath", "Ptr", PPATH)
            ; Add a new 'inner' path
            PathX := PathY := BorderWidth, PathW -= BorderWidth, PathH -= BorderWidth, Rounded -= BorderWidth
            If (Rounded < 1) ; the path is a rectangular rectangle
               PathAddRectangle(PPATH, PathX, PathY, PathW - PathX, PathH - PathY)
            Else ; the path is a rounded rectangle
               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
         PBRUSH := 0
         RECTF := 0
         Switch Mode {
            Case 0:                    ; the background is unicolored
               ; Create a SolidBrush
               DllCall("Gdiplus.dll\GdipCreateSolidFill", "UInt", BkgColor1, "PtrP", &PBRUSH)
               ; Fill the path
               DllCall("Gdiplus.dll\GdipFillPath", "Ptr", PGRAPHICS, "Ptr", PBRUSH, "Ptr", PPATH)
            Case 1, 2:                 ; the background is bicolored
               ; Create a LineGradientBrush
               SetRectF(&RECTF, PathX, PathY, PathW, PathH)
               DllCall("Gdiplus.dll\GdipCreateLineBrushFromRect",
                       "Ptr", RECTF, "UInt", BkgColor1, "UInt", BkgColor2, "Int", Mode & 1, "Int", 3, "PtrP", &PBRUSH)
               DllCall("Gdiplus.dll\GdipSetLineGammaCorrection", "Ptr", PBRUSH, "Int", GammaCorr)
               ; Set up colors and positions
               SetRect(&COLORS, BkgColor1, BkgColor1, BkgColor2, BkgColor2) ; sorry for function misuse
               SetRectF(&POSITIONS, 0, 0.5, 0.5, 1) ; sorry for function misuse
               DllCall("Gdiplus.dll\GdipSetLinePresetBlend",
                       "Ptr", PBRUSH, "Ptr", COLORS, "Ptr", POSITIONS, "Int", 4)
               ; Fill the path
               DllCall("Gdiplus.dll\GdipFillPath", "Ptr", PGRAPHICS, "Ptr", PBRUSH, "Ptr", PPATH)
            Case 3, 4, 5, 6, 8, 9:     ; the background is a gradient
               ; Determine the brush's width/height
               W := Mode = 6 ? PathW / 2 : PathW  ; horizontal
               H := Mode = 5 ? PathH / 2 : PathH  ; vertical
               ; Create a LineGradientBrush
               SetRectF(&RECTF, PathX, PathY, W, H)
               LGM := Mode > 6 ? Mode - 6 : Mode & 1 ; LinearGradientMode
               DllCall("Gdiplus.dll\GdipCreateLineBrushFromRect",
                       "Ptr", RECTF, "UInt", BkgColor1, "UInt", BkgColor2, "Int", LGM, "Int", 3, "PtrP", &PBRUSH)
               DllCall("Gdiplus.dll\GdipSetLineGammaCorrection", "Ptr", PBRUSH, "Int", GammaCorr)
               ; Fill the path
               DllCall("Gdiplus.dll\GdipFillPath", "Ptr", PGRAPHICS, "Ptr", PBRUSH, "Ptr", PPATH)
            Case 7:                    ; raised mode
               DllCall("Gdiplus.dll\GdipCreatePathGradientFromPath", "Ptr", PPATH, "PtrP", &PBRUSH)
               ; Set Gamma Correction
               DllCall("Gdiplus.dll\GdipSetPathGradientGammaCorrection", "Ptr", PBRUSH, "UInt", GammaCorr)
               ; Set surround and center colors
               ColorArray := Buffer(4, 0)
               NumPut("UInt", BkgColor1, ColorArray)
               DllCall("Gdiplus.dll\GdipSetPathGradientSurroundColorsWithCount",
                       "Ptr", PBRUSH, "Ptr", ColorArray, "IntP", 1)
               DllCall("Gdiplus.dll\GdipSetPathGradientCenterColor", "Ptr", PBRUSH, "UInt", BkgColor2)
               ; Set the FocusScales
               FS := (BtnH < BtnW ? BtnH : BtnW) / 3
               XScale := (BtnW - FS) / BtnW
               YScale := (BtnH - FS) / BtnH
               DllCall("Gdiplus.dll\GdipSetPathGradientFocusScales", "Ptr", PBRUSH, "Float", XScale, "Float", YScale)
               ; Fill the path
               DllCall("Gdiplus.dll\GdipFillPath", "Ptr", PGRAPHICS, "Ptr", PBRUSH, "Ptr", PPATH)
         }
         ; Free resources
         DllCall("Gdiplus.dll\GdipDeleteBrush", "Ptr", PBRUSH)
         DllCall("Gdiplus.dll\GdipDeletePath", "Ptr", PPATH)
      }
      Else { ; Create a bitmap from HBITMAP or file
         PBM := 0
         If IsInteger(Image)
            If (Opt[2] = "HICON")
               DllCall("Gdiplus.dll\GdipCreateBitmapFromHICON", "Ptr", Image, "PtrP", &PBM)
            Else
               DllCall("Gdiplus.dll\GdipCreateBitmapFromHBITMAP", "Ptr", Image, "Ptr", 0, "PtrP", &PBM)
         Else
            DllCall("Gdiplus.dll\GdipCreateBitmapFromFile", "WStr", Image, "PtrP", &PBM)
         ; Draw the bitmap
         DllCall("Gdiplus.dll\GdipDrawImageRectI",
                 "Ptr", PGRAPHICS, "Ptr", PBM, "Int", 0, "Int", 0, "Int", BtnW, "Int", BtnH)
         ; Free the bitmap
         DllCall("Gdiplus.dll\GdipDisposeImage", "Ptr", PBM)
      }
      ; ----------------------------------------------------------------------------------------------------------------
      ; Draw the caption
      If (BtnCaption != "") {
         ; Text color
         DllCall("Gdiplus.dll\GdipCreateSolidFill", "UInt", TxtColor, "PtrP", &PBRUSH)
         ; Set the text's rectangle
         RECT := Buffer(16, 0)
         NumPut("Float", BtnW, "Float", BtnH, RECT, 8)
         ; Draw the text
         DllCall("Gdiplus.dll\GdipDrawString",
                 "Ptr", PGRAPHICS, "Str", BtnCaption, "Int", -1,
                 "Ptr", PFONT, "Ptr", RECT, "Ptr", HFORMAT, "Ptr", PBRUSH)
      }
      ; ----------------------------------------------------------------------------------------------------------------
      ; Create a HBITMAP handle from the bitmap and add it to the array
      HBITMAP := 0
      DllCall("Gdiplus.dll\GdipCreateHBITMAPFromBitmap", "Ptr", PBITMAP, "PtrP", &HBITMAP, "UInt", 0X00FFFFFF)
      BitMaps[Idx] := HBITMAP
      NumBitmaps++
      ; Free resources
      DllCall("Gdiplus.dll\GdipDeleteBrush", "Ptr", PBRUSH)
   }
   ; Now free remaining the GDI+ objects
   DllCall("Gdiplus.dll\GdipDisposeImage", "Ptr", PBITMAP)
   DllCall("Gdiplus.dll\GdipDeleteGraphics", "Ptr", PGRAPHICS)
   DllCall("Gdiplus.dll\GdipDeleteFont", "Ptr", PFONT)
   DllCall("Gdiplus.dll\GdipDeleteStringFormat", "Ptr", HFORMAT)
   Bitmap := Graphics := Font := StringFormat := 0
   ; -------------------------------------------------------------------------------------------------------------------
   ; Create the ImageList
   ; ILC_COLOR32 = 0x20
   HIL := DllCall("Comctl32.dll\ImageList_Create"
                , "UInt", BtnW, "UInt", BtnH, "UInt", 0x20, "Int", 6, "Int", 0, "Ptr") ; ILC_COLOR32
   Loop (NumBitmaps > 1) ? MaxBitmaps : 1 {
      HBITMAP := BitMaps.Has(A_Index) ? BitMaps[A_Index] : BitMaps[1]
      DllCall("Comctl32.dll\ImageList_Add", "Ptr", HIL, "Ptr", HBITMAP, "Ptr", 0)
   }
   ; Create a BUTTON_IMAGELIST structure
   BIL := Buffer(20 + A_PtrSize, 0)
   ; Get the currently assigned image list
   SendMessage(0x1603, 0, BIL.Ptr, HWND) ; BCM_GETIMAGELIST
   PrevIL := NumGet(BIL, "UPtr")
   ; Remove the previous image list, if any
   BIL := Buffer(20 + A_PtrSize, 0)
   NumPut("Ptr", -1, BIL) ; BCCL_NOGLYPH
   SendMessage(0x1602, 0, BIL.Ptr, HWND) ; BCM_SETIMAGELIST
   ; Create a new BUTTON_IMAGELIST structure
   ; BUTTON_IMAGELIST_ALIGN_LEFT = 0, BUTTON_IMAGELIST_ALIGN_RIGHT = 1, BUTTON_IMAGELIST_ALIGN_CENTER = 4,
   BIL := Buffer(20 + A_PtrSize, 0)
   NumPut("Ptr", HIL, BIL)
   Numput("UInt", 4, BIL, A_PtrSize + 16) ; BUTTON_IMAGELIST_ALIGN_CENTER
   ControlSetStyle(BtnStyle | 0x0080, HWND) ; BS_BITMAP
   ; Remove the currently assigned image list, if any
   If (PrevIL)
      IL_Destroy(PrevIL)
   ; Assign the ImageList to the button
   SendMessage(0x1602, 0, BIL.Ptr, HWND) ; BCM_SETIMAGELIST
   ; Free the bitmaps
   FreeBitmaps()
   NumBitmaps := 0
   ; -------------------------------------------------------------------------------------------------------------------
   ; All done successfully
   Buttons[HWND] := Map("HIML", HIL, "Style", BtnStyle)
   Return True
   ; ===================================================================================================================
   ; Internally used functions
   ; ===================================================================================================================
   ; Set the default GUI color.
   ; GuiColor - RGB integer value (0xRRGGBB) or HTML color name ("Red").
   ;          - "*GUI*" to use Gui.Backcolor (default)
   ;          - "*DEF*" to use AHK's default Gui color.
   SetDefGuiColor(GuiColor) {
      Static DefColor := DllCall("GetSysColor", "Int", 15, "UInt") ; COLOR_3DFACE
      Switch
      {
         Case (GuiColor = "*GUI*"):
            Return GuiColor
         Case (GuiColor = "*DEF*"):
            Return GetRGB(DefColor)
         Case IsInteger(GuiColor):
            Return GuiColor & 0xFFFFFF
         Case HTML.HasOwnProp(GuiColor):
            Return HTML.%GuiColor% & 0xFFFFFF
         Default:
            Throw ValueError("Parameter GuiColor invalid", -1, GuiColor)
      }
   }
   ; ===================================================================================================================
   ; Set the default text color.
   ; TxtColor - RGB integer value (0xRRGGBB) or HTML color name ("Red").
   ;          - "*DEF*" to reset to AHK's default text color.
   SetDefTxtColor(TxtColor) {
      Static DefColor := DllCall("GetSysColor", "Int", 18, "UInt") ; COLOR_BTNTEXT
      Switch
      {
         Case (TxtColor = "*DEF*"):
            Return GetRGB(DefColor)
         Case IsInteger(TxtColor):
            Return TxtColor & 0xFFFFFF
         Case HTML.HasOwnProp(TxtColor):
            Return HTML.%TxtColor% & 0xFFFFFF
         Default:
            Throw ValueError("Parameter TxtColor invalid", -1, TxtColor)
      }
      Return True
   }
   ; ===================================================================================================================
   ; PRIVATE FUNCTIONS =================================================================================================
   ; ===================================================================================================================
   BitmapOrIcon(O1, O2) {
      ; OBJ_BITMAP = 7
      Return IsInteger(O1) ? (O2 = "HICON") || (DllCall("GetObjectType", "Ptr", O1, "UInt") = 7) : FileExist(O1)
   }
   ; -------------------------------------------------------------------------------------------------------------------
   FreeBitmaps() {
      For HBITMAP In BitMaps
         IsSet(HBITMAP) ? DllCall("DeleteObject", "Ptr", HBITMAP) : 0
      BitMaps := []
   }
   ; -------------------------------------------------------------------------------------------------------------------
   GetARGB(RGB) {
      ARGB := HTML.HasOwnProp(RGB) ? HTML.%RGB% : RGB
      Return (ARGB & 0xFF000000) = 0 ? 0xFF000000 | ARGB : ARGB
   }
   ; -------------------------------------------------------------------------------------------------------------------
   GetRGB(BGR) {
      Return ((BGR & 0xFF0000) >> 16) | (BGR & 0x00FF00) | ((BGR & 0x0000FF) << 16)
   }
   ; -------------------------------------------------------------------------------------------------------------------
   PathAddRectangle(Path, X, Y, W, H) {
      Return DllCall("Gdiplus.dll\GdipAddPathRectangle", "Ptr", Path, "Float", X, "Float", Y, "Float", W, "Float", H)
   }
   ; -------------------------------------------------------------------------------------------------------------------
   PathAddRoundedRect(Path, X1, Y1, X2, Y2, R) {
      D := (R * 2), X2 -= D, Y2 -= D
      DllCall("Gdiplus.dll\GdipAddPathArc",
              "Ptr", Path, "Float", X1, "Float", Y1, "Float", D, "Float", D, "Float", 180, "Float", 90)
      DllCall("Gdiplus.dll\GdipAddPathArc",
              "Ptr", Path, "Float", X2, "Float", Y1, "Float", D, "Float", D, "Float", 270, "Float", 90)
      DllCall("Gdiplus.dll\GdipAddPathArc",
              "Ptr", Path, "Float", X2, "Float", Y2, "Float", D, "Float", D, "Float", 0, "Float", 90)
      DllCall("Gdiplus.dll\GdipAddPathArc",
              "Ptr", Path, "Float", X1, "Float", Y2, "Float", D, "Float", D, "Float", 90, "Float", 90)
      Return DllCall("Gdiplus.dll\GdipClosePathFigure", "Ptr", Path)
   }
   ; -------------------------------------------------------------------------------------------------------------------
   SetRect(&Rect, L := 0, T := 0, R := 0, B := 0) {
      Rect := Buffer(16, 0)
      NumPut("Int", L, "Int", T, "Int", R, "Int", B, Rect)
      Return True
   }
   ; -------------------------------------------------------------------------------------------------------------------
   SetRectF(&Rect, X := 0, Y := 0, W := 0, H := 0) {
      Rect := Buffer(16, 0)
      NumPut("Float", X, "Float", Y, "Float", W, "Float", H, Rect)
      Return True
   }
   ; -------------------------------------------------------------------------------------------------------------------
   ErrorExit(ErrMsg) {
      If (Bitmap)
         DllCall("Gdiplus.dll\GdipDisposeImage", "Ptr", Bitmap)
      If (Graphics)
         DllCall("Gdiplus.dll\GdipDeleteGraphics", "Ptr", Graphics)
      If (Font)
         DllCall("Gdiplus.dll\GdipDeleteFont", "Ptr", Font)
      If (StringFormat)
         DllCall("Gdiplus.dll\GdipDeleteStringFormat", "Ptr", StringFormat)
      If (HIML) {
         BIL := Buffer(20 + A_PtrSize, 0)
         NumPut("Ptr", -1, BIL) ; BCCL_NOGLYPH
         DllCall("SendMessage", "Ptr", HWND, "UInt", 0x1602, "Ptr", 0, "Ptr", BIL) ; BCM_SETIMAGELIST
         IL_Destroy(HIML)
      }
      Bitmap := 0
      Graphics := 0
      Font := 0
      StringFormat := 0
      HIML := 0
      FreeBitmaps()
      Throw Error(ErrMsg)
   }
}

followed by a short 'how to use' sample

Sample script

Code: Select all

#Requires AutoHotkey v2.0
#Include CreateImageButton.ahk
UseGDIP()
Main := Gui("", "Image Buttons")
Main.BackColor := "Blue"
Main.MarginX := 50
Main.MarginY := 20
Main.SetFont("s10")
Main.OnEvent("Close", Main_Close)
Main.OnEvent("Escape", Main_Close)
; CreateImageButton("SetDefGuiColor", "Blue") ; Gui.BackColor is default for v1.0.01+
; Common button --------------------------------------------------------------------------------------------------------
; MsgBox("Button1")
Btn1 := Main.AddButton("w200", "CommonButton")
; Unicolored button rounded by half of its height with different colors for states normal, hot and defaulted -----------
; MsgBox("Button2")
Btn2 := Main.AddButton("w200 Default", "Button 1`nLine 2")
Opt1 := [0x80CF0000, , "White", "H", "Red", 4]
Opt2 := ["Red"]
Opt5 := [, , , , "0xC0C0FF"]
If !CreateImageButton(Btn2, 0, Opt1, Opt2, , , Opt5)
   MsgBox("", "CreateImageButton Error Btn2")
; Vertical bicolored  button with different 3D-style colors for states normal, hot, and pressed ------------------------
; MsgBox("Button3")
Btn3 := Main.AddButton("w200 h30", "&Button 2")
Opt1 := [0xC0E0E0E0, 0xC0B0E0FF, 0x60000000]
Opt2 := [0xE0E0E0, 0xB0E0FF, "Black"]
Opt3 := [ , , "Red"]
If !CreateImageButton(Btn3, 1, Opt1, Opt2, Opt3)
   MsgBox("", "CreateImageButton Error Btn3")
; Raised button with different 3D-style colors for states normal, hot, and disabled ------------------------------------
; MsgBox("Button4")
Btn4 := Main.AddButton("w200 Disabled", "Button 3")
Btn4.Name := "Btn4"
Opt1 := [0x80404040, 0xC0C0C0, "Yellow"]
Opt2 := [0x80606060, 0xF0F0F0, 0x606000]
Opt4 := [0xC0A0A0A0, 0xC0A0A0A0, 0xC0404040]
If !CreateImageButton(Btn4, 8, Opt1, Opt2, , Opt4)
   MsgBox("", "CreateImageButton Error Btn4")
Main.SetFont()
Chk1 := Main.AddCheckBox("xp y+0 w200", "Enable")
Chk1.OnEvent("Click", Chk1Clicked)
; Image button without caption with different pictures for states normal and hot ---------------------------------------
; MsgBox("Button5")
Btn5 := Main.AddButton("w200 h30")
Opt1 := ["PIC1.jpg"]
Opt2 := ["PIC2.jpg"]
If !CreateImageButton(Btn5, 0, Opt1, Opt2)
   MsgBox("", "CreateImageButton Error Btn5")
Main.Show()
Return
; ----------------------------------------------------------------------------------------------------------------------
Main_Close(GuiObj) {
   ExitApp
}
; ----------------------------------------------------------------------------------------------------------------------
Chk1Clicked(CtrlObj, Info) {
   CtrlObj.Gui["Btn4"].Enabled := CtrlObj.Value
}
; ----------------------------------------------------------------------------------------------------------------------
; Loads and initializes the Gdiplus.dll.
; Must be called once before you use any of the DLL functions.
; ----------------------------------------------------------------------------------------------------------------------
#DllLoad "Gdiplus.dll"
UseGDIP(Params*) {
   Static GdipObject := 0
   If !IsObject(GdipObject) {
      GdipToken  := 0
      SI := Buffer(24, 0) ; size of 64-bit structure
      NumPut("UInt", 1, SI)
      If DllCall("Gdiplus.dll\GdiplusStartup", "PtrP", &GdipToken, "Ptr", SI, "Ptr", 0, "UInt") {
         MsgBox("GDI+ could not be startet!`n`nThe program will exit!", A_ThisFunc, 262160)
         ExitApp
      }
      GdipObject := {__Delete: UseGdipShutDown}
   }
   UseGdipShutDown(*) {
      DllCall("Gdiplus.dll\GdiplusShutdown", "Ptr", GdipToken)
   }
}

Everybody feel free take the code to create own versions.

Have fun!

Posted: **03 Aug 2021, 05:04**

thanks, will def be useful if we try to figure out how to convert old scripts

Posted: **03 Aug 2021, 05:57**

Very cool

Glad to see ya on the v2 forums @just me.

Posted: **03 Aug 2021, 06:47**

Bootstrap Buttons

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

Posted: **03 Aug 2021, 07:08**

Thanks @jNizM, that helps me understand this a bit more.

Posted: **03 Aug 2021, 12:04**

@just me When are you expecting UseGdipShutDown to get called?

Posted: **04 Aug 2021, 06:51**

@kczx3, when GdipObject will be destroyed on exit.

Posted: **04 Aug 2021, 06:52**

@jNizM, thanks again.

Posted: **04 Aug 2021, 07:22**

I guess I thought swagfag already mentioned that was sort of pointless in your post under the v2 development area.

Posted: **04 Aug 2021, 09:11**

I'm not that sure.

Posted: **24 Oct 2021, 13:31**

Amazing code, But I found it hard to set up the options, so I created a function.

I made a function to create a simple button.
=> it automatically calculates the background colors for pressed and hovered, and uses RGB values (the A value does not affect the current script)
Does somebody knows how to convert rgb to a gray version, this code did not worked yet.

Code: Select all

; Example how to set it up.
IBStyles["info"] := CreateButtonOptions("Black","White")


CreateButtonOptions(ColorRGB,TextColor:="",Rounded:=0,BorderWidth:= 1,BorderColor:= "",TargetColor:=""){
StartColor := ARBG_FromRBG(ColorRGB)
TargetColor := TargetColor="" ? "" : ARBG_FromRBG(TargetColor)
TextColor := TextColor = "" ? "" : ARBG_FromRBG(TextColor)
Rounded := Rounded
BorderColor := BorderWidth=0 ? "" : BorderColor="" ? LightenDarkenColor(ARBG_FromRBG(ColorRGB),-50) : ColorRGB
BorderWidth := BorderWidth
;            PBS_NORMAL    = 1
;	         PBS_HOT       = 2
;	         PBS_PRESSED   = 3
;	         PBS_DISABLED  = 4
;	         PBS_DEFAULTED = 5
;	         PBS_STYLUSHOT = 6
return [[StartColor, TargetColor, TextColor, Rounded, BorderColor, BorderWidth] ; PBS_NORMAL
    , [LightenDarkenColor(StartColor, 50), TargetColor, TextColor, Rounded, BorderColor, BorderWidth] ; PBS_HOT
    , [LightenDarkenColor(StartColor, 100), TargetColor, TextColor, Rounded, BorderColor, BorderWidth] ; PBS_PRESSED
    , [LightenDarkenColor(StartColor, 30,1), TargetColor, TextColor, Rounded, BorderColor, BorderWidth]] ; PBS_DISABLED
}

LightenDarkenColor(colRBG, amt := 0, Gray := 0) {
    oColors := { Black: 0x000000, Silver: 0xC0C0C0, Gray: 0x808080, White: 0xFFFFFF, Maroon: 0x800000, Red: 0xFF0000, Purple: 0x800080, Fuchsia: 0xFF00FF, Green: 0x008000, Lime: 0x00FF00, Olive: 0x808000, Yellow: 0xFFFF00, Navy: 0x000080, Blue: 0x0000FF, Teal: 0x008080, Aqua: 0x00FFFF }
    if oColors.HasOwnProp(colRBG) {
        colRBG := oColors.%ColRBG%
    }
    r := Max(Min((colRBG >> 16) + amt, 255), 0)
    b := Max(Min(((colRBG >> 8) & 0x00FF) + amt, 255), 0)
    g := Max(Min((colRBG & 0x0000FF) + amt, 255), 0)

    if Gray {
        ;   r := (r + b + g)/3
        ;   b := r
        ;   g := r
    }
    newColorRBG := g | (b << 8) | (r << 16)
    return newColorRBG
}

; ===============================================================================================================================

/********************************************
 * ARGB(A,RGB)
 * 
 * returns the ARGB value from RGB
 * 
 * 
 */
ARBG_FromRBG(colRBG, A := 0) {
    oColors := { Black: 0x000000, Silver: 0xC0C0C0, Gray: 0x808080, White: 0xFFFFFF, Maroon: 0x800000, Red: 0xFF0000, Purple: 0x800080, Fuchsia: 0xFF00FF, Green: 0x008000, Lime: 0x00FF00, Olive: 0x808000, Yellow: 0xFFFF00, Navy: 0x000080, Blue: 0x0000FF, Teal: 0x008080, Aqua: 0x00FFFF }
    if oColors.HasOwnProp(colRBG) {
        colRBG := oColors.%ColRBG%
    }
    A := A & 0xFF, colRBG := colRBG & 0xFFFFFF
    return ((colRBG | (A << 24)) & 0xFFFFFFFF)
}

Posted: **25 Oct 2021, 09:09**

automatic function call with static initializers any more.

Hi have you considered using static __New()?

Posted: **26 Oct 2021, 04:35**

@iseahound, it doesn't solve the problem: viewtopic.php?f=82&t=94482

Posted: **04 Jan 2022, 06:25**

Hey 'just me',

There is a display problem with the font Segoe MDL2 Assets. Is this something that can be fixed?
Home symbol is Chr(0xE80F) (see: https://docs.microsoft.com/en-us/windows/apps/design/style/segoe-ui-symbol-font)

First Button is a default Button
The 2nd one is a ImageButton

greets

Posted: **05 Jan 2022, 05:49**

Moin @jNizM,

happy new year! Does it work with v1?

Posted: **05 Jan 2022, 05:52**

Frohes Neues auch dir 🥳
Dont work with v1 too. Just the Symbols are displyed. Whole Text (a-Z) are just squares

Also Numbers and other ascii chars are displayed as squares

Posted: **07 Jan 2022, 07:52**

Looks like GDI+ cannot work with this font.
I tried it with a simple gui with GdipCreateFontFamilyFromName("Segoe MDL2 Assets"), GdipCreateFont() and GdipDrawString() and it also showed only squares.

edit

ms wrote:Unlike with Segoe UI Symbol, the icons in the Segoe MDL2 Assets font are not intended for use in-line with text. This means that some older "tricks" like the progressive disclosure arrows no longer apply.

Thanks M$

Left "Segoe UI Symbol" with ImageButton | Right "Segoe MDL2 Assets" with Text controls

Wanted to archive a Windows 11 Like Menu

Posted: **07 Jan 2022, 08:58**

@jNizM, thanks for reporting. Would you please provide the source code for your examples?

Posted: **07 Jan 2022, 09:17**

"Segoe MDL2 Assets" is a pure icon font and has no glyphs for Alpha-numerals. (in fact the first char is 0xE001)
@jNizM : You should've checked the font in charmap.exe before going through the trouble.

Posted: **07 Jan 2022, 09:28**

sure

Code: Select all

UseGDIP()
Tool()

Tool()
{
	IBStyles := [ [0x80F0F0F0,, 0xFF000000, 4, 0x80F0F0F0, 1]
				, [0x80CFCFCF,, 0xFF000000, 4, 0x80CFCFCF, 1]
				, [0x80DCDCDC,, 0xFF666666, 4, 0x80DCDCDC, 1]
				, [0x80EAEAEA,, 0xFF0078D7, 4, 0x80EAEAEA, 1] ]

	Main := Gui("")
	Main.MarginX := 0
	Main.MarginY := 0
	;Main.BackColor := "F3F3F3"


	; == Segoe UI Symbol (pre Win 10)
	Main.SetFont("s14", "Segoe UI Symbol")
	Main.AddButton("xm+3 ym+4  w250 h36 0x100", Chr(0xE10F) " Segoe UI Symbol")

	IB01 := Main.AddButton("xm+3 y+4 w250 h36 0x100 vIB01", " " Chr(0xE10F) "   Home")
	IB01.OnEvent("Click", TabSelect)
	CreateImageButton(IB01.Hwnd, 0, IBStyles*)

	IB02 := Main.AddButton("xm+3 y+4 w250 h36 0x100 vIB02", " " Chr(0xE115) "   Settings")
	IB02.OnEvent("Click", TabSelect)
	CreateImageButton(IB02.Hwnd, 0, IBStyles*)

	IB03 := Main.AddButton("xm+3 y+4 w250 h36 0x100 vIB03", " " Chr(0xE1D0) "   Calc")
	IB03.OnEvent("Click", TabSelect)
	CreateImageButton(IB03.Hwnd, 0, IBStyles*)



	; == Segoe MDL2 Assets (with Win 10)   https://docs.microsoft.com/en-us/windows/apps/design/style/segoe-ui-symbol-font
	Main.SetFont("s14", "Segoe MDL2 Assets")
	Main.AddButton("x+10 ym+4  w250 h36 0x100", Chr(0xE80F) " Segoe MDL2 Assets")

	IB04 := Main.AddButton("xp y+4 w250 h36 vIB04 0x100", " " Chr(0xE80F) "   Home")
	IB04.OnEvent("Click", TabSelect)
	CreateImageButton(IB04.Hwnd, 0, IBStyles*)

	Main.AddText("xp y+5 w250 h36 0x200", " " Chr(0xE713) . "   Settings")

	Main.AddText("xp y+4 w250 h36 0x200", " " Chr(0xE8EF) . "   Calc")



	; == Segoe Fluent Icons (with Win 11)   https://docs.microsoft.com/en-us/windows/apps/design/style/segoe-fluent-icons-font
	Main.SetFont("s14", "Segoe Fluent Icons")
	Main.AddButton("x+10 ym+4  w250 h36 0x100", Chr(0xE80F) " Segoe Fluent Icons")

	IB05 := Main.AddButton("xp y+4 w250 h36 vIB05 0x100", " " Chr(0xE80F) "   Home")
	IB05.OnEvent("Click", TabSelect)
	CreateImageButton(IB05.Hwnd, 0, IBStyles*)

	Main.AddText("xp y+5 w250 h36 0x200", " " Chr(0xE713) . "   Settings")

	Main.AddText("xp y+4 w250 h36 0x200", " " Chr(0xE8EF) . "   Calc")




	T3 := Main.AddTab3("xm ym-2 w0 h0 -Wrap Choose1 AltSubmit", ["1", "2", "3", "4"])
	Main.Show("w800 h400")

	TabSelect(BtnCtrl, *)
	{
		static TCM_GETITEMCOUNT := 0x1304

		/* todo
		T3.Choose(k := SubStr(BtnCtrl.Name, 4, 1))

		loop SendMessage(TCM_GETITEMCOUNT, 0, 0, T3.hWnd)
		{
			; ...
		}
		*/
	}

}


#Include CreateImageButton.ahk

@SKAN I noticed that. I'm just surprised that it works with the normal button or text control, but not with GDIP.

Wanted to create a Windows 11 like Settings Menu

AutoHotkey Community

CreateImageButton() - 2024-01-01

CreateImageButton() - 2024-01-01

Re: 2.0-beta.1: CreateImageButton() - 2021-08-03 alpha.1

Re: 2.0-beta.1: CreateImageButton() - 2021-08-03 alpha.1

Re: 2.0-beta.1: CreateImageButton() - 2021-08-03 alpha.1

Re: 2.0-beta.1: CreateImageButton() - 2021-08-03 alpha.1

Re: 2.0-beta.1: CreateImageButton() - 2021-08-03 alpha.1

Re: 2.0-beta.1: CreateImageButton() - 2021-08-03 alpha.1

Re: 2.0-beta.1: CreateImageButton() - 2021-08-03 alpha.1

Re: 2.0-beta.1: CreateImageButton() - 2021-08-03 alpha.1

Re: 2.0-beta.1: CreateImageButton() - 2021-08-03 alpha.1

Re: 2.0-beta.1: CreateImageButton() - 2021-08-03 alpha.1

Re: 2.0-beta.1: CreateImageButton() - 2021-08-03 alpha.1

Re: 2.0-beta.1: CreateImageButton() - 2021-08-03 alpha.1

Re: 2.0-beta.1: CreateImageButton() - 2021-08-03 alpha.1

Re: 2.0-beta.1: CreateImageButton() - 2021-08-03 alpha.1

Re: 2.0-beta.1: CreateImageButton() - 2021-08-03 alpha.1

Re: 2.0-beta.1: CreateImageButton() - 2021-08-03 alpha.1

Re: 2.0-beta.1: CreateImageButton() - 2021-08-03 alpha.1

Re: 2.0-beta.1: CreateImageButton() - 2021-08-03 alpha.1

Re: 2.0-beta.1: CreateImageButton() - 2021-08-03 alpha.1