Controlling a multipage dialog

[redbull2k]

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?