LA/QM forum › Quick Macros › Help (QM) v
Controlling a multipage dialog

Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Controlling a multipage dialog
Time_Runner Offline
Senior Member
Posts: 262
Threads: 63
Joined: Nov 2005
#1
09-13-2008, 02:31 AM
I hope that someone can help me with this. I am using a next and previous button to make your multipage dialog move 0, 1, 2 and 2, 1, 0 but the 2 page will not show. Can someone please tell me what I am doing wrong?

Function Dialog85
Code:
Copy      Help
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

str controls = "7 8"
str o7Pre o8Nex
if(!ShowDialog("Dialog85" &Dialog85 &controls)) ret

;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 265 163 "Dialog"
;1001 Static 0x54020000 0x4 106 4 48 13 "Page0"
;1101 Static 0x44020000 0x4 106 4 48 13 "Page1"
;1201 Static 0x44020000 0x4 106 4 48 13 "Page2"
;1 Button 0x54030001 0x4 12 144 48 14 "OK"
;2 Button 0x54030000 0x4 192 146 48 14 "Cancel"
;4 Button 0x54032000 0x4 242 146 18 14 "?"
;5 Static 0x54000010 0x20004 4 138 256 1 ""
;7 Button 0x54033009 0x4 68 146 56 14 "< Previous"
;8 Button 0x54003009 0x4 128 146 56 14 "Next >"
;END DIALOG
;DIALOG EDITOR: "" 0x2030001 "" "0" ""

ret
;messages
sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case [7,8] DT_Page hDlg IsDlgButtonChecked(hDlg 8)
,case IDOK
,case IDCANCEL
ret 1
Find
redbull2k Offline
Member
Posts: 229
Threads: 22
Joined: Sep 2007
#2
09-13-2008, 03:10 AM
Function Dialog84
Code:
Copy      Help
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

str controls = "3 7 8"
str lb3 o7Pre o8Nex
lb3="Page0[]Page1[]&Page2"
if(!ShowDialog("Dialog84" &Dialog84 &controls)) ret

;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 265 163 "Dialog"
;3 ListBox 0x54230101 0x204 4 4 96 80 ""
;1001 Static 0x54020000 0x4 106 4 48 13 "Page0"
;1101 Static 0x44020000 0x4 106 4 48 13 "Page1"
;1201 Static 0x44020000 0x4 106 4 48 13 "Page2"
;1 Button 0x54030001 0x4 12 144 48 14 "OK"
;2 Button 0x54030000 0x4 192 146 48 14 "Cancel"
;4 Button 0x54032000 0x4 242 146 18 14 "?"
;5 Static 0x54000010 0x20004 4 138 256 1 ""
;7 Button 0x54033009 0x4 68 146 56 14 "< Previous"
;8 Button 0x54003009 0x4 128 146 56 14 "Next >"
;END DIALOG
;DIALOG EDITOR: "" 0x2030001 "" "0" ""

ret
;messages
sel message
,case WM_INITDIALOG
,goto selectpage
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 7
,int tt = LB_SelectedItem(id(3 hDlg))
,tt-1
,LB_SelectItem id(3 hDlg) tt
,DT_Page hDlg tt
,case 8
,int t = LB_SelectedItem(id(3 hDlg))
,t+1
,LB_SelectItem id(3 hDlg) t
,DT_Page hDlg t
,case IDOK
,case IDCANCEL
,case LBN_SELCHANGE<<16|3
,;selectpage
,_i=LB_SelectedItem(id(3 hDlg))
,DT_Page hDlg 0 _i
ret 1

something like this?
Find
Time_Runner Offline
Senior Member
Posts: 262
Threads: 63
Joined: Nov 2005
#3
09-13-2008, 04:20 AM
Sorry but I need to be able to at any time select next or previous and have it take me to 0, 1, 2 or 2, 1, 0 and always work assuming that there is indeed a next or previous page and I do not want a list box.

Example:
I am on page 1 and I press the next button so I go to page 2

Or
I am on page 2 and I press previous and I am on page 1 then I press next and I am on page 2.
Find
redbull2k Offline
Member
Posts: 229
Threads: 22
Joined: Sep 2007
#4
09-13-2008, 05:29 AM
Function Dialog84
Code:
Copy      Help
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

str controls = "7 8"
str o7Pre o8Nex

if(!ShowDialog("Dialog84" &Dialog84 &controls)) ret

;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 265 163 "Dialog"
;1001 Static 0x54020000 0x4 106 4 48 13 "Page0"
;1101 Static 0x44020000 0x4 106 4 48 13 "Page1"
;1201 Static 0x44020000 0x4 106 4 48 13 "Page2"
;1 Button 0x54030001 0x4 12 144 48 14 "OK"
;2 Button 0x54030000 0x4 192 146 48 14 "Cancel"
;4 Button 0x54032000 0x4 242 146 18 14 "?"
;5 Static 0x54000010 0x20004 4 138 253 1 ""
;7 Button 0x54033004 0x4 68 146 56 14 "< Previous"
;8 Button 0x54003004 0x4 128 146 56 14 "Next >"
;END DIALOG
;DIALOG EDITOR: "" 0x2030002 "" "0" ""

ret
;messages
sel message
,case WM_INITDIALOG
,EnableWindow(id(7 hDlg)0)
,int+ t = 0
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 8
,EnableWindow(id(7 hDlg)1)
,t+1
,if(t = 2)
,,EnableWindow(id(8 hDlg)0)
,DT_Page(hDlg t)
,
,case 7
,EnableWindow(id(8 hDlg)1)
,t-1
,if(t = 0)
,,EnableWindow(id(7 hDlg)0)
,DT_Page(hDlg t)
,case IDOK
,case IDCANCEL

ret 1

how about now?
Find
Time_Runner Offline
Senior Member
Posts: 262
Threads: 63
Joined: Nov 2005
#5
09-13-2008, 07:41 AM
WOW and WOW that is perfect and it answers another question!

Added:
another WOW I did not know global variables worked that way.
Find
Gintaras Offline
Administrator
Posts: 12,074
Threads: 141
Joined: Dec 2002
#6
09-13-2008, 08:14 AM
Replace
int+ t = 0
to
Code:
Copy      Help
,int-- t; t = 0
Website Find
Time_Runner Offline
Senior Member
Posts: 262
Threads: 63
Joined: Nov 2005
#7
09-13-2008, 05:24 PM
Can someone tell me why the information for the 3rd page appears on the 1st page when you start the macro and then after you press next everything is corrected?

Function My_Dialog87
Code:
Copy      Help
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

str controls = "5 6 1208"
str o5Pre o6Nex e1208
if(!ShowDialog("My_Dialog87" &My_Dialog87 &controls)) ret

;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 265 163 "Dialog"
;1001 Static 0x54020000 0x4 106 4 48 13 "Page0"
;1101 Static 0x44020000 0x4 106 4 48 13 "Page1"
;1201 Static 0x44020000 0x4 106 4 48 13 "Page2"
;1 Button 0x54030001 0x4 12 144 48 14 "OK"
;2 Button 0x54030000 0x4 192 146 48 14 "Cancel"
;4 Button 0x54032000 0x4 242 146 18 14 "?"
;5 Button 0x54033004 0x4 68 146 56 14 "< Previous"
;6 Button 0x54003004 0x4 128 146 56 14 "Next >"
;1208 Edit 0x54030080 0x200 16 64 96 14 ""
;1209 Static 0x54000000 0x0 24 88 48 12 "Text"
;END DIALOG
;DIALOG EDITOR: "" 0x2030001 "" "0" ""

ret
;messages
sel message
,case WM_INITDIALOG
,EnableWindow(id(5 hDlg)0)
,int-- t; t = 0
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 6
,EnableWindow(id(5 hDlg)1)
,t+1
,if(t = 2)
,,EnableWindow(id(6 hDlg)0)
,DT_Page(hDlg t)
,
,case 5
,EnableWindow(id(6 hDlg)1)
,t-1
,if(t = 0)
,,EnableWindow(id(5 hDlg)0)
,DT_Page(hDlg t)
,case IDOK
,case IDCANCEL

ret 1
Find
Gintaras Offline
Administrator
Posts: 12,074
Threads: 141
Joined: Dec 2002
#8
09-13-2008, 05:43 PM
3-rd page was selected in dialog editor.
Website Find
Time_Runner Offline
Senior Member
Posts: 262
Threads: 63
Joined: Nov 2005
#9
09-13-2008, 06:37 PM
Sorry I just do not see it. I change everything that I can include 1208 to 1108 and it still is there when you start the macro.

Added:
It says that it is Page 0
Find
Gintaras Offline
Administrator
Posts: 12,074
Threads: 141
Joined: Dec 2002
#10
09-13-2008, 06:50 PM
The correct answer is:
After case WM_INITDIALOG, insert

,DT_Page(hDlg 0)

Without it all controls in all pages are visible. DT_Page hides controls in other pages.
Website Find
Time_Runner Offline
Senior Member
Posts: 262
Threads: 63
Joined: Nov 2005
#11
09-13-2008, 07:03 PM
How dumb can I be.

Thank You
Find
Time_Runner Offline
Senior Member
Posts: 262
Threads: 63
Joined: Nov 2005
#12
10-03-2008, 06:01 AM
I would like the Nest and Previous buttons to be on the Zero and the One page but not the Two page. I am not sure of the best way to do this. I do not want to take away any of the control of the Nest and Previous buttons and I do not want to do something like hide the buttons for the Two page because sometimes it does not hide. Every time I try to remove the Nest and Previous buttons I get an unwanted response.

Function My_Dialog87
Code:
Copy      Help
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

str controls = "5 6 1208"
str o5Pre o6Nex e1208
if(!ShowDialog("My_Dialog87" &My_Dialog87 &controls)) ret

;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 265 163 "Dialog"
;1001 Static 0x54020000 0x4 106 4 48 13 "Page0"
;1101 Static 0x44020000 0x4 106 4 48 13 "Page1"
;1201 Static 0x44020000 0x4 106 4 48 13 "Page2"
;1 Button 0x54030001 0x4 12 144 48 14 "OK"
;2 Button 0x54030000 0x4 192 146 48 14 "Cancel"
;4 Button 0x54032000 0x4 242 146 18 14 "?"
;5 Button 0x54033004 0x4 68 146 56 14 "< Previous"
;6 Button 0x54003004 0x4 128 146 56 14 "Next >"
;1208 Edit 0x54030080 0x200 16 64 96 14 ""
;1209 Static 0x54000000 0x0 24 88 48 12 "Text"
;END DIALOG
;DIALOG EDITOR: "" 0x2030001 "" "0" ""

ret
;messages
sel message
,case WM_INITDIALOG
,DT_Page(hDlg 0)
,EnableWindow(id(5 hDlg)0)
,int-- t; t = 0
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 6
,EnableWindow(id(5 hDlg)1)
,t+1
,if(t = 2)
,,EnableWindow(id(6 hDlg)0)
,DT_Page(hDlg t)
,
,case 5
,EnableWindow(id(6 hDlg)1)
,t-1
,if(t = 0)
,,EnableWindow(id(5 hDlg)0)
,DT_Page(hDlg t)
,case IDOK
,case IDCANCEL

ret 1
Find
Gintaras Offline
Administrator
Posts: 12,074
Threads: 141
Joined: Dec 2002
#13
10-03-2008, 06:07 PM
After if(t = 2) insert

Function My_Dialog87
Code:
Copy      Help
,,hid(id(5 hDlg))
,,hid(id(6 hDlg))

Or place the buttons in a separate page, and with DT_Page use special string that shows two pages simultaneously.
Function My_Dialog87
Code:
Copy      Help
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

str controls = "1208"
str e1208
if(!ShowDialog("My_Dialog87" &My_Dialog87 &controls)) ret

;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 265 163 "Dialog"
;1001 Static 0x54020000 0x4 106 4 48 13 "Page0"
;1101 Static 0x44020000 0x4 106 4 48 13 "Page1"
;1201 Static 0x44020000 0x4 106 4 48 13 "Page2"
;1 Button 0x54030001 0x4 12 144 48 14 "OK"
;2 Button 0x54030000 0x4 192 146 48 14 "Cancel"
;4 Button 0x54032000 0x4 242 146 18 14 "?"
;2005 Button 0x54033004 0x4 68 146 56 14 "< Previous"
;2006 Button 0x54003004 0x4 128 146 56 14 "Next >"
;1208 Edit 0x54030080 0x200 16 64 96 14 ""
;1209 Static 0x54000000 0x0 24 88 48 12 "Text"
;END DIALOG
;DIALOG EDITOR: "" 0x2030001 "" "0" ""

ret
;messages
lpstr pagemap="(0 10) (1 10) 2"
sel message
,case WM_INITDIALOG
,DT_Page(hDlg 0 pagemap)
,EnableWindow(id(5 hDlg)0)
,int-- t; t = 0
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 2006 ;;Next
,EnableWindow(id(5 hDlg)1)
,t+1
,if(t = 2)
,,EnableWindow(id(6 hDlg)0)
,DT_Page(hDlg t pagemap)
,
,case 2005 ;;Previous
,EnableWindow(id(6 hDlg)1)
,t-1
,if(t = 0)
,,EnableWindow(id(5 hDlg)0)
,DT_Page(hDlg t pagemap)
,case IDOK
,case IDCANCEL

ret 1
Website Find
Time_Runner Offline
Senior Member
Posts: 262
Threads: 63
Joined: Nov 2005
#14
10-04-2008, 11:50 PM
I do not know how this works “Or place the buttons in a separate page, and with DT_Page use special string that shows two pages simultaneously.” But it works perfect and every time and I have something new to study.

Thank You

Added:
I do have one question why is the < Previous button now enabled when you are on the 0 Page?

Added:
I was placing the hide in the wrong place and it works fine now so if you can not get the enable/disable to work that is fine.
Find


Forum Jump:


Users browsing this thread: 2 Guest(s)