home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / APPEXPRT.PAK / CLASS.SNP < prev    next >
Encoding:
Text File  |  1997-05-06  |  4.3 KB  |  165 lines
  1. <<[H]
  2. ##QUERY_BASE_NAME [[BaseName]]
  3. ##QUERY_WIND_CLIENT [[Client]]
  4. ##"" [[ClientBase]]
  5. ##--BEGIN-- (BaseName == "TMDIFrame") || (BaseName == "TDecoratedMDIFrame") || (BaseName == "TOleMDIFrame")
  6. ##:  <<*Client QUERY_BASE_NAME ClientBase
  7. ## (Client != "TMDIClient") && (ClientBase != "TMDIClient")
  8. ##:     QUERY_CLASS_NAME [[ClassName]]
  9. ##:     %\\"The class [[ClassName]]'s client can only be a TMDIClient type class.  "
  10. ##*
  11. ##--END-- (BaseName == "TMDIFrame") || (BaseName == "TDecoratedMDIFrame") || (BaseName == "TOleMDIFrame")
  12. ##--BEGIN-- "" [[ConstructorParam]]
  13. ##"" [[ClientClass]]
  14. ##"" [[ClientParam]]
  15. ##--BEGIN-- QUERY_DLOG [[Constant]]
  16. ##QUERY_WIND_CLIENT ClientClass
  17. ##ClientClass != ""
  18. ##:     \\QUERY_WIND_CLIENT_PARAM ClientParam
  19. ##*
  20. ##\\QUERY_CONSTR_DEF ConstructorParam
  21. ##*
  22. ##--END-- QUERY_DLOG [[Constant]]
  23. ##"#if !defined(" [[AnyClass]]
  24. ##^BOF
  25. ##--BEGIN-- ? AnyClass [[AnotherClass]]
  26. ##--BEGIN-- QUERY_CLASS_NAME [[ClassName]]
  27. ##ConstructorParam == ""
  28. ##:     "()" ConstructorParam
  29. ##*
  30. ##--BEGIN-- AnotherClass == TRUE
  31. ##:     ^EOF
  32. ##:     ^-2
  33. ##:     ^BOL
  34.  
  35.  
  36. ##--END-- AnotherClass == TRUE
  37. ##AnotherClass == FALSE
  38. ##:     {hheader.snp}
  39. ##:     ^EOF
  40. ##*
  41. ##--BEGIN-- QUERY_BASE_NAME [[BaseName]]
  42.  
  43. ##QUERY_INCLUDE [[IncludeFile]]
  44. #include <[[IncludeFile]]>
  45. ##QUERY_WIND_CLIENT [[Client]]
  46. ##Client != ""
  47. ##:     GetIncludeFile(\\"[[Client]]") [[ClientIncludeFile]]
  48. #include [[ClientIncludeFile]]
  49. ##<<TApplication QUERY_FILENAME_CPP [[FileName]] 2
  50.  
  51. #include "[[FileName]].rh"            // Definition of all resources.
  52.  
  53.  
  54. //{{[[BaseName]] = [[ClassName]]}}
  55. class [[ClassName]] : public [[BaseName]] {
  56. ##--END-- QUERY_BASE_NAME [[BaseName]]
  57.   public:
  58.     [[ClassName]][[ConstructorParam]];
  59.     virtual ~[[ClassName]]();
  60. ##--BEGIN-- QUERY_BASE_NAME == "TView"
  61.  
  62.     static const char far* StaticName() { return "[[ClassName]] View"; }
  63.  
  64. //{{[[ClassName]]VIRTUAL_BEGIN}}
  65.   protected:
  66. ##:DBVirtual(\\"[[ClassName]]", "GetViewName")
  67.     virtual const char far* GetViewName();
  68. //{{[[ClassName]]VIRTUAL_END}}
  69. ##--END-- QUERY_BASE_NAME == "TView"
  70. };    //{{[[ClassName]]}}
  71. ##--END-- QUERY_CLASS_NAME [[ClassName]]
  72. ##AnotherClass == FALSE
  73. ##:     {hfooter.snp}
  74. ##*
  75. ##--END-- ? AnyClass [[AnotherClass]]
  76. ##--END-- "" [[ConstructorParam]]
  77. >>[H]
  78.  
  79.  
  80. <<[CPP]
  81. ##^EOF
  82. ## (YPos() != 1) 3
  83.  
  84.  
  85.  
  86. ##YPos() == 1
  87. ##:     {cheader.snp}
  88. ##*
  89. ##^EOF
  90. ##QUERY_CONSTR_DEFF [[ConstructorFParam]]
  91. ##QUERY_DLOG [[Constant]]
  92. ##QUERY_WIND_TITLE [[Title]]
  93. ##QUERY_BASE_NAME [[BaseName]]
  94. ##--BEGIN-- QUERY_CLASS_NAME [[ClassName]]
  95. #include <owl/pch.h>
  96.  
  97. ##QUERY_FILENAME_H [[FileName]]
  98. #include "[[FileName]].h"
  99.  
  100.  
  101. //{{[[ClassName]] Implementation}}
  102.  
  103.  
  104. ##ConstructorFParam != "" 2
  105. [[ClassName]]::[[ClassName]][[ConstructorFParam]]
  106. :
  107. ##ConstructorFParam == ""
  108. [[ClassName]]::[[ClassName]]()
  109. ##--BEGIN-- QUERY_WIND_CLIENT [[ClientClass]]
  110. ##ClientClass != ""
  111. ##:     \\QUERY_WIND_CLIENT_PARAM [[ClientParam]]
  112. ##:     \\QUERY_CONSTR_BASE [[ConstructorList]]
  113. ##:     ConstructorList != ""
  114. [[ConstructorList]]
  115. ##--END-- QUERY_WIND_CLIENT [[ClientClass]]
  116. ##QUERY_WIND_CLIENT == ""
  117. ##:     \\QUERY_CONSTR_BASE [[ConstructorList]]
  118. ##:     ConstructorList != ""
  119. [[ConstructorList]]
  120. {
  121. ##--BEGIN-- QUERY_WINDOW_BASE
  122. ##QUERY_WIND_STYLE [[StyleAttributes]]
  123. ##StyleAttributes != "" 4
  124.   // Override the default window style for [[BaseName]].
  125.   //
  126.   [[StyleAttributes]]
  127.  
  128. ##QUERY_WIND_BACKGRND [[BackgroundColor]]
  129. ##QUERY_WIND_BACKCONSTANT [[BackgroundConstant]]
  130. ##--BEGIN-- (BackgroundColor != "") || (BackgroundConstant != "")
  131.   // Change the window's background color
  132.   //
  133. ##  --BEGIN-- (BackgroundColor != "")
  134.   SetBkgndColor([[BackgroundColor]]);
  135. ##  --END-- (BackgroundColor != "")
  136. ##  --BEGIN-- (BackgroundConstant != "")
  137.   SetBkgndColor(GetSysColor([[BackgroundConstant]]));
  138. ##  --END-- (BackgroundConstant != "")
  139.  
  140. ##--END-- (BackgroundColor != "") || (BackgroundConstant != "")
  141. ##--END-- QUERY_WINDOW_BASE
  142.   // INSERT>> Your constructor code here.
  143.  
  144. }
  145.  
  146.  
  147. [[ClassName]]::~[[ClassName]]()
  148. {
  149. ##QUERY_WINDOW_BASE 2
  150.   Destroy(IDCANCEL);
  151.  
  152.   // INSERT>> Your destructor code here.
  153.  
  154. }
  155. ##--BEGIN-- BaseName == "TView"
  156.  
  157.  
  158. const char far* [[ClassName]]::GetViewName()
  159. {
  160.   return StaticName();
  161. }
  162. ##--END-- BaseName == "TView"
  163. ##--END-- QUERY_CLASS_NAME [[ClassName]]
  164. >>[CPP]
  165.