
/******************************************************************************\
*       This is a part of the Microsoft Source Code Samples. 
*       Copyright (C) 1993 Microsoft Corporation.
*       All rights reserved. 
*       This source code is only intended as a supplement to 
*       Microsoft Development Tools and/or WinHelp documentation.
*       See these sources for detailed information regarding the 
*       Microsoft samples programs.
\******************************************************************************/

/******************************************************************************\
*
*  MODULE:      PAINT.C
*
*  PURPOSE:     Given an HDC and a pointer to a bounding rectangle
*               draw all graphics/fonts based on the flags set in
*               the dwGraphicsOptions global variable.
*
*  FUNTIONS:    Paint              - main painting routine
*               GetFirstGraphicSlot- computes bounding rect of 1st
*                                      graphic
*               GetNextGraphicSlot - computes bounding rect of next
*                                      graphic
*               DrawFonts          - draws enumerated fonts
*               BuildFontList      - builds a list of fonts of fonts
*                                      supported by a given DC
*               MyEnumFaces        - enumerates the font facenames
*                                      supported by a given DC
*               MyEnumCopy         - copies LOGFONT & TEXTMETRIC info
*                                      to a global variable
*               MyEnumCount        - counts total number of fonts
*                                      supported by a given DC
*               FreeFontList       - frees a (BuildFontList-) font list
*
*  COMMENTS:    Most of the font-enumeration code "lifted" from NTF.EXE
*               sample. For more complete documentation have a look a
*               that.
*
\******************************************************************************/

#include <windows.h>
#include <string.h>
#include "common.h"
#include "paint.h"



/******************************************************************************\
*
*  FUNCTION:    Paint
*
*  INPUTS:      hdc    - device context to paint
*               lpRect - bounding rectangle of device to paint
*
*  RETURNS:     TRUE if painting went ok, or
*               FALSE if error while painting
*
\******************************************************************************/

BOOL Paint (HDC hdc, LPRECT lpRect)
{
  RECT  rect;
  HPEN  hpenSave;
  RECTI ri;

  if (gdwGraphicsOptions & DRAWAXIS)
  {

    //
    // draw axis
    //

    rect = *lpRect;

    hpenSave = SelectObject (hdc, GetStockObject (BLACK_PEN));

    //
    // if giMapMode == MM_TEXT, MM_ANISOTROPIC then (0,0) is upper left corner
    //

    if (giMapMode == MM_TEXT || giMapMode == MM_ANISOTROPIC)
    {
      MoveToEx (hdc, rect.left - glcyMenu/2, rect.bottom, NULL);
      LineTo   (hdc, rect.left,  rect.bottom + glcyMenu/2);
      LineTo   (hdc, rect.left + glcyMenu/2,  rect.bottom);

      MoveToEx (hdc, rect.left,  rect.bottom + glcyMenu/2, NULL);
      LineTo   (hdc, rect.left,  rect.top);
      LineTo   (hdc, rect.right + glcyMenu/2, rect.top);

      MoveToEx (hdc, rect.right, rect.top - glcyMenu/2, NULL);
      LineTo   (hdc, rect.right + glcyMenu/2,  rect.top);
      LineTo   (hdc, rect.right,  rect.top + glcyMenu/2);
    }

    //
    // else (0,0) is lower left corner
    //

    else
    {
      MoveToEx (hdc, rect.left - glcyMenu/2, rect.bottom, NULL);
      LineTo   (hdc, rect.left,  rect.bottom + glcyMenu/2);
      LineTo   (hdc, rect.left + glcyMenu/2,  rect.bottom);

      MoveToEx (hdc, rect.left,  rect.bottom + glcyMenu/2, NULL);
      LineTo   (hdc, rect.left,  rect.top);
      LineTo   (hdc, rect.right + glcyMenu/2, rect.top);

      MoveToEx (hdc, rect.right, rect.top + glcyMenu/2, NULL);
      LineTo   (hdc, rect.right + glcyMenu/2, rect.top);
      LineTo   (hdc, rect.right, rect.top - glcyMenu/2);
    }
  }

  SelectObject (hdc, hpenSave);

  //
  // look at bits in gdwGraphicsOptions & determine which graphics to draw
  //

  if (gdwGraphicsOptions & ENUMFONTS)
  {
    DrawFonts (hdc, lpRect);
    return TRUE;
  }

  giDeltaX = (int) ((lpRect->right - BORDER) / NUM_GRAPHICS_XSLOTS);
  giDeltaY = (int) ((lpRect->bottom - lpRect->top - BORDER)
                                             / NUM_GRAPHICS_YSLOTS);

  GetFirstGraphicSlot (lpRect, &ri);

  if (gdwGraphicsOptions & ARC)
  {
    Arc (hdc, ri.left, ri.top, ri.right, ri.bottom,
              ri.left, ri.top, ri.right-10, ri.bottom-10);
    GetNextGraphicSlot (&ri);
  }

  if (gdwGraphicsOptions & ELLIPSE)
  {
    Ellipse (hdc, ri.left, ri.top, ri.right, ri.bottom);
    GetNextGraphicSlot (&ri);
  }

  if (gdwGraphicsOptions & LINETO)
  {
    int i;

    for (i = PS_SOLID; i <= PS_DASHDOTDOT; i++)
    {
      MoveToEx (hdc, ri.left, ri.top + (i+1)*giDeltaY/7, NULL);
      LineTo   (hdc, ri.right, ri.top + (i+1)*giDeltaY/7);
    }
    GetNextGraphicSlot (&ri);
  }

  if (gdwGraphicsOptions & PIE)
  {
    Pie (hdc, ri.left, ri.top, ri.right, ri.bottom,
              ri.left, ri.top, ri.right-10, ri.bottom-10);
    GetNextGraphicSlot (&ri);
  }

  if (gdwGraphicsOptions & PLG_BLT)
  {
    HBITMAP hbm;
    BITMAP  bm;
    HDC     hdcMem;
    POINT   ap[3];

    hbm = LoadBitmap (ghInst, "printer");
    hdcMem = CreateCompatibleDC (hdc);
    SelectObject (hdcMem, hbm);

    GetObject (hbm, sizeof(BITMAP), (LPSTR)&bm);

    //
    // special case here because PlgBlt requires coordinates
    //   of upper left, upper right, & lower left
    //

    ap[0].x = (LONG) (ri.left + (ri.right - ri.left)/4);
    ap[0].y = (LONG) (ri.top + (ri.bottom - ri.top)/4);
    ap[1].x = (LONG) ri.right;
    ap[1].y = (LONG) ri.top;
    ap[2].x = (LONG) ri.left;
    ap[2].y = (LONG) ri.bottom;

    PlgBlt (hdc, ap, hdcMem, 0, 0, bm.bmWidth, bm.bmHeight, NULL, 0, 0);

    DeleteDC(hdcMem);
    GetNextGraphicSlot (&ri);

  }

  if (gdwGraphicsOptions & POLYBEZIER)
  {
    POINT ap[4];

    ap[0].x  = (LONG) ri.left;    ap[0].y = (LONG) ri.top;
    ap[1].x  = (LONG) ri.left;    ap[1].y = (LONG) ri.bottom;
    ap[2].x  = (LONG) ri.right;   ap[2].y = (LONG) ri.top;
    ap[3].x  = (LONG) ri.right;   ap[3].y = (LONG) ri.bottom;

    PolyBezier (hdc, ap, 4);
    GetNextGraphicSlot (&ri);
  }

  if (gdwGraphicsOptions & POLYGON)
  {
    POINT ap[5];

    ap[0].x  = (LONG) ri.left;    ap[0].y = (LONG) ri.top;
    ap[1].x  = (LONG) ri.right;   ap[1].y = (LONG) ri.bottom;
    ap[2].x  = (LONG) ri.right;   ap[2].y = (LONG) ri.top;
    ap[3].x  = (LONG) ri.left;    ap[3].y = (LONG) ri.bottom;
    ap[4].x  = (LONG) ri.left;    ap[4].y = (LONG) ri.top;

    Polygon (hdc, ap, 4);
    GetNextGraphicSlot (&ri);
  }

  if (gdwGraphicsOptions & POLYLINE)
  {
    POINT ap[4];

    ap[0].x  = (LONG) ri.left;    ap[0].y = (LONG) ri.top;
    ap[1].x  = (LONG) ri.left;    ap[1].y = (LONG) ri.bottom;
    ap[2].x  = (LONG) ri.right;   ap[2].y = (LONG) ri.top;
    ap[3].x  = (LONG) ri.right;   ap[3].y = (LONG) ri.bottom;

    Polyline (hdc, ap, 4);
    GetNextGraphicSlot (&ri);
  }

  if (gdwGraphicsOptions & POLYPOLYGON)
  {
    POINT ap[8];
    int ai[2] = { 4, 4 };

    ap[0].x = (LONG)  ri.left;
    ap[0].y = (LONG)  ri.top;
    ap[1].x = (LONG) (ri.left + giDeltaX/4);
    ap[1].y = (LONG)  ri.top;
    ap[2].x = (LONG) (ri.left + giDeltaX/4);
    ap[2].y = (LONG) (ri.top  + giDeltaY/4);
    ap[3].x = (LONG)  ri.left;
    ap[3].y = (LONG) (ri.top  + giDeltaY/4);
    ap[4].x = (LONG) (ri.right  - 2*giDeltaX/3);
    ap[4].y = (LONG) (ri.bottom - 2*giDeltaY/3);
    ap[5].x = (LONG)  ri.right;
    ap[5].y = (LONG) (ri.bottom - 2*giDeltaY/3);
    ap[6].x = (LONG)  ri.right;
    ap[6].y = (LONG)  ri.bottom;
    ap[7].x = (LONG) (ri.right  - 2*giDeltaX/3);
    ap[7].y = (LONG)  ri.bottom;

    PolyPolygon (hdc, ap, ai, 2);
    GetNextGraphicSlot (&ri);
  }

  if (gdwGraphicsOptions & RECTANGLE)
  {
    Rectangle (hdc, ri.left, ri.top, ri.right, ri.bottom);
    GetNextGraphicSlot (&ri);
  }

  if (gdwGraphicsOptions & ROUNDRECT)
  {
    RoundRect (hdc, ri.left, ri.top, ri.right, ri.bottom, 15, 25);
    GetNextGraphicSlot (&ri);
  }

  if (gdwGraphicsOptions & STRETCH_BLT)
  {
    HBITMAP hbm;
    BITMAP  bm;
    HDC     hdcMem;

    hbm = LoadBitmap (ghInst, "printer");
    hdcMem = CreateCompatibleDC (hdc);
    SelectObject (hdcMem, hbm);

    GetObject (hbm, sizeof(BITMAP), (LPSTR)&bm);

    StretchBlt (hdc, ri.left, ri.top, ri.right-ri.left,
                ri.bottom - ri.top, hdcMem, 0, 0,
                bm.bmWidth, bm.bmHeight, SRCCOPY);

    DeleteDC(hdcMem);
    GetNextGraphicSlot (&ri);

  }

  return TRUE;
}



/******************************************************************************\
*
*  FUNCTION:    GetFirstGraphicSlot
*
*  INPUTS:      pri - pointer to a RECTI
*
\******************************************************************************/

void GetFirstGraphicSlot (LPRECT lpRect, PRECTI pri)
{
  pri->left   = BORDER;
  pri->top    = lpRect->top + BORDER;
  pri->right  = giDeltaX;
  pri->bottom = giDeltaY;

  giColumn = 1;
}



/******************************************************************************\
*
*  FUNCTION:    GetNextGraphicSlot
*
*  INPUTS:      pri - pointer to a RECTI
*
\******************************************************************************/

void GetNextGraphicSlot (PRECTI pri)
{
  if (++giColumn <= NUM_GRAPHICS_XSLOTS)
  {
    pri->left  += giDeltaX;
    pri->right += giDeltaX;
  }
  else
  {
    giColumn = 1;

    pri->left   =  BORDER;
    pri->top    += giDeltaY;
    pri->right  =  giDeltaX;
    pri->bottom += giDeltaY;
  }
}



/******************************************************************************\
*
*  FUNCTION:    DrawFonts
*
*  INPUTS:      hdc   - device context to enumerate from & draw on
*               pRect - pointer to bounding rect to draw fonts in
*
*  LOCAL VARS:  i, j       - loop variables
*               xText      - starting x position to draw text
*               yText      - starting y position to draw text
*               iMaxStrLen - length in pels of string to draw
*
\******************************************************************************/

void DrawFonts (HDC hdc, LPRECT lpRect)
{
  int      i, j, xText, yText, iMaxStrLen = 0;
  PARFONTS paf;

  paf = BuildFontList (hdc);

  xText = yText = 2;

  //
  // set the appropriate text align mode depending on
  //   whether we're drawing from top down or bottom up
  //

  if (giMapMode == MM_TEXT | giMapMode == MM_ANISOTROPIC)

    SetTextAlign (hdc, TA_TOP);

  else

    SetTextAlign (hdc, TA_BOTTOM);

  for (i = 0; i < nFaces; i++)
  {
    for (j = 0; j < (paf + i)->nFonts; j++)
    {
      HFONT      hFont, hSaveFont;
      SIZE       size;
      POINT      LogPtExtent;

      LogPtExtent.x = lpRect->right;
      LogPtExtent.y = lpRect->bottom;

      hFont = CreateFontIndirect ((paf + i)->lf + j);

      hSaveFont = SelectObject (hdc, hFont);

      TextOut (hdc, xText, yText, ((paf + i)->lf + j)->lfFaceName,
               strlen(((paf + i)->lf + j)->lfFaceName));

      GetTextExtentPoint (hdc, ((paf + i)->lf + j)->lfFaceName,
                          strlen(((paf+i)->lf+j)->lfFaceName),
                          &size);
      size.cx += 2;
      iMaxStrLen = iMaxStrLen > (int)size.cx ? iMaxStrLen: (int) size.cx;

      if (!(i == (nFaces - 1) && j == ((paf + i)->nFonts - 1)))
      {
        TEXTMETRIC *pNextTM;

        pNextTM = j < ((paf+i)->nFonts-1) ?
                          (paf+i)->tm+j+1 : (paf+i+1)->tm;

        //
        // add in the height of the face name we just drew
        //

        yText += (int) ((paf + i)->tm + j)->tmHeight;

        //
        // if the next facename will be drawn outside the bounding rect then
        //   start at first line of next column
        //

        if (yText + (int) pNextTM->tmHeight > (int) LogPtExtent.y)
        {
          yText = 2;
          xText += iMaxStrLen + 2;
          iMaxStrLen = 0;
        }
      }

      SelectObject (hdc, hSaveFont);
      DeleteObject (hFont);

      if (xText > (int) LogPtExtent.x)
      {
        if (GetDeviceCaps (hdc, TECHNOLOGY) & DT_RASDISPLAY)
        {
          //
          // If we're drawing to the screen & have run out of
          //   room then tell user how many fonts there are left
          //   (that we haven't displayed)
          //

          int   k;
          int   iFontsLeft = (paf + i)->nFonts - j - 1;
          char  buf[40];
          SIZE  size;


          for (k = i + 1; k < nFaces; k++)

            iFontsLeft += (paf + k)->nFonts;

          wsprintf (buf, "%ld more display fonts (not listed)",
                    iFontsLeft);

          GetTextExtentPoint (hdc, buf, strlen(buf), &size);

          if ((xText = lpRect->right - size.cx) < glcyMenu + 1)

            xText = glcyMenu/2 + 1;

          TextOut (hdc, xText, lpRect->bottom, buf, strlen(buf));

          goto done_enumfonts;
        }

        else
        {
          //
          // Else we're drawing to a printer & have filled up
          //   the first page. If there's any fonts left to draw
          //   then start a new page.
          //

          if (!(i == nFaces - 1 && j == (paf + i)->nFonts - 1))
          {
            EndPage   (hdc);
            xText = yText = 2;
            StartPage (hdc);
          }
        }
      }
    }
  }

done_enumfonts:

  FreeFontList (paf);
}




/*  In the callback functions for the enumerations, there is a limited
 *  ability to pass in parameters.  For that reason, declare the following
 *  global variables to be used by any of the call back functions.
 *
 *        HDC      hdcGlobal;
 *        PARFONTS parFontsGlobal;
 *        int      iFace,jFont;
 *        int      nFaces;
 *
 *
 * General call structure:
 *
 *        BuildFontList
 *            EnumFonts
 *                MyEnumCount
 *            LocalAlloc
 *            EnumFonts
 *                MyEnumFaces
 *                    EnumFonts
 *                        MyEnumCount
 *                    LocalAlloc
 *                    LocalAlloc
 *                    LocalAlloc
 *                    EnumFonts
 *                        MyEnumCopy
 */



/******************************************************************************\
*
*  FUNCTION:    BuildFontList
*
*  GLOBAL VARS: (see above)
*
\******************************************************************************/

PARFONTS BuildFontList (HDC hdcIn)
{
  nFaces = 0;

  hdcGlobal = hdcIn;

  //
  // count the total number of face names.
  //

  EnumFonts (hdcGlobal, NULL, (FONTENUMPROC)MyEnumCount, (LPARAM)&nFaces);

  //
  // allocate the pointer to the array of PArFont structures.
  //

  parFontsGlobal = (PARFONTS) LocalAlloc (LPTR, sizeof(ARFONTS) * (nFaces+1));

  //
  // step through all fonts again.  For each one fill a LOGFONT and
  //   a TEXTMETRIC stucture.
  //

  iFace = 0;
  EnumFonts (hdcGlobal, NULL, (FONTENUMPROC)MyEnumFaces, 0);

  return parFontsGlobal;
}



/******************************************************************************\
*
*  FUNCTION:    MyEnumFaces
*
*  GLOBAL VARS: (see above)
*
\******************************************************************************/

int CALLBACK MyEnumFaces (LPLOGFONT lpLogFont, LPTEXTMETRIC lpTEXTMETRICs,
                          DWORD fFontType, LPVOID  lpData)
{
  int nFonts;

  nFonts = 0;
  EnumFonts (hdcGlobal, lpLogFont->lfFaceName, (FONTENUMPROC)MyEnumCount,
             (LPARAM)&nFonts);

  parFontsGlobal[iFace].lf   = (LOGFONT *)    LocalAlloc (LPTR,
                                                          sizeof(LOGFONT) *
                                                            nFonts);
  parFontsGlobal[iFace].tm   = (TEXTMETRIC *) LocalAlloc (LPTR,
                                                          sizeof(TEXTMETRIC) *
                                                            nFonts);
  parFontsGlobal[iFace].Type = (int *)        LocalAlloc (LPTR,
                                                          sizeof(int) *
                                                            nFonts);

  if ((parFontsGlobal[iFace].lf   == NULL) ||
      (parFontsGlobal[iFace].tm   == NULL) ||
      (parFontsGlobal[iFace].Type == NULL))
  {
    ErrMsgBox ("LocalAlloc failed", ERR_MOD_NAME);
    return FALSE;
  }

  parFontsGlobal[iFace].nFonts = nFonts;

  jFont = 0;
  EnumFonts (hdcGlobal, lpLogFont->lfFaceName, (FONTENUMPROC)MyEnumCopy, 0);

  iFace++;

  return TRUE;
}



/******************************************************************************\
*
*  FUNCTION:    MyEnumCopy
*
*  GLOBAL VARS: (see above)
*
\******************************************************************************/

int CALLBACK MyEnumCopy (LPLOGFONT lpLogFont, LPTEXTMETRIC lpTEXTMETRICs,
                         DWORD fFontType, LPVOID  lpData)
{
  LOGFONT    *lplf;
  TEXTMETRIC *lptm;
  int        *pType;

  lplf  = parFontsGlobal[iFace].lf;
  lptm  = parFontsGlobal[iFace].tm;
  pType = parFontsGlobal[iFace].Type;

  lplf[jFont]  = *lpLogFont;
  lptm[jFont]  = *lpTEXTMETRICs;
  pType[jFont] = fFontType;

  jFont++;
  return TRUE;
}



/******************************************************************************\
*
*  FUNCTION:    MyEnumCount
*
*  GLOBAL VARS: (see above)
*
\******************************************************************************/

int CALLBACK MyEnumCount (LPLOGFONT lpLogFont, LPTEXTMETRIC lpTEXTMETRICs,
                          DWORD fFontType, LPVOID lpData)
{
  (*(LPINT)lpData)++;
  return TRUE;
}



/******************************************************************************\
*
*  FUNCTION:    FreeFontList
*
*  INPUTS:      paf - pointer to ARFONTS struct to free
*
\******************************************************************************/

void FreeFontList (PARFONTS paf)
{
  int i;

  for (i = 0; i < nFaces; i++)
  {
    LocalFree (LocalHandle ((LPSTR) ((paf + i)->lf  )));
    LocalFree (LocalHandle ((LPSTR) ((paf + i)->tm  )));
    LocalFree (LocalHandle ((LPSTR) ((paf + i)->Type)));
  }
  LocalFree (LocalHandle ((LPSTR) paf));
}
