#include "precomp.h"
#pragma hdrstop
/***************************************************************************/
/****************** Basic Class Dialog Handlers ****************************/
/***************************************************************************/

#define cchpMax 511


/*
**  Purpose:
**      Edit, Checkbox & MultiComboBox Dialog procedure.
**
*****************************************************************************/
INT_PTR APIENTRY FGstCombinationDlgProc (HWND   hdlg,
                                         UINT   wMsg,
                                         WPARAM wParam,
                                         LPARAM lParam)
{

    static WPARAM wSelStart = 0;
    static WPARAM wSelEnd   = 0;
    CHP    rgchNum[10];
    CHP    rgchText[cchpMax + 1];
    CCHP   cchp;
    SZ     sz, szListIn, szListOut;
    RGSZ   rgsz, rgszIn, rgszOut, rgszListIn;
    PSZ    psz, pszIn, pszOut, pszListIn;
    LRESULT iItem;
    WORD   idc;
    static BOOL fNotify[10];
    INT    i, nCount, nCurSel;

    Unused(lParam);

    switch (wMsg) {

    case STF_REINITDIALOG:
        if ((sz = SzFindSymbolValueInSymTab("ReInit")) == (SZ)NULL ||
            (CrcStringCompareI(sz, "YES") != crcEqual)) {

            return(fTrue);
        }

    case WM_INITDIALOG:

        AssertDataSeg();
        if( wMsg == WM_INITDIALOG ) {
            FCenterDialogOnDesktop(hdlg);
        }

        // Initialise the edit box

        // Find the limit on the edit box text

        cchp = cchpMax;
        if ((sz = SzFindSymbolValueInSymTab("EditTextLim")) != (SZ)NULL) {
            cchp = (CCHP) atoi(sz);
        }

        SendDlgItemMessage(hdlg, IDC_EDIT1, EM_LIMITTEXT, cchp, 0L);

        // Find the text limit

        if ((sz = SzFindSymbolValueInSymTab("EditTextIn")) == (SZ)NULL) {
            sz = "";
        }

        Assert(sz != NULL);
        SetDlgItemText(hdlg, IDC_EDIT1, (LPSTR)sz);

        // Find the focus string, default is END

        cchp = strlen(sz);
        if ((sz = SzFindSymbolValueInSymTab("EditFocus")) == (SZ)NULL) {
            sz = "END";
        }


        wSelStart = (WPARAM)cchp;
        wSelEnd   = (WPARAM)cchp;
        if (CrcStringCompare(sz, "END") == crcEqual) {
            ;
        }
        else if (CrcStringCompare(sz, "ALL") == crcEqual) {
            wSelStart = 0;
            wSelEnd   = INT_MAX;
        }
        else if (CrcStringCompare(sz, "START") == crcEqual) {
            wSelStart = 0;
            wSelEnd   = 0;
        }


        // Initialise the combo boxes

        szListIn  = SzFindSymbolValueInSymTab("ComboListItemsIn");
        szListOut = SzFindSymbolValueInSymTab("ComboListItemsOut");
        if (szListIn == (SZ)NULL ||
            szListOut == (SZ)NULL   ) {
            Assert(fFalse);
            return(fTrue);
        }

        while ((pszIn = rgszIn = RgszFromSzListValue(szListIn)) == (RGSZ)NULL)
            if (!FHandleOOM(hdlg))
                {
                DestroyWindow(GetParent(hdlg));
                return(fTrue);
                }

        while ((pszOut =rgszOut = RgszFromSzListValue(szListOut)) == (RGSZ)NULL)
            if (!FHandleOOM(hdlg))
                {
                DestroyWindow(GetParent(hdlg));
                return(fTrue);
                }

        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(fTrue);
                }

            while ((pszListIn = rgszListIn = RgszFromSzListValue(szListIn))
                    == (RGSZ)NULL)
                if (!FHandleOOM(hdlg))
                    {
                    DestroyWindow(GetParent(hdlg));
                    return(fTrue);
                    }

            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(fTrue);
                 }
             }

             for (i = 0; (i < 10) && (*psz != (SZ) NULL); i++) {
                 fNotify[i] = (CrcStringCompareI(*(psz++), "YES") == crcEqual) ?
                      fTrue : fFalse;
             }

             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(fTrue);
              }
           }

           idcStatus = IDC_TEXT1;
           while (*psz != (SZ)NULL && GetDlgItem(hdlg, idcStatus)) {
              SetDlgItemText (hdlg, idcStatus++,*psz++);
           }

           EvalAssert(FFreeRgsz(rgsz));
        }

        //
        // Initialise the check boxes, note that check boxes are optional
        //

        if ((sz = SzFindSymbolValueInSymTab("CheckItemsIn")) == (SZ)NULL) {
            return(fTrue);
        }

        while ((psz = rgsz = RgszFromSzListValue(sz)) == (RGSZ)NULL) {
            if (!FHandleOOM(hdlg)) {
                DestroyWindow(GetParent(hdlg));
                return(fTrue);
            }
        }

        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("OptionsGreyed")) == (SZ)NULL)
            {
            PreCondition(fFalse, fTrue);
            return(fTrue);
            }

        while ((psz = rgsz = RgszFromSzListValue(sz)) == (RGSZ)NULL)
            if (!FHandleOOM(hdlg))
                {
                DestroyWindow(GetParent(hdlg));
                return(fTrue);
                }

        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));


      return(fTrue);


    case WM_CLOSE:
        PostMessage(
            hdlg,
            WM_COMMAND,
            MAKELONG(IDC_X, BN_CLICKED),
            0L
            );
        return(fTrue);

    case WM_COMMAND:
        switch (idc = LOWORD(wParam))
            {

         // Edit Box Notification

           case IDC_EDIT1:
             if (HIWORD(wParam) == EN_SETFOCUS)
                  SendDlgItemMessage(hdlg, IDC_EDIT1, EM_SETSEL, wSelStart,
                           wSelEnd);
                else if (HIWORD(wParam) == EN_KILLFOCUS)
                      SendDlgItemMessage(hdlg, IDC_EDIT1, EM_GETSEL, (WPARAM)&wSelStart,
                           (LPARAM)&wSelEnd);
             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_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(fTrue);
                 }


             // Extract the text from the edit box and add it to the
             // table

            SendDlgItemMessage(hdlg, IDC_EDIT1, (WORD)WM_GETTEXT, cchpMax + 1,
                    (LPARAM)rgchText);
               while (!FAddSymbolValueToSymTab("EditTextOut", rgchText))
                   if (!FHandleOOM(hdlg))
                       {
                       DestroyWindow(GetParent(hdlg));
                       return(fTrue);
                       }


            // Extract the checkbox states.

            while ((psz = rgsz = (RGSZ)SAlloc((CB)(11 * sizeof(SZ)))) ==
                     (RGSZ)NULL)
                if (!FHandleOOM(hdlg)) {
                    DestroyWindow(GetParent(hdlg));
                    return(fTrue);
                }

            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(fTrue);
                    }
                }
            }

            *psz = (SZ)NULL;

            while ((sz = SzListValueFromRgsz(rgsz)) == (SZ)NULL) {
                if (!FHandleOOM(hdlg)) {
                    DestroyWindow(GetParent(hdlg));
                    return(fTrue);
                }
            }

            while (!FAddSymbolValueToSymTab("CheckItemsOut", sz)) {
                if (!FHandleOOM(hdlg)) {
                    DestroyWindow(GetParent(hdlg));
                    return(fTrue);
                }
            }

            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(fTrue);
                       }

                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(fTrue);
                        }
                    }

                    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_DLG_DESTROYED, 0, 0L);
        DestroyWindow(hdlg);
        return(fTrue);
        }

    return(fFalse);
}