home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / Borland / Cplus45 / BC45 / EXPERT.PAK / RESDVOLE.SNP < prev    next >
Text File  |  1995-08-29  |  1KB  |  32 lines
  1. ##--BEGIN-- TRUE
  2. ##      :^1
  3. ##      :YPos() [[StartLine]]
  4. ##      --BEGIN-- ? "//{{DOC_VIEW_END}}"
  5. ##          :^-1
  6. ##          :YPos() [[EndLine]]
  7. ##          :^@StartLine
  8. ##          :^BOL
  9. ##          :0 [[CurrViewLine]]
  10. ##          :--FOR-- ViewEntry = 1 TO ((EndLine - StartLine) + 1)
  11. ##              :ScanViewEntry([[Template]], [[TDocument]], [[TView]]) [[viewResult]]
  12. ##              :YPos() CurrViewLine
  13. ##              :? "//{{DOC_MANAGER}}"
  14. ##                  :YPos() [[DocManMarkPos]]
  15. ##                  :--BEGIN-- ? \\"[[Template]]"
  16. ##                      :^BOL
  17. ##                      :ScanOLEDocEntry([[RegistryName]])
  18. ##                      :^@DocManMarkPos
  19. ##                      :? \\"BEGIN_REGISTRATION([[RegistryName]])"
  20. ##                          :^1
  21. ##                          :^BOL
  22. ##                          :ScanOLERegistry([[Style]], [[Descr]], [[Filter]], [[Ext]])
  23. ##                              :DBDocView(Style, Descr, Filter, Ext, TDocument, TView)
  24. ##*
  25. ##                  :--END-- ? \\"[[Template]]"
  26. ##                  :^@CurrViewLine
  27. ##*
  28. ##              :^1
  29. ##          :--NEXT-- ViewEntry
  30. ##      --END-- ? "//{{DOC_VIEW_END}}"
  31. ##--END-- TRUE
  32.