LPARAMETERS tlNewVal
* Ставим/убираем tips'ы 
* Т.е. всплывающие подсказки в дереве
#define GWL_STYLE (- 16 ) 
#define WS_EX_TOOLWINDOW 0x80 &&  128  && 0x00000080L 

DECLARE INTEGER GetWindowLong IN win32api INTEGER, INTEGER 
DECLARE INTEGER SetWindowLong IN win32api INTEGER, INTEGER, INTEGER 
local lnStyle 
lnStyle=GetWindowLong(This.hWnd, GWL_Style) 
lnStyle=IIF(m.tlNewVal, BitAnd(m.lnStyle, BitNot(WS_EX_TOOLWINDOW)),BitOr(m.lnStyle, WS_EX_TOOLWINDOW)) 
=SetWindowLong(This.hWnd, GWL_Style, m.lnStyle)