home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / FISHFACT.PAK / FFACTWIN.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-05-06  |  2.6 KB  |  125 lines
  1. /*  Project fishfact
  2.     Borland International
  3.     Copyright ⌐ 1996. All Rights Reserved.
  4.  
  5.     SUBSYSTEM:    fishfact.exe Application
  6.     FILE:         ffactwin.cpp
  7.     AUTHOR:       
  8.  
  9.  
  10.     OVERVIEW
  11.     ========
  12.     Source file for implementation of fishfactApp (TApplication).
  13.  
  14. */
  15.  
  16.  
  17. #include <owl\pch.h>
  18. #pragma hdrstop
  19.  
  20.  
  21. #include "ffactwin.h"
  22. #include "fshtdlgc.h"                        // Definition of client class.
  23.  
  24. #include <owl\vbxctl.h>       
  25.  
  26.  
  27. //{{fishfactApp Implementation}}
  28.  
  29.  
  30. //
  31. // Build a response table for all messages/commands handled
  32. // by the application.
  33. //
  34. DEFINE_RESPONSE_TABLE1(fishfactApp, TApplication)
  35. //{{fishfactAppRSP_TBL_BEGIN}}
  36.     EV_COMMAND(CM_HELPABOUT, CmHelpAbout),
  37. //{{fishfactAppRSP_TBL_END}}
  38. END_RESPONSE_TABLE;
  39.  
  40.  
  41. //////////////////////////////////////////////////////////
  42. // fishfactApp
  43. // =====
  44. //
  45. fishfactApp::fishfactApp () : TApplication("fishfact")
  46. {
  47.  
  48.     // INSERT>> Your constructor code here.
  49. }
  50.  
  51.  
  52. fishfactApp::~fishfactApp ()
  53. {
  54.     // INSERT>> Your destructor code here.
  55. }
  56.  
  57.  
  58. //////////////////////////////////////////////////////////
  59. // fishfactApp
  60. // =====
  61. // Application intialization.
  62. //
  63. void fishfactApp::InitMainWindow ()
  64. {
  65.     if (nCmdShow != SW_HIDE)
  66.         nCmdShow = (nCmdShow != SW_SHOWMINNOACTIVE) ? SW_SHOWNORMAL : nCmdShow;
  67.  
  68.     SDIDecFrame *frame = new SDIDecFrame(0, GetName(), 0, false);
  69.     frame->SetFlag(wfShrinkToClient);
  70.  
  71.     // Override the default window style for the main window.
  72.     frame->Attr.Style |= WS_BORDER | WS_CAPTION | WS_CLIPCHILDREN | WS_THICKFRAME | WS_VISIBLE;
  73.     frame->Attr.Style &= ~(WS_CHILD | WS_MAXIMIZEBOX | WS_MINIMIZEBOX | WS_SYSMENU);
  74.  
  75.     //
  76.     // Assign ICON w/ this application.
  77.     //
  78.     frame->SetIcon(this, IDI_FISHFACT);
  79.  
  80.   
  81.     SetMainWindow(frame);
  82.  
  83. }
  84.  
  85.  
  86. //{{SDIDecFrame Implementation}}
  87.  
  88.  
  89. SDIDecFrame::SDIDecFrame (TWindow *parent, const char far *title, TWindow *clientWnd, bool trackMenuSelection, TModule *module)
  90.     : TDecoratedFrame(parent, title, clientWnd == 0 ? new fishfactTDLGClient(0) : clientWnd, trackMenuSelection, module)
  91. {
  92.     // INSERT>> Your constructor code here.
  93.  
  94. }
  95.  
  96.  
  97. SDIDecFrame::~SDIDecFrame ()
  98. {
  99.     // INSERT>> Your destructor code here.
  100.  
  101. }
  102.  
  103.  
  104. //////////////////////////////////////////////////////////
  105. // fishfactApp
  106. // ===========
  107. // Menu Help About fishfact.exe command
  108. void fishfactApp::CmHelpAbout ()
  109. {
  110. }
  111. int OwlMain (int , char* [])
  112. {
  113.     TBIVbxLibrary BiLibrary;
  114.    
  115.     try {
  116.         fishfactApp    app;
  117.         return app.Run();
  118.     }
  119.     catch (xmsg& x) {
  120.         ::MessageBox(0, x.why().c_str(), "Exception", MB_OK);
  121.     }
  122.  
  123.     return -1;
  124. }
  125.