Passing variable values to a Dialog

[Gintaras]

It is one of ways.
Another - ShowDialog ... param, and DT_GetParam.

Macro Macro2508

Code:

Copy      Help

Dialog161 5 "fff"

Function Dialog161

Code:

Copy      Help

function a str'b

type VARIABLES10387 a str'b
VARIABLES10387 x; x.a=a; x.b=b

if(!ShowDialog("Dialog161_2" &Dialog161_2 0 0 0 0 0 &x)) ret

Function Dialog161_2

Code:

Copy      Help

;\Dialog_Editor
function# hDlg message wParam lParam

VARIABLES10387& x=+DT_GetParam(hDlg)
sel message
,case WM_INITDIALOG
,out x.a
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,out x.b
,case IDCANCEL
ret 1

;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 224 136 "Dialog"
;1 Button 0x54030001 0x4 116 116 48 14 "OK"
;2 Button 0x54030000 0x4 168 116 48 14 "Cancel"
;END DIALOG
;DIALOG EDITOR: "" 0 "*" "" "" ""

With #sub DlgProc v would be much easier, then DlgProc simply can use main function's variables.