TmscrPascalCodeFoldBlockTypes

type TmscrPascalCodeFoldBlockTypes = set of (

  cfbtBeginEnd,

  cfbtTopBeginEnd,

  cfbtNestedComment,

  cfbtProcedure,

  cfbtUses,

  cfbtVarType,

  cfbtLocalVarType,

  cfbtUnitSection,

  cfbtProgram,

  cfbtUnit,

  cfbtTry,

  cfbtExcept,

  cfbtRepeat,

  cfbtCase,

  cfbtIfDef,

  cfbtRegion,

  cfbtAnsiComment,

  cfbtBorCommand,

  cfbtSlashComment,

  cfbtIfThen,

  cfbtForDo,

  cfbtWhileDo,

  cfbtWithDo,

  cfbtIfElse,

  cfbtCaseElse,

  cfbtNone

);