please give bars a transparent background option.
global qm_url= "http://www.quickmacros.com/";
in qm i make a toolbar with (code):
/hook deskbar_functions /col 0x8D8D8E /isiz 12 12
taskmanager :run "C:\WINDOWS\System32\taskmgr.exe" *
C:\WINDOWS\System32\taskmgr.exe
c :explorer("c:\") * %ProgramFiles%\PowerPro\icons\HDC.ico
d :explorer("d:\") * %ProgramFiles%\PowerPro\icons\HDd.ico
e :explorer("e:\") * %ProgramFiles%\PowerPro\icons\HDe.ico
f :explorer("f:\") * %ProgramFiles%\PowerPro\icons\HDf.ico
i :explorer("i:\") * %ProgramFiles%\PowerPro\icons\HDC.ico
***
/hook deskbar_functions is calling function
deskbar_functions
***
function hWnd message wParam lParam
sel message
case WM_CREATE
Transparent hWnd 250 0x8D8D8E
**
function Transparent
**
function# hwnd opacity [color] ;;opacity: -255 to 255; <0 toggles; >255 makes
it normal window.
Makes a window transparent (Win2000/XP).
Returns 1 if the window was transparent previously.
If color is used, this color will be 100% transparent.
100% transparent parts are transparent to mouse messages.
EXAMPLE
Transparent(win -200)
dll user32 #SetLayeredWindowAttributes hwnd crKey !bAlpha dwFlags
#err 0
int e(GetWindowLong(hwnd GWL_EXSTYLE)) t(e&WS_EX_LAYERED!=0)
if(t and (opacity>255 or opacity<0))
SetLayeredWindowAttributes(hwnd 0 255 2)
SetWindowLong(hwnd GWL_EXSTYLE e~WS_EX_LAYERED)
else if(opacity<255)
if(!t) SetWindowLong(hwnd GWL_EXSTYLE e|WS_EX_LAYERED)
SetLayeredWindowAttributes(hwnd color iif(opacity<0 -opacity opacity)
iif(getopt(nargs)>2 3 2))
ret t
**
that somehow makes a qm toolbar transparent.
--
n thanks | pi
shellshaolin
currently listening to: silence
Attention: PowerPro's Web site has moved: http://www.ppro.org
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/power-pro/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
