LA/QM forum › Quick Macros › Help (QM) v
Clutter Cloak

Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Clutter Cloak
Lucas Offline
Posting Freak
Posts: 858
Threads: 196
Joined: Apr 2005
#1
01-15-2009, 03:10 PM
How can I create a function like http://tomcooke.me.uk/?page_id=5 in QM?
Find
Gintaras Offline
Administrator
Posts: 12,073
Threads: 140
Joined: Dec 2002
#2
01-15-2009, 03:38 PM
Function dlg_cc
Trigger CSF11     Help - how to add the trigger to the macro
Code:
Copy      Help
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

int h=win("dlg_cc" "#32770")
if(h) clo h; ret

hDlg=ShowDialog("dlg_cc" &dlg_cc 0 0 1)
opt waitmsg 1
wait 0 WD hDlg

;BEGIN DIALOG
;0 "" 0x80000040 0x8000080 0 0 227 151 "dlg_cc"
;END DIALOG
;DIALOG EDITOR: "" 0x2030006 "" "" ""

ret
;messages
sel message
,case WM_INITDIALOG
,;get rectangles
,int hc=child(mouse); if(!hc) hc=win(mouse)
,RECT rc; GetWindowRect hc &rc
,max hDlg ;;also makes visible
,RECT rd; GetWindowRect hDlg &rd
,RECT ri
,if(!IntersectRect(&ri &rd &rc)) ret
,
,;create hole
,int rw=CreateRectRgn(0 0 rd.right rd.bottom)
,int r2=CreateRectRgn(ri.left ri.top ri.right ri.bottom)
,CombineRgn(rw rw r2 RGN_DIFF)
,SetWindowRgn hDlg rw 1
,DeleteObject r2
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1
Website Find
Lucas Offline
Posting Freak
Posts: 858
Threads: 196
Joined: Apr 2005
#3
01-15-2009, 04:03 PM
Thanks.

Can you include % opacity of the hole and to obscure the taskbar too?
Find
Gintaras Offline
Administrator
Posts: 12,073
Threads: 140
Joined: Dec 2002
#4
01-15-2009, 04:06 PM
opacity: create transparent window in the hole

taskbar: make topmost and use siz and hid- instead of max
Website Find
Lucas Offline
Posting Freak
Posts: 858
Threads: 196
Joined: Apr 2005
#5
01-15-2009, 04:17 PM
opacity: using the function Transparent?
Find
Gintaras Offline
Administrator
Posts: 12,073
Threads: 140
Joined: Dec 2002
#6
01-15-2009, 04:20 PM
yes
Website Find
Lucas Offline
Posting Freak
Posts: 858
Threads: 196
Joined: Apr 2005
#7
01-15-2009, 04:38 PM
which is the handle of the hole (rw or r2) ?
Find
Gintaras Offline
Administrator
Posts: 12,073
Threads: 140
Joined: Dec 2002
#8
01-15-2009, 05:06 PM
r2, but it is added to rw and then deleted
Website Find
Lucas Offline
Posting Freak
Posts: 858
Threads: 196
Joined: Apr 2005
#9
01-15-2009, 05:44 PM
,;create hole
,int rw=CreateRectRgn(0 0 rd.right rd.bottom)
,int r2=CreateRectRgn(ri.left ri.top ri.right ri.bottom)
,Transparent(r2 128)
,CombineRgn(rw rw r2 RGN_DIFF)
,SetWindowRgn hDlg rw 1
,DeleteObject r2

doesn't work.
Find
Gintaras Offline
Administrator
Posts: 12,073
Threads: 140
Joined: Dec 2002
#10
01-15-2009, 06:11 PM
r2 is not window
create your window or dialog
Website Find
Lucas Offline
Posting Freak
Posts: 858
Threads: 196
Joined: Apr 2005
#11
01-16-2009, 01:22 PM
This code works like the program:

Function dlg_cc
Trigger AWF11     Help - how to add the trigger to the macro
Code:
Copy      Help
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

int h=win("dlg_cc" "#32770")
if(h) clo h; ret

GdiObject- brush=CreateSolidBrush(ColorFromRGB(0 0 0))
hDlg=ShowDialog("dlg_cc" &dlg_cc 0 0 1)
opt waitmsg 1
Transparent(hDlg 220)
wait 0 KF Z;;wait for ESC


;BEGIN DIALOG
;0 "" 0x80000040 0x8000080 0 0 227 151 "dlg_cc"
;END DIALOG
;DIALOG EDITOR: "" 0x2030005 "" "" ""

ret
;messages
sel message
,case WM_INITDIALOG
,;get rectangles
,int hc=child(mouse); if(!hc) hc=win(mouse)
,RECT rc; GetWindowRect hc &rc
,ont hDlg
,max hDlg
,RECT rd; GetWindowRect hDlg &rd
,RECT ri
,if(!IntersectRect(&ri &rd &rc)) ret
,
,;create hole
,int rw=CreateRectRgn(0 0 rd.right rd.bottom)
,int r2=CreateRectRgn(ri.left ri.top ri.right ri.bottom)
,CombineRgn(rw rw r2 RGN_DIFF)
,SetWindowRgn hDlg rw 1
,DeleteObject r2
,case WM_CTLCOLORDLG ret brush
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1
Find


Forum Jump:


Users browsing this thread: 2 Guest(s)