home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 038 / dho_9a.zip / WINDOW.CC < prev    next >
Text File  |  1995-01-04  |  4KB  |  170 lines
  1. // Developer Helper Object Set, (C) 1994 Thomas E. Bednarz, Jr.
  2. //  All rights reserved
  3.  
  4.  
  5. #include"window.h"
  6. #include<os2.h>
  7.  
  8.  
  9. BOOL TWindow::fInitialized = FALSE;
  10.  
  11.  
  12.  
  13. TWindow *tempTHIS;
  14.  
  15. //-------------------------------------------------------------------
  16. //  TWindow
  17. TWindow::TWindow(CHAR *title, ULONG flags, ULONG resource):
  18.    TWinBase(resource)
  19. {
  20.    tempTHIS = this;
  21.    flCreateFlags = flags;
  22.  
  23.    fTitle = title;
  24. }
  25.  
  26.  
  27. //-------------------------------------------------------------------
  28. //  ~TWindow
  29. TWindow::~TWindow()
  30. {
  31.  
  32. }
  33.  
  34.  
  35. //-------------------------------------------------------------------
  36. //  Init
  37. BOOL TWindow::Init(HAB hab)
  38. {
  39.    Register(hab);
  40.    return MakeFrame();
  41. }
  42.  
  43.  
  44. //-------------------------------------------------------------------
  45. //  ShowWindow
  46. BOOL TWindow::ShowWindow(int nCmdShow)
  47. { 
  48.    return WinShowWindow(hwndFrame,nCmdShow);
  49. }
  50.      
  51.  
  52. //-------------------------------------------------------------------
  53. //  Wpdate
  54. BOOL TWindow::Update(void)
  55. { 
  56.    return WinUpdateWindow(hwndFrame);
  57. }
  58.  
  59.  
  60. //-------------------------------------------------------------------
  61. //  WndProc
  62. MRESULT TWindow::WndProc(HWND hWnd, ULONG Message, MPARAM mParam1, MPARAM mParam2 )
  63. {
  64.    switch(Message)
  65.    {
  66.       case WM_ERASEBACKGROUND:
  67.          return (MRESULT)TRUE;
  68.  
  69.       case WM_COMMAND:
  70.             return doCommand( hWnd, Message, mParam1, mParam2);
  71.          break;
  72.  
  73.       case WM_DESTROY:
  74.             return (MRESULT)FALSE;
  75.          break;
  76.  
  77. //      case WM_PAINT:
  78. //            return (MRESULT) FALSE;
  79. //         break;
  80.  
  81.       default:
  82.          return WinDefWindowProc(hWnd, Message, mParam1, mParam2);
  83.    }
  84.    return (MRESULT)FALSE;
  85. }
  86.  
  87.  
  88. //-------------------------------------------------------------------
  89. //  getClassName
  90. const char *TWindow::getClassName(void)
  91. {
  92.    return "TWindow";
  93. }
  94.  
  95.  
  96. //-------------------------------------------------------------------
  97. //  Register
  98. void TWindow::Register(HAB anchor_block)
  99. {
  100.    if (!fInitialized)
  101.    {
  102.      WinRegisterClass(anchor_block, (PSZ)getClassName(),
  103.                     ClientWndProc, 0,sizeof(TWindow));
  104.      fInitialized = TRUE;
  105.    }
  106.  
  107. }
  108.  
  109.  
  110. //-------------------------------------------------------------------
  111. //  MakeFrame
  112. BOOL TWindow::MakeFrame(void)
  113. {
  114.    hwndFrame = WinCreateStdWindow (HWND_DESKTOP,  WS_VISIBLE,
  115.                &flCreateFlags ,(PSZ)getClassName(), (PSZ)fTitle, 0L,
  116.                (HMODULE) NULL, fResource, (PHWND)&hwndClient);
  117.  
  118.  
  119.    return (hwndFrame!=(HWND)NULL);
  120.    return TRUE;
  121. }
  122.  
  123.  
  124. //-------------------------------------------------------------------
  125. //  doCommand
  126. MRESULT TWindow::doCommand(HWND hWnd, ULONG Message, MPARAM mParam1, MPARAM mParam2)
  127. {
  128.    return WinDefWindowProc(hWnd, Message, mParam1, mParam2);
  129. }
  130.  
  131.  
  132. //-------------------------------------------------------------------
  133. //  ClientWndProc
  134. MRESULT EXPENTRY TWindow::ClientWndProc(HWND hWnd,ULONG iMessage,
  135.     MPARAM mParam1, MPARAM mParam2)
  136. {
  137.  
  138.     TWindow *pWindow = (TWindow *)WinQueryWindowULong(hWnd,0);
  139.  
  140.     if (pWindow == 0) 
  141.     {
  142.         if (iMessage == WM_CREATE) 
  143.         {
  144.             pWindow = tempTHIS;
  145.             WinSetWindowULong(hWnd,0,(ULONG)pWindow);
  146.             return pWindow->WndProc(hWnd,iMessage,mParam1,mParam2);
  147.         } 
  148.         else
  149.             return WinDefWindowProc(hWnd,iMessage,mParam1,mParam2);
  150.     } 
  151.     else
  152.         return pWindow->WndProc(hWnd,iMessage,mParam1,mParam2);
  153. }
  154.  
  155.  
  156. //-------------------------------------------------------------------
  157. //  GetClient
  158. HWND TWindow::GetClient(void)
  159. {
  160.    return hwndClient;
  161. }
  162.  
  163. //-------------------------------------------------------------------
  164. //  scrollWin
  165. void TWindow::scrollWin(LONG hs, LONG vs)
  166. {
  167.    WinScrollWindow(GetClient(),hs, vs, (PRECTL)NULL,
  168.         (PRECTL)NULL, (HRGN)NULLHANDLE,(PRECTL)NULL,0);
  169. }
  170.