02-12-2017, 01:34 AM
I want to replace the tags window with another window which is a QM dialog which I created myself.
I modified the code to have it check for the below dialog (Dialog3) and place it at the bottom right corner.
The problem is that that I can not interact with the dialog (can not click upper menubar or buttons).
The dialog (Dialog3, below) is a simple default dialog with a default menubar at the top.
I replaced the trigger with "Dialog3" and made sure the following is present (modifed the inserted code)
Within the "MoveSize" subfunction below, I have disabled the code under the comment
The below dialog get's placed and moved correctly, but I can not interact with it.
Function Dialog3
I modified the code to have it check for the below dialog (Dialog3) and place it at the bottom right corner.
The problem is that that I can not interact with the dialog (can not click upper menubar or buttons).
The dialog (Dialog3, below) is a simple default dialog with a default menubar at the top.
I replaced the trigger with "Dialog3" and made sure the following is present (modifed the inserted code)
Within the "MoveSize" subfunction below, I have disabled the code under the comment
The below dialog get's placed and moved correctly, but I can not interact with it.
Function Dialog3
str md=
;BEGIN MENU
;>&File
;,&Open :501 0x0 0x0 Co
;,&Save :502 0x0 0x0 Cs
;,>Submenu
;,,Item1 :551
;,,Item2 :552
;,,<
;,-
;,E&xit :2
;,<
;>&Edit
;,Cu&t :601
;,&Copy :602
;,&Paste :603
;,<
;>&Help
;,&About :901
;,<
;END MENU
;;menu bar example:
;if(!ShowDialog(dd &sub.DlgProc &controls 0 0 0 0 0 0 0 0 md)) ret
;;popup menu example:
;int i=ShowMenu(md); out i
str dd=
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x8 0 0 224 136 "Dialog3"
;1 Button 0x54030001 0x4 116 116 48 14 "OK"
;2 Button 0x54030000 0x4 168 116 48 14 "Cancel"
;END DIALOG
;DIALOG EDITOR: "" 0x2040308 "*" "" "" ""
if(!ShowDialog(dd &sub.DlgProc 0 0 0 0 0 0 0 0 0 md)) ret
#sub DlgProc
function# hDlg message wParam lParam
sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1