Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
window trans ?
#1
<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 Confusedhock:

btw. i have a ~long list with wishes and suggestions, should i post or mail that ?
pi
#2
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.
#3
<pre>WinTransparent(win(mouse) -100)</pre>

it doesn't work on my xp.
maybe its because i use bblean as shell and not explorer ?
pi
#4
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.
#5
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.
#6
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)
#7
No.


Forum Jump:


Users browsing this thread: 1 Guest(s)