PureBasic Forums - English

https://www.purebasic.fr/english/viewto ... 41#p574941
https://www.purebasic.fr/english/search ... ITEMCHANGE

https://i.imgur.com/MhH4soo.png
EnableExplicit

Structure NMBHOTITEM Extends NMHDR
dwFlags.l
EndStructure

#BCN_HOTITEMCHANGE = -1249

Enumeration
#Window
#WinSetColor
EndEnumeration

Enumeration
#btn
#StatusBar
EndEnumeration


Global hovering, hBtn, hGUI, wwe, eg, hGUI2
Global m.POINT ...

Perhaps this other option will suit you:
BCN_HOTITEMCHANGE


EnableExplicit


Define x,y
Define co.POINT
Define hWnd
Define hWndTmp
Define Quit

Structure GdtID
id.i
hdl.i
EndStructure

Global NewList GdtID.GdtID()


Procedure GetGadgetPB(Handle)
ForEach GdtID()
If GdtID()\hdl = Handle ...

... with keystrokes and different types of clicks ( example AutoIt3 )
EnableExplicit
Declare MyWindowCallback(hWin, Msg, wParam, lParam)
#BCN_HOTITEMCHANGE = -1249

Structure NMBHOTITEM Extends NMHDR
dwFlags.l
EndStructure

Structure NMLVSCROLL Extends NMHDR
DX.i
DY.i
EndStructure

Structure ...

Tks AZJIO,

there are many ways to do the job.

I don't use #BCN_HOTITEMCHANGE, it may be more easy using it.
Tks again!

... tried to use the example with #BS_OWNERDRAW, but there is no hover event in it. There is a pressed button event - #ODS_SELECTED.
I tried the #BCN_HOTITEMCHANGE event, but it doesn't work together with #BS_OWNERDRAW. I've tried disabling all button border styles, but that doesn't work. Using GetDC ...

EnableExplicit
Declare MyWindowCallback(hWin, Msg, wParam, lParam)
#BCN_HOTITEMCHANGE = -1249
#img0 = 0
#img1 = 1

Structure NMBHOTITEM Extends NMHDR
dwFlags.l
EndStructure

Global k = 0, btn1, btn2

OpenWindow(0, 0, 0, 350, 170,"", #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window ...

... Important: Only works with XP skins enabled. Your pic shows the button with skins enabled so this shouldn't limit you:
#BCN_FIRST = -1250
#BCN_HOTITEMCHANGE = #BCN_FIRST+1
#HICF_ENTERING = 17
#HICF_LEAVING = 33

Structure NMBCHOTITEM
hdr.NMHDR
flags.l
EndStructure

Procedure WinProc(hwnd ...

... 1250
#NM_CUSTOMTEXT=#NM_FIRST-24
#NM_FONTCHANGED=#NM_FIRST-23
#NM_GETCUSTOMSPLITRECT=#BCN_FIRST + 3
#NM_TVSTATEIMAGECHANGING=#NM_FIRST - 24
#BCN_HOTITEMCHANGE=#BCN_FIRST+1

#HICF_OTHER =$00000000
#HICF_MOUSE =$00000001
#HICF_ARROWKEYS =$00000002
#HICF_ACCELERATOR =$00000004
#HICF_DUPACCEL =$00000008 ...

... If event=#PB_Event_Gadget ;If event is from a gadget

Select EventGadget() ; get the gadget number
Case MainWindow\btnClose

[b]If #BCN_HOTITEMCHANGE [/b] ;I am confused here
SetGadgetText(MainWindow\txtMessage,""Mouse over button"")
EndIf

EndSelect

EndIf
Until event=#PB_Event ...

... the code easyer to read.
And I have 2 new problems now ;)
First how can I recognize a Mouseover event? I guess It has something to do with #BCN_HOTITEMCHANGE but It's not declared.
Second. #WS_TABSTOP isn't working, does someone know why? I guess I need #BS_NOTIFY as a Window Parameter but it isn't ...