![[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 / mssetup / bldcui|
Return to dlgprocs.c CVS log | Up to [WindowsNT SDKs] / mstools / mssetup / 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: ** Edit Dialog procedure for templates with one Edit control.
366: ** (Limits the input string length to cbFullPathMax characters.)
367: **
368: ** Controls Recognized:
369: ** Edit - IDC_EDIT
370: ** Pushbutton - IDC_B, IDC_C, IDC_H, IDC_X
371: **
372: ** Initialization Symbols:
373: ** "EditTextIn" - initial text for IDC_EDIT edit control.
374: ** "EditFocus" - position of intial focus for text string:
375: ** "END" (default), "ALL", or "START"
376: **
377: ** Termination Symbols:
378: ** "EditTextOut" - text in the IDC_EDIT edit control upon termination.
379: ** "DLGEVENT" - one of the following, depending on event:
380: ** event value
381: ** ---------- ----------
382: ** IDC_B "BACK"
383: ** IDC_C "CONTINUE"
384: ** IDC_X "EXIT"
385: ** IDCANCEL "CANCEL"
386: ** STF_ACTIVATEAPP "REACTIVATE"
387: **
388: ** Note:
389: ** Pushbutton IDC_H will open the related Help dialog, if any.
390: **
391: *****************************************************************************/
392: BOOL FAR PASCAL FEditDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
393: {
394: static WORD wSelStart = 0;
395: static WORD wSelEnd = 0;
396: char rgchText[cbFullPathMax + 1];
397: WORD cbLen;
398: WORD cb;
399: char szSymBuf[cbFullPathMax + 1];
400:
401: switch (wMsg)
402: {
403: case STF_ACTIVATEAPP:
404: if (!FSetSymbolValue("DLGEVENT", "REACTIVATE"))
405: {
406: DestroyWindow(GetParent(hdlg));
407: return(fTrue);
408: }
409: ReactivateSetupScript();
410: return(fTrue);
411:
412: case WM_INITDIALOG:
413: cb = CbGetSymbolValue("EditTextIn", szSymBuf, cbFullPathMax + 1);
414: Assert(cb < cbFullPathMax + 1);
415: SendDlgItemMessage(hdlg, IDC_EDIT, EM_LIMITTEXT, cbFullPathMax, 0L);
416: SetDlgItemText(hdlg, IDC_EDIT, (LPSTR)szSymBuf);
417:
418: cbLen = lstrlen(szSymBuf);
419: cb = CbGetSymbolValue("EditFocus", szSymBuf, cbFullPathMax + 1);
420: Assert(cb < cbFullPathMax + 1);
421:
422: if (lstrcmp(szSymBuf, "ALL") == 0)
423: {
424: wSelStart = 0;
425: wSelEnd = INT_MAX;
426: }
427: else if (lstrcmp(szSymBuf, "START") == 0)
428: {
429: wSelStart = 0;
430: wSelEnd = 0;
431: }
432: else /* default == END */
433: {
434: wSelStart = (WORD)cbLen;
435: wSelEnd = (WORD)cbLen;
436: }
437: return(fTrue);
438:
439: case STF_REINITDIALOG:
440: SendDlgItemMessage(hdlg, IDC_EDIT, EM_SETSEL, 0, MAKELONG(256, 256));
441: SetFocus(GetDlgItem(hdlg, IDC_EDIT));
442: return(fTrue);
443:
444: case WM_COMMAND:
445: switch(wParam)
446: {
447: case IDC_EDIT:
448: if (HIWORD(lParam) == EN_SETFOCUS)
449: SendDlgItemMessage(hdlg, IDC_EDIT, EM_SETSEL, 0,
450: MAKELONG(wSelStart, wSelEnd));
451: else if (HIWORD(lParam) == EN_KILLFOCUS)
452: {
453: LONG l = SendDlgItemMessage(hdlg, IDC_EDIT, EM_GETSEL, 0, 0L);
454:
455: wSelStart = LOWORD(l);
456: wSelEnd = HIWORD(l);
457: }
458: break;
459:
460: case IDC_H:
461: HdlgShowHelp();
462: return(fTrue);
463:
464: case IDC_B:
465: case IDC_C:
466: case IDC_X:
467: case IDCANCEL:
468: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
469: {
470: DestroyWindow(GetParent(hdlg));
471: return(fTrue);
472: }
473: SendDlgItemMessage(hdlg, IDC_EDIT, (WORD)WM_GETTEXT,
474: cbFullPathMax + 1, (LONG)((LPSTR)rgchText));
475: if (!FSetSymbolValue("EditTextOut", rgchText))
476: {
477: DestroyWindow(GetParent(hdlg));
478: return(fTrue);
479: }
480: ReactivateSetupScript();
481: break;
482: }
483: break;
484: }
485:
486: return(fFalse);
487: }
488:
489:
490:
491: /*
492: ** Purpose:
493: ** Help Dialog procedure.
494: **
495: ** Controls Recognized:
496: ** Pushbutton - IDC_X.
497: **
498: ** Initialization Symbols:
499: ** none.
500: **
501: ** Termination Symbols:
502: ** none. (Handles IDC_X and IDCANCEL events by calling FCloseHelp.)
503: **
504: ** Note:
505: ** This dialog proc is for Help dialogs ONLY (szHelpProc$ parameter
506: ** of UIStartDlg) and CANNOT be used as the szDlgProc$ parameter
507: ** of the UIStartDlg MSSetup script function.
508: **
509: *****************************************************************************/
510: BOOL FAR PASCAL FHelpDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
511: {
512: switch (wMsg)
513: {
514: case WM_INITDIALOG:
515: return(fTrue);
516:
517: case STF_REINITDIALOG:
518: return(fTrue);
519:
520: case STF_ACTIVATEAPP:
521: /* Help dlg should not be on the dlg stack
522: ** and should never get this message.
523: */
524: Assert(fFalse);
525: return(fTrue);
526:
527: case WM_COMMAND:
528: if (wParam != IDC_X
529: && wParam != IDCANCEL)
530: break;
531: FCloseHelp();
532: return(fTrue);
533:
534: }
535: return(fFalse);
536: }
537:
538:
539:
540: /*
541: ** Purpose:
542: ** Information Dialog procedure.
543: **
544: ** Controls Recognized:
545: ** Pushbutton - IDC_B, IDC_C, IDC_H, IDC_X
546: **
547: ** Initialization Symbols:
548: ** none.
549: **
550: ** Termination Symbols:
551: ** "DLGEVENT" - one of the following, according to control event:
552: ** event value
553: ** ------- -------
554: ** IDC_B "BACK"
555: ** IDC_C "CONTINUE"
556: ** IDC_X "EXIT"
557: ** IDCANCEL "CANCEL"
558: **
559: ** Note:
560: ** Pushbutton IDC_H will open the related Help dialog, if any.
561: **
562: *****************************************************************************/
563: BOOL FAR PASCAL FInfoDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
564: {
565: switch (wMsg)
566: {
567: case WM_INITDIALOG:
568: return(fTrue);
569:
570: case STF_REINITDIALOG:
571: case STF_ACTIVATEAPP:
572: return(fTrue);
573:
574: case WM_COMMAND:
575: switch (wParam)
576: {
577: case IDC_H:
578: HdlgShowHelp();
579: return(fTrue);
580:
581: case IDC_B:
582: case IDC_C:
583: case IDC_X:
584: case IDCANCEL:
585: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
586: {
587: DestroyWindow(GetParent(hdlg));
588: return(fTrue);
589: }
590: ReactivateSetupScript();
591: break;
592: }
593: break;
594: }
595:
596: return(fFalse);
597: }
598:
599:
600:
601: /*
602: ** Purpose:
603: ** Information Dialog procedure, without "Exit" button.
604: **
605: ** Controls Recognized:
606: ** Pushbutton - IDC_B, IDC_C, IDC_H
607: **
608: ** Initialization Symbols:
609: ** none.
610: **
611: ** Termination Symbols:
612: ** "DLGEVENT" - one of the following, depending on event:
613: ** event value
614: ** ---------- ----------
615: ** IDC_B "BACK"
616: ** IDC_C "CONTINUE"
617: ** IDCANCEL "CANCEL"
618: ** STF_ACTIVATEAPP "REACTIVATE"
619: **
620: ** Note:
621: ** Pushbutton IDC_H will open the related Help dialog, if any.
622: **
623: *****************************************************************************/
624: BOOL FAR PASCAL FInfo0DlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
625: {
626: switch (wMsg)
627: {
628: case WM_INITDIALOG:
629: return(fTrue);
630:
631: case STF_REINITDIALOG:
632: return(fTrue);
633:
634: case STF_ACTIVATEAPP:
635: if (!FSetSymbolValue("DLGEVENT", "REACTIVATE"))
636: {
637: DestroyWindow(GetParent(hdlg));
638: return(fTrue);
639: }
640: ReactivateSetupScript();
641: return(fTrue);
642:
643: case WM_COMMAND:
644: switch (wParam)
645: {
646: case IDC_H:
647: HdlgShowHelp();
648: return(fTrue);
649:
650: case IDC_B:
651: case IDC_C:
652: case IDCANCEL:
653: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
654: {
655: DestroyWindow(GetParent(hdlg));
656: return(fTrue);
657: }
658: ReactivateSetupScript();
659: break;
660: }
661: break;
662: }
663:
664: return(fFalse);
665: }
666:
667:
668:
669: /*
670: ** Purpose:
671: ** Single Choice Listbox Dialog procedure for templates with exactly one
672: ** listbox control.
673: **
674: ** Controls Recognized:
675: ** Listbox - IDC_LIST1
676: ** Pushbutton - IDC_B, IDC_C, IDC_H, IDC_X
677: **
678: ** Initialization Symbols:
679: ** "ListItemsIn" - list of strings to put in the listbox.
680: ** "ListItemsOut" - simple string (not a list) representing an
681: ** initial selection in "ListItemsIn".
682: **
683: ** Termination Symbols:
684: ** "ListItemsOut" - selected list item string.
685: ** "DLGEVENT" - one of the following, according to control event:
686: ** event value
687: ** ------- -------
688: ** IDC_B "BACK"
689: ** IDC_C "CONTINUE"
690: ** IDC_X "EXIT"
691: ** IDCANCEL "CANCEL"
692: **
693: ** Note:
694: ** Pushbutton IDC_H will open the related Help dialog, if any.
695: **
696: *****************************************************************************/
697: BOOL FAR PASCAL FListDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
698: {
699: char szListIn[cbSymBuf];
700: char szListOut[cbSymBuf];
701: WORD iItem;
702: WORD cb, i;
703: WORD cItems;
704:
705: switch (wMsg)
706: {
707: case WM_INITDIALOG:
708: cItems = UsGetListLength("ListItemsIn");
709: for (i = 1; i <= cItems; ++i)
710: {
711: cb = CbGetListItem("ListItemsIn", i, szListIn, cbSymBuf);
712: Assert(cb < cbSymBuf);
713: SendDlgItemMessage(hdlg, IDC_LIST1, LB_ADDSTRING, 0,
714: (LONG)(LPSTR)szListIn);
715: }
716:
717: cb = CbGetSymbolValue("ListItemsOut", szListOut, cbSymBuf);
718: Assert(cb < cbSymBuf);
719: if (cb == 0)
720: SendDlgItemMessage(hdlg, IDC_LIST1, LB_SETCURSEL, (WORD)-1, 0L);
721: else
722: {
723: for (i = 1, iItem = 0; i <= cItems; ++i, ++iItem)
724: {
725: cb = CbGetListItem("ListItemsIn", i, szListIn, cbSymBuf);
726: Assert(cb < cbSymBuf);
727: if (lstrcmp(szListOut, szListIn) == 0)
728: {
729: SendDlgItemMessage(hdlg,IDC_LIST1,LB_SETCURSEL,iItem,0L);
730: break;
731: }
732: }
733: }
734:
735: /* Note: Depends on number of lines in list box.
736: */
737: if (iItem < 4)
738: iItem = 0;
739: SendDlgItemMessage(hdlg, IDC_LIST1, LB_SETTOPINDEX, iItem, 0L);
740:
741: return(fTrue);
742:
743: case STF_REINITDIALOG:
744: case STF_ACTIVATEAPP:
745: return(fTrue);
746:
747: case WM_COMMAND:
748: switch(wParam)
749: {
750: case IDC_H:
751: HdlgShowHelp();
752: return(fTrue);
753:
754: case IDC_LIST1:
755: if (HIWORD(lParam) != LBN_DBLCLK)
756: break;
757: wParam = IDC_C;
758: case IDC_B:
759: case IDC_C:
760: case IDC_X:
761: case IDCANCEL:
762: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
763: {
764: DestroyWindow(GetParent(hdlg));
765: return(fTrue);
766: }
767:
768: if ((iItem = (WORD)SendDlgItemMessage(hdlg, IDC_LIST1, LB_GETCURSEL,
769: 0, 0L)) == LB_ERR
770: || (cb = (WORD)SendDlgItemMessage(hdlg, IDC_LIST1,
771: LB_GETTEXTLEN, iItem, 0L)) == LB_ERR)
772: *szListOut = '\0';
773: else
774: {
775: Assert(cb <= cbSymBuf);
776: SendDlgItemMessage(hdlg, IDC_LIST1, LB_GETTEXT, iItem,
777: (LONG)(LPSTR)szListOut);
778: }
779: if (!FSetSymbolValue("ListItemsOut", szListOut))
780: {
781: DestroyWindow(GetParent(hdlg));
782: return(fTrue);
783: }
784:
785: ReactivateSetupScript();
786: break;
787: }
788: break;
789:
790: }
791:
792: return(fFalse);
793: }
794:
795:
796:
797: /*
798: ** Purpose:
799: ** Modeless Dialog procedure.
800: **
801: ** Controls Recognized:
802: ** none.
803: **
804: ** Initialization Symbols:
805: ** none.
806: **
807: ** Termination Symbols:
808: ** none.
809: **
810: ** Note:
811: ** This dialog procedure is REQUIRED with use of any Billboard
812: ** MSSetup script functions.
813: **
814: *****************************************************************************/
815: BOOL FAR PASCAL FModelessDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
816: {
817: switch (wMsg)
818: {
819: case WM_INITDIALOG:
820: ReactivateSetupScript();
821: return(fTrue);
822:
823: case STF_REINITDIALOG:
824: case STF_ACTIVATEAPP:
825: return(fTrue);
826:
827: case WM_CLOSE:
828: case WM_COMMAND:
829: Assert(fFalse);
830: break;
831: }
832:
833: return(fFalse);
834: }
835:
836:
837:
838: /*
839: ** Purpose:
840: ** Multiple Choice Listbox Dialog procedure for templates with
841: ** exactly one listbox control.
842: **
843: ** Controls Recognized:
844: ** Listbox - IDC_LIST1
845: ** Pushbutton - IDC_B, IDC_C, IDC_H, IDC_L, IDC_S, IDC_X
846: **
847: ** Initialization Symbols:
848: ** "ListItemsIn" - list of strings to put in the listbox.
849: ** "ListItemsOut" - list of strings representing initial
850: ** selections in "ListItemsIn".
851: **
852: ** Termination Symbols:
853: ** "ListItemsOut" - list of items selected (if any).
854: ** "DLGEVENT" - one of the following, according to control event:
855: ** event value
856: ** ------- -------
857: ** IDC_B "BACK"
858: ** IDC_C "CONTINUE"
859: ** IDC_X "EXIT"
860: ** IDCANCEL "CANCEL"
861: **
862: ** Note:
863: ** Pushbutton IDC_H will open the related Help dialog, if any.
864: ** Pushbuttons IDC_L and IDC_S are for "clear all" and "select all"
865: ** respectively.
866: **
867: *****************************************************************************/
868: BOOL FAR PASCAL FMultiDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
869: {
870: WORD i, j, nCount;
871: char szListIn[cbSymBuf];
872: char szListOut[cbSymBuf];
873: WORD iItem, iItemTop;
874: WORD cb;
875: WORD cItemsIn, cItemsOut;
876:
877: switch (wMsg)
878: {
879: case WM_INITDIALOG:
880: cItemsIn = UsGetListLength("ListItemsIn");
881: nCount = 0;
882: for (i = 1; i <= cItemsIn; ++i)
883: {
884: cb = CbGetListItem("ListItemsIn", i, szListIn, cbSymBuf);
885: Assert(cb < cbSymBuf);
886: SendDlgItemMessage(hdlg, IDC_LIST1, LB_ADDSTRING, 0,
887: (LONG)(LPSTR)szListIn);
888: nCount++;
889: }
890: Assert(nCount == (WORD)SendDlgItemMessage(hdlg, IDC_LIST1, LB_GETCOUNT,
891: 0, 0L));
892:
893: cItemsOut = UsGetListLength("ListItemsOut");
894: for (i = 1, iItemTop = 0; i <= cItemsOut; ++i, ++iItemTop)
895: {
896: cb = CbGetListItem("ListItemsOut", i, szListOut, cbSymBuf);
897: Assert(cb < cbSymBuf);
898: for (j = 1, iItem = 0; j <= cItemsIn; ++j, ++iItem)
899: {
900: cb = CbGetListItem("ListItemsIn", j, szListIn, cbSymBuf);
901: Assert(cb < cbSymBuf);
902: if (lstrcmp(szListOut, szListIn) == 0)
903: {
904: SendDlgItemMessage(hdlg, IDC_LIST1, LB_SETSEL, 1,
905: MAKELONG(iItem, 0));
906: if (iItemTop == 0
907: || (WORD)iItem < iItemTop)
908: iItemTop = (WORD)iItem;
909: break;
910: }
911: }
912: }
913:
914: /* Note: Depends on number of lines in list box.
915: */
916: if (iItemTop < 4)
917: iItemTop = 0;
918: SendDlgItemMessage(hdlg, IDC_LIST1, LB_SETTOPINDEX, iItemTop, 0L);
919:
920: return(fTrue);
921:
922: case STF_REINITDIALOG:
923: case STF_ACTIVATEAPP:
924: return(fTrue);
925:
926: case WM_COMMAND:
927: switch(wParam)
928: {
929: case IDC_S:
930: case IDC_L:
931: SendDlgItemMessage(hdlg, IDC_LIST1, LB_SETSEL, (wParam == IDC_S),
932: -1L);
933: break;
934:
935: case IDC_H:
936: HdlgShowHelp();
937: return(fTrue);
938:
939: case IDC_B:
940: case IDC_C:
941: case IDC_X:
942: case IDCANCEL:
943: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
944: {
945: DestroyWindow(GetParent(hdlg));
946: return(fTrue);
947: }
948:
949: /* Note: Could be faster to use LB_GETSELITEMS here.
950: */
951: nCount = (WORD)SendDlgItemMessage(hdlg, IDC_LIST1, LB_GETCOUNT, 0,
952: 0L);
953:
954: FRemoveSymbol("ListItemsOut");
955: for (i = 0; i < nCount; i++)
956: {
957: if (SendDlgItemMessage(hdlg, IDC_LIST1, LB_GETSEL, (WORD)i, 0L))
958: {
959: SendDlgItemMessage(hdlg, IDC_LIST1, LB_GETTEXT, (WORD)i,
960: (LONG)(LPSTR)szListOut);
961: if (!FAddListItem("ListItemsOut", szListOut))
962: {
963: DestroyWindow(GetParent(hdlg));
964: return(fTrue);
965: }
966: }
967: }
968:
969: ReactivateSetupScript();
970: break;
971: }
972: break;
973: }
974:
975: return(fFalse);
976: }
977:
978:
979:
980: /*
981: ** Purpose:
982: ** Quit Dialog procedure.
983: **
984: ** Controls Recognized:
985: ** Pushbutton - IDC_B, IDC_C, IDC_H, IDC_X
986: **
987: ** Initialization Symbols:
988: ** none.
989: **
990: ** Termination Symbols:
991: ** "DLGEVENT" - one of the following, depending on event:
992: ** event value
993: ** ---------- ----------
994: ** IDC_B "BACK"
995: ** IDC_C "CONTINUE"
996: ** IDC_X "EXIT"
997: ** IDCANCEL "CANCEL"
998: ** STF_ACTIVATEAPP "REACTIVATE"
999: **
1000: ** Note:
1001: ** Pushbutton IDC_H will open the related Help dialog, if any.
1002: **
1003: *****************************************************************************/
1004: BOOL FAR PASCAL FQuitDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
1005: {
1006: switch (wMsg)
1007: {
1008: case WM_INITDIALOG:
1009: return(fTrue);
1010:
1011: case STF_REINITDIALOG:
1012: return(fTrue);
1013:
1014: case STF_ACTIVATEAPP:
1015: if (!FSetSymbolValue("DLGEVENT", "REACTIVATE"))
1016: {
1017: DestroyWindow(GetParent(hdlg));
1018: return(fTrue);
1019: }
1020: ReactivateSetupScript();
1021: return(fTrue);
1022:
1023: case WM_COMMAND:
1024: switch(wParam)
1025: {
1026: case IDC_H:
1027: HdlgShowHelp();
1028: return(fTrue);
1029:
1030: case IDC_B:
1031: case IDC_C:
1032: case IDC_X:
1033: case IDCANCEL:
1034: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
1035: {
1036: DestroyWindow(GetParent(hdlg));
1037: return(fTrue);
1038: }
1039:
1040: ReactivateSetupScript();
1041: break;
1042: }
1043: break;
1044: }
1045: return(fFalse);
1046: }
1047:
1048:
1049:
1050: /*
1051: ** Purpose:
1052: ** Radio Button Group Dialog procedure for templates with one group
1053: ** of one to ten radio button controls.
1054: **
1055: ** Controls Recognized:
1056: ** Radio - IDC_B1 to IDC_B10 (sequential)
1057: ** Pushbutton - IDC_B, IDC_C, IDC_H, IDC_X
1058: **
1059: ** Initialization Symbols:
1060: ** "RadioDefault" - index (one-based) of radio button to be
1061: ** initialized as selected (default is "1").
1062: ** "OptionsGreyed" - list of (one-based) indexes of radio buttons
1063: ** to be initialized as disabled. Indexes not in the list will
1064: ** be left enabled.
1065: **
1066: ** Termination Symbols:
1067: ** "ButtonChecked" - index of currently selected radio button.
1068: ** "DLGEVENT" - one of the following, depending on event:
1069: ** event value
1070: ** ---------- ----------
1071: ** IDC_B "BACK"
1072: ** IDC_C "CONTINUE"
1073: ** IDC_X "EXIT"
1074: ** IDCANCEL "CANCEL"
1075: ** STF_ACTIVATEAPP "REACTIVATE"
1076: **
1077: ** Note:
1078: ** Pushbutton IDC_H will open the related Help dialog, if any.
1079: **
1080: *****************************************************************************/
1081: BOOL FAR PASCAL FRadioDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
1082: {
1083: char rgchNum[10];
1084: int iButtonChecked;
1085: char szSymBuf[cbSymBuf];
1086: WORD i, cb, cItems, idc;
1087:
1088: switch (wMsg)
1089: {
1090: case STF_ACTIVATEAPP:
1091: if (!FSetSymbolValue("DLGEVENT", "REACTIVATE"))
1092: {
1093: DestroyWindow(GetParent(hdlg));
1094: return(fTrue);
1095: }
1096: ReactivateSetupScript();
1097: return(fTrue);
1098:
1099: case WM_INITDIALOG:
1100: cb = CbGetSymbolValue("RadioDefault", szSymBuf, cbSymBuf);
1101: Assert(cb < cbSymBuf);
1102: if (*szSymBuf != '\0')
1103: {
1104: iButtonChecked = AsciiToInt((LPSTR)szSymBuf);
1105: if (iButtonChecked < 1)
1106: iButtonChecked = 0;
1107: if (iButtonChecked > 10)
1108: iButtonChecked = 10;
1109: }
1110: else
1111: iButtonChecked = 1;
1112:
1113: if (iButtonChecked != 0)
1114: SendDlgItemMessage(hdlg, IDC_B0 + iButtonChecked, BM_SETCHECK,1,0L);
1115:
1116: cItems = UsGetListLength("OptionsGreyed");
1117: idc = IDC_B1;
1118: for (i = 1; i <= cItems; ++i)
1119: {
1120: int iOpt;
1121:
1122: cb = CbGetListItem("OptionsGreyed", i, szSymBuf, cbSymBuf);
1123: Assert(cb < cbSymBuf);
1124: iOpt = AsciiToInt((LPSTR)szSymBuf);
1125: if (iOpt > 0
1126: && iOpt <= 10
1127: && iOpt != iButtonChecked)
1128: EnableWindow(GetDlgItem(hdlg, IDC_B0 + iOpt), 0);
1129: else if (*szSymBuf != '\0')
1130: Assert(fFalse);
1131: }
1132: return(fTrue);
1133:
1134: case STF_REINITDIALOG:
1135: return(fTrue);
1136:
1137: case WM_COMMAND:
1138: switch (wParam)
1139: {
1140: case IDC_H:
1141: HdlgShowHelp();
1142: return(fTrue);
1143:
1144: case IDC_B1:
1145: case IDC_B2:
1146: case IDC_B3:
1147: case IDC_B4:
1148: case IDC_B5:
1149: case IDC_B6:
1150: case IDC_B7:
1151: case IDC_B8:
1152: case IDC_B9:
1153: case IDC_B10:
1154: CheckRadioButton(hdlg, IDC_B1, IDC_B10, wParam);
1155: if (HIWORD(lParam) != BN_DOUBLECLICKED)
1156: break;
1157: wParam = IDC_C;
1158: case IDC_B:
1159: case IDC_C:
1160: case IDC_X:
1161: case IDCANCEL:
1162: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
1163: {
1164: DestroyWindow(GetParent(hdlg));
1165: return(fTrue);
1166: }
1167:
1168: iButtonChecked = 0;
1169: for (i = 1; i <= 10; i++)
1170: if (SendDlgItemMessage(hdlg, IDC_B0 + i, BM_GETCHECK, 0, 0L))
1171: {
1172: iButtonChecked = i;
1173: break;
1174: }
1175:
1176: IntToAscii((int)iButtonChecked, (LPSTR)rgchNum);
1177: if (!FSetSymbolValue("ButtonChecked", rgchNum))
1178: {
1179: DestroyWindow(GetParent(hdlg));
1180: return(fTrue);
1181: }
1182:
1183: ReactivateSetupScript();
1184: break;
1185: }
1186: break;
1187: }
1188:
1189: return(fFalse);
1190: }
1191:
1192:
1193:
1194: /*
1195: ** Purpose:
1196: ** Get Name and Organization Dialog procedure for templates
1197: ** with two Edit controls.
1198: ** (Limits the input string length to cbNameMax characters.)
1199: **
1200: ** Controls Recognized:
1201: ** Edit - IDC_EDIT, IDC_EDIT2
1202: ** Pushbutton - IDC_B, IDC_C, IDC_H, IDC_X
1203: **
1204: ** Initialization Symbols:
1205: ** none.
1206: **
1207: ** Termination Symbols:
1208: ** "NameOut" - text in the IDC_EDIT edit control upon termination.
1209: ** "OrgOut" - text in the IDC_EDIT2 edit control upon termination.
1210: ** "DLGEVENT" - one of the following, depending on event:
1211: ** event value
1212: ** ---------- ----------
1213: ** IDC_B "BACK"
1214: ** IDC_C "CONTINUE"
1215: ** IDC_X "EXIT"
1216: ** IDCANCEL "CANCEL"
1217: **
1218: ** Note:
1219: ** Pushbutton IDC_H will open the related Help dialog, if any.
1220: **
1221: *****************************************************************************/
1222: BOOL FAR PASCAL FNameOrgDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
1223: {
1224: static WORD wSelStart1 = 0;
1225: static WORD wSelEnd1 = 0;
1226: static WORD wSelStart2 = 0;
1227: static WORD wSelEnd2 = 0;
1228: char rgchText[cbNameMax + 1];
1229:
1230: switch (wMsg)
1231: {
1232: case WM_INITDIALOG:
1233: SendDlgItemMessage(hdlg, IDC_EDIT, EM_LIMITTEXT, cbNameMax, 0L);
1234: SetDlgItemText(hdlg, IDC_EDIT, (LPSTR)"");
1235:
1236: SendDlgItemMessage(hdlg, IDC_EDIT2, EM_LIMITTEXT, cbNameMax, 0L);
1237: SetDlgItemText(hdlg, IDC_EDIT2, (LPSTR)"");
1238:
1239: wSelStart1 = wSelEnd1 = 0;
1240: wSelStart2 = wSelEnd2 = 0;
1241: return(fTrue);
1242:
1243: case STF_REINITDIALOG:
1244: SendDlgItemMessage(hdlg, IDC_EDIT, EM_SETSEL, 0, MAKELONG(256, 256));
1245: SetFocus(GetDlgItem(hdlg, IDC_EDIT));
1246: return(fTrue);
1247:
1248: case STF_ACTIVATEAPP:
1249: return(fTrue);
1250:
1251: case WM_COMMAND:
1252: switch(wParam)
1253: {
1254: case IDC_EDIT:
1255: if (HIWORD(lParam) == EN_SETFOCUS)
1256: SendDlgItemMessage(hdlg, IDC_EDIT, EM_SETSEL, 0,
1257: MAKELONG(wSelStart1, wSelEnd1));
1258: else if (HIWORD(lParam) == EN_KILLFOCUS)
1259: {
1260: LONG l = SendDlgItemMessage(hdlg, IDC_EDIT, EM_GETSEL, 0, 0L);
1261:
1262: wSelStart1 = LOWORD(l);
1263: wSelEnd1 = HIWORD(l);
1264: }
1265: break;
1266:
1267: case IDC_EDIT2:
1268: if (HIWORD(lParam) == EN_SETFOCUS)
1269: SendDlgItemMessage(hdlg, IDC_EDIT2, EM_SETSEL, 0,
1270: MAKELONG(wSelStart2, wSelEnd2));
1271: else if (HIWORD(lParam) == EN_KILLFOCUS)
1272: {
1273: LONG l = SendDlgItemMessage(hdlg, IDC_EDIT2, EM_GETSEL, 0, 0L);
1274:
1275: wSelStart2 = LOWORD(l);
1276: wSelEnd2 = HIWORD(l);
1277: }
1278: break;
1279:
1280: case IDC_H:
1281: HdlgShowHelp();
1282: return(fTrue);
1283:
1284: case IDC_B:
1285: case IDC_C:
1286: case IDC_X:
1287: case IDCANCEL:
1288: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
1289: {
1290: DestroyWindow(GetParent(hdlg));
1291: return(fTrue);
1292: }
1293:
1294: SendDlgItemMessage(hdlg, IDC_EDIT, (WORD)WM_GETTEXT,
1295: cbNameMax + 1, (LONG)((LPSTR)rgchText));
1296: if (!FSetSymbolValue("NameOut", rgchText))
1297: {
1298: DestroyWindow(GetParent(hdlg));
1299: return(fTrue);
1300: }
1301:
1302: SendDlgItemMessage(hdlg, IDC_EDIT2, (WORD)WM_GETTEXT,
1303: cbNameMax + 1, (LONG)((LPSTR)rgchText));
1304: if (!FSetSymbolValue("OrgOut", rgchText))
1305: {
1306: DestroyWindow(GetParent(hdlg));
1307: return(fTrue);
1308: }
1309:
1310: ReactivateSetupScript();
1311: break;
1312: }
1313: break;
1314: }
1315:
1316: return(fFalse);
1317: }
1318:
1319:
1320:
1321: /*
1322: ** Purpose:
1323: ** Confirm Info Dialog procedure for templates with one to
1324: ** static text controls.
1325: **
1326: ** Controls Recognized:
1327: ** Text - IDC_TEXT1 to IDC_TEXT10 (sequential)
1328: ** Pushbutton - IDC_B, IDC_C, IDC_H, IDC_X
1329: **
1330: ** Initialization Symbols:
1331: ** "ConfirmTextIn" - list of up to ten string items to initialize
1332: ** static text items (IDC_TEXT1-10).
1333: **
1334: ** Termination Symbols:
1335: ** "DLGEVENT" - one of the following, depending on event:
1336: ** event value
1337: ** ---------- ----------
1338: ** IDC_B "BACK"
1339: ** IDC_C "CONTINUE"
1340: ** IDC_X "EXIT"
1341: ** IDCANCEL "CANCEL"
1342: **
1343: ** Note:
1344: ** Pushbutton IDC_H will open the related Help dialog, if any.
1345: **
1346: *****************************************************************************/
1347: BOOL FAR PASCAL FConfirmDlgProc(HWND hdlg, WORD wMsg, WORD wParam, LONG lParam)
1348: {
1349: WORD idc;
1350: WORD cItems;
1351: WORD i, cb;
1352: char szSymBuf[cbSymBuf];
1353:
1354: switch (wMsg)
1355: {
1356: case WM_INITDIALOG:
1357: cItems = UsGetListLength("ConfirmTextIn");
1358: idc = IDC_TEXT1;
1359: for (i = 1; i <= cItems; ++i)
1360: {
1361: WORD wCheck = 0;
1362:
1363: cb = CbGetListItem("ConfirmTextIn", i, szSymBuf, cbSymBuf);
1364: Assert(cb < cbSymBuf);
1365: SetDlgItemText(hdlg, idc++, szSymBuf);
1366: if (i >= 4
1367: && i <= 6)
1368: {
1369: if (*szSymBuf == '\0')
1370: ShowWindow(GetDlgItem(hdlg, IDC_TEXT4+i), SW_HIDE);
1371: else
1372: ShowWindow(GetDlgItem(hdlg, IDC_TEXT4+i), SW_SHOWNOACTIVATE);
1373: }
1374: }
1375: return(fTrue);
1376:
1377: case STF_REINITDIALOG:
1378: case STF_ACTIVATEAPP:
1379: return(fTrue);
1380:
1381: case WM_COMMAND:
1382: switch (wParam)
1383: {
1384: case IDC_H:
1385: HdlgShowHelp();
1386: return(fTrue);
1387:
1388: case IDC_B:
1389: case IDC_C:
1390: case IDC_X:
1391: case IDCANCEL:
1392: if (!FSetSymbolValue("DLGEVENT", SzDlgEvent(wParam)))
1393: {
1394: DestroyWindow(GetParent(hdlg));
1395: return(fTrue);
1396: }
1397: ReactivateSetupScript();
1398: break;
1399: }
1400: break;
1401: }
1402:
1403: return(fFalse);
1404: }
1405:
1406:
1407:
1408: /*
1409: ** Purpose:
1410: ** Initialization routine for DLL.
1411: ** Arguments:
1412: ** hInst: handle to instance of App that required this DLL.
1413: ** wDataSeg: number of words in DLL's data segment.
1414: ** wHeapSize: number of bytes in DLL's heap.
1415: ** lpszCmdLine: command line for App that required this DLL.
1416: ** Returns:
1417: ** 1 always
1418: *****************************************************************************/
1419: int FAR PASCAL LibMain(HANDLE hInst, WORD wDataSeg, WORD wHeapSize,
1420: LPSTR lpszCmdLine)
1421: {
1422: if (wHeapSize > 0)
1423: UnlockData(0);
1424:
1425: return(1);
1426: }
1427:
1428:
1429:
1430: /*
1431: ** Purpose:
1432: ** Windows Exit Procedure.
1433: ** Arguments:
1434: ** nParam: standard WEP param (ignored).
1435: ** Returns:
1436: ** 1 always.
1437: *****************************************************************************/
1438: int FAR PASCAL WEP (int nParam)
1439: {
1440: return(1);
1441: }
1442:
1443:
1444:
1445: /*
1446: ** Purpose:
1447: ** Finds the last character in a string.
1448: ** Arguments:
1449: ** sz: non-NULL zero terminated string to search.
1450: ** Returns:
1451: ** NULL for an empty string.
1452: ** non-Null string pointer to the last valid character in sz.
1453: *****************************************************************************/
1454: LPSTR FAR PASCAL SzLastChar(LPSTR sz)
1455: {
1456: LPSTR szCur = (LPSTR)NULL;
1457: LPSTR szNext = sz;
1458:
1459: while (*szNext != '\0')
1460: szNext = AnsiNext((szCur = szNext));
1461:
1462: return(szCur);
1463: }
1464:
1465:
1466:
1467: /*
1468: ** Purpose:
1469: ** Gets the string values for the following WM_COMMAND events:
1470: ** IDC_B, IDC_C, IDC_X, and IDCANCEL.
1471: ** Arguments:
1472: ** wParam: event parameter value
1473: ** Returns:
1474: ** Pointer to string value constant, NULL if unknown event.
1475: *****************************************************************************/
1476: LPSTR FAR PASCAL SzDlgEvent(WORD wParam)
1477: {
1478: LPSTR szEvent;
1479:
1480: switch(wParam)
1481: {
1482: case IDC_B:
1483: szEvent = "BACK";
1484: break;
1485: case IDC_C:
1486: szEvent = "CONTINUE";
1487: break;
1488: case IDC_X:
1489: szEvent = "EXIT";
1490: break;
1491: case IDCANCEL:
1492: szEvent = "CANCEL";
1493: break;
1494: default:
1495: szEvent = NULL;
1496: break;
1497: }
1498:
1499: return(szEvent);
1500: }
1501:
1502:
1503:
1504: /*
1505: ** Purpose:
1506: ** Converts an ASCII string representing a positive value
1507: ** into an integer.
1508: ** Arguments:
1509: ** sz: non-NULL zero terminated string to convert.
1510: ** Returns:
1511: ** Integer represented by the string.
1512: *****************************************************************************/
1513: int FAR PASCAL AsciiToInt(LPSTR sz)
1514: {
1515: int i = 0;
1516:
1517: while (*sz == ' ' || *sz == '\t')
1518: sz++;
1519:
1520: while (isdigit(*sz))
1521: i = (i * 10) + *sz++ - '0';
1522:
1523: return(i);
1524: }
1525:
1526:
1527:
1528: /*
1529: ** Purpose:
1530: ** Converts an positive integer (< 100) into a string
1531: ** representing its value.
1532: ** Arguments:
1533: ** i: integer to convert (positive and < 100).
1534: ** sz: buffer to hold converted string (at least 3 bytes).
1535: ** Returns:
1536: ** sz.
1537: *****************************************************************************/
1538: LPSTR FAR PASCAL IntToAscii(int i, LPSTR sz)
1539: {
1540: LPSTR szSav = sz;
1541:
1542: if (i >= 100
1543: || i < 0)
1544: Assert(fFalse);
1545:
1546: if (i >= 10)
1547: {
1548: *sz++ = (char)('0' + (i / 10));
1549: i %= 10;
1550: }
1551: *sz++ = (char)('0' + i);
1552: *sz = '\0';
1553:
1554: return(szSav);
1555: }
1556:
1557:
1558:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.