176
How can I select an item using on its full part, not only on its icon or caption

*** Click event - Occurs when the user presses and then releases the left mouse button over the control. ***
LPARAMETERS nop
	with thisform.ExplorerBar1
		DEBUGOUT( .ItemFromPoint(-1,-1) )
	endwith

with thisform.ExplorerBar1
	.HighlightItemType = 19 && HighLightItemEnum.exFull Or HighLightItemEnum.exUnion
	with .Groups.Add("Group 1")
		.AddItem("Item <b>1</b>").CaptionFormat = 1
		.AddItem("Item <b>2</b>").CaptionFormat = 1
		.Expanded = .T.
	endwith
endwith
175
How can I change the group's color
with thisform.ExplorerBar1
	.BackColorGroup = RGB(255,0,0)
	.BackColorGroup2 = .BackColorGroup
	.GroupAppearance = 0
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
	endwith
endwith
174
How can remove the group's appearance
with thisform.ExplorerBar1
	.BackColorGroup = .BackColor
	.BackColorGroup2 = .BackColor
	.GroupAppearance = 1
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
	endwith
endwith
173
How can I align the group/item
with thisform.ExplorerBar1
	.BeginUpdate
	with .Groups.Add("Group 1")
		.Alignment = 0
		.AddItem("Item 1").Alignment = 0
		.Expanded = .T.
	endwith
	.EndUpdate
endwith
172
Just seen the BackgroundExt property. Not sure what I can do with that

*** AddGroup event - Occurs when a new group is added to collection. ***
LPARAMETERS Group
	with thisform.ExplorerBar1
		with Group
		endwith
	endwith

*** AddItem event - Occurs when a new item is added to a group. ***
LPARAMETERS Item
	with thisform.ExplorerBar1
		with Item
		endwith
	endwith

with thisform.ExplorerBar1
	.BeginUpdate
	.Appearance = 0
	with .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"CP:1 48 12 -24 0")
		.Add(3,"c:\exontrol\images\pushed.ebn")
	endwith
	.Object.HTMLPicture("uk") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("brazil") = "c:\exontrol\images\auction.gif"
	.Object.HTMLPicture("sweden") = "c:\exontrol\images\colorize.gif"
	.BackColorGroup = 0x2000000
	.BackColorGroup2 = .BackColorGroup
	.GroupHeight = 40
	with .Groups.Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>United Kingdom")
		.BackgroundExtValue(2,4) = "<img>uk:44</img>"
		.AddItem("London Eye")
		.AddItem("Tower of London")
		.AddItem("Buckingham Palace")
		.AddItem("River Thames")
		.AddItem("Stonehenge")
	endwith
	with .Groups.Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>Brazil")
		.BackgroundExtValue(2,4) = "<img>brazil:44</img>"
		.AddItem("Cristo Redentor")
		.AddItem("Copacabana")
		.AddItem("Ipanema, Rio de Janeiro")
		.AddItem("Iguazu Falls")
		.AddItem("Sugarloaf Mountain")
		.Expanded = .T.
	endwith
	with .Groups.Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>Sweden")
		.BackgroundExtValue(2,4) = "<img>sweden:44</img>"
		.AddItem("Gamla stan")
		.AddItem("Vasa Museum")
		.AddItem("Stockholm Palace")
		.AddItem("Skansen")
		.AddItem("Djurgården")
	endwith
	.EndUpdate
endwith
171
Can I specify a different colors for groups using your EBN files

with thisform.ExplorerBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.BackColorGroup = 0x1000000
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").BackColor = 0x100aabb
endwith
170
Can I change the color of the control's border (EBN files)

with thisform.ExplorerBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = 27966412 && 0x1aabbc8 Or AppearanceEnum.exDrop
endwith
169
How can I make the items visible automatically, or how can I ensure an item is visible or it is shown in the control's client area
with thisform.ExplorerBar1
	.BeginUpdate
	.GroupHeight = 48
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.Add("Group 4")
		.Add("Group 5")
		.Add("Group 6")
		.Add("Group 7")
		.Add("Group 8")
		.Add("Group 9")
		.Add("Group 10")
		.Add("Group 11")
		with .Add("Group 12")
			.AddItem(0)
			.AddItem(1)
			.AddItem(2)
		endwith
	endwith
	.EnsureVisible(11,2)
	.EndUpdate
endwith
168
How can I scroll to the end of the groups

with thisform.ExplorerBar1
	.BeginUpdate
	.GroupHeight = 48
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.Add("Group 4")
		.Add("Group 5")
		.Add("Group 6")
		.Add("Group 7")
		.Add("Group 8")
		.Add("Group 9")
		.Add("Group 10")
		.Add("Group 11")
		.Add("Group 12")
	endwith
	.EnsureVisible(11)
	.EndUpdate
endwith
167
How can I display an item by multiple lines

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("SingleLine")
		with .AddItem("This is bit of text that should break the lines, and so <b>multiple</b> lines are displayed")
			.Alignment = 0
			.CaptionFormat = 1
			.SingleLine = .F.
		endwith
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
166
How can I indent an item

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Alignment = 0
		with .AddItem("Sub Item <b>1</b>")
			.CaptionFormat = 1
			.Alignment = 0
			.Indent = 12
		endwith
		with .AddItem("Sub Item <b>2</b>")
			.CaptionFormat = 1
			.Alignment = 0
			.Indent = 12
		endwith
		with .AddItem("Sub Item <b>3</b>")
			.CaptionFormat = 1
			.Alignment = 0
			.Indent = 12
		endwith
		with .AddItem("Sub Sub Item <b>3</b>")
			.CaptionFormat = 1
			.Alignment = 0
			.Indent = 24
		endwith
		with .AddItem("Item 2")
			.Alignment = 0
		endwith
		.Expanded = .T.
	endwith
endwith
165
How can I use HTML format to display my item

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("<font Tahoma;11>T</font>his is an HTML <b>item</b> assigned to a <fgcolor=FF0000>group</fgcolor>").CaptionFormat = 1
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
164
How can I assign a tooltip to an item

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("ToolTip").ToolTip = "This is bit of text that should appear when the cursor hovers the <b>item</b>."
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
163
How can I show or hide an item

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").Visible = .F.
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
162
How can I align an icon for an item

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		with .AddItem("Item 1")
			.Image = 1
			.ImageAlignment = 0
		endwith
		with .AddItem("Item 2")
			.Image = 2
			.ImageAlignment = 2
		endwith
		.Expanded = .T.
	endwith
endwith
161
How can I stop highlighting an item

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2 - no ").AllowHighLight = .F.
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
160
How can I change the item's background color

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		with .AddItem("Item 2")
			.BackColor = RGB(255,0,0)
			.BackColor2 = RGB(255,255,255)
		endwith
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
159
How can I change the item's background color

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("<bgcolor=FF0000>Item</bgcolor> 2").CaptionFormat = 1
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
158
How can I change the item's foreground color

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").ForeColor = RGB(255,0,0)
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
157
How can I change the visual appearance of the item using your EBN files

with thisform.ExplorerBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").BackColor = 0x1000000
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
156
How can I change the item's background color

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").BackColor = RGB(255,0,0)
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
155
How can I get the group of the item

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").Group.Bold = .T.
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
154
How can I get the index of the item

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		with .AddItem("Item 1")
			.Caption = .Index
		endwith
		with .AddItem("Item 2")
			.Caption = .Index
		endwith
		with .AddItem("Item 3")
			.Caption = .Index
		endwith
		.Expanded = .T.
	endwith
endwith
153
How can I draw underlined an item

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("<u>Item</u> 2").CaptionFormat = 1
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
152
How can I draw underlined an item

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").Underline = .T.
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
151
How can I draw as strikeout an item

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("<s>Item</s> 2").CaptionFormat = 1
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
150
How can I draw as strikeout an item

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").StrikeOut = .T.
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
149
How can I draw as italic an item

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("<i>Item</i> 2").CaptionFormat = 1
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
148
How can I draw as italic an item

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").Italic = .T.
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
147
How can I add a anchor or a hyperlink

with thisform.ExplorerBar1
	.HighlightItemType = 0
	.HandCursor = .F.
	with .Groups.Add("Group 1")
		.AddItem("Link <a1><b>1</b></a>").CaptionFormat = 1
		.AddItem("Link <a2><b>2</b></a>").CaptionFormat = 1
		.Expanded = .T.
	endwith
endwith
146
How do I bold an item

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("<b>Item</a> 2").CaptionFormat = 1
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
145
How do I bold an item

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").Bold = .T.
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
144
How can I align an item

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		.ItemHeight = 28
		.AddItem("Left",1).Alignment = 0
		.AddItem("Center",2).Alignment = 1
		.AddItem("Right",3).Alignment = 2
		.AddItem("Middle",1).Alignment = 4
		.Expanded = .T.
	endwith
endwith
143
How can I assign some extra data to an item

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1").UserData = "your data"
		.AddItem("Item 2")
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
142
How can I assign or display an icon for an item

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		.AddItem("Item <img>1</img> text <img>2</img>").CaptionFormat = 1
		.AddItem("Item 2").Image = 2
		.AddItem("Item 3").Image = 3
		.Expanded = .T.
	endwith
endwith
141
How can I assign or display an icon for an item

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.AddItem("Item 2").Image = 2
		.AddItem("Item 3").Image = 3
		.Expanded = .T.
	endwith
endwith
140
How can I assign or display an icon for an item

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		.AddItem("Item 1",1)
		.AddItem("Item 2",2)
		.AddItem("Item 3",3)
		.Expanded = .T.
	endwith
endwith
139
How can I change the item's position

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3").Position = 0
		.Expanded = .T.
	endwith
endwith
138
How can I change the item's caption

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").Caption = "new caption"
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
137
How do I add new items

with thisform.ExplorerBar1
	.Groups.Add("Group 1").AddItem("Item 1").Bold = .T.
endwith
136
How do I assign a group to a set in the shortcut bar

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
endwith
135
How can I show or hide the expanding or collapsing button

with thisform.ExplorerBar1
	.Groups.Add("Group 1").AddItem("Item 1")
	with .Groups.Add("Group 2, expanding/collapsing button is missing ")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Expanded = .T.
		.AllowExpand = .F.
	endwith
	.Groups.Add("Group 3").AddItem("Item 1")
endwith
134
How can I avoid expanding or collapsing a group

with thisform.ExplorerBar1
	.Groups.Add("Group 1").AddItem("Item 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Expanded = .T.
		.AllowExpand = .F.
	endwith
	.Groups.Add("Group 3").AddItem("Item 1")
endwith
133
How can I assign a tooltip to a group

with thisform.ExplorerBar1
	.ToolTipDelay = 1
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the <b>group</b>."
endwith
132
How can I display HTML text in the group's caption

with thisform.ExplorerBar1
	.GroupHeight = 44
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>").CaptionFormat = 1
endwith
131
How can I disable scrolling the group's list when it is expanded or collapsed

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Expanded = .T.
		.AllowScroll = .F.
	endwith
	.Groups.Add("Group 3")
endwith
130
How can I change the group's background color ( gradient )

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.BackColor = RGB(255,0,0)
		.BackColor2 = RGB(255,255,255)
	endwith
	.Groups.Add("Group 3")
endwith
129
How can I access the bounding rectangle of the group's area

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem(.Top)
		.AddItem(.Left)
		.AddItem(.Width)
		.Expanded = .T.
	endwith
	.Groups.Add("Group 3")
endwith
128
How can I expand or collapse a group

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Expanded = .T.
	endwith
	.Groups.Add("Group 3")
endwith
127
How can I specify the height of the items

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.ItemHeight = 13
		.Expanded = .T.
	endwith
	.Groups.Add("Group 3")
endwith
126
How do I put a picture on the group's background
with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 2
		.Expanded = .T.
	endwith
	.Groups.Add("Group 3")
endwith
125
How do I put a picture on the group's background
with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.Expanded = .T.
	endwith
	.Groups.Add("Group 3")
endwith
124
How can I change the foreground color for items

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.ForeColorList = RGB(255,0,0)
		.Expanded = .T.
	endwith
	.Groups.Add("Group 3")
endwith
123
How can I change the background color for the items

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.BackColorList = RGB(255,0,0)
		.Expanded = .T.
	endwith
	.Groups.Add("Group 3")
endwith
122
How can I change the group's foreground color

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	.Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2").CaptionFormat = 1
	.Groups.Add("Group 3")
endwith
121
How can I change the group's foreground color

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").ForeColor = RGB(255,0,0)
	.Groups.Add("Group 3")
endwith
120
How can I change the group's background color

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	.Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2").CaptionFormat = 1
	.Groups.Add("Group 3")
endwith
119
How can I change the visual appearance of the group, using EBN files

with thisform.ExplorerBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.GroupAppearance = 1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").BackColor = 0x1000000
	.Groups.Add("Group 3")
endwith
118
How can I change the group's background color

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").BackColor = RGB(255,0,0)
	.Groups.Add("Group 3")
endwith
117
How do I get the index of the group

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.Caption = .Index
	endwith
	with .Groups.Add("Group 2")
		.Caption = .Index
	endwith
	with .Groups.Add("Group 3")
		.Caption = .Index
	endwith
endwith
116
How can I underline the group's name

with thisform.ExplorerBar1
	.Groups.Add("<u>Group</u> 1").CaptionFormat = 1
endwith
115
How can I underline the group's name

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").Underline = .T.
	.Groups.Add("Group 3")
endwith
114
How can I show the group's name as strikeout

with thisform.ExplorerBar1
	.Groups.Add("<s>Group</s> 1").CaptionFormat = 1
endwith
113
How can I show the group's name as strikeout

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").StrikeOut = .T.
	.Groups.Add("Group 3")
endwith
112
How can I draw as italic the group's name

with thisform.ExplorerBar1
	.Groups.Add("<i>Group</i> 1").CaptionFormat = 1
endwith
111
How do I draw italic the group's name

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").Italic = .T.
	.Groups.Add("Group 3")
endwith
110
How do I bold the group's name

with thisform.ExplorerBar1
	.Groups.Add("<b>Group</b> 1").CaptionFormat = 1
endwith
109
How do I bold the group's name

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").Bold = .T.
	.Groups.Add("Group 3")
endwith
108
How can I align the icon in the group's caption

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		.Image = 1
		.ImageAlignment = 2
		.Alignment = 2
	endwith
endwith
107
How can I align the group's name

with thisform.ExplorerBar1
	.Groups.Add("Group 1").Alignment = 2
endwith
106
How can I align the group's name

with thisform.ExplorerBar1
	.Groups.Add("Group 1").Alignment = 0
endwith
105
How can I assign some extra data to a group

with thisform.ExplorerBar1
	.Groups.Add("Group 1").UserData = "your data"
endwith
104
How can I display an icon in the group's caption

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("Group <img>1</img> text <img>2</img>").CaptionFormat = 1
endwith
103
How can I display an icon in the group's caption

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("Group 1").Image = 1
endwith
102
How can I access an item by its position

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3").Position = 0
		.ItemByPos(1).Bold = .T.
		.Expanded = .T.
	endwith
endwith
101
How can I change the position of a group

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2")
	.Groups.Add("Group 3").Position = 0
endwith