home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / APPEXPRT.PAK / CADDPROP.SNP < prev    next >
Encoding:
Text File  |  1997-05-06  |  2.3 KB  |  72 lines
  1. ##"//{{[[ClassName]]SYM_TBL_END}}" [[ClassTMarker]]
  2. ##\\ClassTMarker [[ClassMarker]]
  3. ##^BOF
  4. ##--BEGIN-- ? ClassMarker [[Search]]
  5. ##      Search == FALSE
  6. ##      :{CAddSym.SNP}
  7. ##      :^BOF
  8. ##      :? ClassMarker [[Search]]
  9. ##*
  10. ##--END-- ? ClassMarker [[Search]]
  11. ##^BOL
  12. ## (OLEType == CPPType) && (OLEType != "TAutoCurrency") && (OLEType != "TAutoDate")
  13. ##      :StripPtrRef(OLEType, [[StripType]]) [[AnyStripping]]
  14. ##      :StripType OLEType
  15. ##*
  16. ## (GetProperty == TRUE) && (SetProperty == TRUE)
  17.   EXPOSE_PROPRW([[InternalName]], [[OLEType]], "[[InternalName]]", "[[Description]]", 0)
  18. ## (GetProperty == TRUE) && (SetProperty == FALSE)
  19.   EXPOSE_PROPRO([[InternalName]], [[OLEType]], "[[InternalName]]", "[[Description]]", 0)
  20. ## (GetProperty == FALSE) && (SetProperty == TRUE)
  21.   EXPOSE_PROPWO([[InternalName]], [[OLEType]], "[[InternalName]]", "[[Description]]", 0)
  22. ##^EOF
  23. ##0 [[ScrollPosition]]
  24. ##FALSE [[DuplicateFunction]]
  25. ##FALSE [[SetFoundIt]]
  26. ##--BEGIN-- FALSE [[GetFoundIt]]
  27. ##      --BEGIN-- GetProperty == TRUE
  28. ##          :{FindAuto.SNP}
  29. ##          :DuplicateFunction GetFoundIt
  30. ##          :DuplicateFunction GetDuplicateFunc
  31. ##          :GetFoundIt == FALSE
  32. ##          :^EOF
  33. ##*
  34. ##      --END-- GetProperty == TRUE
  35. ##      --BEGIN-- SetProperty == TRUE
  36. ##          :FALSE DuplicateFunction
  37. ##          :{FindAuto.SNP}
  38. ##          :DuplicateFunction SetFoundIt
  39. ##          :DuplicateFunction SetDuplicateFunc
  40. ##          :SetFoundIt == FALSE
  41. ##          :^EOF
  42. ##*
  43. ##      --END-- SetProperty == TRUE
  44. ##      --BEGIN-- TRUE
  45. ##          --BEGIN-- ((GetProperty == TRUE) && (GetFoundIt == FALSE))
  46. ##              :(YPos() + 2) ScrollPosition
  47.  
  48. [[CPPType]] [[ClassName]]::[[GetName]]()
  49. {
  50.   // INSERT>> Your get property code here.
  51. }
  52. ##          --END-- ((GetProperty == TRUE) && (GetFoundIt == FALSE))
  53. ##          --BEGIN-- ((SetProperty == TRUE) && (SetFoundIt == FALSE))
  54. ##              :ScrollPosition  == 0
  55. ##              :(YPos() + 2) ScrollPosition
  56. ##*
  57.  
  58. void [[ClassName]]::[[SetName]]([[CPPType]] property)
  59. {
  60.   // INSERT>> Your set property code here.
  61.  
  62. }
  63. ##          --END-- ((SetProperty == TRUE) && (SetFoundIt == FALSE))
  64. ## ((GetFoundIt == FALSE) && (SetFoundIt == FALSE))
  65. ##      :^@ScrollPosition
  66. ##      :^BOL
  67. ##      :^SCROLL
  68. ##      :^^
  69. ##*
  70. ##      --END-- TRUE
  71. ##--END-- FALSE [[GetFoundIt]]
  72.