home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / PV31-3.ZIP / EXAMPLES / EXAMPLE2 / EXAMPLE2.C next >
Encoding:
C/C++ Source or Header  |  1991-02-01  |  1.5 KB  |  55 lines
  1. /* EXAMPLE1.c -- ProView Tutorial example */
  2.  
  3. #include <windows.h>
  4. #include <time.h>
  5. #include "pv.h"
  6. #include "Example2.h"
  7.  
  8. /*  Handles to View and View Window */
  9.    VIEW     Example2;
  10.    HWND     hWndExample2;
  11.  
  12. int PASCAL WinMain(hInstance, hPrevInstance, lpszCmdLine, nCmdShow)
  13.     HANDLE     hInstance, hPrevInstance;
  14.     LPSTR      lpszCmdLine;
  15.     int        nCmdShow;
  16. {
  17.    static char szAppName[] = "Example2";
  18.    MSG      msg;
  19.  
  20.    lpfnMakeLongPointer = MakeProcInstance(MakeLongPointer, hInstance);
  21.  
  22.    Example2 = vwOpenView(hInstance, NULL, WS_POPUP | WS_VISIBLE | WS_DLGFRAME,
  23.                          NULL,
  24.                          NULL,
  25.                          lpfnMakeLongPointer);
  26.  
  27.    vwSetField(Example2, "String", "", WS_CHILD | WS_BORDER, 87, 16, 65, 12, Filename, NULL);
  28.    vwSetField(Example2, "button", "Okay", WS_CHILD | BS_DEFPUSHBUTTON | BS_OKAY, 64, 48, 46, 16, NULL, NULL);
  29.    vwSetField(Example2, "button", "Cancel", WS_CHILD | BS_PUSHBUTTON | BS_CANCEL, 141, 49, 46, 16, NULL, NULL);
  30.  
  31.    vwSetTextField(Example2, 25, 16, "Enter Filename", NULL);
  32.  
  33.    vwSetFieldString(Example2, 1, "@ALPHA, @MND, @MSG(Please enter filename);");
  34.  
  35.    vwSetViewPosition(Example2, 67, 52, 242, 121, VW_DLGCOORD);
  36.  
  37.    hWndExample2 = vwShowView(Example2);
  38.  
  39.    while(GetMessage(&msg, NULL, 0, 0))
  40.    {
  41.        TranslateMessage(&msg);
  42.        DispatchMessage(&msg);
  43.    }
  44.    FreeProcInstance(MakeLongPointer);
  45.  
  46.    return msg.wParam;
  47. }
  48.  
  49. BOOL FAR PASCAL MakeLongPointer()
  50. {
  51. static void far *Ptr;
  52.    Ptr = &Ptr;
  53.    return(HIWORD(Ptr));
  54. }
  55.