October 28, 2020, 05:40:59 AM

Author Topic: [bb] RemoveTabberHottracking() by sswift [ 1+ years ago ]  (Read 1124 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
[bb] RemoveTabberHottracking() by sswift [ 1+ years ago ]
« on: June 29, 2017, 12:28:42 AM »
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
  1. ; Add to User32.decls:
  2. ;
  3. ; .lib "user32.dll"
  4. ; SetWindowLong%(hWnd%,Val%,Long%):"SetWindowLongA"
  5. ; GetWindowLong%(hWnd%,Val%):"GetWindowLongA"
  6. ; GetParent%(hwnd%)
  7.  
  8. Function RemoveTabberHottrack(Gadget)
  9.  
  10.         Local hWnd% = QueryObject(Gadget, 1)
  11.         hWnd = GetParent(hWnd)
  12.        
  13.         Local GWL_STYLE        = -16
  14.         Local TCS_HOTTRACK     = $40
  15.         Local NOT_TCS_HOTTRACK = -65  ; Blitz has no bitwise NOT, so we need to NOT TCS_HOTTRACK manually.
  16.        
  17.         SetWindowLong(hWnd, GWL_STYLE, GetWindowLong(hWnd, GWL_STYLE) And NOT_TCS_HOTTRACK)
  18.  
  19. End Function


Comments :


Eikon(Posted 1+ years ago)

 This was a tricky one. Well done, Shawn :)


 

SimplePortal 2.3.6 © 2008-2014, SimplePortal