Post by Gio » 06 Oct 2020, 12:11
Bom dia Leodapaz.
Seja bem-vindo ao fórum da comunidade do AutoHotkey.
Existe sim, mas como se trata de um estilo de controle de janela pouco utilizado,ele não possui uma implementação simplificada pelo AutoHotkey. Por isso, você teria que basicamente usar programação Windows para fazer isso.
O usuário Coco postou um exemplo de como fazer isso com ícones de uma DLL padrão do Windows em 2013. Mesmo sendo um código antigo, ele ainda funciona na maior parte:
Code: Select all
Gui, Add, Custom, classComboBoxEx32 HwndhCBoxEx 0x0002 ; CBS_DROPDOWN = 0x0002
hIL := IL_Create()
Loop, 12
IL_Add(hIL, "imageres.dll" , A_Index+4)
SetImageList(hCBoxEx, hIL)
for a, b in ["January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"]
InsertItem(hCBoxEx, b, a, a, a)
SetCurSel(hCBoxEx, "Verde", false)
Gui, Show
return
GuiClose:
ExitApp
SetImageList(hwnd, hIL) {
static CBEM_SETIMAGELIST := 0x0402
SendMessage, % CBEM_SETIMAGELIST, 0, hIL,, % "ahk_id " hwnd
return ErrorLevel
}
InsertItem(hwnd, text, pos:="", IconNormal:="", IconSel:="") {
static CBEM_INSERTITEMW := 0x040B , CBEM_INSERTITEMA := 0x0401
pos := pos ? pos-1 : GetCount(hwnd) ; Append to last if pos is not specified | Zero-based index
, IconNormal := IconNormal <> "" ? IconNormal-1 : IconNormal
, IconSel := IconSel <> "" ? IconSel-1 : IconSel
, cchTextMax := false ; If text information is being set, this member is ignored.
, iOverlay := 1
; SET STRUCTURE
CBEI_STRUCT(COMBOBOXEXITEM, text, cchTextMax, pos, IconNormal, IconSel, iOverlay)
SendMessage, % A_IsUnicode ? CBEM_INSERTITEMW : CBEM_INSERTITEMA, 0, &COMBOBOXEXITEM,, % "ahk_id " hwnd
}
SetCurSel(hwnd, PosOrText:=1, ByIndex:=true) {
static CB_SETCURSEL := 0x014E , CB_FINDSTRINGEXACT := 0x0158 ;, CB_SELECTSTRING := 0x014D ; Doesn't work
if ByIndex {
SendMessage, % CB_SETCURSEL, % PosOrText-1, 0,, % "ahk_id " hwnd
idx := ErrorLevel
} else {
SendMessage, % CB_FINDSTRINGEXACT, -1, &PosOrText,, % "ahk_id " hwnd
SendMessage, % CB_SETCURSEL, % ErrorLevel, 0,, % "ahk_id " hwnd
idx := ErrorLevel
}
return (idx == "FAIL" ? false : idx+1)
}
GetCount(hwnd) {
static CB_GETCOUNT := 0x0146
SendMessage, % CB_GETCOUNT, 0, 0,, % "ahk_id " hwnd
return (ErrorLevel == "FAIL" ? false : ErrorLevel)
}
CBEI_STRUCT(ByRef COMBOBOXEXITEM, ByRef pszText, ByRef cchTextMax, ByRef iItem, ByRef iImage, ByRef iSelectedImage, ByRef iOverlay, ByRef iIndent:=0) {
static CBEIF_TEXT := 0x00000001 , CBEIF_IMAGE := 0x00000002 , CBEIF_SELECTEDIMAGE := 0x00000004 , CBEIF_OVERLAY := 0x00000008
, CBEIF_INDENT := 0x00000010 , CBEIF_LPARAM := 0x00000020 , CBEIF_DI_SETITEM := 0x10000000
; SET MASK
mask := CBEIF_TEXT | (iImage <> "" ? CBEIF_IMAGE : 0) | (iSelectedImage <> "" ? CBEIF_SELECTEDIMAGE : 0)
;~ CREATE STRUCTURE
VarSetCapacity(COMBOBOXEXITEM, 36, 0)
, NumPut(mask , COMBOBOXEXITEM , 0) ; mask
, Numput(iItem, COMBOBOXEXITEM , 4) ; iItem
, Numput(&pszText, COMBOBOXEXITEM , 8) ; pszText
, Numput(cchTextMax, COMBOBOXEXITEM , 12) ; cchTextMax - If text information is being set, this member is ignored.
, NumPut(iImage, COMBOBOXEXITEM , 16) ; iImage
, NumPut(iSelectedImage, COMBOBOXEXITEM , 20) ; iSelectedImage
, Numput(iOverlay, COMBOBOXEXITEM , 24) ; iOverlay
, Numput(iIndent, COMBOBOXEXITEM , 28) ; iIndent
;~ , NumPut(CBEIF_LPARAM , COMBOBOXEXITEM , 32) ; lParam
}
Referências e créditos:
https://autohotkey.com/board/topic/90877-autohotkey-v1110-alpha-release/#entry573723
Naturalmente, também é possível fazer o mesmo com imagens customizadas por você e que estejam em arquivos. Aqui vai um exemplo modificado do código acima utilizando imagens em arquivos que estiverem na pasta do script (salve as imagens verde, vermelho e amarelo, todas em anexo abaixo, na pasta do script antes de rodar o script abaixo).
Code: Select all
Gui, Add, Custom, classComboBoxEx32 HwndhCBoxEx 0x0002 ; CBS_DROPDOWN = 0x0002
hIL := IL_Create(3) ; O 3 se refer ao número de imagens que você vai utilizar. Se forem 4, 5, ou qualquer outro número de imagens, ajuste aqui.
IL_Add(hIL, A_ScriptDir . "\Verde.png") ; Para cada imagem, também é necessário adicioná-las individualmente na lista (mas você pode usar um loop se estiverem indexadas).
IL_Add(hIL, A_ScriptDir . "\Amarelo.png")
IL_Add(hIL, A_ScriptDir . "\Vermelho.png")
SetImageList(hCBoxEx, hIL)
for a, b in ["Verde", "Amarelo", "Vermelho"]
InsertItem(hCBoxEx, b, a, a, a)
SetCurSel(hCBoxEx, "Verde", false)
Gui, Show
return
GuiClose:
ExitApp
SetImageList(hwnd, hIL) {
static CBEM_SETIMAGELIST := 0x0402
SendMessage, % CBEM_SETIMAGELIST, 0, hIL,, % "ahk_id " hwnd
return ErrorLevel
}
InsertItem(hwnd, text, pos:="", IconNormal:="", IconSel:="") {
static CBEM_INSERTITEMW := 0x040B , CBEM_INSERTITEMA := 0x0401
pos := pos ? pos-1 : GetCount(hwnd) ; Append to last if pos is not specified | Zero-based index
, IconNormal := IconNormal <> "" ? IconNormal-1 : IconNormal
, IconSel := IconSel <> "" ? IconSel-1 : IconSel
, cchTextMax := false ; If text information is being set, this member is ignored.
, iOverlay := 1
; SET STRUCTURE
CBEI_STRUCT(COMBOBOXEXITEM, text, cchTextMax, pos, IconNormal, IconSel, iOverlay)
SendMessage, % A_IsUnicode ? CBEM_INSERTITEMW : CBEM_INSERTITEMA, 0, &COMBOBOXEXITEM,, % "ahk_id " hwnd
}
SetCurSel(hwnd, PosOrText:=1, ByIndex:=true) {
static CB_SETCURSEL := 0x014E , CB_FINDSTRINGEXACT := 0x0158 ;, CB_SELECTSTRING := 0x014D ; Doesn't work
if ByIndex {
SendMessage, % CB_SETCURSEL, % PosOrText-1, 0,, % "ahk_id " hwnd
idx := ErrorLevel
} else {
SendMessage, % CB_FINDSTRINGEXACT, -1, &PosOrText,, % "ahk_id " hwnd
SendMessage, % CB_SETCURSEL, % ErrorLevel, 0,, % "ahk_id " hwnd
idx := ErrorLevel
}
return (idx == "FAIL" ? false : idx+1)
}
GetCount(hwnd) {
static CB_GETCOUNT := 0x0146
SendMessage, % CB_GETCOUNT, 0, 0,, % "ahk_id " hwnd
return (ErrorLevel == "FAIL" ? false : ErrorLevel)
}
CBEI_STRUCT(ByRef COMBOBOXEXITEM, ByRef pszText, ByRef cchTextMax, ByRef iItem, ByRef iImage, ByRef iSelectedImage, ByRef iOverlay, ByRef iIndent:=0) {
static CBEIF_TEXT := 0x00000001 , CBEIF_IMAGE := 0x00000002 , CBEIF_SELECTEDIMAGE := 0x00000004 , CBEIF_OVERLAY := 0x00000008
, CBEIF_INDENT := 0x00000010 , CBEIF_LPARAM := 0x00000020 , CBEIF_DI_SETITEM := 0x10000000
; SET MASK
mask := CBEIF_TEXT | (iImage <> "" ? CBEIF_IMAGE : 0) | (iSelectedImage <> "" ? CBEIF_SELECTEDIMAGE : 0)
;~ CREATE STRUCTURE
VarSetCapacity(COMBOBOXEXITEM, 36, 0)
, NumPut(mask , COMBOBOXEXITEM , 0) ; mask
, Numput(iItem, COMBOBOXEXITEM , 4) ; iItem
, Numput(&pszText, COMBOBOXEXITEM , 8) ; pszText
, Numput(cchTextMax, COMBOBOXEXITEM , 12) ; cchTextMax - If text information is being set, this member is ignored.
, NumPut(iImage, COMBOBOXEXITEM , 16) ; iImage
, NumPut(iSelectedImage, COMBOBOXEXITEM , 20) ; iSelectedImage
, Numput(iOverlay, COMBOBOXEXITEM , 24) ; iOverlay
, Numput(iIndent, COMBOBOXEXITEM , 28) ; iIndent
;~ , NumPut(CBEIF_LPARAM , COMBOBOXEXITEM , 32) ; lParam
}
- Verde.png (165 Bytes) Viewed 526 times
- Amarelo.png (150 Bytes) Viewed 526 times
- Vermelho.png (135 Bytes) Viewed 526 times
Bom dia Leodapaz.
Seja bem-vindo ao fórum da comunidade do AutoHotkey.
Existe sim, mas como se trata de um estilo de controle de janela pouco utilizado,ele não possui uma implementação simplificada pelo AutoHotkey. Por isso, você teria que basicamente usar programação Windows para fazer isso.
:arrow: O usuário Coco postou um exemplo de como fazer isso com ícones de uma DLL padrão do Windows em 2013. Mesmo sendo um código antigo, ele ainda funciona na maior parte:
[code]Gui, Add, Custom, classComboBoxEx32 HwndhCBoxEx 0x0002 ; CBS_DROPDOWN = 0x0002
hIL := IL_Create()
Loop, 12
IL_Add(hIL, "imageres.dll" , A_Index+4)
SetImageList(hCBoxEx, hIL)
for a, b in ["January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"]
InsertItem(hCBoxEx, b, a, a, a)
SetCurSel(hCBoxEx, "Verde", false)
Gui, Show
return
GuiClose:
ExitApp
SetImageList(hwnd, hIL) {
static CBEM_SETIMAGELIST := 0x0402
SendMessage, % CBEM_SETIMAGELIST, 0, hIL,, % "ahk_id " hwnd
return ErrorLevel
}
InsertItem(hwnd, text, pos:="", IconNormal:="", IconSel:="") {
static CBEM_INSERTITEMW := 0x040B , CBEM_INSERTITEMA := 0x0401
pos := pos ? pos-1 : GetCount(hwnd) ; Append to last if pos is not specified | Zero-based index
, IconNormal := IconNormal <> "" ? IconNormal-1 : IconNormal
, IconSel := IconSel <> "" ? IconSel-1 : IconSel
, cchTextMax := false ; If text information is being set, this member is ignored.
, iOverlay := 1
; SET STRUCTURE
CBEI_STRUCT(COMBOBOXEXITEM, text, cchTextMax, pos, IconNormal, IconSel, iOverlay)
SendMessage, % A_IsUnicode ? CBEM_INSERTITEMW : CBEM_INSERTITEMA, 0, &COMBOBOXEXITEM,, % "ahk_id " hwnd
}
SetCurSel(hwnd, PosOrText:=1, ByIndex:=true) {
static CB_SETCURSEL := 0x014E , CB_FINDSTRINGEXACT := 0x0158 ;, CB_SELECTSTRING := 0x014D ; Doesn't work
if ByIndex {
SendMessage, % CB_SETCURSEL, % PosOrText-1, 0,, % "ahk_id " hwnd
idx := ErrorLevel
} else {
SendMessage, % CB_FINDSTRINGEXACT, -1, &PosOrText,, % "ahk_id " hwnd
SendMessage, % CB_SETCURSEL, % ErrorLevel, 0,, % "ahk_id " hwnd
idx := ErrorLevel
}
return (idx == "FAIL" ? false : idx+1)
}
GetCount(hwnd) {
static CB_GETCOUNT := 0x0146
SendMessage, % CB_GETCOUNT, 0, 0,, % "ahk_id " hwnd
return (ErrorLevel == "FAIL" ? false : ErrorLevel)
}
CBEI_STRUCT(ByRef COMBOBOXEXITEM, ByRef pszText, ByRef cchTextMax, ByRef iItem, ByRef iImage, ByRef iSelectedImage, ByRef iOverlay, ByRef iIndent:=0) {
static CBEIF_TEXT := 0x00000001 , CBEIF_IMAGE := 0x00000002 , CBEIF_SELECTEDIMAGE := 0x00000004 , CBEIF_OVERLAY := 0x00000008
, CBEIF_INDENT := 0x00000010 , CBEIF_LPARAM := 0x00000020 , CBEIF_DI_SETITEM := 0x10000000
; SET MASK
mask := CBEIF_TEXT | (iImage <> "" ? CBEIF_IMAGE : 0) | (iSelectedImage <> "" ? CBEIF_SELECTEDIMAGE : 0)
;~ CREATE STRUCTURE
VarSetCapacity(COMBOBOXEXITEM, 36, 0)
, NumPut(mask , COMBOBOXEXITEM , 0) ; mask
, Numput(iItem, COMBOBOXEXITEM , 4) ; iItem
, Numput(&pszText, COMBOBOXEXITEM , 8) ; pszText
, Numput(cchTextMax, COMBOBOXEXITEM , 12) ; cchTextMax - If text information is being set, this member is ignored.
, NumPut(iImage, COMBOBOXEXITEM , 16) ; iImage
, NumPut(iSelectedImage, COMBOBOXEXITEM , 20) ; iSelectedImage
, Numput(iOverlay, COMBOBOXEXITEM , 24) ; iOverlay
, Numput(iIndent, COMBOBOXEXITEM , 28) ; iIndent
;~ , NumPut(CBEIF_LPARAM , COMBOBOXEXITEM , 32) ; lParam
}[/code]
Referências e créditos: https://autohotkey.com/board/topic/90877-autohotkey-v1110-alpha-release/#entry573723
:arrow: Naturalmente, também é possível fazer o mesmo com imagens customizadas por você e que estejam em arquivos. Aqui vai um exemplo modificado do código acima utilizando imagens em arquivos que estiverem na pasta do script (salve as imagens verde, vermelho e amarelo, todas em anexo abaixo, na pasta do script antes de rodar o script abaixo).
[code]Gui, Add, Custom, classComboBoxEx32 HwndhCBoxEx 0x0002 ; CBS_DROPDOWN = 0x0002
hIL := IL_Create(3) ; O 3 se refer ao número de imagens que você vai utilizar. Se forem 4, 5, ou qualquer outro número de imagens, ajuste aqui.
IL_Add(hIL, A_ScriptDir . "\Verde.png") ; Para cada imagem, também é necessário adicioná-las individualmente na lista (mas você pode usar um loop se estiverem indexadas).
IL_Add(hIL, A_ScriptDir . "\Amarelo.png")
IL_Add(hIL, A_ScriptDir . "\Vermelho.png")
SetImageList(hCBoxEx, hIL)
for a, b in ["Verde", "Amarelo", "Vermelho"]
InsertItem(hCBoxEx, b, a, a, a)
SetCurSel(hCBoxEx, "Verde", false)
Gui, Show
return
GuiClose:
ExitApp
SetImageList(hwnd, hIL) {
static CBEM_SETIMAGELIST := 0x0402
SendMessage, % CBEM_SETIMAGELIST, 0, hIL,, % "ahk_id " hwnd
return ErrorLevel
}
InsertItem(hwnd, text, pos:="", IconNormal:="", IconSel:="") {
static CBEM_INSERTITEMW := 0x040B , CBEM_INSERTITEMA := 0x0401
pos := pos ? pos-1 : GetCount(hwnd) ; Append to last if pos is not specified | Zero-based index
, IconNormal := IconNormal <> "" ? IconNormal-1 : IconNormal
, IconSel := IconSel <> "" ? IconSel-1 : IconSel
, cchTextMax := false ; If text information is being set, this member is ignored.
, iOverlay := 1
; SET STRUCTURE
CBEI_STRUCT(COMBOBOXEXITEM, text, cchTextMax, pos, IconNormal, IconSel, iOverlay)
SendMessage, % A_IsUnicode ? CBEM_INSERTITEMW : CBEM_INSERTITEMA, 0, &COMBOBOXEXITEM,, % "ahk_id " hwnd
}
SetCurSel(hwnd, PosOrText:=1, ByIndex:=true) {
static CB_SETCURSEL := 0x014E , CB_FINDSTRINGEXACT := 0x0158 ;, CB_SELECTSTRING := 0x014D ; Doesn't work
if ByIndex {
SendMessage, % CB_SETCURSEL, % PosOrText-1, 0,, % "ahk_id " hwnd
idx := ErrorLevel
} else {
SendMessage, % CB_FINDSTRINGEXACT, -1, &PosOrText,, % "ahk_id " hwnd
SendMessage, % CB_SETCURSEL, % ErrorLevel, 0,, % "ahk_id " hwnd
idx := ErrorLevel
}
return (idx == "FAIL" ? false : idx+1)
}
GetCount(hwnd) {
static CB_GETCOUNT := 0x0146
SendMessage, % CB_GETCOUNT, 0, 0,, % "ahk_id " hwnd
return (ErrorLevel == "FAIL" ? false : ErrorLevel)
}
CBEI_STRUCT(ByRef COMBOBOXEXITEM, ByRef pszText, ByRef cchTextMax, ByRef iItem, ByRef iImage, ByRef iSelectedImage, ByRef iOverlay, ByRef iIndent:=0) {
static CBEIF_TEXT := 0x00000001 , CBEIF_IMAGE := 0x00000002 , CBEIF_SELECTEDIMAGE := 0x00000004 , CBEIF_OVERLAY := 0x00000008
, CBEIF_INDENT := 0x00000010 , CBEIF_LPARAM := 0x00000020 , CBEIF_DI_SETITEM := 0x10000000
; SET MASK
mask := CBEIF_TEXT | (iImage <> "" ? CBEIF_IMAGE : 0) | (iSelectedImage <> "" ? CBEIF_SELECTEDIMAGE : 0)
;~ CREATE STRUCTURE
VarSetCapacity(COMBOBOXEXITEM, 36, 0)
, NumPut(mask , COMBOBOXEXITEM , 0) ; mask
, Numput(iItem, COMBOBOXEXITEM , 4) ; iItem
, Numput(&pszText, COMBOBOXEXITEM , 8) ; pszText
, Numput(cchTextMax, COMBOBOXEXITEM , 12) ; cchTextMax - If text information is being set, this member is ignored.
, NumPut(iImage, COMBOBOXEXITEM , 16) ; iImage
, NumPut(iSelectedImage, COMBOBOXEXITEM , 20) ; iSelectedImage
, Numput(iOverlay, COMBOBOXEXITEM , 24) ; iOverlay
, Numput(iIndent, COMBOBOXEXITEM , 28) ; iIndent
;~ , NumPut(CBEIF_LPARAM , COMBOBOXEXITEM , 32) ; lParam
}[/code]
[attachment=2]Verde.png[/attachment]
[attachment=1]Amarelo.png[/attachment]
[attachment=0]Vermelho.png[/attachment]
