Changeset 243 for trunk/src/helpers/_call_filedlg.c

Timestamp:

Jan 29, 2003, 7:41:39 PM (23 years ago)

Author:

umoeller

Message:

New build system, multimedia, other misc fixes.

File:

• trunk/src/helpers/_call_filedlg.c (modified) (8 diffs)

trunk/src/helpers/_call_filedlg.c

@@ -15 +15 @@
 #define INCL_WINSTDCNR
 #define INCL_WINSTDFILE
+#define INCL_WINTIMER
 
 #include <os2.h>
@@ -29 +30 @@
 #include "helpers\cnrh.h"
 #include "helpers\comctl.h"
+#include "helpers\nls.h"
 #include "helpers\standards.h"
+#include "helpers\stringh.h"
 #include "helpers\winh.h"
 #include "helpers\gpih.h"
@@ -106 +109 @@
 } GROUPRECORD, *PGROUPRECORD;
 
+PFNWP G_pfnwpFrameOrig;
+
+#define RECORD_COUNT        20000
+
+PGROUPRECORD G_paRecs[RECORD_COUNT];
+
+CHAR    G_szText[] = "Longer test string with increasing length";
+
+/*
+ *@@ fnwpSubclFrame:
+ *
+ */
+
+MRESULT EXPENTRY fnwpSubclFrame(HWND hwndFrame, ULONG msg, MPARAM mp1, MPARAM mp2)
+{
+    MRESULT mrc = 0;
+
+    switch (msg)
+    {
+        case WM_COMMAND:
+            if (SHORT1FROMMP(mp1) == 1000)
+                ShowFileDlg(hwndFrame);
+        break;
+
+        case WM_CONTROL:
+            if (SHORT1FROMMP(mp1) == FID_CLIENT)
+            {
+                switch (SHORT2FROMMP(mp1))
+                {
+                    case CN_VIEWPORTCHANGED:
+                    {
+                        PCNRVIEWPORT pcvp = (PCNRVIEWPORT)mp2;
+
+                        CHAR szTemp[100],
+                             szNLS1[20],
+                             szNLS2[20],
+                             szNLS3[20],
+                             szNLS4[20],
+                             szNLS5[20],
+                             szNLS6[20];
+                        sprintf(szTemp,
+                                "Win: (%s/%s), WArea: (%s/%s), scrl: (%s/%s)",
+                                nlsThousandsULong(szNLS1,
+                                                  pcvp->szlWin.cx,
+                                                  '.'),
+                                nlsThousandsULong(szNLS2,
+                                                  pcvp->szlWin.cy,
+                                                  '.'),
+                                nlsThousandsULong(szNLS3,
+                                                  pcvp->szlWorkarea.cx,
+                                                  '.'),
+                                nlsThousandsULong(szNLS4,
+                                                  pcvp->szlWorkarea.cy,
+                                                  '.'),
+                                nlsThousandsULong(szNLS5,
+                                                  pcvp->ptlScroll.x,
+                                                  '.'),
+                                nlsThousandsULong(szNLS6,
+                                                  pcvp->ptlScroll.y,
+                                                  '.'));
+                        WinSetWindowText(WinWindowFromID(hwndFrame, FID_STATUSBAR),
+                                         szTemp);
+                    }
+                    break;
+
+                    case CN_ENTER:
+                    {
+                        CHAR sz[100];
+                        PCSZ pcsz;
+                        PNOTIFYRECORDENTER pnre = (PNOTIFYRECORDENTER)mp2;
+                        if (!pnre->pRecord)
+                            pcsz = "Whitespace";
+                        else
+                        {
+                            sprintf(sz, "group %d", ((PGROUPRECORD)pnre->pRecord)->gid);
+                            pcsz = sz;
+                        }
+                        winhDebugBox(hwndFrame,
+                                     "Enter pressed",
+                                     pcsz);
+                    }
+                    break;
+                }
+            }
+        break;
+
+        case WM_TIMER:
+            if ((ULONG)mp1 == 1)
+            {
+                static ul = 0,
+                       ul2 = 1;
+
+                HWND    hwndCnr = WinWindowFromID(hwndFrame, FID_CLIENT);
+
+                PGROUPRECORD precThis = G_paRecs[ul];
+
+                ULONG ulTimeNow;
+                DosQuerySysInfo(QSV_MS_COUNT, QSV_MS_COUNT,
+                                &ulTimeNow,
+                                sizeof(ulTimeNow));
+
+                strhncpy0(precThis->szGroupName,
+                          G_szText,
+                          ul2++);
+
+                WinSendMsg(hwndCnr,
+                           CM_INVALIDATERECORD,
+                           (MPARAM)&precThis,
+                           MPFROM2SHORT(1, CMA_ERASE | CMA_TEXTCHANGED));
+
+                if (++ul >= RECORD_COUNT)
+                    ul = 0;
+                if (ul2 > strlen(G_szText))
+                    ul2 = 1;
+            }
+            else
+                mrc = G_pfnwpFrameOrig(hwndFrame, msg, mp1, mp2);
+        break;
+
+        default:
+            mrc = G_pfnwpFrameOrig(hwndFrame, msg, mp1, mp2);
+        break;
+
+    }
+
+    return mrc;
+}
+
 /*
  *@@ main:
@@ -203 +334 @@
                   | FCF_SHELLPOSITION
                   | FCF_TASKLIST,
-            0, // XFCF_TOOLBAR | XFCF_FORCETBOWNER | XFCF_STATUSBAR,
+            XFCF_TOOLBAR | XFCF_FORCETBOWNER | XFCF_STATUSBAR,
             WS_VISIBLE,                         // ulFrameStyle
             "Test File Dialog",                 // pcszFrameTitle
             0,                                  // ulResourcesID
-#if 1
+#ifdef __USE_PM_CNR__
+            WC_CONTAINER,
+#else
             WC_CCTL_CNR,
-#else
-            WC_CONTAINER,
 #endif
-            WS_VISIBLE,                         // flStyleClient
+            WS_VISIBLE | CCS_EXTENDSEL,       // flStyleClient
             0,                                  // ulID
             NULL,
@@ -262 +393 @@
     WinSendMsg(hwndFrame, WM_UPDATEFRAME, MPNULL, MPNULL);
 
+    if (G_pfnwpFrameOrig = WinSubclassWindow(hwndFrame, fnwpSubclFrame))
     {
         XFIELDINFO  xfi[4];
@@ -270 +402 @@
         // set up cnr details view
         xfi[i].ulFieldOffset = FIELDOFFSET(GROUPRECORD, gid);
-        xfi[i].pszColumnTitle = "Group ID";     // @@todo localize
+        xfi[i].pszColumnTitle = "gid";
         xfi[i].ulDataType = CFA_ULONG;
         xfi[i++].ulOrientation = CFA_RIGHT;
@@ -297 +429 @@
         } END_CNRINFO(hwndClient);
 
-        #define RECORD_COUNT        200
-
         if (preccFirst = (PGROUPRECORD)cnrhAllocRecords(hwndClient,
                                                         sizeof(GROUPRECORD),
                                                         RECORD_COUNT))
         {
-            PGROUPRECORD preccThis = preccFirst;
+            PGROUPRECORD preccThis = preccFirst,
+                         preccEmph;
             ULONG   ul = 0;
             while (preccThis)
             {
+                G_paRecs[ul] = preccThis;
+
+                if (ul & 1)
+                    preccThis->recc.flRecordAttr |= CRA_FILTERED;
+
+                if (ul == 4)
+                    preccEmph = preccThis;
+
                 preccThis->gid = ul++;
                 sprintf(preccThis->szGroupName, "group %d", preccThis->gid);
@@ -323 +462 @@
                               CRA_RECORDREADONLY,
                               RECORD_COUNT);
+
+            WinSendMsg(hwndClient,
+                       CM_SETRECORDEMPHASIS,
+                       (MPARAM)preccEmph,
+                       MPFROM2SHORT(TRUE, CRA_SELECTED));
         }
     }
 
+    WinStartTimer(hab, hwndFrame, 1, 100);
+
     while (WinGetMsg(hab, &qmsg, NULLHANDLE, 0, 0))
-    {
-        BOOL fDispatch = TRUE;
-
-        if (qmsg.hwnd == hwndFrame)
-        {
-            switch (qmsg.msg)
-            {
-                case WM_COMMAND:
-                    if (SHORT1FROMMP(qmsg.mp1) == 1000)
-                    {
-                        ShowFileDlg(hwndFrame);
-                        fDispatch = FALSE;
-                    }
-                break;
-            }
-        }
-
-        if (fDispatch)
-            WinDispatchMsg(hab, &qmsg);
-    }
+        WinDispatchMsg(hab, &qmsg);
 
     WinDestroyMsgQueue(hmq);