735 lines
18 KiB
C
735 lines
18 KiB
C
|
#include "precomp.h"
|
||
|
|
#pragma hdrstop
|
||
|
|
/***************************************************************************/
|
||
|
|
/****************** Basic Class Dialog Handlers ****************************/
|
||
|
|
/***************************************************************************/
|
||
|
|
|
||
|
|
#define cchpMax 511
|
||
|
|
|
||
|
|
|
||
|
|
/*
|
||
|
|
** Purpose:
|
||
|
|
** Multi Edit, Checkbox, radio button & MultiComboBox Dialog procedure.
|
||
|
|
** Control IDs:
|
||
|
|
** The Edit controls must have IDs of IDC_EDIT1 to IDC_EDIT10.
|
||
|
|
** Pushbuttons recognized are IDC_O, IDC_C, IDC_M, IDC_H, IDC_X, and IDC_B.
|
||
|
|
** Initialization:
|
||
|
|
** The symbol $(EditTextIn) is used to set the initial text in the Edit
|
||
|
|
** controls. The symbol $(EditTextLim) is used to set the limit of the
|
||
|
|
** text in the edit fields.
|
||
|
|
** Termination:
|
||
|
|
** The strings in the Edit controls are stored in the symbol $(EditTextOut)
|
||
|
|
** The id of the Pushbutton (eg IDC_C) which caused termination is
|
||
|
|
** converted to a string and stored in the symbol $(ButtonPressed).
|
||
|
|
*****************************************************************************/
|
||
|
|
INT_PTR APIENTRY FGstComboRadDlgProc (HWND hdlg,
|
||
|
|
UINT wMsg,
|
||
|
|
WPARAM wParam,
|
||
|
|
LPARAM lParam)
|
||
|
|
{
|
||
|
|
CHP rgchNum[10];
|
||
|
|
CHP rgchText[cchpMax + 1];
|
||
|
|
SZ sz, szListIn, szListOut, szEditTextIn, szEditTextLim;
|
||
|
|
RGSZ rgsz, rgszIn, rgszOut, rgszListIn,
|
||
|
|
rgszEditTextIn, rgszEditTextLim ;
|
||
|
|
PSZ psz, pszIn, pszOut, pszListIn, pszEditTextIn, pszEditTextLim ;
|
||
|
|
LRESULT iItem;
|
||
|
|
WORD idc;
|
||
|
|
static BOOL fNotify[10];
|
||
|
|
INT i, nCount, nCurSel, iFocus, iEditMax, iButtonChecked;
|
||
|
|
HWND hctl ;
|
||
|
|
static INT iButtonMax;
|
||
|
|
BOOL fResult = fTrue ;
|
||
|
|
|
||
|
|
Unused(lParam);
|
||
|
|
|
||
|
|
switch (wMsg) {
|
||
|
|
|
||
|
|
case STF_REINITDIALOG:
|
||
|
|
if ((sz = SzFindSymbolValueInSymTab("ReInit")) == (SZ)NULL ||
|
||
|
|
(CrcStringCompareI(sz, "YES") != crcEqual)) {
|
||
|
|
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
|
||
|
|
case WM_INITDIALOG:
|
||
|
|
|
||
|
|
AssertDataSeg();
|
||
|
|
|
||
|
|
if( wMsg == WM_INITDIALOG ) {
|
||
|
|
FCenterDialogOnDesktop(hdlg);
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
// find the initalisers: EditTextIn, EditTextLim
|
||
|
|
//
|
||
|
|
szEditTextIn = SzFindSymbolValueInSymTab("EditTextIn");
|
||
|
|
szEditTextLim = SzFindSymbolValueInSymTab("EditTextLim");
|
||
|
|
|
||
|
|
|
||
|
|
if ( szEditTextIn == (SZ)NULL ||
|
||
|
|
szEditTextLim == (SZ)NULL )
|
||
|
|
{
|
||
|
|
Assert(fFalse);
|
||
|
|
return(fResult);
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
//
|
||
|
|
// Convert initializers to rgsz structures
|
||
|
|
//
|
||
|
|
|
||
|
|
while ((pszEditTextIn = rgszEditTextIn = RgszFromSzListValue(szEditTextIn)) == (RGSZ)NULL)
|
||
|
|
{
|
||
|
|
if (!FHandleOOM(hdlg)) {
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
while ((pszEditTextLim = rgszEditTextLim = RgszFromSzListValue(szEditTextLim)) == (RGSZ)NULL)
|
||
|
|
{
|
||
|
|
if (!FHandleOOM(hdlg)) {
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
//
|
||
|
|
// Circulate through the initialisers: EditTextIn, EditTextLim
|
||
|
|
// in tandem, initialising the edit boxes that
|
||
|
|
// are there in this dialog
|
||
|
|
//
|
||
|
|
|
||
|
|
idc = IDC_EDIT1;
|
||
|
|
|
||
|
|
while ( (szEditTextIn = *pszEditTextIn++) != (SZ)NULL &&
|
||
|
|
(szEditTextLim = *pszEditTextLim++) != (SZ)NULL )
|
||
|
|
{
|
||
|
|
|
||
|
|
iEditMax = idc ;
|
||
|
|
|
||
|
|
// First set the limit of the text in the edit field
|
||
|
|
|
||
|
|
SendDlgItemMessage(
|
||
|
|
hdlg,
|
||
|
|
idc,
|
||
|
|
EM_LIMITTEXT,
|
||
|
|
atoi(szEditTextLim),
|
||
|
|
0L
|
||
|
|
);
|
||
|
|
|
||
|
|
// And then set the text in the edit field
|
||
|
|
|
||
|
|
SetDlgItemText(hdlg, idc++, (LPSTR)szEditTextIn);
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
EvalAssert(FFreeRgsz(rgszEditTextIn));
|
||
|
|
EvalAssert(FFreeRgsz(rgszEditTextLim));
|
||
|
|
|
||
|
|
// Find which control is to receive focus.
|
||
|
|
// First look for a control ID in "RCCtlFocusOn";
|
||
|
|
// otherwise, set focus on the edit control
|
||
|
|
// based on the numeric value of "EditFocusOn".
|
||
|
|
|
||
|
|
iFocus = -1 ;
|
||
|
|
if ( sz = SzFindSymbolValueInSymTab("RCCtlFocusOn") )
|
||
|
|
{
|
||
|
|
iFocus = atoi( sz ) ;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ( iFocus < 0
|
||
|
|
&& (sz = SzFindSymbolValueInSymTab("EditFocusOn")) )
|
||
|
|
{
|
||
|
|
iFocus = IDC_EDIT1 + atoi( sz ) - 1 ;
|
||
|
|
if ( iFocus < IDC_EDIT1 )
|
||
|
|
{
|
||
|
|
iFocus = IDC_EDIT1 ;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
if ( iFocus > iEditMax )
|
||
|
|
{
|
||
|
|
iFocus = iEditMax ;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// Set focus on the chosen field (if there really is such a control)
|
||
|
|
|
||
|
|
if ( iFocus >= 0 && (hctl = GetDlgItem( hdlg, iFocus )) )
|
||
|
|
{
|
||
|
|
SetFocus( hctl ) ;
|
||
|
|
fResult = FALSE ; // Cause dialog manager to preserve focus
|
||
|
|
}
|
||
|
|
|
||
|
|
if ((sz = SzFindSymbolValueInSymTab("EditFocus")) == (SZ)NULL) {
|
||
|
|
sz = "END";
|
||
|
|
}
|
||
|
|
|
||
|
|
// Initialise the OPTIONAL combo boxes
|
||
|
|
|
||
|
|
szListIn = SzFindSymbolValueInSymTab("ComboListItemsIn");
|
||
|
|
szListOut = SzFindSymbolValueInSymTab("ComboListItemsOut");
|
||
|
|
if ( szListIn != (SZ)NULL && szListOut != (SZ)NULL ) {
|
||
|
|
|
||
|
|
while ((pszIn = rgszIn = RgszFromSzListValue(szListIn)) == (RGSZ)NULL)
|
||
|
|
if (!FHandleOOM(hdlg))
|
||
|
|
{
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
|
||
|
|
while ((pszOut =rgszOut = RgszFromSzListValue(szListOut)) == (RGSZ)NULL)
|
||
|
|
if (!FHandleOOM(hdlg))
|
||
|
|
{
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
idc = IDC_COMBO1;
|
||
|
|
while (*pszIn != (SZ)NULL)
|
||
|
|
{
|
||
|
|
Assert(*pszOut != (SZ)NULL);
|
||
|
|
|
||
|
|
if ((szListIn = SzFindSymbolValueInSymTab(*pszIn)) == (SZ)NULL)
|
||
|
|
{
|
||
|
|
Assert(fFalse);
|
||
|
|
EvalAssert(FFreeRgsz(rgszIn));
|
||
|
|
EvalAssert(FFreeRgsz(rgszOut));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
|
||
|
|
while ((pszListIn = rgszListIn = RgszFromSzListValue(szListIn))
|
||
|
|
== (RGSZ)NULL)
|
||
|
|
if (!FHandleOOM(hdlg))
|
||
|
|
{
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
|
||
|
|
SendDlgItemMessage(hdlg, idc, CB_RESETCONTENT, 0, 0L);
|
||
|
|
while (*pszListIn != (SZ)NULL)
|
||
|
|
SendDlgItemMessage(hdlg, idc, CB_ADDSTRING, 0,
|
||
|
|
(LPARAM)*pszListIn++);
|
||
|
|
|
||
|
|
//
|
||
|
|
// Try to find out the item to select from the combo list.
|
||
|
|
//
|
||
|
|
// If there are no items, set nCurSel to -1 to clear the combo
|
||
|
|
// If there are items, however the ListOut variable either doesn't
|
||
|
|
// exist or is "" then set the nCurSel to 0 ( the first element )
|
||
|
|
// If the ListOut var exists and is found in the list box then
|
||
|
|
// set the nCurSel to the index of the element found
|
||
|
|
//
|
||
|
|
|
||
|
|
nCount = (INT)SendDlgItemMessage(hdlg, idc, CB_GETCOUNT, 0, 0L);
|
||
|
|
if ( nCount ) {
|
||
|
|
|
||
|
|
nCurSel = 0;
|
||
|
|
if ((szListOut = SzFindSymbolValueInSymTab(*pszOut)) != (SZ)NULL &&
|
||
|
|
CrcStringCompareI(szListOut, "") != crcEqual) {
|
||
|
|
CHP szItemCur[256];
|
||
|
|
|
||
|
|
for (i = 0; i < nCount; i++) {
|
||
|
|
if ( (SendDlgItemMessage(
|
||
|
|
hdlg,
|
||
|
|
idc,
|
||
|
|
CB_GETLBTEXT,
|
||
|
|
(WPARAM)i,
|
||
|
|
(LPARAM)szItemCur
|
||
|
|
) != CB_ERR)
|
||
|
|
&& (CrcStringCompareI(szItemCur, szListOut) == crcEqual)
|
||
|
|
) {
|
||
|
|
|
||
|
|
nCurSel = i;
|
||
|
|
break;
|
||
|
|
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
nCurSel = -1;
|
||
|
|
}
|
||
|
|
SendDlgItemMessage(hdlg, idc, CB_SETCURSEL, (WPARAM)nCurSel, 0L);
|
||
|
|
|
||
|
|
EvalAssert(FFreeRgsz(rgszListIn));
|
||
|
|
idc++;
|
||
|
|
pszIn++;
|
||
|
|
pszOut++;
|
||
|
|
}
|
||
|
|
|
||
|
|
EvalAssert(FFreeRgsz(rgszIn));
|
||
|
|
EvalAssert(FFreeRgsz(rgszOut));
|
||
|
|
|
||
|
|
// Extract the information on which combo modifications should
|
||
|
|
// be modified
|
||
|
|
for (i = 0; i < 10; i++) {
|
||
|
|
fNotify[i] = fFalse;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ((sz = SzFindSymbolValueInSymTab("NotifyFields")) != (SZ)NULL) {
|
||
|
|
|
||
|
|
while ((psz = rgsz = RgszFromSzListValue(sz)) == (RGSZ)NULL) {
|
||
|
|
if (!FHandleOOM(hdlg)) {
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
for (i = 0; (i < 10) && (*psz != (SZ) NULL); i++) {
|
||
|
|
fNotify[i] = (CrcStringCompareI(*(psz++), "YES") == crcEqual) ?
|
||
|
|
fTrue : fFalse;
|
||
|
|
}
|
||
|
|
|
||
|
|
EvalAssert(FFreeRgsz(rgsz));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// Initialise the check boxes, note that check boxes are optional
|
||
|
|
|
||
|
|
if ((sz = SzFindSymbolValueInSymTab("CheckItemsIn")) != (SZ)NULL) {
|
||
|
|
while ((psz = rgsz = RgszFromSzListValue(sz)) == (RGSZ)NULL) {
|
||
|
|
if (!FHandleOOM(hdlg)) {
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
idc = IDC_B1;
|
||
|
|
while (*psz != (SZ)NULL)
|
||
|
|
{
|
||
|
|
WORD wCheck = 0;
|
||
|
|
|
||
|
|
if (CrcStringCompare(*(psz++), "ON") == crcEqual)
|
||
|
|
wCheck = 1;
|
||
|
|
CheckDlgButton(hdlg, idc++, wCheck);
|
||
|
|
}
|
||
|
|
|
||
|
|
EvalAssert(FFreeRgsz(rgsz));
|
||
|
|
|
||
|
|
if ((sz = SzFindSymbolValueInSymTab("CBOptionsGreyed")) == (SZ)NULL)
|
||
|
|
{
|
||
|
|
PreCondition(fFalse, fTrue);
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
|
||
|
|
while ((psz = rgsz = RgszFromSzListValue(sz)) == (RGSZ)NULL)
|
||
|
|
if (!FHandleOOM(hdlg))
|
||
|
|
{
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
|
||
|
|
while (*psz != (SZ)NULL)
|
||
|
|
{
|
||
|
|
SZ sz = *(psz++);
|
||
|
|
INT i = atoi(sz);
|
||
|
|
|
||
|
|
if (i > 0 && i <= 10)
|
||
|
|
EnableWindow(GetDlgItem(hdlg, IDC_B0 + i), 0);
|
||
|
|
else if (*sz != '\0')
|
||
|
|
PreCondition(fFalse, fTrue);
|
||
|
|
}
|
||
|
|
EvalAssert(FFreeRgsz(rgsz));
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
// Handle all the text status fields in this dialog
|
||
|
|
|
||
|
|
if ((sz = SzFindSymbolValueInSymTab("TextFields")) != (SZ)NULL) {
|
||
|
|
WORD idcStatus;
|
||
|
|
|
||
|
|
while ((psz = rgsz = RgszFromSzListValue(sz)) == (RGSZ)NULL) {
|
||
|
|
if (!FHandleOOM(hdlg)) {
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
idcStatus = IDC_TEXT1;
|
||
|
|
while (*psz != (SZ)NULL && GetDlgItem(hdlg, idcStatus)) {
|
||
|
|
SetDlgItemText (hdlg, idcStatus++,*psz++);
|
||
|
|
}
|
||
|
|
|
||
|
|
EvalAssert(FFreeRgsz(rgsz));
|
||
|
|
}
|
||
|
|
|
||
|
|
// radio button initialize
|
||
|
|
|
||
|
|
|
||
|
|
for (i = IDC_RB1; i <= IDC_RB10 && GetDlgItem(hdlg, i) != (HWND)NULL; i++)
|
||
|
|
;
|
||
|
|
iButtonMax = i - 1;
|
||
|
|
|
||
|
|
if ((sz = SzFindSymbolValueInSymTab("RadioIn")) != (SZ)NULL) {
|
||
|
|
|
||
|
|
while ((psz = rgsz = RgszFromSzListValue(sz)) == (RGSZ)NULL) {
|
||
|
|
if (!FHandleOOM(hdlg)) {
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
while (*psz != (SZ)NULL) {
|
||
|
|
|
||
|
|
iButtonChecked = atoi(*(psz++));
|
||
|
|
if (iButtonChecked < 1)
|
||
|
|
iButtonChecked = 0;
|
||
|
|
if (iButtonChecked > 10)
|
||
|
|
iButtonChecked = 10;
|
||
|
|
|
||
|
|
if (iButtonChecked != 0)
|
||
|
|
SendDlgItemMessage(hdlg, IDC_RB0 + iButtonChecked, BM_SETCHECK,1,0L);
|
||
|
|
}
|
||
|
|
EvalAssert(FFreeRgsz(rgsz));
|
||
|
|
}
|
||
|
|
|
||
|
|
if ((sz = SzFindSymbolValueInSymTab("RadioOptionsGreyed")) != (SZ)NULL)
|
||
|
|
{
|
||
|
|
|
||
|
|
while ((psz = rgsz = RgszFromSzListValue(sz)) == (RGSZ)NULL)
|
||
|
|
if (!FHandleOOM(hdlg))
|
||
|
|
{
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
|
||
|
|
while (*psz != (SZ)NULL)
|
||
|
|
{
|
||
|
|
SZ sz = *(psz++);
|
||
|
|
INT i = atoi(sz);
|
||
|
|
|
||
|
|
if (i > 0 && i <= 10 && i != iButtonChecked)
|
||
|
|
EnableWindow(GetDlgItem(hdlg, IDC_RB0 + i), 0);
|
||
|
|
else if (*sz != '\0')
|
||
|
|
PreCondition(fFalse, fTrue);
|
||
|
|
}
|
||
|
|
|
||
|
|
EvalAssert(FFreeRgsz(rgsz));
|
||
|
|
}
|
||
|
|
|
||
|
|
return(fResult);
|
||
|
|
|
||
|
|
case WM_CLOSE:
|
||
|
|
PostMessage(
|
||
|
|
hdlg,
|
||
|
|
WM_COMMAND,
|
||
|
|
MAKELONG(IDC_X, BN_CLICKED),
|
||
|
|
0L
|
||
|
|
);
|
||
|
|
return(fResult);
|
||
|
|
|
||
|
|
case WM_COMMAND:
|
||
|
|
switch (idc = LOWORD(wParam))
|
||
|
|
{
|
||
|
|
|
||
|
|
// Edit Box Notification
|
||
|
|
|
||
|
|
case IDC_EDIT1:
|
||
|
|
break;
|
||
|
|
|
||
|
|
// Check box Notification
|
||
|
|
|
||
|
|
case IDC_B1:
|
||
|
|
case IDC_B2:
|
||
|
|
case IDC_B3:
|
||
|
|
case IDC_B4:
|
||
|
|
case IDC_B5:
|
||
|
|
case IDC_B6:
|
||
|
|
case IDC_B7:
|
||
|
|
case IDC_B8:
|
||
|
|
case IDC_B9:
|
||
|
|
case IDC_B10:
|
||
|
|
CheckDlgButton(hdlg, LOWORD(wParam),
|
||
|
|
(WORD)!IsDlgButtonChecked(hdlg, (int)wParam));
|
||
|
|
break;
|
||
|
|
|
||
|
|
case IDC_RB1:
|
||
|
|
case IDC_RB2:
|
||
|
|
case IDC_RB3:
|
||
|
|
case IDC_RB4:
|
||
|
|
case IDC_RB5:
|
||
|
|
case IDC_RB6:
|
||
|
|
case IDC_RB7:
|
||
|
|
case IDC_RB8:
|
||
|
|
case IDC_RB9:
|
||
|
|
case IDC_RB10:
|
||
|
|
/*
|
||
|
|
CheckRadioButton(hdlg, IDC_RB1, iButtonMax, (INT)idc);
|
||
|
|
*/
|
||
|
|
if (HIWORD(wParam) != BN_DOUBLECLICKED)
|
||
|
|
break;
|
||
|
|
wParam = IDC_C;
|
||
|
|
/* Fall through */
|
||
|
|
|
||
|
|
case IDC_COMBO1:
|
||
|
|
case IDC_COMBO2:
|
||
|
|
case IDC_COMBO3:
|
||
|
|
case IDC_COMBO4:
|
||
|
|
case IDC_COMBO5:
|
||
|
|
case IDC_COMBO6:
|
||
|
|
case IDC_COMBO7:
|
||
|
|
case IDC_COMBO8:
|
||
|
|
case IDC_COMBO9:
|
||
|
|
|
||
|
|
switch (HIWORD(wParam)) {
|
||
|
|
|
||
|
|
case CBN_SELCHANGE:
|
||
|
|
if (fNotify[idc-IDC_COMBO1] == fTrue) {
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
default:
|
||
|
|
return fFalse;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Other Buttons
|
||
|
|
|
||
|
|
case IDCANCEL:
|
||
|
|
if (LOWORD(wParam) == IDCANCEL) {
|
||
|
|
|
||
|
|
if (!GetDlgItem(hdlg, IDC_B) || HIWORD(GetKeyState(VK_CONTROL)) || HIWORD(GetKeyState(VK_SHIFT)) || HIWORD(GetKeyState(VK_MENU)))
|
||
|
|
{
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
wParam = IDC_B;
|
||
|
|
|
||
|
|
}
|
||
|
|
case IDC_O:
|
||
|
|
case IDC_C:
|
||
|
|
case IDC_M:
|
||
|
|
case IDC_B:
|
||
|
|
case IDC_X:
|
||
|
|
case IDC_BTN0:
|
||
|
|
case IDC_BTN1: case IDC_BTN2: case IDC_BTN3:
|
||
|
|
case IDC_BTN4: case IDC_BTN5: case IDC_BTN6:
|
||
|
|
case IDC_BTN7: case IDC_BTN8: case IDC_BTN9:
|
||
|
|
|
||
|
|
// Add the Button checked to the symbol table
|
||
|
|
|
||
|
|
_itoa((INT)wParam, rgchNum, 10);
|
||
|
|
while (!FAddSymbolValueToSymTab("ButtonPressed", rgchNum))
|
||
|
|
if (!FHandleOOM(hdlg)) {
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
|
||
|
|
// Handle the multiple edit fields
|
||
|
|
|
||
|
|
// Add EditTextOut list variable to the symbol table
|
||
|
|
|
||
|
|
for (i = 0; i < 10; i++) {
|
||
|
|
if (GetDlgItem(hdlg, IDC_EDIT1 + i) == (HWND)NULL) {
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// i has the number of edit fields, allocate an rgsz structure
|
||
|
|
// with i+1 entries (last one NULL TERMINATOR)
|
||
|
|
|
||
|
|
nCount = i;
|
||
|
|
while ((rgsz = (RGSZ)SAlloc((CB)((nCount + 1) * sizeof(SZ))))
|
||
|
|
== (RGSZ)NULL) {
|
||
|
|
if (!FHandleOOM(hdlg)) {
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
rgsz[nCount] = (SZ)NULL;
|
||
|
|
|
||
|
|
// Circulate through the edit fields in the dialog box, determining
|
||
|
|
// the text in each and storing it in the
|
||
|
|
|
||
|
|
for (i = 0; i < nCount; i++) {
|
||
|
|
|
||
|
|
SendDlgItemMessage(
|
||
|
|
hdlg,
|
||
|
|
IDC_EDIT1 + i,
|
||
|
|
(WORD)WM_GETTEXT,
|
||
|
|
cchpMax + 1,
|
||
|
|
(LPARAM)rgchText
|
||
|
|
);
|
||
|
|
|
||
|
|
rgsz[i] = SzDupl(rgchText);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
// Form a list out of the rgsz structure
|
||
|
|
|
||
|
|
while ((sz = SzListValueFromRgsz(rgsz)) == (SZ)NULL) {
|
||
|
|
if (!FHandleOOM(hdlg)) {
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
// Set the EditTextOut symbol to this list
|
||
|
|
|
||
|
|
while (!FAddSymbolValueToSymTab("EditTextOut", sz)) {
|
||
|
|
if (!FHandleOOM(hdlg)) {
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
EvalAssert(FFreeRgsz(rgsz));
|
||
|
|
SFree(sz);
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
// Extract the checkbox states.
|
||
|
|
|
||
|
|
while ((psz = rgsz = (RGSZ)SAlloc((CB)(11 * sizeof(SZ)))) ==
|
||
|
|
(RGSZ)NULL)
|
||
|
|
if (!FHandleOOM(hdlg)) {
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
|
||
|
|
for (idc = IDC_B1; GetDlgItem(hdlg, idc); psz++, idc++) {
|
||
|
|
|
||
|
|
BOOL fChecked = IsDlgButtonChecked(hdlg, idc);
|
||
|
|
|
||
|
|
while ((*psz = SzDupl(fChecked ? "ON" : "OFF")) == (SZ)NULL) {
|
||
|
|
if (!FHandleOOM(hdlg)) {
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
*psz = (SZ)NULL;
|
||
|
|
|
||
|
|
while ((sz = SzListValueFromRgsz(rgsz)) == (SZ)NULL) {
|
||
|
|
if (!FHandleOOM(hdlg)) {
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
while (!FAddSymbolValueToSymTab("CheckItemsOut", sz)) {
|
||
|
|
if (!FHandleOOM(hdlg)) {
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
SFree(sz);
|
||
|
|
EvalAssert(FFreeRgsz(rgsz));
|
||
|
|
|
||
|
|
// extract radio button
|
||
|
|
|
||
|
|
while ((psz = rgsz = (RGSZ)SAlloc((CB)(11 * sizeof(SZ)))) ==
|
||
|
|
(RGSZ)NULL)
|
||
|
|
if (!FHandleOOM(hdlg)) {
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
|
||
|
|
for (idc = IDC_RB1, i=1; GetDlgItem(hdlg, idc); idc++, i++) {
|
||
|
|
|
||
|
|
if (SendDlgItemMessage(hdlg, idc, BM_GETCHECK, 0, 0L))
|
||
|
|
{
|
||
|
|
|
||
|
|
CHP chpID [10];
|
||
|
|
wsprintf( chpID, "%d", i );
|
||
|
|
|
||
|
|
while ((*psz = SzDupl( chpID ))==(SZ)NULL) {
|
||
|
|
if (!FHandleOOM(hdlg)) {
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
psz++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
*psz = (SZ)NULL;
|
||
|
|
|
||
|
|
while ((sz = SzListValueFromRgsz(rgsz)) == (SZ)NULL) {
|
||
|
|
if (!FHandleOOM(hdlg)) {
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
while (!FAddSymbolValueToSymTab("RadioOut", sz)) {
|
||
|
|
if (!FHandleOOM(hdlg)) {
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
SFree(sz);
|
||
|
|
EvalAssert(FFreeRgsz(rgsz));
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
// Extract the selections in the combo boxes and add them to the
|
||
|
|
// symbol table
|
||
|
|
|
||
|
|
if ((szListOut = SzFindSymbolValueInSymTab("ComboListItemsOut"))
|
||
|
|
== (SZ)NULL)
|
||
|
|
{
|
||
|
|
Assert(fFalse);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
while ((pszOut = rgszOut = RgszFromSzListValue(szListOut))
|
||
|
|
== (RGSZ)NULL)
|
||
|
|
if (!FHandleOOM(hdlg))
|
||
|
|
{
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
|
||
|
|
idc = IDC_COMBO1;
|
||
|
|
while (*pszOut != (SZ)NULL) {
|
||
|
|
if ((iItem = SendDlgItemMessage(
|
||
|
|
hdlg,
|
||
|
|
idc,
|
||
|
|
CB_GETCURSEL,
|
||
|
|
0,
|
||
|
|
0L
|
||
|
|
)) == CB_ERR) {
|
||
|
|
*rgchText = '\0';
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
SendDlgItemMessage(
|
||
|
|
hdlg,
|
||
|
|
idc,
|
||
|
|
CB_GETLBTEXT,
|
||
|
|
(WPARAM)iItem,
|
||
|
|
(LPARAM)rgchText
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
while (!FAddSymbolValueToSymTab(*pszOut, rgchText)) {
|
||
|
|
if (!FHandleOOM(hdlg)) {
|
||
|
|
DestroyWindow(GetParent(hdlg));
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
pszOut++;
|
||
|
|
idc++;
|
||
|
|
}
|
||
|
|
|
||
|
|
EvalAssert(FFreeRgsz(rgszOut));
|
||
|
|
PostMessage(GetParent(hdlg), (WORD)STF_UI_EVENT, 0, 0L);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case STF_DESTROY_DLG:
|
||
|
|
PostMessage(GetParent(hdlg), (WORD)STF_MULTICOMBO_RADIO_DLG_DESTROYED, 0, 0L);
|
||
|
|
DestroyWindow(hdlg);
|
||
|
|
return(fResult);
|
||
|
|
}
|
||
|
|
|
||
|
|
return(fFalse);
|
||
|
|
}
|