CM_AddTreeStyle

CM_AddTreeStyle ( Function )

Метод: CM_AddTreeStyle - Добавить VB код стиля

Синтаксис:

objectvariable.CM_AddTreeStyle( VBCode )

где

objectvariable - ICustomizedModule

VBCode: String - VB код стиля. Добавляется к текущему стилю.

  dim Archive 'as IArchive
  Set Archive = theApp.Archive
  'Dim Archive as ICustomizedModule
  Archive.CM_ClearAllCustomization
  Archive.CM_AddTreeStyle(Replace("If GetAsText('NodeLevel') > 1 then : StyleColor('NodeText', 'yellow'): End if"), "'", """"))
  Archive.CM_ApplyCustomization