[bb] RemoveTabberHottracking() by sswift [ 1+ years ago ]

BlitzBot · June 29, 2017, 00:28:42

Title : RemoveTabberHottracking()
Author : sswift
Posted : 1+ years ago

Description : This function stops the tabber gadget in Blitzplus from highlighting the tabs in blue when you mouse over them.

Thanks to Eikon for his assitance in debugging this!

Code :

Code: blitzbasic

; Add to User32.decls:
;
; .lib "user32.dll"
; SetWindowLong%(hWnd%,Val%,Long%):"SetWindowLongA"
; GetWindowLong%(hWnd%,Val%):"GetWindowLongA"
; GetParent%(hwnd%)

Function RemoveTabberHottrack(Gadget)

	Local hWnd% = QueryObject(Gadget, 1)
	hWnd = GetParent(hWnd)
	
	Local GWL_STYLE        = -16
	Local TCS_HOTTRACK     = $40
	Local NOT_TCS_HOTTRACK = -65  ; Blitz has no bitwise NOT, so we need to NOT TCS_HOTTRACK manually.
	
	SetWindowLong(hWnd, GWL_STYLE, GetWindowLong(hWnd, GWL_STYLE) And NOT_TCS_HOTTRACK)

End Function

Comments :

Eikon(Posted 1+ years ago)

This was a tricky one. Well done, Shawn

SyntaxBomb - Indie Coders

[bb] RemoveTabberHottracking() by sswift [ 1+ years ago ]

BlitzBot