home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / APPEXPRT.PAK / TMDICHIL.OWL < prev    next >
Encoding:
Text File  |  1997-05-06  |  2.9 KB  |  100 lines
  1. '------------------------------------------------------------------------------
  2. '   Expert - (C) Copyright 1993, 1995 by Borland International, Inc.
  3. '                All Rights Reserved.
  4. '
  5. '   SUBSYSTEM:    OWL code template
  6. '   FILE:         TMDIChild.OWL
  7. '
  8. '
  9. '   OVERVIEW
  10. '   ~~~~~~~~
  11. '------------------------------------------------------------------------------
  12.  
  13. <<[H]TMDIChild [[TMDIChild]]
  14. ##{hheader.snp}
  15. ##<<TApplication QUERY_FILENAME_CPP [[Filename]]
  16. #include "[[Filename]].rh"            // Definition of all resources.
  17.  
  18.  
  19. //{{TMDIChild = [[TMDIChild]]}}
  20. class [[TMDIChild]] : public TMDIChild {
  21.   public:
  22.     [[TMDIChild]](TMDIClient& parent, const char far* title, TWindow* clientWnd, bool shrinkToClient = false, TModule* module = 0);
  23.     virtual ~[[TMDIChild]]();
  24. };    //{{[[TMDIChild]]}}
  25. ##{hfooter.snp}
  26. >>[H]TMDIChild [[TMDIChild]]
  27.  
  28.  
  29. '
  30. ' TMDIChild CPP file.
  31. '
  32. <<[CPP]TMDIChild [[TMDIChild]]
  33. ##{cheader.snp}
  34. #include <owl/pch.h>
  35.  
  36. ##<<TApplication QUERY_FILE_H [[FileName]]
  37. #include "[[FileName]]"
  38. ##--BEGIN-- !@OPT_APPL_DOCVIEW
  39. ##  --BEGIN-- @QUERY_APPL_MODEL == VALUE_MDI
  40. ##:     <<TMDIChild QUERY_WIND_CLIENT [[Client]]
  41. ##:     <<*Client QUERY_FILE_H [[FileName]]
  42. #include "[[FileName]]"
  43. ##  --END-- @QUERY_APPL_MODEL == VALUE_MDI
  44. ##  --BEGIN-- @QUERY_APPL_MODEL == VALUE_SDI
  45.  
  46. ##  --END-- @QUERY_APPL_MODEL == VALUE_SDI
  47. ##--END-- !@OPT_APPL_DOCVIEW
  48. ##QUERY_FILE_H [[FileName]]
  49. #include "[[FileName]]"
  50.  
  51.  
  52. //{{[[TMDIChild]] Implementation}}
  53.  
  54.  
  55. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  56. //--------------------------------------------------------
  57. // [[TMDIChild]]
  58. // ~~~~~~~~~~
  59. // Construction/Destruction handling.
  60. //
  61. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  62. [[TMDIChild]]::[[TMDIChild]](TMDIClient& parent, const char far* title, TWindow* clientWnd, bool shrinkToClient, TModule* module)
  63. :
  64. ##--BEGIN-- !@OPT_APPL_DOCVIEW
  65. ##"" [[BaseClient]]
  66. ##"" [[ClientClass]]
  67. ##: QUERY_WIND_CLIENT ClientClass
  68. ##: <<*ClientClass QUERY_BASE_NAME [[BaseClient]]
  69. ##--BEGIN-- TRUE
  70. ##BaseClient == "TEditFile"
  71.   TMDIChild(parent, title, !clientWnd ? new [[ClientClass]](0, 0, 0) : clientWnd, shrinkToClient, module)
  72. ##BaseClient == "TListBox"
  73.   TMDIChild(parent, title, !clientWnd ? new [[ClientClass]](0, 0, 0, 0, 100, 100) : clientWnd, shrinkToClient, module)
  74. ##BaseClient == "TWindow"
  75.   TMDIChild(parent, title, !clientWnd ? new [[ClientClass]](0, "") : clientWnd, shrinkToClient, module)
  76. ##--END-- TRUE
  77. ##--END-- !@OPT_APPL_DOCVIEW
  78. ##@OPT_APPL_DOCVIEW
  79.   TMDIChild(parent, title, clientWnd, shrinkToClient, module)
  80. {
  81. ##QUERY_WIND_STYLE [[StyleAttributes]]
  82. ##StyleAttributes != "" 3
  83.   // Override the default window style for TMDIChild.
  84.   [[StyleAttributes]]
  85.  
  86. ##{wndbkgd.snp}
  87.   // INSERT>> Your constructor code here.
  88.  
  89. }
  90.  
  91.  
  92. [[TMDIChild]]::~[[TMDIChild]]()
  93. {
  94.   Destroy();
  95.  
  96.   // INSERT>> Your destructor code here.
  97.  
  98. }
  99. >>[CPP]TMDIChild [[TMDIChild]]
  100.