![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dlgprocs.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [WindowsNT SDKs] / mstools / win32s / setup / bldcui|
Return to dlgprocs.c CVS log | Up to [WindowsNT SDKs] / mstools / win32s / setup / bldcui |
1.1 root 1: /***************************************************************************/
2: /********************* Sample Dialog Procedures **************************/
3: /***************************************************************************/
4:
5: #include "cui.h"
6: #include "dialogs.h"
7: #include <stdlib.h>
8: #include <ctype.h>
9:
10:
11: #define iszBMax 11
12: #define INT_MAX 32767 /* maximum (signed) int value */
13: #define cbSymBuf 1024
14: #define cbNameMax 52
15:
16:
17: LPSTR _sz = NULL;
18:
19: #define FSingleByteCharSz(sz) ((BOOL)(((_sz = (sz)) != NULL) \
20: && AnsiNext((LPSTR)(_sz)) == _sz + 1))
21:
22: int FAR PASCAL LibMain(HANDLE, WORD, WORD, LPSTR);
23: int FAR PASCAL WEP (int);
24: LPSTR FAR PASCAL SzLastChar(LPSTR);
25: LPSTR FAR PASCAL SzDlgEvent(WORD);
26: int FAR PASCAL AsciiToInt(LPSTR);
27: LPSTR FAR PASCAL IntToAscii(int, LPSTR);
28:
29:
30:
31: /*
32: ** Purpose:
33: ** CheckBox Dialog procedure for templates with one to ten checkbox
34: ** controls.
35: **
36: ** Controls Recognized:
37: ** Checkbox - IDC_B1 to IDC_B10 (sequential)
38: ** Pushbutton - IDC_B, IDC_C, IDC_H, IDC_X
39: **
40: ** Initialization Symbols:
41: ** "CheckItemsIn" - list of "ON" and "OFF" string items for setting
42: ** the intial state of the checkbox controls, evaluated in
43: ** sequence ("ON" for checked, "OFF" for unchecked). If there
44: ** are more controls than items, extra controls are left unchecked.
45: ** If there are fewer items than controls, extra items are ignored.
46: ** "OptionsGreyed" - list of (one-based) indexes of checkboxes to be
47: ** initialized as disabled. Indexes not in the list will be
48: ** left enabled.
49: **
50: ** Termination Symbols:
51: ** "CheckItemsOut" - list of same format as "CheckItemsIn" representing
52: ** state of checkbox controls upon return.
53: ** "DLGEVENT" - one of the following, according to control event:
54: ** event value
55: ** ------- -------
56: ** IDC_B "BACK"
57: ** IDC_C "CONTINUE"
58: ** IDC_X "EXIT"
59: ** IDCANCEL "CANCEL"
60: **
61: ** Note:
62: ** Pushbutton IDC_H will open the related Help dialog, if any.
63: **
64: *****************************************************************************/
65: BOOL FAR PASCAL FCheckDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
66: {
67: WORD idc, cb, i, cItems;
68: char szSymBuf[cbSymBuf];
69:
70: switch (wMsg)
71: {
72: case WM_INITDIALOG:
73: cItems = UsGetListLength("CheckItemsIn");
74: idc = IDC_B1;
75: for (i = 1; i <= cItems; ++i)
76: {
77: WORD wCheck = 0;
78:
79: cb = CbGetListItem("CheckItemsIn", i, szSymBuf, cbSymBuf);
80: Assert(cb < cbSymBuf);
81: if (lstrcmp(szSymBuf, "ON") == 0)
82: wCheck = 1;
83: CheckDlgButton(hdlg, idc++, wCheck);
84: }
85:
86: cItems = UsGetListLength("OptionsGreyed");
87: idc = IDC_B1;
88: for (i = 1; i <= cItems; ++i)
89: {
90: int iOpt;
91:
92: cb = CbGetListItem("OptionsGreyed", i, szSymBuf, cbSymBuf);
93: Assert(cb < cbSymBuf);
94: iOpt = AsciiToInt((LPSTR)szSymBuf);
95: if (iOpt > 0
96: && iOpt <= 10)
97: EnableWindow(GetDlgItem(hdlg, IDC_B0 + iOpt), 0);
98: else if (*szSymBuf != '\0')
99: Assert(fFalse);
100: }
101: return(fTrue);
102:
103: case STF_REINITDIALOG:
104: case STF_ACTIVATEAPP:
105: return(fTrue);
106:
107: case WM_COMMAND:
108: switch (wParam)
109: {
110: case IDC_B1:
111: case IDC_B2:
112: case IDC_B3:
113: case IDC_B4:
114: case IDC_B5:
115: case IDC_B6:
116: case IDC_B7:
117: case IDC_B8:
118: case IDC_B9:
119: case IDC_B10:
120: CheckDlgButton(hdlg, wParam,
121: (WORD)!IsDlgButtonChecked(hdlg, wParam));
122: break;
123:
124: case IDC_H:
125: HdlgShowHelp();
126: return(fTrue);
127:
128: case IDC_B:
129: case IDC_C:
130: case IDC_X:
131: case IDCANCEL:
132: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
133: {
134: DestroyWindow(GetParent(hdlg));
135: return(fTrue);
136: }
137:
138: FRemoveSymbol("CheckItemsOut");
139: for (idc = IDC_B1; GetDlgItem(hdlg, idc); idc++)
140: if (!FAddListItem("CheckItemsOut",
141: IsDlgButtonChecked(hdlg, idc) ? "ON" : "OFF"))
142: {
143: DestroyWindow(GetParent(hdlg));
144: return(fFalse);
145: }
146: Assert((unsigned)(idc-IDC_B1+1) <= iszBMax);
147:
148: ReactivateSetupScript();
149: break;
150: }
151: break;
152: }
153:
154: return(fFalse);
155: }
156:
157:
158:
159: /*
160: ** Purpose:
161: ** Custom Install Dialog procedure for templates with one to ten custom
162: ** options each consisting of at least one checkbox with an optional
163: ** sub-option pushbutton or status string. The dialog also supports
164: ** an install path set button, display of the current install path, and
165: ** display of the current disk space status.
166: **
167: ** Controls Recognized:
168: ** Checkbox - IDC_B1 to IDC_B10
169: ** with optionaly assocated buttons or text:
170: ** Pushbutton - IDC_SP1 to IDC_SP10
171: ** Text - IDC_STATUS1 to IDC_STATUS10
172: ** Pushbutton - IDC_B, IDC_C, IDC_H, IDC_P, IDC_X
173: ** Text - IDC_TEXT1 through IDC_TEXT7
174: **
175: ** Initialization Symbols:
176: ** "CheckItemsState" - list of "ON" and "OFF" string items for setting
177: ** the intial state of the checkbox controls, evaluated in
178: ** sequence ("ON" for checked, "OFF" for unchecked). If there
179: ** are more controls than items, extra controls are left unchecked.
180: ** If there are fewer items than controls, extra items are ignored.
181: ** "StatusItemsText" - list of strings to initialize status text items
182: ** associated with checkboxes.
183: ** "DriveStatusText" - list of seven strings to initialize drive status
184: ** text items (IDC_TEXT1-7) in the following sequence:
185: ** dst_drive, dst_space_need, dst_space_free,
186: ** win_drive, win_space_need, win_space_free,
187: ** dst_path
188: ** If any of the "win_" items is an empty string, its label
189: ** text will be made non-visible.
190: **
191: ** Termination Symbols:
192: ** "CheckItemsState" - state of checkbox items (same format as above).
193: ** "DLGEVENT" - one of the following, depending on event:
194: ** event value
195: ** ---------- ----------
196: ** IDC_B "BACK"
197: ** IDC_C "CONTINUE"
198: ** IDC_P "PATH"
199: ** IDC_X "EXIT"
200: ** IDC_B1 to IDC_B10 "CHK1" to "CHK10"
201: ** IDC_SP1 to IDC_SP10 "BTN1" to "BTN10"
202: ** IDCANCEL "CANCEL"
203: ** STF_ACTIVATEAPP "REACTIVATE"
204: **
205: ** Note:
206: ** Pushbutton IDC_H will open the related Help dialog, if any.
207: **
208: *****************************************************************************/
209: BOOL FAR PASCAL FCustInstDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
210: {
211: char rgchChk[10];
212: char rgchBtn[10];
213: WORD idc;
214: WORD cItems;
215: WORD i, cb;
216: char szSymBuf[cbSymBuf];
217: LPSTR szEvent;
218:
219: switch (wMsg)
220: {
221: case STF_ACTIVATEAPP:
222: if (!FSetSymbolValue("DLGEVENT", "REACTIVATE"))
223: {
224: DestroyWindow(GetParent(hdlg));
225: return(fTrue);
226: }
227: ReactivateSetupScript();
228: return(fTrue);
229:
230: case STF_REINITDIALOG:
231: case WM_INITDIALOG:
232: cItems = UsGetListLength("CheckItemsState");
233: idc = IDC_B1;
234: for (i = 1; i <= cItems; ++i)
235: {
236: WORD wCheck = 0;
237:
238: cb = CbGetListItem("CheckItemsState", i, szSymBuf, cbSymBuf);
239: Assert(cb < cbSymBuf);
240: if (lstrcmp(szSymBuf, "ON") == 0)
241: wCheck = 1;
242: CheckDlgButton(hdlg, idc++, wCheck);
243: }
244:
245: cItems = UsGetListLength("StatusItemsText");
246: idc = IDC_STATUS1;
247: for (i = 1; i <= cItems; ++i)
248: {
249: WORD wCheck = 0;
250:
251: cb = CbGetListItem("StatusItemsText", i, szSymBuf, cbSymBuf);
252: Assert(cb < cbSymBuf);
253: SetDlgItemText(hdlg, idc++, szSymBuf);
254: }
255:
256: cItems = UsGetListLength("DriveStatusText");
257: idc = IDC_TEXT1;
258: for (i = 1; i <= cItems; ++i)
259: {
260: WORD wCheck = 0;
261:
262: cb = CbGetListItem("DriveStatusText", i, szSymBuf, cbSymBuf);
263: Assert(cb < cbSymBuf);
264: SetDlgItemText(hdlg, idc++, szSymBuf);
265: if (i >= 4
266: && i <= 6)
267: {
268: if (*szSymBuf == '\0')
269: ShowWindow(GetDlgItem(hdlg, IDC_TEXT4+i), SW_HIDE);
270: else
271: ShowWindow(GetDlgItem(hdlg, IDC_TEXT4+i), SW_SHOWNOACTIVATE);
272: }
273: }
274:
275: return(fTrue);
276:
277: case WM_COMMAND:
278: switch(wParam)
279: {
280: default:
281: szEvent = (LPSTR)NULL;
282: break;
283:
284: case IDC_B1:
285: case IDC_B2:
286: case IDC_B3:
287: case IDC_B4:
288: case IDC_B5:
289: case IDC_B6:
290: case IDC_B7:
291: case IDC_B8:
292: case IDC_B9:
293: case IDC_B10:
294: lstrcpy((LPSTR)rgchChk, "CHK");
295: IntToAscii((int)(wParam-IDC_B1+1), (LPSTR)(&rgchChk[3]));
296: szEvent = (LPSTR)rgchChk;
297: break;
298:
299: case IDC_SP1:
300: case IDC_SP2:
301: case IDC_SP3:
302: case IDC_SP4:
303: case IDC_SP5:
304: case IDC_SP6:
305: case IDC_SP7:
306: case IDC_SP8:
307: case IDC_SP9:
308: case IDC_SP10:
309: lstrcpy((LPSTR)rgchBtn, "BTN");
310: IntToAscii((int)(wParam-IDC_SP1+1), (LPSTR)(&rgchBtn[3]));
311: szEvent = (LPSTR)rgchBtn;
312: break;
313:
314: case IDOK:
315: wParam = IDC_C;
316: case IDC_B:
317: case IDC_C:
318: case IDC_X:
319: case IDCANCEL:
320: szEvent = SzDlgEvent(wParam);
321: Assert(szEvent != NULL);
322: break;
323:
324: case IDC_P:
325: szEvent = "PATH";
326: break;
327:
328: case IDC_H:
329: HdlgShowHelp();
330: return(fTrue);
331:
332: }
333:
334: if (szEvent == (LPSTR)NULL)
335: break;
336:
337: FRemoveSymbol("CheckItemsState");
338: for (idc = IDC_B1; GetDlgItem(hdlg, idc); idc++)
339: if (!FAddListItem("CheckItemsState",
340: IsDlgButtonChecked(hdlg, idc) ? "ON" : "OFF"))
341: {
342: DestroyWindow(GetParent(hdlg));
343: return(fFalse);
344: }
345: Assert((unsigned)(idc-IDC_B1+1) <= iszBMax);
346:
347: if (szEvent != (LPSTR)NULL)
348: if (!FSetSymbolValue("DLGEVENT", szEvent))
349: {
350: DestroyWindow(GetParent(hdlg));
351: return(fTrue);
352: }
353:
354: ReactivateSetupScript();
355: break;
356: }
357:
358: return(fFalse);
359: }
360:
361:
362:
363: /*
364: ** Purpose:
365: ** Display Dialog procedure for templates to display symbol
366: ** message with editting.
367: ** (Limits the input string length to cbFullPathMax characters.)
368: **
369: ** Controls Recognized:
370: ** Edit - IDC_EDIT
371: ** Pushbutton - IDC_B, IDC_C, IDC_H, IDC_X
372: **
373: ** Initialization Symbols:
374: ** "EditTextIn" - initial text for IDC_EDIT edit control.
375: ** "EditFocus" - position of intial focus for text string:
376: ** "END" (default), "ALL", or "START"
377: **
378: ** Termination Symbols:
379: ** "EditTextOut" - text in the IDC_EDIT edit control upon termination.
380: ** "DLGEVENT" - one of the following, depending on event:
381: ** event value
382: ** ---------- ----------
383: ** IDC_B "BACK"
384: ** IDC_C "CONTINUE"
385: ** IDC_X "EXIT"
386: ** IDCANCEL "CANCEL"
387: ** STF_ACTIVATEAPP "REACTIVATE"
388: **
389: ** Note:
390: ** Pushbutton IDC_H will open the related Help dialog, if any.
391: **
392: *****************************************************************************/
393: BOOL FAR PASCAL FDispDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
394: {
395: static WORD wSelStart = 0;
396: static WORD wSelEnd = 0;
397: char rgchText[cbFullPathMax + 1];
398: WORD cbLen;
399: WORD cb;
400: char szSymBuf[cbFullPathMax + 1];
401:
402: switch (wMsg)
403: {
404: case STF_ACTIVATEAPP:
405: if (!FSetSymbolValue("DLGEVENT", "REACTIVATE"))
406: {
407: DestroyWindow(GetParent(hdlg));
408: return(fTrue);
409: }
410: ReactivateSetupScript();
411: return(fTrue);
412:
413: case WM_INITDIALOG:
414: cb = CbGetSymbolValue("EditTextIn", szSymBuf, cbFullPathMax + 1);
415: Assert(cb < cbFullPathMax + 1);
416: SendDlgItemMessage(hdlg, IDC_TEXT1, EM_LIMITTEXT, cbFullPathMax, 0L);
417: SetDlgItemText(hdlg, IDC_TEXT1, (LPSTR)szSymBuf);
418:
419: cbLen = lstrlen(szSymBuf);
420: cb = CbGetSymbolValue("EditFocus", szSymBuf, cbFullPathMax + 1);
421: Assert(cb < cbFullPathMax + 1);
422:
423: if (lstrcmp(szSymBuf, "ALL") == 0)
424: {
425: wSelStart = 0;
426: wSelEnd = INT_MAX;
427: }
428: else if (lstrcmp(szSymBuf, "START") == 0)
429: {
430: wSelStart = 0;
431: wSelEnd = 0;
432: }
433: else /* default == END */
434: {
435: wSelStart = (WORD)cbLen;
436: wSelEnd = (WORD)cbLen;
437: }
438: return(fTrue);
439:
440: case STF_REINITDIALOG:
441: SendDlgItemMessage(hdlg, IDC_TEXT1, EM_SETSEL, 0, MAKELONG(256, 256));
442: SetFocus(GetDlgItem(hdlg, IDC_TEXT1));
443: return(fTrue);
444:
445: case WM_COMMAND:
446: switch(wParam)
447: {
448: case IDC_H:
449: HdlgShowHelp();
450: return(fTrue);
451:
452: case IDC_B:
453: case IDC_C:
454: case IDC_X:
455: case IDCANCEL:
456: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
457: {
458: DestroyWindow(GetParent(hdlg));
459: return(fTrue);
460: }
461: SendDlgItemMessage(hdlg, IDC_TEXT1, (WORD)WM_GETTEXT,
462: cbFullPathMax + 1, (LONG)((LPSTR)rgchText));
463: if (!FSetSymbolValue("EditTextOut", rgchText))
464: {
465: DestroyWindow(GetParent(hdlg));
466: return(fTrue);
467: }
468: ReactivateSetupScript();
469: break;
470: }
471: break;
472: }
473:
474: return(fFalse);
475: }
476:
477: /*
478: ** Purpose:
479: ** Edit Dialog procedure for templates with one Edit control.
480: ** (Limits the input string length to cbFullPathMax characters.)
481: **
482: ** Controls Recognized:
483: ** Edit - IDC_EDIT
484: ** Pushbutton - IDC_B, IDC_C, IDC_H, IDC_X
485: **
486: ** Initialization Symbols:
487: ** "EditTextIn" - initial text for IDC_EDIT edit control.
488: ** "EditFocus" - position of intial focus for text string:
489: ** "END" (default), "ALL", or "START"
490: **
491: ** Termination Symbols:
492: ** "EditTextOut" - text in the IDC_EDIT edit control upon termination.
493: ** "DLGEVENT" - one of the following, depending on event:
494: ** event value
495: ** ---------- ----------
496: ** IDC_B "BACK"
497: ** IDC_C "CONTINUE"
498: ** IDC_X "EXIT"
499: ** IDCANCEL "CANCEL"
500: ** STF_ACTIVATEAPP "REACTIVATE"
501: **
502: ** Note:
503: ** Pushbutton IDC_H will open the related Help dialog, if any.
504: **
505: *****************************************************************************/
506: BOOL FAR PASCAL FEditDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
507: {
508: static WORD wSelStart = 0;
509: static WORD wSelEnd = 0;
510: char rgchText[cbFullPathMax + 1];
511: WORD cbLen;
512: WORD cb;
513: char szSymBuf[cbFullPathMax + 1];
514:
515: switch (wMsg)
516: {
517: case STF_ACTIVATEAPP:
518: if (!FSetSymbolValue("DLGEVENT", "REACTIVATE"))
519: {
520: DestroyWindow(GetParent(hdlg));
521: return(fTrue);
522: }
523: ReactivateSetupScript();
524: return(fTrue);
525:
526: case WM_INITDIALOG:
527: cb = CbGetSymbolValue("EditTextIn", szSymBuf, cbFullPathMax + 1);
528: Assert(cb < cbFullPathMax + 1);
529: SendDlgItemMessage(hdlg, IDC_EDIT, EM_LIMITTEXT, cbFullPathMax, 0L);
530: SetDlgItemText(hdlg, IDC_EDIT, (LPSTR)szSymBuf);
531:
532: cbLen = lstrlen(szSymBuf);
533: cb = CbGetSymbolValue("EditFocus", szSymBuf, cbFullPathMax + 1);
534: Assert(cb < cbFullPathMax + 1);
535:
536: if (lstrcmp(szSymBuf, "ALL") == 0)
537: {
538: wSelStart = 0;
539: wSelEnd = INT_MAX;
540: }
541: else if (lstrcmp(szSymBuf, "START") == 0)
542: {
543: wSelStart = 0;
544: wSelEnd = 0;
545: }
546: else /* default == END */
547: {
548: wSelStart = (WORD)cbLen;
549: wSelEnd = (WORD)cbLen;
550: }
551: return(fTrue);
552:
553: case STF_REINITDIALOG:
554: SendDlgItemMessage(hdlg, IDC_EDIT, EM_SETSEL, 0, MAKELONG(256, 256));
555: SetFocus(GetDlgItem(hdlg, IDC_EDIT));
556: return(fTrue);
557:
558: case WM_COMMAND:
559: switch(wParam)
560: {
561: case IDC_EDIT:
562: if (HIWORD(lParam) == EN_SETFOCUS)
563: SendDlgItemMessage(hdlg, IDC_EDIT, EM_SETSEL, 0,
564: MAKELONG(wSelStart, wSelEnd));
565: else if (HIWORD(lParam) == EN_KILLFOCUS)
566: {
567: LONG l = SendDlgItemMessage(hdlg, IDC_EDIT, EM_GETSEL, 0, 0L);
568:
569: wSelStart = LOWORD(l);
570: wSelEnd = HIWORD(l);
571: }
572: break;
573: case IDC_H:
574: HdlgShowHelp();
575: return(fTrue);
576:
577: case IDC_B:
578: case IDC_C:
579: case IDC_X:
580: case IDCANCEL:
581: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
582: {
583: DestroyWindow(GetParent(hdlg));
584: return(fTrue);
585: }
586: SendDlgItemMessage(hdlg, IDC_EDIT, (WORD)WM_GETTEXT,
587: cbFullPathMax + 1, (LONG)((LPSTR)rgchText));
588: if (!FSetSymbolValue("EditTextOut", rgchText))
589: {
590: DestroyWindow(GetParent(hdlg));
591: return(fTrue);
592: }
593: ReactivateSetupScript();
594: break;
595: }
596: break;
597: }
598:
599: return(fFalse);
600: }
601:
602:
603:
604: /*
605: ** Purpose:
606: ** Help Dialog procedure.
607: **
608: ** Controls Recognized:
609: ** Pushbutton - IDC_X.
610: **
611: ** Initialization Symbols:
612: ** none.
613: **
614: ** Termination Symbols:
615: ** none. (Handles IDC_X and IDCANCEL events by calling FCloseHelp.)
616: **
617: ** Note:
618: ** This dialog proc is for Help dialogs ONLY (szHelpProc$ parameter
619: ** of UIStartDlg) and CANNOT be used as the szDlgProc$ parameter
620: ** of the UIStartDlg MSSetup script function.
621: **
622: *****************************************************************************/
623: BOOL FAR PASCAL FHelpDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
624: {
625: switch (wMsg)
626: {
627: case WM_INITDIALOG:
628: return(fTrue);
629:
630: case STF_REINITDIALOG:
631: return(fTrue);
632:
633: case STF_ACTIVATEAPP:
634: /* Help dlg should not be on the dlg stack
635: ** and should never get this message.
636: */
637: Assert(fFalse);
638: return(fTrue);
639:
640: case WM_COMMAND:
641: if (wParam != IDC_X
642: && wParam != IDCANCEL)
643: break;
644: FCloseHelp();
645: return(fTrue);
646:
647: }
648: return(fFalse);
649: }
650:
651:
652:
653: /*
654: ** Purpose:
655: ** Information Dialog procedure.
656: **
657: ** Controls Recognized:
658: ** Pushbutton - IDC_B, IDC_C, IDC_H, IDC_X
659: **
660: ** Initialization Symbols:
661: ** none.
662: **
663: ** Termination Symbols:
664: ** "DLGEVENT" - one of the following, according to control event:
665: ** event value
666: ** ------- -------
667: ** IDC_B "BACK"
668: ** IDC_C "CONTINUE"
669: ** IDC_X "EXIT"
670: ** IDCANCEL "CANCEL"
671: **
672: ** Note:
673: ** Pushbutton IDC_H will open the related Help dialog, if any.
674: **
675: *****************************************************************************/
676: BOOL FAR PASCAL FInfoDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
677: {
678: switch (wMsg)
679: {
680: case WM_INITDIALOG:
681: return(fTrue);
682:
683: case STF_REINITDIALOG:
684: case STF_ACTIVATEAPP:
685: return(fTrue);
686:
687: case WM_COMMAND:
688: switch (wParam)
689: {
690: case IDC_H:
691: HdlgShowHelp();
692: return(fTrue);
693:
694: case IDC_B:
695: case IDC_C:
696: case IDC_X:
697: case IDCANCEL:
698: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
699: {
700: DestroyWindow(GetParent(hdlg));
701: return(fTrue);
702: }
703: ReactivateSetupScript();
704: break;
705: }
706: break;
707: }
708:
709: return(fFalse);
710: }
711:
712:
713:
714: /*
715: ** Purpose:
716: ** Information Dialog procedure, without "Exit" button.
717: **
718: ** Controls Recognized:
719: ** Pushbutton - IDC_B, IDC_C, IDC_H
720: **
721: ** Initialization Symbols:
722: ** none.
723: **
724: ** Termination Symbols:
725: ** "DLGEVENT" - one of the following, depending on event:
726: ** event value
727: ** ---------- ----------
728: ** IDC_B "BACK"
729: ** IDC_C "CONTINUE"
730: ** IDCANCEL "CANCEL"
731: ** STF_ACTIVATEAPP "REACTIVATE"
732: **
733: ** Note:
734: ** Pushbutton IDC_H will open the related Help dialog, if any.
735: **
736: *****************************************************************************/
737: BOOL FAR PASCAL FInfo0DlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
738: {
739: switch (wMsg)
740: {
741: case WM_INITDIALOG:
742: return(fTrue);
743:
744: case STF_REINITDIALOG:
745: return(fTrue);
746:
747: case STF_ACTIVATEAPP:
748: if (!FSetSymbolValue("DLGEVENT", "REACTIVATE"))
749: {
750: DestroyWindow(GetParent(hdlg));
751: return(fTrue);
752: }
753: ReactivateSetupScript();
754: return(fTrue);
755:
756: case WM_COMMAND:
757: switch (wParam)
758: {
759: case IDC_H:
760: HdlgShowHelp();
761: return(fTrue);
762:
763: case IDC_B:
764: case IDC_C:
765: case IDCANCEL:
766: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
767: {
768: DestroyWindow(GetParent(hdlg));
769: return(fTrue);
770: }
771: ReactivateSetupScript();
772: break;
773: }
774: break;
775: }
776:
777: return(fFalse);
778: }
779:
780:
781:
782: /*
783: ** Purpose:
784: ** Single Choice Listbox Dialog procedure for templates with exactly one
785: ** listbox control.
786: **
787: ** Controls Recognized:
788: ** Listbox - IDC_LIST1
789: ** Pushbutton - IDC_B, IDC_C, IDC_H, IDC_X
790: **
791: ** Initialization Symbols:
792: ** "ListItemsIn" - list of strings to put in the listbox.
793: ** "ListItemsOut" - simple string (not a list) representing an
794: ** initial selection in "ListItemsIn".
795: **
796: ** Termination Symbols:
797: ** "ListItemsOut" - selected list item string.
798: ** "DLGEVENT" - one of the following, according to control event:
799: ** event value
800: ** ------- -------
801: ** IDC_B "BACK"
802: ** IDC_C "CONTINUE"
803: ** IDC_X "EXIT"
804: ** IDCANCEL "CANCEL"
805: **
806: ** Note:
807: ** Pushbutton IDC_H will open the related Help dialog, if any.
808: **
809: *****************************************************************************/
810: BOOL FAR PASCAL FListDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
811: {
812: char szListIn[cbSymBuf];
813: char szListOut[cbSymBuf];
814: WORD iItem;
815: WORD cb, i;
816: WORD cItems;
817:
818: switch (wMsg)
819: {
820: case WM_INITDIALOG:
821: cItems = UsGetListLength("ListItemsIn");
822: for (i = 1; i <= cItems; ++i)
823: {
824: cb = CbGetListItem("ListItemsIn", i, szListIn, cbSymBuf);
825: Assert(cb < cbSymBuf);
826: SendDlgItemMessage(hdlg, IDC_LIST1, LB_ADDSTRING, 0,
827: (LONG)(LPSTR)szListIn);
828: }
829:
830: cb = CbGetSymbolValue("ListItemsOut", szListOut, cbSymBuf);
831: Assert(cb < cbSymBuf);
832: if (cb == 0)
833: SendDlgItemMessage(hdlg, IDC_LIST1, LB_SETCURSEL, (WORD)-1, 0L);
834: else
835: {
836: for (i = 1, iItem = 0; i <= cItems; ++i, ++iItem)
837: {
838: cb = CbGetListItem("ListItemsIn", i, szListIn, cbSymBuf);
839: Assert(cb < cbSymBuf);
840: if (lstrcmp(szListOut, szListIn) == 0)
841: {
842: SendDlgItemMessage(hdlg,IDC_LIST1,LB_SETCURSEL,iItem,0L);
843: break;
844: }
845: }
846: }
847:
848: /* Note: Depends on number of lines in list box.
849: */
850: if (iItem < 4)
851: iItem = 0;
852: SendDlgItemMessage(hdlg, IDC_LIST1, LB_SETTOPINDEX, iItem, 0L);
853:
854: return(fTrue);
855:
856: case STF_REINITDIALOG:
857: case STF_ACTIVATEAPP:
858: return(fTrue);
859:
860: case WM_COMMAND:
861: switch(wParam)
862: {
863: case IDC_H:
864: HdlgShowHelp();
865: return(fTrue);
866:
867: case IDC_LIST1:
868: if (HIWORD(lParam) != LBN_DBLCLK)
869: break;
870: wParam = IDC_C;
871: case IDC_B:
872: case IDC_C:
873: case IDC_X:
874: case IDCANCEL:
875: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
876: {
877: DestroyWindow(GetParent(hdlg));
878: return(fTrue);
879: }
880:
881: if ((iItem = (WORD)SendDlgItemMessage(hdlg, IDC_LIST1, LB_GETCURSEL,
882: 0, 0L)) == LB_ERR
883: || (cb = (WORD)SendDlgItemMessage(hdlg, IDC_LIST1,
884: LB_GETTEXTLEN, iItem, 0L)) == LB_ERR)
885: *szListOut = '\0';
886: else
887: {
888: Assert(cb <= cbSymBuf);
889: SendDlgItemMessage(hdlg, IDC_LIST1, LB_GETTEXT, iItem,
890: (LONG)(LPSTR)szListOut);
891: }
892: if (!FSetSymbolValue("ListItemsOut", szListOut))
893: {
894: DestroyWindow(GetParent(hdlg));
895: return(fTrue);
896: }
897:
898: ReactivateSetupScript();
899: break;
900: }
901: break;
902:
903: }
904:
905: return(fFalse);
906: }
907:
908:
909:
910: /*
911: ** Purpose:
912: ** Modeless Dialog procedure.
913: **
914: ** Controls Recognized:
915: ** none.
916: **
917: ** Initialization Symbols:
918: ** none.
919: **
920: ** Termination Symbols:
921: ** none.
922: **
923: ** Note:
924: ** This dialog procedure is REQUIRED with use of any Billboard
925: ** MSSetup script functions.
926: **
927: *****************************************************************************/
928: BOOL FAR PASCAL FModelessDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
929: {
930: switch (wMsg)
931: {
932: case WM_INITDIALOG:
933: ReactivateSetupScript();
934: return(fTrue);
935:
936: case STF_REINITDIALOG:
937: case STF_ACTIVATEAPP:
938: return(fTrue);
939:
940: case WM_CLOSE:
941: case WM_COMMAND:
942: Assert(fFalse);
943: break;
944: }
945:
946: return(fFalse);
947: }
948:
949:
950:
951: /*
952: ** Purpose:
953: ** Multiple Choice Listbox Dialog procedure for templates with
954: ** exactly one listbox control.
955: **
956: ** Controls Recognized:
957: ** Listbox - IDC_LIST1
958: ** Pushbutton - IDC_B, IDC_C, IDC_H, IDC_L, IDC_S, IDC_X
959: **
960: ** Initialization Symbols:
961: ** "ListItemsIn" - list of strings to put in the listbox.
962: ** "ListItemsOut" - list of strings representing initial
963: ** selections in "ListItemsIn".
964: **
965: ** Termination Symbols:
966: ** "ListItemsOut" - list of items selected (if any).
967: ** "DLGEVENT" - one of the following, according to control event:
968: ** event value
969: ** ------- -------
970: ** IDC_B "BACK"
971: ** IDC_C "CONTINUE"
972: ** IDC_X "EXIT"
973: ** IDCANCEL "CANCEL"
974: **
975: ** Note:
976: ** Pushbutton IDC_H will open the related Help dialog, if any.
977: ** Pushbuttons IDC_L and IDC_S are for "clear all" and "select all"
978: ** respectively.
979: **
980: *****************************************************************************/
981: BOOL FAR PASCAL FMultiDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
982: {
983: WORD i, j, nCount;
984: char szListIn[cbSymBuf];
985: char szListOut[cbSymBuf];
986: WORD iItem, iItemTop;
987: WORD cb;
988: WORD cItemsIn, cItemsOut;
989:
990: switch (wMsg)
991: {
992: case WM_INITDIALOG:
993: cItemsIn = UsGetListLength("ListItemsIn");
994: nCount = 0;
995: for (i = 1; i <= cItemsIn; ++i)
996: {
997: cb = CbGetListItem("ListItemsIn", i, szListIn, cbSymBuf);
998: Assert(cb < cbSymBuf);
999: SendDlgItemMessage(hdlg, IDC_LIST1, LB_ADDSTRING, 0,
1000: (LONG)(LPSTR)szListIn);
1001: nCount++;
1002: }
1003: Assert(nCount == (WORD)SendDlgItemMessage(hdlg, IDC_LIST1, LB_GETCOUNT,
1004: 0, 0L));
1005:
1006: cItemsOut = UsGetListLength("ListItemsOut");
1007: for (i = 1, iItemTop = 0; i <= cItemsOut; ++i, ++iItemTop)
1008: {
1009: cb = CbGetListItem("ListItemsOut", i, szListOut, cbSymBuf);
1010: Assert(cb < cbSymBuf);
1011: for (j = 1, iItem = 0; j <= cItemsIn; ++j, ++iItem)
1012: {
1013: cb = CbGetListItem("ListItemsIn", j, szListIn, cbSymBuf);
1014: Assert(cb < cbSymBuf);
1015: if (lstrcmp(szListOut, szListIn) == 0)
1016: {
1017: SendDlgItemMessage(hdlg, IDC_LIST1, LB_SETSEL, 1,
1018: MAKELONG(iItem, 0));
1019: if (iItemTop == 0
1020: || (WORD)iItem < iItemTop)
1021: iItemTop = (WORD)iItem;
1022: break;
1023: }
1024: }
1025: }
1026:
1027: /* Note: Depends on number of lines in list box.
1028: */
1029: if (iItemTop < 4)
1030: iItemTop = 0;
1031: SendDlgItemMessage(hdlg, IDC_LIST1, LB_SETTOPINDEX, iItemTop, 0L);
1032:
1033: return(fTrue);
1034:
1035: case STF_REINITDIALOG:
1036: case STF_ACTIVATEAPP:
1037: return(fTrue);
1038:
1039: case WM_COMMAND:
1040: switch(wParam)
1041: {
1042: case IDC_S:
1043: case IDC_L:
1044: SendDlgItemMessage(hdlg, IDC_LIST1, LB_SETSEL, (wParam == IDC_S),
1045: -1L);
1046: break;
1047:
1048: case IDC_H:
1049: HdlgShowHelp();
1050: return(fTrue);
1051:
1052: case IDC_B:
1053: case IDC_C:
1054: case IDC_X:
1055: case IDCANCEL:
1056: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
1057: {
1058: DestroyWindow(GetParent(hdlg));
1059: return(fTrue);
1060: }
1061:
1062: /* Note: Could be faster to use LB_GETSELITEMS here.
1063: */
1064: nCount = (WORD)SendDlgItemMessage(hdlg, IDC_LIST1, LB_GETCOUNT, 0,
1065: 0L);
1066:
1067: FRemoveSymbol("ListItemsOut");
1068: for (i = 0; i < nCount; i++)
1069: {
1070: if (SendDlgItemMessage(hdlg, IDC_LIST1, LB_GETSEL, (WORD)i, 0L))
1071: {
1072: SendDlgItemMessage(hdlg, IDC_LIST1, LB_GETTEXT, (WORD)i,
1073: (LONG)(LPSTR)szListOut);
1074: if (!FAddListItem("ListItemsOut", szListOut))
1075: {
1076: DestroyWindow(GetParent(hdlg));
1077: return(fTrue);
1078: }
1079: }
1080: }
1081:
1082: ReactivateSetupScript();
1083: break;
1084: }
1085: break;
1086: }
1087:
1088: return(fFalse);
1089: }
1090:
1091:
1092:
1093: /*
1094: ** Purpose:
1095: ** Quit Dialog procedure.
1096: **
1097: ** Controls Recognized:
1098: ** Pushbutton - IDC_B, IDC_C, IDC_H, IDC_X
1099: **
1100: ** Initialization Symbols:
1101: ** none.
1102: **
1103: ** Termination Symbols:
1104: ** "DLGEVENT" - one of the following, depending on event:
1105: ** event value
1106: ** ---------- ----------
1107: ** IDC_B "BACK"
1108: ** IDC_C "CONTINUE"
1109: ** IDC_X "EXIT"
1110: ** IDCANCEL "CANCEL"
1111: ** STF_ACTIVATEAPP "REACTIVATE"
1112: **
1113: ** Note:
1114: ** Pushbutton IDC_H will open the related Help dialog, if any.
1115: **
1116: *****************************************************************************/
1117: BOOL FAR PASCAL FQuitDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
1118: {
1119: switch (wMsg)
1120: {
1121: case WM_INITDIALOG:
1122: return(fTrue);
1123:
1124: case STF_REINITDIALOG:
1125: return(fTrue);
1126:
1127: case STF_ACTIVATEAPP:
1128: if (!FSetSymbolValue("DLGEVENT", "REACTIVATE"))
1129: {
1130: DestroyWindow(GetParent(hdlg));
1131: return(fTrue);
1132: }
1133: ReactivateSetupScript();
1134: return(fTrue);
1135:
1136: case WM_COMMAND:
1137: switch(wParam)
1138: {
1139: case IDC_H:
1140: HdlgShowHelp();
1141: return(fTrue);
1142:
1143: case IDC_B:
1144: case IDC_C:
1145: case IDC_X:
1146: case IDCANCEL:
1147: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
1148: {
1149: DestroyWindow(GetParent(hdlg));
1150: return(fTrue);
1151: }
1152:
1153: ReactivateSetupScript();
1154: break;
1155: }
1156: break;
1157: }
1158: return(fFalse);
1159: }
1160:
1161:
1162:
1163: /*
1164: ** Purpose:
1165: ** Radio Button Group Dialog procedure for templates with one group
1166: ** of one to ten radio button controls.
1167: **
1168: ** Controls Recognized:
1169: ** Radio - IDC_B1 to IDC_B10 (sequential)
1170: ** Pushbutton - IDC_B, IDC_C, IDC_H, IDC_X
1171: **
1172: ** Initialization Symbols:
1173: ** "RadioDefault" - index (one-based) of radio button to be
1174: ** initialized as selected (default is "1").
1175: ** "OptionsGreyed" - list of (one-based) indexes of radio buttons
1176: ** to be initialized as disabled. Indexes not in the list will
1177: ** be left enabled.
1178: **
1179: ** Termination Symbols:
1180: ** "ButtonChecked" - index of currently selected radio button.
1181: ** "DLGEVENT" - one of the following, depending on event:
1182: ** event value
1183: ** ---------- ----------
1184: ** IDC_B "BACK"
1185: ** IDC_C "CONTINUE"
1186: ** IDC_X "EXIT"
1187: ** IDCANCEL "CANCEL"
1188: ** STF_ACTIVATEAPP "REACTIVATE"
1189: **
1190: ** Note:
1191: ** Pushbutton IDC_H will open the related Help dialog, if any.
1192: **
1193: *****************************************************************************/
1194: BOOL FAR PASCAL FRadioDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
1195: {
1196: char rgchNum[10];
1197: int iButtonChecked;
1198: char szSymBuf[cbSymBuf];
1199: WORD i, cb, cItems, idc;
1200:
1201: switch (wMsg)
1202: {
1203: case STF_ACTIVATEAPP:
1204: if (!FSetSymbolValue("DLGEVENT", "REACTIVATE"))
1205: {
1206: DestroyWindow(GetParent(hdlg));
1207: return(fTrue);
1208: }
1209: ReactivateSetupScript();
1210: return(fTrue);
1211:
1212: case WM_INITDIALOG:
1213: cb = CbGetSymbolValue("RadioDefault", szSymBuf, cbSymBuf);
1214: Assert(cb < cbSymBuf);
1215: if (*szSymBuf != '\0')
1216: {
1217: iButtonChecked = AsciiToInt((LPSTR)szSymBuf);
1218: if (iButtonChecked < 1)
1219: iButtonChecked = 0;
1220: if (iButtonChecked > 10)
1221: iButtonChecked = 10;
1222: }
1223: else
1224: iButtonChecked = 1;
1225:
1226: if (iButtonChecked != 0)
1227: SendDlgItemMessage(hdlg, IDC_B0 + iButtonChecked, BM_SETCHECK,1,0L);
1228:
1229: cItems = UsGetListLength("OptionsGreyed");
1230: idc = IDC_B1;
1231: for (i = 1; i <= cItems; ++i)
1232: {
1233: int iOpt;
1234:
1235: cb = CbGetListItem("OptionsGreyed", i, szSymBuf, cbSymBuf);
1236: Assert(cb < cbSymBuf);
1237: iOpt = AsciiToInt((LPSTR)szSymBuf);
1238: if (iOpt > 0
1239: && iOpt <= 10
1240: && iOpt != iButtonChecked)
1241: EnableWindow(GetDlgItem(hdlg, IDC_B0 + iOpt), 0);
1242: else if (*szSymBuf != '\0')
1243: Assert(fFalse);
1244: }
1245: return(fTrue);
1246:
1247: case STF_REINITDIALOG:
1248: return(fTrue);
1249:
1250: case WM_COMMAND:
1251: switch (wParam)
1252: {
1253: case IDC_H:
1254: HdlgShowHelp();
1255: return(fTrue);
1256:
1257: case IDC_B1:
1258: case IDC_B2:
1259: case IDC_B3:
1260: case IDC_B4:
1261: case IDC_B5:
1262: case IDC_B6:
1263: case IDC_B7:
1264: case IDC_B8:
1265: case IDC_B9:
1266: case IDC_B10:
1267: CheckRadioButton(hdlg, IDC_B1, IDC_B10, wParam);
1268: if (HIWORD(lParam) != BN_DOUBLECLICKED)
1269: break;
1270: wParam = IDC_C;
1271: case IDC_B:
1272: case IDC_C:
1273: case IDC_X:
1274: case IDCANCEL:
1275: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
1276: {
1277: DestroyWindow(GetParent(hdlg));
1278: return(fTrue);
1279: }
1280:
1281: iButtonChecked = 0;
1282: for (i = 1; i <= 10; i++)
1283: if (SendDlgItemMessage(hdlg, IDC_B0 + i, BM_GETCHECK, 0, 0L))
1284: {
1285: iButtonChecked = i;
1286: break;
1287: }
1288:
1289: IntToAscii((int)iButtonChecked, (LPSTR)rgchNum);
1290: if (!FSetSymbolValue("ButtonChecked", rgchNum))
1291: {
1292: DestroyWindow(GetParent(hdlg));
1293: return(fTrue);
1294: }
1295:
1296: ReactivateSetupScript();
1297: break;
1298: }
1299: break;
1300: }
1301:
1302: return(fFalse);
1303: }
1304:
1305:
1306:
1307: /*
1308: ** Purpose:
1309: ** Get Name and Organization Dialog procedure for templates
1310: ** with two Edit controls.
1311: ** (Limits the input string length to cbNameMax characters.)
1312: **
1313: ** Controls Recognized:
1314: ** Edit - IDC_EDIT, IDC_EDIT2
1315: ** Pushbutton - IDC_B, IDC_C, IDC_H, IDC_X
1316: **
1317: ** Initialization Symbols:
1318: ** none.
1319: **
1320: ** Termination Symbols:
1321: ** "NameOut" - text in the IDC_EDIT edit control upon termination.
1322: ** "OrgOut" - text in the IDC_EDIT2 edit control upon termination.
1323: ** "DLGEVENT" - one of the following, depending on event:
1324: ** event value
1325: ** ---------- ----------
1326: ** IDC_B "BACK"
1327: ** IDC_C "CONTINUE"
1328: ** IDC_X "EXIT"
1329: ** IDCANCEL "CANCEL"
1330: **
1331: ** Note:
1332: ** Pushbutton IDC_H will open the related Help dialog, if any.
1333: **
1334: *****************************************************************************/
1335: BOOL FAR PASCAL FNameOrgDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
1336: {
1337: static WORD wSelStart1 = 0;
1338: static WORD wSelEnd1 = 0;
1339: static WORD wSelStart2 = 0;
1340: static WORD wSelEnd2 = 0;
1341: char rgchText[cbNameMax + 1];
1342:
1343: switch (wMsg)
1344: {
1345: case WM_INITDIALOG:
1346: SendDlgItemMessage(hdlg, IDC_EDIT, EM_LIMITTEXT, cbNameMax, 0L);
1347: SetDlgItemText(hdlg, IDC_EDIT, (LPSTR)"");
1348:
1349: SendDlgItemMessage(hdlg, IDC_EDIT2, EM_LIMITTEXT, cbNameMax, 0L);
1350: SetDlgItemText(hdlg, IDC_EDIT2, (LPSTR)"");
1351:
1352: wSelStart1 = wSelEnd1 = 0;
1353: wSelStart2 = wSelEnd2 = 0;
1354: return(fTrue);
1355:
1356: case STF_REINITDIALOG:
1357: SendDlgItemMessage(hdlg, IDC_EDIT, EM_SETSEL, 0, MAKELONG(256, 256));
1358: SetFocus(GetDlgItem(hdlg, IDC_EDIT));
1359: return(fTrue);
1360:
1361: case STF_ACTIVATEAPP:
1362: return(fTrue);
1363:
1364: case WM_COMMAND:
1365: switch(wParam)
1366: {
1367: case IDC_EDIT:
1368: if (HIWORD(lParam) == EN_SETFOCUS)
1369: SendDlgItemMessage(hdlg, IDC_EDIT, EM_SETSEL, 0,
1370: MAKELONG(wSelStart1, wSelEnd1));
1371: else if (HIWORD(lParam) == EN_KILLFOCUS)
1372: {
1373: LONG l = SendDlgItemMessage(hdlg, IDC_EDIT, EM_GETSEL, 0, 0L);
1374:
1375: wSelStart1 = LOWORD(l);
1376: wSelEnd1 = HIWORD(l);
1377: }
1378: break;
1379:
1380: case IDC_EDIT2:
1381: if (HIWORD(lParam) == EN_SETFOCUS)
1382: SendDlgItemMessage(hdlg, IDC_EDIT2, EM_SETSEL, 0,
1383: MAKELONG(wSelStart2, wSelEnd2));
1384: else if (HIWORD(lParam) == EN_KILLFOCUS)
1385: {
1386: LONG l = SendDlgItemMessage(hdlg, IDC_EDIT2, EM_GETSEL, 0, 0L);
1387:
1388: wSelStart2 = LOWORD(l);
1389: wSelEnd2 = HIWORD(l);
1390: }
1391: break;
1392:
1393: case IDC_H:
1394: HdlgShowHelp();
1395: return(fTrue);
1396:
1397: case IDC_B:
1398: case IDC_C:
1399: case IDC_X:
1400: case IDCANCEL:
1401: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
1402: {
1403: DestroyWindow(GetParent(hdlg));
1404: return(fTrue);
1405: }
1406:
1407: SendDlgItemMessage(hdlg, IDC_EDIT, (WORD)WM_GETTEXT,
1408: cbNameMax + 1, (LONG)((LPSTR)rgchText));
1409: if (!FSetSymbolValue("NameOut", rgchText))
1410: {
1411: DestroyWindow(GetParent(hdlg));
1412: return(fTrue);
1413: }
1414:
1415: SendDlgItemMessage(hdlg, IDC_EDIT2, (WORD)WM_GETTEXT,
1416: cbNameMax + 1, (LONG)((LPSTR)rgchText));
1417: if (!FSetSymbolValue("OrgOut", rgchText))
1418: {
1419: DestroyWindow(GetParent(hdlg));
1420: return(fTrue);
1421: }
1422:
1423: ReactivateSetupScript();
1424: break;
1425: }
1426: break;
1427: }
1428:
1429: return(fFalse);
1430: }
1431:
1432:
1433:
1434: /*
1435: ** Purpose:
1436: ** Confirm Info Dialog procedure for templates with one to
1437: ** static text controls.
1438: **
1439: ** Controls Recognized:
1440: ** Text - IDC_TEXT1 to IDC_TEXT10 (sequential)
1441: ** Pushbutton - IDC_B, IDC_C, IDC_H, IDC_X
1442: **
1443: ** Initialization Symbols:
1444: ** "ConfirmTextIn" - list of up to ten string items to initialize
1445: ** static text items (IDC_TEXT1-10).
1446: **
1447: ** Termination Symbols:
1448: ** "DLGEVENT" - one of the following, depending on event:
1449: ** event value
1450: ** ---------- ----------
1451: ** IDC_B "BACK"
1452: ** IDC_C "CONTINUE"
1453: ** IDC_X "EXIT"
1454: ** IDCANCEL "CANCEL"
1455: **
1456: ** Note:
1457: ** Pushbutton IDC_H will open the related Help dialog, if any.
1458: **
1459: *****************************************************************************/
1460: BOOL FAR PASCAL FConfirmDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
1461: {
1462: WORD idc;
1463: WORD cItems;
1464: WORD i, cb;
1465: char szSymBuf[cbSymBuf];
1466:
1467: switch (wMsg)
1468: {
1469: case WM_INITDIALOG:
1470: cItems = UsGetListLength("ConfirmTextIn");
1471: idc = IDC_TEXT1;
1472: for (i = 1; i <= cItems; ++i)
1473: {
1474: WORD wCheck = 0;
1475:
1476: cb = CbGetListItem("ConfirmTextIn", i, szSymBuf, cbSymBuf);
1477: Assert(cb < cbSymBuf);
1478: SetDlgItemText(hdlg, idc++, szSymBuf);
1479: if (i >= 4
1480: && i <= 6)
1481: {
1482: if (*szSymBuf == '\0')
1483: ShowWindow(GetDlgItem(hdlg, IDC_TEXT4+i), SW_HIDE);
1484: else
1485: ShowWindow(GetDlgItem(hdlg, IDC_TEXT4+i), SW_SHOWNOACTIVATE);
1486: }
1487: }
1488: return(fTrue);
1489:
1490: case STF_REINITDIALOG:
1491: case STF_ACTIVATEAPP:
1492: return(fTrue);
1493:
1494: case WM_COMMAND:
1495: switch (wParam)
1496: {
1497: case IDC_H:
1498: HdlgShowHelp();
1499: return(fTrue);
1500:
1501: case IDC_B:
1502: case IDC_C:
1503: case IDC_X:
1504: case IDCANCEL:
1505: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
1506: {
1507: DestroyWindow(GetParent(hdlg));
1508: return(fTrue);
1509: }
1510: ReactivateSetupScript();
1511: break;
1512: }
1513: break;
1514: }
1515:
1516: return(fFalse);
1517: }
1518:
1519:
1520:
1521: /*
1522: ** Purpose:
1523: ** Initialization routine for DLL.
1524: ** Arguments:
1525: ** hInst: handle to instance of App that required this DLL.
1526: ** wDataSeg: number of words in DLL's data segment.
1527: ** wHeapSize: number of bytes in DLL's heap.
1528: ** lpszCmdLine: command line for App that required this DLL.
1529: ** Returns:
1530: ** 1 always
1531: *****************************************************************************/
1532: int FAR PASCAL LibMain(HANDLE hInst, WORD wDataSeg, WORD wHeapSize,
1533: LPSTR lpszCmdLine)
1534: {
1535: if (wHeapSize > 0)
1536: UnlockData(0);
1537:
1538: return(1);
1539: }
1540:
1541:
1542:
1543: /*
1544: ** Purpose:
1545: ** Windows Exit Procedure.
1546: ** Arguments:
1547: ** nParam: standard WEP param (ignored).
1548: ** Returns:
1549: ** 1 always.
1550: *****************************************************************************/
1551: int FAR PASCAL WEP (int nParam)
1552: {
1553: return(1);
1554: }
1555:
1556:
1557:
1558: /*
1559: ** Purpose:
1560: ** Finds the last character in a string.
1561: ** Arguments:
1562: ** sz: non-NULL zero terminated string to search.
1563: ** Returns:
1564: ** NULL for an empty string.
1565: ** non-Null string pointer to the last valid character in sz.
1566: *****************************************************************************/
1567: LPSTR FAR PASCAL SzLastChar(LPSTR sz)
1568: {
1569: LPSTR szCur = (LPSTR)NULL;
1570: LPSTR szNext = sz;
1571:
1572: while (*szNext != '\0')
1573: szNext = AnsiNext((szCur = szNext));
1574:
1575: return(szCur);
1576: }
1577:
1578:
1579:
1580: /*
1581: ** Purpose:
1582: ** Gets the string values for the following WM_COMMAND events:
1583: ** IDC_B, IDC_C, IDC_X, and IDCANCEL.
1584: ** Arguments:
1585: ** wParam: event parameter value
1586: ** Returns:
1587: ** Pointer to string value constant, NULL if unknown event.
1588: *****************************************************************************/
1589: LPSTR FAR PASCAL SzDlgEvent(WORD wParam)
1590: {
1591: LPSTR szEvent;
1592:
1593: switch(wParam)
1594: {
1595: case IDC_B:
1596: szEvent = "BACK";
1597: break;
1598: case IDC_C:
1599: szEvent = "CONTINUE";
1600: break;
1601: case IDC_X:
1602: szEvent = "EXIT";
1603: break;
1604: case IDCANCEL:
1605: szEvent = "CANCEL";
1606: break;
1607: default:
1608: szEvent = NULL;
1609: break;
1610: }
1611:
1612: return(szEvent);
1613: }
1614:
1615:
1616:
1617: /*
1618: ** Purpose:
1619: ** Converts an ASCII string representing a positive value
1620: ** into an integer.
1621: ** Arguments:
1622: ** sz: non-NULL zero terminated string to convert.
1623: ** Returns:
1624: ** Integer represented by the string.
1625: *****************************************************************************/
1626: int FAR PASCAL AsciiToInt(LPSTR sz)
1627: {
1628: int i = 0;
1629:
1630: while (*sz == ' ' || *sz == '\t')
1631: sz++;
1632:
1633: while (isdigit(*sz))
1634: i = (i * 10) + *sz++ - '0';
1635:
1636: return(i);
1637: }
1638:
1639:
1640:
1641: /*
1642: ** Purpose:
1643: ** Converts an positive integer (< 100) into a string
1644: ** representing its value.
1645: ** Arguments:
1646: ** i: integer to convert (positive and < 100).
1647: ** sz: buffer to hold converted string (at least 3 bytes).
1648: ** Returns:
1649: ** sz.
1650: *****************************************************************************/
1651: LPSTR FAR PASCAL IntToAscii(int i, LPSTR sz)
1652: {
1653: LPSTR szSav = sz;
1654:
1655: if (i >= 100
1656: || i < 0)
1657: Assert(fFalse);
1658:
1659: if (i >= 10)
1660: {
1661: *sz++ = (char)('0' + (i / 10));
1662: i %= 10;
1663: }
1664: *sz++ = (char)('0' + i);
1665: *sz = '\0';
1666:
1667: return(szSav);
1668: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.