window trans ?

[_pi]

<pre>ppbang("*Window Trans! -100 active")</pre>

with that i make the active window transparent on wheel down on caption.
ppbang tells powerpro to do that.

how to make that with qm ?

gintaras, i promise to learn more about those window styles,
i know that its similar to WS_BORDER and friends hock:

btw. i have a ~long list with wishes and suggestions, should i post or mail that ?

[Gintaras]

Code:

Copy      Help

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
;WinTransparent(win -200)


def WS_EX_LAYERED 0x00080000
dll user32 #SetLayeredWindowAttributes hwnd crKey !bAlpha dwFlags

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

About your wish-list: as you like. I'll wait.

[_pi]

<pre>WinTransparent(win(mouse) -100)</pre>

it doesn't work on my xp.
maybe its because i use bblean as shell and not explorer ?

[ken gray]

I can't get it to work on my XP either, however, I'm not a very skilled coder when it comes to this level of programming.

[Gintaras]

There is something wrong with #err statement. Delete

#err 1
#if 0

and function will work.


I just discovered one little bug: code copied from here appends space to each line, and #err doesn't like it.

[MOZER]

IS THERE A WAY TO USE THIS FUNCTION WITH AN ID OR CHILD ? I DONT WANT TO MAKE THE MAIN WINDOW TRANSPARENT JUST THE ID OR CHILD.

Code:

Copy      Help

int hwnd=id(359 "RUN TIMER")
WinTransparent(hwnd -255)

[Gintaras]

No.