home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / Borland / Cplus45 / BC45 / EXPERT.PAK / ADDOLEDV.SNP < prev    next >
Text File  |  1995-08-29  |  3KB  |  78 lines
  1. ##--BEGIN-- @OPT_APPL_DOCVIEW
  2. //{{DOC_VIEW}}
  3. ##OPT_DV_RESET
  4. ##--FOR-- IncrV = 1 TO @QUERY_DV_COUNT
  5. ##      OPT_DV_NEXT
  6. ##      QUERY_DV_TDOCUMENT [[TDocument]]
  7. ##      QUERY_DV_TVIEW [[TView]]
  8. DEFINE_DOC_TEMPLATE_CLASS([[TDocument]], [[TView]], DocType[[IncrV]]);
  9. ##--NEXT-- IncrV
  10. //{{DOC_VIEW_END}}
  11.  
  12. //{{DOC_MANAGER}}
  13. ##OPT_DV_RESET
  14. ##"" [[Descr]]
  15. ##"" [[Filter]]
  16. ##"" [[Ext]]
  17. ##"" [[Style]]
  18. ##"" [[View]]
  19. ##"" [[ViewBase]]
  20. ##--FOR-- IncrV = 1 TO @QUERY_DV_COUNT
  21. ##      OPT_DV_NEXT
  22. ##      QUERY_DV_DESCR Descr
  23. ##      QUERY_DV_FILTER Filter
  24. ##      QUERY_DV_EXT Ext
  25. ##      QUERY_DV_STYLE Style
  26. ##      QUERY_DV_TVIEW View
  27. BEGIN_REGISTRATION(__dvReg[[IncrV]])
  28. ##      --BEGIN-- @QUERY_PRJ_NAME [[Title]]
  29. ##          --BEGIN-- @QUERY_APPL_OLE != VALUE_NOOLE
  30. ##              :"" ViewBase
  31. ##              :<<*View QUERY_BASE_NAME ViewBase
  32. ##              --BEGIN-- ViewBase == "TOleView"
  33.     REGDATA(progid, "[[Title]].Document.[[IncrV]]")
  34. ##                  :((@QUERY_APPL_OLE == VALUE_SERVER) || (@QUERY_APPL_OLE == VALUE_OLEBOTH))
  35.     REGDATA(description, "[[Title]] Document Version [[IncrV]]")
  36. ##                  :((@QUERY_APPL_OLE != VALUE_SERVER) && (@QUERY_APPL_OLE != VALUE_OLEBOTH))
  37.     REGDATA(description, "[[Descr]]")
  38. ##              --END-- ViewBase == "TOleView"
  39. ##              :ViewBase != "TOleView"
  40.     REGDATA(description, "[[Descr]]")
  41. ##          --END-- @QUERY_APPL_OLE != VALUE_NOOLE
  42. ##      --END-- @QUERY_PRJ_NAME [[Title]]
  43. ##@QUERY_APPL_OLE == VALUE_NOOLE
  44.     REGDATA(description, "[[Descr]]")
  45.     REGDATA(extension, "[[Ext]]")
  46.     REGDATA(docfilter, "[[Filter]]")
  47. ##--BEGIN-- @QUERY_APPL_OLE != VALUE_NOOLE
  48. ##<<*View QUERY_BASE_NAME ViewBase
  49. ##ViewBase == "TOleView"
  50.     REGDOCFLAGS([[Style]] | dtAutoOpen | dtRegisterExt)
  51. ##ViewBase != "TOleView"
  52.     REGDOCFLAGS([[Style]])
  53. ##--END-- @QUERY_APPL_OLE != VALUE_NOOLE
  54. ##@QUERY_APPL_OLE == VALUE_NOOLE
  55.     REGDOCFLAGS([[Style]])
  56. //    REGDATA(debugger, "TDW")
  57. ##<<*View QUERY_BASE_NAME ViewBase
  58. ##--BEGIN-- ViewBase == "TOleView"
  59. ##--BEGIN-- ((@QUERY_APPL_OLE == VALUE_SERVER) || (@QUERY_APPL_OLE == VALUE_OLEBOTH))
  60.     REGDATA(menuname, "[[View]]")
  61.     REGDATA(insertable, "")
  62.     REGDATA(verb0, "&Edit")
  63.     REGDATA(verb1, "&Open")
  64. ##--END-- ((@QUERY_APPL_OLE == VALUE_SERVER) || (@QUERY_APPL_OLE == VALUE_OLEBOTH))
  65. ##--BEGIN-- ((@QUERY_APPL_OLE == VALUE_CONTAINER) || (@QUERY_APPL_OLE == VALUE_OLEBOTH) || (@QUERY_APPL_OLE == VALUE_SERVER))
  66.     REGFORMAT(0, ocrEmbedSource,  ocrContent,  ocrIStorage, ocrGet)
  67.     REGFORMAT(1, ocrMetafilePict, ocrContent,  ocrMfPict | ocrStaticMed, ocrGet)
  68.     REGFORMAT(2, ocrBitmap, ocrContent,  ocrGDI | ocrStaticMed, ocrGet)
  69.     REGFORMAT(3, ocrDib, ocrContent,  ocrHGlobal | ocrStaticMed, ocrGet)
  70.     REGFORMAT(4, ocrLinkSource, ocrContent,  ocrIStream, ocrGet)
  71. ##--END-- ((@QUERY_APPL_OLE == VALUE_CONTAINER) || (@QUERY_APPL_OLE == VALUE_OLEBOTH) || (@QUERY_APPL_OLE == VALUE_SERVER))
  72. ##--END-- ViewBase == "TOleView"
  73. END_REGISTRATION
  74. DocType[[IncrV]] __dvt[[IncrV]](__dvReg[[IncrV]]);
  75. ##--NEXT-- IncrV
  76. //{{DOC_MANAGER_END}}
  77. ##--END-- @OPT_APPL_DOCVIEW
  78.