02-14-2008, 05:27 PM
str controls = "4"
str Teach
Teach="&Andrew[]Jim[]James[]Don[]Derek"
if(!ShowDialog("dialog_with_date_picker" &dialog_with_date_picker)) ret
Date_output
Get_TeacherI've tried this. I have put the list declarations just about everywhere in the code. The only way I can get the combo box to work is if I run the date picker as a macro with the show in that..like this
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages
def DTM_FIRST 0x1000
def DTM_GETSYSTEMTIME (DTM_FIRST + 1)
def DTM_SETSYSTEMTIME (DTM_FIRST + 2)
;BEGIN DIALOG
;0 "" 0x10C80A44 0x100 0 0 223 135 "New Student Form"
;1 Button 0x54030001 0x4 120 116 48 14 "OK"
;2 Button 0x54030000 0x4 170 116 48 14 "Cancel"
;3 SysDateTimePick32 0x54000000 0x204 6 6 90 12 ""
;4 ComboBox 0x54230243 0x0 6 24 90 213 "Teach"
;END DIALOG
;DIALOG EDITOR: "" 0x2020105 "" "" ""
str controls = "4"
str Teach
Teach="&Andrew[]Jim[]James[]Don[]Derek"
if(!ShowDialog("dialog with date picker" 0 &controls)) ret
ret
;messages
SYSTEMTIME- t_st1
sel message
,case WM_INITDIALOG
,DT_Init(hDlg lParam)
,ret 1
,case WM_DESTROY DT_DeleteData(hDlg)
,case WM_COMMAND goto messages2
ret
;messages2
int ctrlid=wParam&0xFFFF; message=wParam>>16
sel wParam
,case IDOK
,DT_Ok hDlg
,SendMessage(id(3 hDlg) DTM_GETSYSTEMTIME 0 &t_st1)
,case IDCANCEL DT_Cancel hDlg
ret 1But then I can't get that macro to work right with the functions
