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