Return to drawline.c CVS log

Up to [OS/2 SDKs] / pmsdk / samples / petzold / chap11

Microsoft OS/2 SDK PM 02-24-1989

/*--------------------------------------------
   DRAWLINE.C -- Draw line from radio buttons
  --------------------------------------------*/

#define INCL_WIN
#define INCL_GPI
#include <os2.h>

MRESULT EXPENTRY ClientWndProc (HWND, USHORT, MPARAM, MPARAM) ;

int main (void)
     {
     static CHAR  szClientClass[] = "DrawLine" ;
     static ULONG flFrameFlags = FCF_TITLEBAR      | FCF_SYSMENU |
                                 FCF_SIZEBORDER    | FCF_MINMAX  |
                                 FCF_SHELLPOSITION | FCF_TASKLIST ;
     HAB          hab ;
     HMQ          hmq ;
     HWND         hwndFrame, hwndClient ;
     QMSG         qmsg ;

     hab = WinInitialize (0) ;
     hmq = WinCreateMsgQueue (hab, 0) ;

     WinRegisterClass (hab, szClientClass, ClientWndProc, CS_SIZEREDRAW, 0) ;

     hwndFrame = WinCreateStdWindow (HWND_DESKTOP, WS_VISIBLE,
                                     &flFrameFlags, szClientClass, NULL,
                                     0L, NULL, 0, &hwndClient) ;

     WinSendMsg (hwndFrame, WM_SETICON,
                 WinQuerySysPointer (HWND_DESKTOP, SPTR_APPICON, FALSE),
                 NULL) ;

     while (WinGetMsg (hab, &qmsg, NULL, 0, 0))
          WinDispatchMsg (hab, &qmsg) ;

     WinDestroyWindow (hwndFrame) ;
     WinDestroyMsgQueue (hmq) ;
     WinTerminate (hab) ;
     return 0 ;
     }

MRESULT EXPENTRY ClientWndProc (HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2)
     {
     static CHAR   *szGroupText[] = { "Color", "Type" } ;
     static CHAR   *szColorText[] = { "Background", "Blue",      "Red",
                                       "Pink",       "Green",     "Cyan",
                                       "Yellow",     "Neutral",   "Dark Gray",
                                       "Dark Blue",  "Dark Red",  "Dark Pink",
                                       "Dark Green", "Dark Cyan", "Brown",     
                                       "Pale Gray" } ;
     static CHAR   *szTypeText [] = { "Dot",       "Short Dash",
                                       "Dash Dot",  "Double Dot",
                                       "Long Dash", "Dash Double Dot",
                                       "Solid",     "Invisible" } ;
     static HWND   hwndGroup[2], hwndRadioColor[8], hwndRadioType[8] ;
     static POINTL aptl[5] ;
     static SHORT  sCurrentColor = 7,   // Neutral
                   sCurrentType  = 6 ;  // Solid
     FONTMETRICS   fm ;
     HPS           hps ;
     SHORT         s, id, cxChar, cyChar ;

     switch (msg)
          {
          case WM_CREATE :
               hps = WinGetPS (hwnd) ;
               GpiQueryFontMetrics (hps, (LONG) sizeof fm, &fm) ;
               cxChar = (SHORT) fm.lAveCharWidth ;
               cyChar = (SHORT) fm.lMaxBaselineExt ;
               WinReleasePS (hps) ;

               for (s = 0 ; s < 2 ; s++)

                    hwndGroup[s] = WinCreateWindow (
                                        hwnd,               // Parent
                                        WC_STATIC,          // Class
                                        szGroupText[s],     // Text
                                        WS_VISIBLE |        // Style
                                             SS_GROUPBOX,
                                        (8 + 42 * s) * cxChar,
                                        4 * cyChar,         // Position
                                        (26 + 12 * (1 - s)) *
                                             cxChar,        // Width
                                        14 * cyChar,        // Height
                                        hwnd,               // Owner
                                        HWND_TOP,           // Placement
                                        s + 24,             // ID
                                        NULL,               // Ctrl Data
                                        NULL) ;             // Pres Params

               for (s = 0 ; s < 16 ; s++)

                    hwndRadioColor[s] = WinCreateWindow (
                                        hwnd,               // Parent
                                        WC_BUTTON,          // Class
                                        szColorText[s],     // Text
                                        WS_VISIBLE |        // Style
                                             BS_RADIOBUTTON,
                                        (10 + (s > 7 ? 18 : 0))
                                             * cxChar,      // X Position
                                        (31 - 3 * (s % 8))
                                             * cyChar / 2,  // Y Position
                                        16 * cxChar,        // Width
                                        3 * cyChar / 2,     // Height
                                        hwnd,               // Owner
                                        HWND_BOTTOM,        // Placement
                                        s,                  // ID
                                        NULL,               // Ctrl Data
                                        NULL) ;             // Pres Params

               for (s = 0 ; s < 8 ; s++)

                    hwndRadioType[s]  = WinCreateWindow (
                                        hwnd,               // Parent
                                        WC_BUTTON,          // Class
                                        szTypeText[s],      // Text
                                        WS_VISIBLE |        // Style
                                             BS_RADIOBUTTON,
                                        52 * cxChar,        // Position
                                        (31 - 3 * s) * cyChar / 2,
                                        22 * cxChar,        // Width
                                        3 * cyChar / 2,     // Height
                                        hwnd,               // Owner
                                        HWND_BOTTOM,        // Placement
                                        s + 16,             // ID
                                        NULL,               // Ctrl Data
                                        NULL) ;             // Pres Params
                    
               WinSendMsg (hwndRadioColor[sCurrentColor],
                           BM_SETCHECK, MPFROMSHORT (1), NULL) ;

               WinSendMsg (hwndRadioType[sCurrentType],
                           BM_SETCHECK, MPFROMSHORT (1), NULL) ;

               aptl[0].x = aptl[3].x = aptl[4].x = 4 * cxChar ;
               aptl[1].x = aptl[2].x = 80 * cxChar ;

               aptl[0].y = aptl[1].y = aptl[4].y = 2 * cyChar ;
               aptl[2].y = aptl[3].y = 20 * cyChar ;

               return 0 ;

          case WM_CONTROL:
               id = SHORT1FROMMP (mp1) ;

               if (id < 16)             // Color IDs
                    {
                    WinSendMsg (hwndRadioColor[sCurrentColor],
                                BM_SETCHECK, MPFROMSHORT (0), NULL) ;

                    sCurrentColor = id ;

                    WinSendMsg (hwndRadioColor[sCurrentColor],
                                BM_SETCHECK, MPFROMSHORT (1), NULL) ;
                    }

               else if (id < 24)        // Line Type IDs
                    {
                    WinSendMsg (hwndRadioType[sCurrentType],
                                BM_SETCHECK, MPFROMSHORT (0), NULL) ;

                    sCurrentType = id - 16 ;

                    WinSendMsg (hwndRadioType[sCurrentType],
                                BM_SETCHECK, MPFROMSHORT (1), NULL) ;
                    }
               WinInvalidateRect (hwnd, NULL, TRUE) ;
               return 0 ;

          case WM_PAINT:
               hps = WinBeginPaint (hwnd, NULL, NULL) ;
               GpiErase (hps) ;

               GpiSetColor (hps, (LONG) sCurrentColor) ;
               GpiSetLineType (hps, sCurrentType + LINETYPE_DOT) ;
               GpiMove (hps, aptl) ;
               GpiPolyLine (hps, 4L, aptl + 1) ;

               WinEndPaint (hps) ;
               return 0 ;
          }
     return WinDefWindowProc (hwnd, msg, mp1, mp2) ;
     }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.