How to prevent opening of the Child Items

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   There is here such fragment of code:
      Set SubCategory = Appearance.AddChildItem(PropertyItemString, "Gradient")
      SubCategory.Tag = "BAR_GRADIENT"

        With SubCategory
          Set Item = .AddChildItem(PropertyItemBool, "Visible", True)
          Item.Tag = "BAR_GRADIENT_VISIBLE"

          Set Item = .AddChildItem(PropertyItemEnum, "Direction:", 0)
          Item.Tag = "BAR_GRADIENT_DIRECTION"
          Item.Flags = ItemHasComboButton
       End with 
 How to do so that was the Gradient name visible, 
 but when I press on a cross there was no opening of the Child Items  contained in SubCategory?
If I set the value of parameter of SubCategory.ReadOnly = True, 
nevertheless when I press on a cross there is opening of the Child Items contained in it.

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Miroslaw Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 14 November 2005 Location: Ukraine Status: Offline Points: 5	Post Options Post Reply Quote Miroslaw Report Post Thanks(0) Quote Reply Topic: How to prevent opening of the Child Items Posted: 08 February 2006 at 6:41pm
	There is here such fragment of code: Set SubCategory = Appearance.AddChildItem(PropertyItemString, "Gradient") SubCategory.Tag = "BAR_GRADIENT" With SubCategory Set Item = .AddChildItem(PropertyItemBool, "Visible", True) Item.Tag = "BAR_GRADIENT_VISIBLE" Set Item = .AddChildItem(PropertyItemEnum, "Direction:", 0) Item.Tag = "BAR_GRADIENT_DIRECTION" Item.Flags = ItemHasComboButton End with How to do so that was the Gradient name visible, but when I press on a cross there was no opening of the Child Items contained in SubCategory? If I set the value of parameter of SubCategory.ReadOnly = True, nevertheless when I press on a cross there is opening of the Child Items contained in it.