home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / APPEXPRT.PAK / EVENT.SNP < prev    next >
Encoding:
Text File  |  1997-05-06  |  3.6 KB  |  125 lines
  1. <<[CPP]
  2. ##QUERY_CLASS_NAME [[ClassName]]
  3. ##QUERY_BASE_NAME [[BaseClass]]
  4. ## (BaseClass == "TDocument") || (BaseClass == "TFileDocument")
  5. ##:     %\\"[[ClassName]] does not support a response table.  "
  6. ##*
  7. ##QUERY_SNP_FUNC_NAME [[FunctionName]]
  8. ##QUERY_SNP_FUNC_RESULT [[FunctionResult]]
  9. ##QUERY_SNP_FUNC_DEFPARAM [[FunctionDefParam]]
  10. ##QUERY_SNP_FUNC_CALLPARAM [[FunctionCallParam]]
  11. ##QUERY_SNP_MACRO_NAME [[MacroName]]
  12. ##QUERY_SNP_MACRO_CALLPARAM [[MCallParam]]
  13. ##QUERY_SNP_RES_CONSTANT [[Constant]]
  14. ##QUERY_SNP_VBXEVENT [[VBXEvent]]
  15. ##--BEGIN-- QUERY_CLASS_NAME [[ClassName]]
  16. ##"//{{[[ClassName]]RSP_TBL_END}}" [[ClassTMarker]]
  17. ##\\ClassTMarker [[ClassMarker]]
  18. ##^BOF
  19. ## (VBXEvent != "") [[VBXMIXIN]]
  20. ##--BEGIN-- ? ClassMarker [[Search]]
  21. ##Search == FALSE
  22. ##:     {CAddRsp.SNP}
  23. ##:     ^BOF
  24. ##:     ? ClassMarker [[Search]]
  25. ##*
  26. ##--END-- ? ClassMarker [[Search]]
  27. ##^BOL
  28. ##\\MCallParam [[MacroCallParam]]
  29.   [[MacroName]][[MacroCallParam]],
  30. ##\\"[[ClassName]]::[[FunctionName]]" [[FindFunction]]
  31. ##^BOF
  32. ##FALSE [[Search]]
  33. ##0 [[YPosition]]
  34. ##0 [[YScrollLine]]
  35. ##  --BEGIN-- TRUE
  36. ##      {FindFunc.SNP}
  37. ##      --BEGIN-- Search != 1
  38. ##          :^EOF
  39. ##          :(YPos() + 2) YPosition
  40.  
  41.  
  42. [[FunctionResult]] [[ClassName]]::[[FunctionName]][[FunctionDefParam]]
  43. {
  44. ##          --BEGIN-- Constant == ""
  45. ##              --BEGIN-- QUERY_BASE_NAME [[BaseClass]]
  46. ##                  --BEGIN-- FunctionResult != "void"
  47.   [[FunctionResult]] result;
  48.  
  49. ## ((BaseClass != "TApplication") && (BaseClass != "TModule") && (BaseClass != "TView"))
  50.   result = [[BaseClass]]::[[FunctionName]][[FunctionCallParam]];
  51. ##                  --END-- FunctionResult != "void"
  52. ##FunctionResult == "void"
  53. ## ((BaseClass != "TApplication") && (BaseClass != "TModule") && (BaseClass != "TView"))
  54.     [[BaseClass]]::[[FunctionName]][[FunctionCallParam]];
  55.  
  56.   // INSERT>> Your code here.
  57. ##      :YPos() YScrollLine
  58.  
  59. ##FunctionResult != "void"
  60.   return result;
  61. ##              --END-- QUERY_BASE_NAME [[BaseClass]]
  62. ##          --END-- Constant == ""
  63. ##          --BEGIN-- Constant != ""
  64.   // INSERT>> Your code here.
  65. ##      :YPos() YScrollLine
  66.  
  67. ##          --END-- Constant != ""
  68. }
  69. ##      --END-- Search != 1
  70. ##^@YPosition
  71. ##^SCROLL
  72. ##YScrollLine != 0
  73. ##      :^@YScrollLine
  74. ##      :^EOL
  75. ##*
  76. ##YScrollLine == 0
  77. ##      :^BOL
  78. ##*
  79. ##^^
  80. ##  --END-- TRUE
  81. ##--END-- QUERY_CLASS_NAME [[ClassName]]
  82. >>[CPP]
  83.  
  84.  
  85. <<[H]
  86. ##QUERY_SNP_FUNC_NAME [[FunctionName]]
  87. ##QUERY_SNP_FUNC_RESULT [[FunctionResult]]
  88. ##QUERY_SNP_FUNC_DEFPARAM [[FunctionDefParam]]
  89. ##FALSE [[FunctionFound]]
  90. ##--BEGIN-- QUERY_CLASS_NAME [[ClassName]]
  91. ##\\"//{{[[ClassName]]RSP_TBL_BEGIN}}" [[ClassT1Marker]]
  92. ##^BOF
  93. ##--BEGIN-- ? ClassT1Marker
  94. ##FALSE [[Search]]
  95. ##:     ^BOL
  96. ##:     \\"[[FunctionResult]] [[FunctionName]]" [[FindFunction]]
  97. ##:     0 [[YPosition]]
  98. ##      --BEGIN-- TRUE
  99. ##:         {FindFunc.SNP}
  100. ##          --BEGIN-- Search == 1
  101. ##:             ^@YPosition
  102. ##:             ^BOL
  103. ##:             \\"//{{[[ClassName]]RSP_TBL_END}}" [[ClassT2Marker]]
  104. ##:             ? ClassT2Marker FunctionFound
  105. ##          --END-- Search == 1
  106. ##      --END-- TRUE
  107. ##--END-- ? ClassT1Marker
  108. ##FunctionFound == TRUE
  109. ##:     Exit()
  110. ##*
  111. ##"//{{[[ClassName]]RSP_TBL_END}}" [[ClassTMarker]]
  112. ##\\ClassTMarker [[ClassMarker]]
  113. ##^BOF
  114. ##--BEGIN-- ? ClassMarker [[Search]]
  115. ##Search == FALSE
  116. ##:     {HAddRsp.SNP}
  117. ##:     ^BOF
  118. ##:     ? ClassMarker [[Search]]
  119. ##*
  120. ##--END-- ? ClassMarker [[Search]]
  121. ##^BOL
  122.     [[FunctionResult]] [[FunctionName]][[FunctionDefParam]];
  123. ##--END-- QUERY_CLASS_NAME [[ClassName]]
  124. >>[H]
  125.