Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
dialog trouble
#1
how would i emcrypt this dialog? and when it opens it wont close tyvm
Code:
Copy      Help
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

Web browser control is defined in SHDocWv type library, which is already declared, so we don't have to declare it again.

if(!ShowDialog("Dialog_with_web_browser" &Dialog_with_web_browser 0 _hwndqm)) ret

BEGIN DIALOG
0 "" 0x10CF0A44 0x100 0 0 277 200 "Form"
3 ActiveX 0x54000000 0x4 12 20 236 154 "SHDocVw.WebBrowser"
4 Button 0x54032001 0x4 0 0 48 14 "Back"
5 Button 0x54032000 0x4 48 0 48 14 "Forward"
6 Button 0x54032000 0x0 96 0 48 14 "Stop"
7 Button 0x54032000 0x0 144 0 48 14 "Refresh"
8 Button 0x54032000 0x0 192 0 48 14 "Home"
END DIALOG
DIALOG EDITOR: "" 0x2010700 "" ""


ret
messages
sel message
    case WM_INITDIALOG
    SHDocVw.WebBrowser we3._getcontrol(id(3 hDlg))
    we3._setevents("we3_DWebBrowserEvents2")
    we3.Navigate("http://www.google.com")
    
    case WM_SIZE
    RECT r; GetClientRect(hDlg &r)
    MoveWindow id(3 hDlg) 0 30 r.right r.bottom-30 1
    
    case WM_COMMAND goto messages2
ret
messages2
sel wParam
    case [4,5,6,7,8]
    err-
    we3._getcontrol(id(3 hDlg))
    sel wParam
        case 4 we3.GoBack
        case 5 we3.GoForward
        case 6 we3.Stop
        case 7 we3.Refresh
        case 8 we3.GoHome
    err+
    
    case IDOK
    case IDCANCEL
ret 1
#2
Install new QM version. Read about dialog encryption in Help.
#3
i just installed qm Sad again i reformated... with the code i gave it closes?
tyvm for ur quick responce
#4
i have the newest version out????
#5
what problems?
#6
ok the code above does it work fine for you? i cant close the dialog box after it opens. if its not working right for you.do you know where i went wrong ty
#7
Works. If you cannot close, either you have old QM version or somehow old System folder version. In Options, click 'Check Extensions' button. What it says?
#8
http://www.quickmacros.com/forum/showthr...p?tid=2376
#9
tyvm john i looked in the search and couldnt find it any where tyvm got it working
and for any one else running into this problem the id 2 "case"2 cant be taken i changed mine and works great tyvm john
#10
Gintaras Wrote:Works. If you cannot close, either you have old QM version or somehow old System folder version. In Options, click 'Check Extensions' button. What it says?

to answer your question i chacked it it says no problems have been detected
ty for you help Gintaras
#11
In the list of macros, open

System\Dialogs\Dialog Functions\private\DefDialogProc

. Copy the text as BBCode and post it here.


Forum Jump:


Users browsing this thread: 1 Guest(s)