Return to gpi.c CVS log

Up to [OS/2 SDKs] / os232sdk / toolkt20 / c / samples / opendlg

Microsoft OS/2 SDK 2.0 05-30-1990

/***************************************************************************\
* GPI.C -- GPI Helper routines
* Created by Microsoft, IBM  Corporation 1990
\***************************************************************************/


#define INCL_GPI
#include "tool.h"

/***************************************************************************\
* GetTextExtent helper function
\***************************************************************************/

ULONG EXPENTRY GetTextExtent(HPS hps, PCH lpstr, int cch) {
    POINTL rgptl[TXTBOX_COUNT];

    if (cch) {
        GpiQueryTextBox(hps, (LONG)cch, lpstr, 5L, rgptl);
        return(MAKEULONG((SHORT)(rgptl[TXTBOX_CONCAT].x - rgptl[TXTBOX_BOTTOMLEFT].x),
                     (SHORT)(rgptl[TXTBOX_TOPLEFT].y - rgptl[TXTBOX_BOTTOMLEFT].y)));
    } else
        return(0L);
    }

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