175:
How can I change the group's color
with ExplorerBar1 do
begin
	BackColorGroup := RGB(255,0,0);
	BackColorGroup2 := BackColorGroup;
	GroupAppearance := EXPLORERBARLib_TLB.exNone;
	with Groups do
	begin
		Add('Group 1');
		Add('Group 2');
	end;
end
174:
How can remove the group's appearance
with ExplorerBar1 do
begin
	BackColorGroup := BackColor;
	BackColorGroup2 := BackColor;
	GroupAppearance := EXPLORERBARLib_TLB.exSingle;
	with Groups do
	begin
		Add('Group 1');
		Add('Group 2');
	end;
end
173:
How can I align the group/item
with ExplorerBar1 do
begin
	BeginUpdate();
	with Groups.Add('Group 1') do
	begin
		Alignment := EXPLORERBARLib_TLB.exLeft;
		AddItem('Item 1',Null).Alignment := EXPLORERBARLib_TLB.exLeft;
		Expanded := True;
	end;
	EndUpdate();
end
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.
procedure TForm1.ExplorerBar1AddGroup(ASender: TObject; Group : IGroup);
begin
	with ExplorerBar1 do
	begin
		with Group do
		begin
		end;
	end
end;

// AddItem event - Occurs when a new item is added to a group.
procedure TForm1.ExplorerBar1AddItem(ASender: TObject; Item : IItem);
begin
	with ExplorerBar1 do
	begin
		with Item do
		begin
		end;
	end
end;

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

with ExplorerBar1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	BackColorGroup := $1000000;
	Groups.Add('Group 1');
	Groups.Add('Group 2').BackColor := $100aabb;
end
170:
Can I change the color of the control's border (EBN files)

with ExplorerBar1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Appearance := EXPLORERBARLib_TLB.AppearanceEnum($1aabbc8 Or Integer(EXPLORERBARLib_TLB.exDrop));
end
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 ExplorerBar1 do
begin
	BeginUpdate();
	GroupHeight := 48;
	with Groups do
	begin
		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') do
		begin
			AddItem(0,Null);
			AddItem(1,Null);
			AddItem(2,Null);
		end;
	end;
	EnsureVisible(OleVariant(11),OleVariant(2),Null);
	EndUpdate();
end
168:
How can I scroll to the end of the groups

with ExplorerBar1 do
begin
	BeginUpdate();
	GroupHeight := 48;
	with Groups do
	begin
		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');
	end;
	EnsureVisible(OleVariant(11),Null,Null);
	EndUpdate();
end
167:
How can I display an item by multiple lines

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('SingleLine',Null);
		with AddItem('This is bit of text that should break the lines, and so <b>multiple</b> lines are displayed',Null) do
		begin
			Alignment := EXPLORERBARLib_TLB.exLeft;
			CaptionFormat := EXPLORERBARLib_TLB.exHTML;
			SingleLine := False;
		end;
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
166:
How can I indent an item

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null).Alignment := EXPLORERBARLib_TLB.exLeft;
		with AddItem('Sub Item <b>1</b>',Null) do
		begin
			CaptionFormat := EXPLORERBARLib_TLB.exHTML;
			Alignment := EXPLORERBARLib_TLB.exLeft;
			Indent := 12;
		end;
		with AddItem('Sub Item <b>2</b>',Null) do
		begin
			CaptionFormat := EXPLORERBARLib_TLB.exHTML;
			Alignment := EXPLORERBARLib_TLB.exLeft;
			Indent := 12;
		end;
		with AddItem('Sub Item <b>3</b>',Null) do
		begin
			CaptionFormat := EXPLORERBARLib_TLB.exHTML;
			Alignment := EXPLORERBARLib_TLB.exLeft;
			Indent := 12;
		end;
		with AddItem('Sub Sub Item <b>3</b>',Null) do
		begin
			CaptionFormat := EXPLORERBARLib_TLB.exHTML;
			Alignment := EXPLORERBARLib_TLB.exLeft;
			Indent := 24;
		end;
		with AddItem('Item 2',Null) do
		begin
			Alignment := EXPLORERBARLib_TLB.exLeft;
		end;
		Expanded := True;
	end;
end
165:
How can I use HTML format to display my item

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('<font Tahoma;11>T</font>his is an HTML <b>item</b> assigned to a <fgcolor=FF0000>group</fgcolor>',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
164:
How can I assign a tooltip to an item

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('ToolTip',Null).ToolTip := 'This is bit of text that should appear when the cursor hovers the <b>item</b>.';
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
163:
How can I show or hide an item

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null).Visible := False;
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
162:
How can I align an icon for an item

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with Groups.Add('Group 1') do
	begin
		with AddItem('Item 1',Null) do
		begin
			Image := OleVariant(1);
			ImageAlignment := EXPLORERBARLib_TLB.exLeft;
		end;
		with AddItem('Item 2',Null) do
		begin
			Image := OleVariant(2);
			ImageAlignment := EXPLORERBARLib_TLB.exRight;
		end;
		Expanded := True;
	end;
end
161:
How can I stop highlighting an item

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2 - no ',Null).AllowHighLight := False;
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
160:
How can I change the item's background color

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		with AddItem('Item 2',Null) do
		begin
			BackColor := $ff;
			BackColor2 := $ffffff;
		end;
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
159:
How can I change the item's background color

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('<bgcolor=FF0000>Item</bgcolor> 2',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
158:
How can I change the item's foreground color

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null).ForeColor := $ff;
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
157:
How can I change the visual appearance of the item using your EBN files

with ExplorerBar1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null).BackColor := $1000000;
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
156:
How can I change the item's background color

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null).BackColor := $ff;
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
155:
How can I get the group of the item

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null).Group.Bold := True;
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
154:
How can I get the index of the item

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		with AddItem('Item 1',Null) do
		begin
			Caption := Index;
		end;
		with AddItem('Item 2',Null) do
		begin
			Caption := Index;
		end;
		with AddItem('Item 3',Null) do
		begin
			Caption := Index;
		end;
		Expanded := True;
	end;
end
153:
How can I draw underlined an item

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('<u>Item</u> 2',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
152:
How can I draw underlined an item

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null).Underline := True;
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
151:
How can I draw as strikeout an item

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('<s>Item</s> 2',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
150:
How can I draw as strikeout an item

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null).StrikeOut := True;
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
149:
How can I draw as italic an item

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('<i>Item</i> 2',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
148:
How can I draw as italic an item

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null).Italic := True;
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
147:
How can I add a anchor or a hyperlink

with ExplorerBar1 do
begin
	HighlightItemType := EXPLORERBARLib_TLB.exNoHighlight;
	HandCursor := False;
	with Groups.Add('Group 1') do
	begin
		AddItem('Link <a1><b>1</b></a>',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
		AddItem('Link <a2><b>2</b></a>',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
		Expanded := True;
	end;
end
146:
How do I bold an item

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('<b>Item</a> 2',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
145:
How do I bold an item

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null).Bold := True;
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
144:
How can I align an item

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with Groups.Add('Group 1') do
	begin
		ItemHeight := 28;
		AddItem('Left',OleVariant(1)).Alignment := EXPLORERBARLib_TLB.exLeft;
		AddItem('Center',OleVariant(2)).Alignment := EXPLORERBARLib_TLB.exCenter;
		AddItem('Right',OleVariant(3)).Alignment := EXPLORERBARLib_TLB.exRight;
		AddItem('Middle',OleVariant(1)).Alignment := EXPLORERBARLib_TLB.exMiddle;
		Expanded := True;
	end;
end
143:
How can I assign some extra data to an item

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null).UserData := 'your data';
		AddItem('Item 2',Null);
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
142:
How can I assign or display an icon for an item

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with Groups.Add('Group 1') do
	begin
		AddItem('Item <img>1</img> text <img>2</img>',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
		AddItem('Item 2',Null).Image := OleVariant(2);
		AddItem('Item 3',Null).Image := OleVariant(3);
		Expanded := True;
	end;
end
141:
How can I assign or display an icon for an item

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null).Image := OleVariant(1);
		AddItem('Item 2',Null).Image := OleVariant(2);
		AddItem('Item 3',Null).Image := OleVariant(3);
		Expanded := True;
	end;
end
140:
How can I assign or display an icon for an item

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

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null);
		AddItem('Item 3',Null).Position := 0;
		Expanded := True;
	end;
end
138:
How can I change the item's caption

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null).Caption := 'new caption';
		AddItem('Item 3',Null);
		Expanded := True;
	end;
end
137:
How do I add new items

with ExplorerBar1 do
begin
	Groups.Add('Group 1').AddItem('Item 1',Null).Bold := True;
end
136:
How do I assign a group to a set in the shortcut bar

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ShowShortcutBar := True;
	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>';
end
135:
How can I show or hide the expanding or collapsing button

with ExplorerBar1 do
begin
	Groups.Add('Group 1').AddItem('Item 1',Null);
	with Groups.Add('Group 2, expanding/collapsing button is missing ') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null);
		Expanded := True;
		AllowExpand := False;
	end;
	Groups.Add('Group 3').AddItem('Item 1',Null);
end
134:
How can I avoid expanding or collapsing a group

with ExplorerBar1 do
begin
	Groups.Add('Group 1').AddItem('Item 1',Null);
	with Groups.Add('Group 2') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null);
		Expanded := True;
		AllowExpand := False;
	end;
	Groups.Add('Group 3').AddItem('Item 1',Null);
end
133:
How can I assign a tooltip to a group

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

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

with ExplorerBar1 do
begin
	Groups.Add('Group 1');
	with Groups.Add('Group 2') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null);
		Expanded := True;
		AllowScroll := False;
	end;
	Groups.Add('Group 3');
end
130:
How can I change the group's background color ( gradient )

with ExplorerBar1 do
begin
	Groups.Add('Group 1');
	with Groups.Add('Group 2') do
	begin
		BackColor := $ff;
		BackColor2 := $ffffff;
	end;
	Groups.Add('Group 3');
end
129:
How can I access the bounding rectangle of the group's area

with ExplorerBar1 do
begin
	Groups.Add('Group 1');
	with Groups.Add('Group 2') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null);
		AddItem(Top,Null);
		AddItem(Left,Null);
		AddItem(Width,Null);
		Expanded := True;
	end;
	Groups.Add('Group 3');
end
128:
How can I expand or collapse a group

with ExplorerBar1 do
begin
	Groups.Add('Group 1');
	with Groups.Add('Group 2') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null);
		Expanded := True;
	end;
	Groups.Add('Group 3');
end
127:
How can I specify the height of the items

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

with ExplorerBar1 do
begin
	Groups.Add('Group 1');
	with Groups.Add('Group 2') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null);
		ForeColorList := $ff;
		Expanded := True;
	end;
	Groups.Add('Group 3');
end
123:
How can I change the background color for the items

with ExplorerBar1 do
begin
	Groups.Add('Group 1');
	with Groups.Add('Group 2') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null);
		BackColorList := $ff;
		Expanded := True;
	end;
	Groups.Add('Group 3');
end
122:
How can I change the group's foreground color

with ExplorerBar1 do
begin
	Groups.Add('Group 1');
	Groups.Add('<fgcolor=FF0000>Group</fgcolor> 2').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
	Groups.Add('Group 3');
end
121:
How can I change the group's foreground color

with ExplorerBar1 do
begin
	Groups.Add('Group 1');
	Groups.Add('Group 2').ForeColor := $ff;
	Groups.Add('Group 3');
end
120:
How can I change the group's background color

with ExplorerBar1 do
begin
	Groups.Add('Group 1');
	Groups.Add('<bgcolor=FF0000>Group</bgcolor> 2').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
	Groups.Add('Group 3');
end
119:
How can I change the visual appearance of the group, using EBN files

with ExplorerBar1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	GroupAppearance := EXPLORERBARLib_TLB.exSingle;
	Groups.Add('Group 1');
	Groups.Add('Group 2').BackColor := $1000000;
	Groups.Add('Group 3');
end
118:
How can I change the group's background color

with ExplorerBar1 do
begin
	Groups.Add('Group 1');
	Groups.Add('Group 2').BackColor := $ff;
	Groups.Add('Group 3');
end
117:
How do I get the index of the group

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		Caption := Index;
	end;
	with Groups.Add('Group 2') do
	begin
		Caption := Index;
	end;
	with Groups.Add('Group 3') do
	begin
		Caption := Index;
	end;
end
116:
How can I underline the group's name

with ExplorerBar1 do
begin
	Groups.Add('<u>Group</u> 1').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
end
115:
How can I underline the group's name

with ExplorerBar1 do
begin
	Groups.Add('Group 1');
	Groups.Add('Group 2').Underline := True;
	Groups.Add('Group 3');
end
114:
How can I show the group's name as strikeout

with ExplorerBar1 do
begin
	Groups.Add('<s>Group</s> 1').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
end
113:
How can I show the group's name as strikeout

with ExplorerBar1 do
begin
	Groups.Add('Group 1');
	Groups.Add('Group 2').StrikeOut := True;
	Groups.Add('Group 3');
end
112:
How can I draw as italic the group's name

with ExplorerBar1 do
begin
	Groups.Add('<i>Group</i> 1').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
end
111:
How do I draw italic the group's name

with ExplorerBar1 do
begin
	Groups.Add('Group 1');
	Groups.Add('Group 2').Italic := True;
	Groups.Add('Group 3');
end
110:
How do I bold the group's name

with ExplorerBar1 do
begin
	Groups.Add('<b>Group</b> 1').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
end
109:
How do I bold the group's name

with ExplorerBar1 do
begin
	Groups.Add('Group 1');
	Groups.Add('Group 2').Bold := True;
	Groups.Add('Group 3');
end
108:
How can I align the icon in the group's caption

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with Groups.Add('Group 1') do
	begin
		Image := OleVariant(1);
		ImageAlignment := EXPLORERBARLib_TLB.exRight;
		Alignment := EXPLORERBARLib_TLB.exRight;
	end;
end
107:
How can I align the group's name

with ExplorerBar1 do
begin
	Groups.Add('Group 1').Alignment := EXPLORERBARLib_TLB.exRight;
end
106:
How can I align the group's name

with ExplorerBar1 do
begin
	Groups.Add('Group 1').Alignment := EXPLORERBARLib_TLB.exLeft;
end
105:
How can I assign some extra data to a group

with ExplorerBar1 do
begin
	Groups.Add('Group 1').UserData := 'your data';
end
104:
How can I display an icon in the group's caption

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

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

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null);
		AddItem('Item 3',Null).Position := 0;
		ItemByPos[1].Bold := True;
		Expanded := True;
	end;
end
101:
How can I change the position of a group

with ExplorerBar1 do
begin
	Groups.Add('Group 1');
	Groups.Add('Group 2');
	Groups.Add('Group 3').Position := 0;
end
100:
How can I change the group's caption

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null);
		AddItem('Item 3',Null);
		Caption := 'new caption';
		Expanded := True;
	end;
end
99:
How can I get the number or count of items in a group

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null);
		AddItem('Item 3',Null);
		AddItem(Count,Null);
		Expanded := True;
	end;
end
98:
How can I access an item in a group

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null);
		AddItem('Item 3',Null);
		Item[OleVariant(1)].Bold := True;
		Expanded := True;
	end;
end
97:
How can I remove all items, from a group
with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null);
		AddItem('Item 3',Null);
		Clear();
		Expanded := True;
	end;
end
96:
How can I remove an item, from a group

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null);
		AddItem('Item 3',Null);
		RemoveItem(OleVariant(1));
		Expanded := True;
	end;
end
95:
How can I add a new item to a group

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',OleVariant(1));
		Expanded := True;
	end;
end
94:
How can I add a new item to a group

with ExplorerBar1 do
begin
	Groups.Add('Group 1').AddItem('Item 1',Null);
end
93:
How can I add a new item to a group

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		Expanded := True;
	end;
end
92:
How can I get the groups as they are listed
with ExplorerBar1 do
begin
	with Groups do
	begin
		Add('Group 1');
		Add('Group 2');
		Add('Group 3');
	end;
end
91:
How can I access a group by position

with ExplorerBar1 do
begin
	with Groups do
	begin
		Add('Group 1');
		Add('Group 2');
		Add('Group 3');
		ItemByPos[1].Bold := True;
	end;
end
90:
How can I access a group

with ExplorerBar1 do
begin
	with Groups do
	begin
		Add('Group 1');
		Add('Group 2');
		Add('Group 3');
		Item[OleVariant(1)].Bold := True;
	end;
end
89:
How can I clear the groups collection
with ExplorerBar1 do
begin
	with Groups do
	begin
		Add('Group 1');
		Add('Group 2');
		Add('Group 3');
		Clear();
	end;
end
88:
How can I remove a group

with ExplorerBar1 do
begin
	with Groups do
	begin
		Add('Group 1');
		Add('Group 2');
		Add('Group 3');
		Remove(OleVariant(1));
	end;
end
87:
How can I add a group

with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		AddItem('Item 2',Null);
		Expanded := True;
	end;
end
86:
How do I count the number of groups
with ExplorerBar1 do
begin
	with Groups do
	begin
		Add('Group 1');
		Add('Group 2');
		Add('Group 3');
		Add(Count);
	end;
end
85:
How can I display pictures with a custom size, instead icons, in the shortcut bar

with ExplorerBar1 do
begin
	ShowShortcutBar := True;
	Groups.Add('Group 1').Shortcut := 'Set 1';
	Groups.Add('Group 2').Shortcut := 'Set 1';
	Groups.Add('Group 3').Shortcut := 'Set 2';
	Groups.Add('Group 4').Shortcut := 'Set 2';
	ShortcutPicture['Set 1'] := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	ShortcutPicture['Set 2'] := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\auction.gif`)');
	ShortcutPictureWidth := 32;
	ShortcutPictureHeight := 32;
	ShortcutBarHeight := 32;
end
84:
How can I display pictures instead icons, in the shortcut bar

with ExplorerBar1 do
begin
	ShowShortcutBar := True;
	Groups.Add('Group 1').Shortcut := 'Set 1';
	Groups.Add('Group 2').Shortcut := 'Set 1';
	Groups.Add('Group 3').Shortcut := 'Set 2';
	Groups.Add('Group 4').Shortcut := 'Set 2';
	ShortcutPicture['Set 1'] := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	ShortcutPicture['Set 2'] := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\auction.gif`)');
	ShortcutBarHeight := 44;
end
83:
How can I change the visual appearance of the shortcut bar, using EBN files

with ExplorerBar1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn');
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ShowShortcutBar := True;
	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>';
	ShortcutResizeBackColor := $2000000;
	ShortcutBarSelCaptionBackColor := $1000000;
	ShortcutBarSelBackColor := $1000000;
	BackColorGroup := $1000000;
end
82:
How can I change the visual appearance of the separator between groups and the shortcut bar, using your EBN files

with ExplorerBar1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ShowShortcutBar := True;
	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>';
	ShortcutResizeBackColor := $1000000;
	ExpandShortcutCount := 1;
end
81:
How do I change the background color of the separator between groups and the shortcut bar

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ShowShortcutBar := True;
	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>';
	ShortcutResizeBackColor := RGB(255,0,0);
	ExpandShortcutCount := 1;
end
80:
How can I change the visual appearance of the shortcut bar, using your EBN files

with ExplorerBar1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ShowShortcutBar := True;
	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>';
	ShortcutBarSelCaptionBackColor := $1000000;
	ExpandShortcutCount := 1;
end
79:
How do I change the selection background color in the shortcut bar

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ShowShortcutBar := True;
	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>';
	ShortcutBarSelCaptionBackColor := RGB(255,0,0);
	ExpandShortcutCount := 1;
end
78:
How can I change the visual appearance of the shortcut bar, using your EBN files

with ExplorerBar1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ShowShortcutBar := True;
	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>';
	ShortcutBarSelBackColor := $1000000;
end
77:
How do I change the selection background color in the shortcut bar

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ShowShortcutBar := True;
	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>';
	ShortcutBarSelBackColor := RGB(255,0,0);
end
76:
How can I change the visual appearance of the shortcut bar, using your EBN files

with ExplorerBar1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ShowShortcutBar := True;
	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>';
	ShortcutBarBackColor := $1000000;
end
75:
How do I change the background color in the shortcut bar

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ShowShortcutBar := True;
	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>';
	ShortcutBarBackColor := RGB(255,0,0);
end
74:
How can I programmatically change expand or collapse the shortcut bar

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ShowShortcutBar := True;
	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>';
	ExpandShortcutCount := 1;
end
73:
How do I change the icon for the expanding or collapsing the shortcut bar

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ShowShortcutBar := True;
	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>';
	ExpandShortcutImage := 3;
end
72:
How can I enable or disable resizing the shortcut bar

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ShowShortcutBar := True;
	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>';
	ExpandShortcutCount := 1;
	AllowResizeShortcutBar := False;
end
71:
How do I specify the height of the shortcut bar

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ShowShortcutBar := True;
	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>';
	ExpandShortcutCount := 1;
	ShortcutBarHeight := 16;
end
70:
How do I select a shortcut

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ShowShortcutBar := True;
	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>';
	ExpandShortcutCount := 1;
	SelectShortcut := 'Set <img>2</img>';
end
69:
How do I show or hide the shortcut bar

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ShowShortcutBar := True;
	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>';
	ExpandShortcutCount := 1;
end
68:
How do I access the groups collection
with ExplorerBar1 do
begin
	Groups.Add('Group 1');
end
67:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

with ExplorerBar1 do
begin
	FormatAnchor[False] := '<b><u><fgcolor=FF0000> </fgcolor></u></b>';
	HighlightItemType := EXPLORERBARLib_TLB.exNoHighlight;
	HandCursor := False;
	Groups.Add('Group <a1><b>1</b></a>').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
end
66:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

with ExplorerBar1 do
begin
	FormatAnchor[False] := '<b><u><fgcolor=FF0000> </fgcolor></u></b>';
	HighlightItemType := EXPLORERBARLib_TLB.exNoHighlight;
	HandCursor := False;
	with Groups.Add('Group 1') do
	begin
		AddItem('Item <a1><b>1</b></a>',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
		Expanded := True;
	end;
end
65:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

with ExplorerBar1 do
begin
	HighlightItemType := EXPLORERBARLib_TLB.exNoHighlight;
	HandCursor := False;
	FormatAnchor[True] := '<b><u><fgcolor=FF0000> </fgcolor></u></b>';
	Groups.Add('Group <a1><b>1</b></a>').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
end
64:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

with ExplorerBar1 do
begin
	HighlightItemType := EXPLORERBARLib_TLB.exNoHighlight;
	HandCursor := False;
	FormatAnchor[True] := '<b><u><fgcolor=FF0000> </fgcolor></u></b>';
	with Groups.Add('Group 1') do
	begin
		AddItem('Item <a1><b>1</b></a>',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
		Expanded := True;
	end;
end
63:
How can I add several pictures and icons to an item

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
	HTMLPicture['pic2'] := 'c:\exontrol\images\auction.gif';
	with Groups.Add('Group 1') do
	begin
		ItemHeight := 48;
		with AddItem('<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>',Null) do
		begin
			Image := OleVariant(2);
			CaptionFormat := EXPLORERBARLib_TLB.exHTML;
		end;
		Expanded := True;
	end;
end
62:
How can I add several pictures and icons to an item
with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
	HTMLPicture['pic2'] := 'c:\exontrol\images\auction.gif';
	with Groups.Add('Group 1') do
	begin
		ItemHeight := 48;
		with AddItem('<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>',Null) do
		begin
			Image := OleVariant(2);
			CaptionFormat := EXPLORERBARLib_TLB.exHTML;
		end;
		Expanded := True;
	end;
end
61:
How can I add several pictures to an item

with ExplorerBar1 do
begin
	HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
	HTMLPicture['pic2'] := 'c:\exontrol\images\auction.gif';
	with Groups.Add('Group 1') do
	begin
		ItemHeight := 48;
		AddItem('<img>pic1</img> text <img>pic2</img>',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
		Expanded := True;
	end;
end
60:
How can I add several pictures to a group

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
	HTMLPicture['pic2'] := 'c:\exontrol\images\auction.gif';
	GroupHeight := 48;
	with Groups.Add('<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>') do
	begin
		Image := OleVariant(2);
		CaptionFormat := EXPLORERBARLib_TLB.exHTML;
		Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\colorize.gif`)');
		AddItem('Item 1',Null);
		AddItem('Item 2',Null);
		Expanded := True;
	end;
end
59:
How can I add several pictures and icons to a group

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
	HTMLPicture['pic2'] := 'c:\exontrol\images\auction.gif';
	GroupHeight := 48;
	Groups.Add('<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
end
58:
How can I add several pictures to a group

with ExplorerBar1 do
begin
	HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
	HTMLPicture['pic2'] := 'c:\exontrol\images\auction.gif';
	GroupHeight := 48;
	with Groups.Add('<img>pic1</img> text <img>pic2</img>') do
	begin
		CaptionFormat := EXPLORERBARLib_TLB.exHTML;
		Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\colorize.gif`)');
		AddItem('Item 1',Null);
		AddItem('Item 2',Null);
		Expanded := True;
	end;
end
57:
How can I add several pictures to a group

with ExplorerBar1 do
begin
	HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
	HTMLPicture['pic2'] := 'c:\exontrol\images\auction.gif';
	GroupHeight := 48;
	Groups.Add('<img>pic1</img> text <img>pic2</img>').CaptionFormat := EXPLORERBARLib_TLB.exHTML;
end
56:
How do I force refreshing the control
with ExplorerBar1 do
begin
	with Groups.Add('Group 1') do
	begin
		Expanded := True;
		AddItem('Item 1',Null);
	end;
	Refresh();
end
55:
How can show or hide the focus rectangle

with ExplorerBar1 do
begin
	ShowFocusRect := False;
	with Groups.Add('Group 1') do
	begin
		Expanded := True;
		AddItem('Item 1',Null);
	end;
end
54:
I've seen that the width of the tooltip is variable. Can I make it larger

with ExplorerBar1 do
begin
	ToolTipWidth := 328;
	Groups.Add('ToolTip').ToolTip := '<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group.';
end
53:
How do I let the tooltip being displayed longer

with ExplorerBar1 do
begin
	ToolTipPopDelay := 10000;
	Groups.Add('ToolTip').ToolTip := '<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group.';
end
52:
Can I change the default border of the tooltip, using your EBN files

with ExplorerBar1 do
begin
	ToolTipDelay := 1;
	ToolTipWidth := 364;
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Background[EXPLORERBARLib_TLB.exToolTipAppearance] := $1000000;
	Groups.Add('ToolTip').ToolTip := '<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group.';
end
51:
Can I change the background color for the tooltip

with ExplorerBar1 do
begin
	ToolTipDelay := 1;
	ToolTipWidth := 364;
	Background[EXPLORERBARLib_TLB.exToolTipBackColor] := $ff;
	Groups.Add('ToolTip').ToolTip := '<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group.';
end
50:
Does the tooltip support HTML format

with ExplorerBar1 do
begin
	ToolTipDelay := 1;
	ToolTipWidth := 364;
	Groups.Add('ToolTip').ToolTip := '<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>group</fgcolor>';
end
49:
Can I change the forecolor for the tooltip

with ExplorerBar1 do
begin
	ToolTipDelay := 1;
	ToolTipWidth := 364;
	Background[EXPLORERBARLib_TLB.exToolTipForeColor] := $ff;
	Groups.Add('ToolTip').ToolTip := 'This is a bit of text that''s shown when the cursor hovers the group.';
end
48:
Can I change the foreground color for the tooltip

with ExplorerBar1 do
begin
	ToolTipDelay := 1;
	ToolTipWidth := 364;
	Groups.Add('ToolTip').ToolTip := '<fgcolor=FF0000>This is a bit of text that''s shown when the cursor hovers the group.</fgcolor>';
end
47:
Can I change the font for the tooltip

with ExplorerBar1 do
begin
	ToolTipDelay := 1;
	ToolTipWidth := 364;
	Groups.Add('ToolTip').ToolTip := '<font Tahoma>This is a bit of text that''s shown when the cursor hovers the group.</font> Back to the normal font';
end
46:
Can I change the font for the tooltip

with ExplorerBar1 do
begin
	ToolTipDelay := 1;
	with ToolTipFont do
	begin
		Name := 'Tahoma';
		Size := 14;
	end;
	ToolTipWidth := 364;
	Groups.Add('ToolTip').ToolTip := 'This is a bit of text that''s shown when the cursor hovers the group.';
end
45:
How do I disable showing the tooltip for all control
with ExplorerBar1 do
begin
	ToolTipDelay := 0;
	Groups.Add('ToolTip').ToolTip := 'This is a bit of text that''s shown when the cursor hovers the group.';
end
44:
How do I show the tooltip quicker
with ExplorerBar1 do
begin
	ToolTipDelay := 1;
	Groups.Add('ToolTip').ToolTip := 'This is a bit of text that''s shown when the cursor hovers the group.';
end
43:
How do I call your x-script language

with ExplorerBar1 do
begin
	with (IUnknown(ExecuteTemplate('Groups.Add(`Group 1`)')) as EXPLORERBARLib_TLB.Group) do
	begin
		AddItem('Item 1',Null);
		Expanded := True;
	end;
end
42:
How do I call your x-script language

with ExplorerBar1 do
begin
	Template := 'BackColor = RGB(255,0,0)';
end
41:
How can I hide a tooltip when the item exceeds its area, so ... are displayed
with ExplorerBar1 do
begin
	AllowTooltip := False;
	with Groups.Add('Group 1') do
	begin
		Expanded := True;
		AddItem('This isa very long text that should break the control in several pieces',Null);
	end;
end
40:
How can I show a tooltip when the item exceeds its area, so ... are displayed

with ExplorerBar1 do
begin
	AllowTooltip := True;
	with Groups.Add('Group 1') do
	begin
		Expanded := True;
		AddItem('This isa very long text that should break the control in several pieces',Null);
	end;
end
39:
How do I specify the distance between two groups

with ExplorerBar1 do
begin
	BorderGroupHeight := 0;
	Groups.Add('Group 1');
	Groups.Add('Group 2').AddItem('Item 2',Null);
end
38:
How can I change the expand / collapse buttons

with ExplorerBar1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ExpandIcon[True] := 1;
	ExpandIcon[False] := 2;
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		Expanded := True;
	end;
	Groups.Add('Group 2').AddItem('Item 2',Null);
	EndUpdate();
end
37:
How do I enable or disable the control
with ExplorerBar1 do
begin
	Enabled := False;
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null).Image := OleVariant(1);
		Expanded := True;
	end;
	Groups.Add('Group 2').AddItem('Item 2',Null);
end
36:
How do I hide the icons in the right side of the group, the expand / collapse buttons

with ExplorerBar1 do
begin
	BeginUpdate();
	DisplayExpandIcon := False;
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null).Image := OleVariant(1);
		Expanded := True;
	end;
	Groups.Add('Group 2').AddItem('Item 2',Null);
	EndUpdate();
end
35:
Is there any option to stop using the hand shape cursor, when the cursor hovers an item
with ExplorerBar1 do
begin
	BeginUpdate();
	HandCursor := False;
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	HighlightItemType := EXPLORERBARLib_TLB.exNoHighlight;
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null).Image := OleVariant(1);
		Expanded := True;
	end;
	Groups.Add('Group 2').AddItem('Item 2',Null);
	EndUpdate();
end
34:
How do I specify the color to highlight the item
with ExplorerBar1 do
begin
	BeginUpdate();
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	HyperLinkColor := RGB(255,0,0);
	HighlightItemType := EXPLORERBARLib_TLB.exHyperLink;
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null).Image := OleVariant(1);
		Expanded := True;
	end;
	Groups.Add('Group 2').AddItem('Item 2',Null);
	EndUpdate();
end
33:
How can I expand or collapse a group when I click only its right icon
with ExplorerBar1 do
begin
	BeginUpdate();
	ExpandOnClick := False;
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	HighlightItemType := EXPLORERBARLib_TLB.exHyperLink;
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null).Image := OleVariant(1);
		Expanded := True;
	end;
	Groups.Add('Group 2').AddItem('Item 2',Null);
	EndUpdate();
end
32:
How do I remove the control's borders
with ExplorerBar1 do
begin
	BeginUpdate();
	Appearance := EXPLORERBARLib_TLB.exNone;
	BorderWidth := 0;
	BorderHeight := 0;
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	HighlightItemType := EXPLORERBARLib_TLB.exHyperLink;
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null).Image := OleVariant(1);
		Expanded := True;
	end;
	Groups.Add('Group 2').AddItem('Item 2',Null);
	EndUpdate();
end
31:
How do I specify width or the height of the control's borders
with ExplorerBar1 do
begin
	BeginUpdate();
	Appearance := EXPLORERBARLib_TLB.exNone;
	BorderWidth := 0;
	BorderHeight := 0;
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	HighlightItemType := EXPLORERBARLib_TLB.exHyperLink;
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null).Image := OleVariant(1);
		Expanded := True;
	end;
	Groups.Add('Group 2').AddItem('Item 2',Null);
	EndUpdate();
end
28:
How do I specify to highlight the items in the group, when the cursor hovers the item
with ExplorerBar1 do
begin
	BeginUpdate();
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	HighlightItemType := EXPLORERBARLib_TLB.exHyperLink;
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null).Image := OleVariant(1);
		Expanded := True;
	end;
	Groups.Add('Group 2').AddItem('Item 2',Null);
	EndUpdate();
end
27:
How do I specify to highlight the items in the group, when the cursor hovers the item
with ExplorerBar1 do
begin
	BeginUpdate();
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	HighlightItemType := EXPLORERBARLib_TLB.exUnion;
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null).Image := OleVariant(1);
		Expanded := True;
	end;
	Groups.Add('Group 2').AddItem('Item 2',Null);
	EndUpdate();
end
26:
How do I specify to highlight the items in the group, when the cursor hovers the item
with ExplorerBar1 do
begin
	BeginUpdate();
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	HighlightItemType := EXPLORERBARLib_TLB.exIcon;
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null).Image := OleVariant(1);
		Expanded := True;
	end;
	Groups.Add('Group 2').AddItem('Item 2',Null);
	EndUpdate();
end
25:
How do I specify to highlight the items in the group, when the cursor hovers the item
with ExplorerBar1 do
begin
	BeginUpdate();
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	HighlightItemType := EXPLORERBARLib_TLB.exCaption;
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null).Image := OleVariant(1);
		Expanded := True;
	end;
	Groups.Add('Group 2').AddItem('Item 2',Null);
	EndUpdate();
end
24:
How do I specify the way the control highlight the items in the group
with ExplorerBar1 do
begin
	BeginUpdate();
	HighlightItemType := EXPLORERBARLib_TLB.exNoHighlight;
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		Expanded := True;
	end;
	Groups.Add('Group 2').AddItem('Item 2',Null);
	EndUpdate();
end
23:
Is there any function to avoid painting the control while adding multiple items and groups
with ExplorerBar1 do
begin
	BeginUpdate();
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		Expanded := True;
	end;
	Groups.Add('Group 2').AddItem('Item 2',Null);
	EndUpdate();
end
22:
How do I decrease the delay to scroll a group
with ExplorerBar1 do
begin
	DelayScroll := 0;
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		Expanded := True;
	end;
	with Groups.Add('Group 2') do
	begin
		AddItem('Item 2',Null);
		Expanded := True;
	end;
end
21:
How do I display icons

with ExplorerBar1 do
begin
	SmallIcons := True;
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	Groups.Add('Group 1').Image := OleVariant(1);
end
20:
How do I display 32x32 icons

with ExplorerBar1 do
begin
	SmallIcons := False;
	GroupHeight := 36;
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	Groups.Add('Group 1').Image := OleVariant(1);
end
19:
How do I specify the height of the groups

with ExplorerBar1 do
begin
	GroupHeight := 40;
	Groups.Add('Group 1');
	Groups.Add('Group 2');
end
18:
How do I change the visual appearance of the groups
with ExplorerBar1 do
begin
	GroupAppearance := EXPLORERBARLib_TLB.exSingle;
	Groups.Add('Group 1');
	Groups.Add('Group 2');
end
17:
How do I change the visual appearance of the groups, using your EBN files

with ExplorerBar1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	BackColorGroup := $1000000;
	Groups.Add('Group 1');
	Groups.Add('Group 2');
end
16:
How do I change the background color for the groups
with ExplorerBar1 do
begin
	BackColorGroup := RGB(255,0,0);
	BackColorGroup2 := RGB(255,0,0);
	Groups.Add('Group 1');
end
15:
How do I change the background color for the groups

with ExplorerBar1 do
begin
	BackColorGroup := RGB(255,0,0);
	Groups.Add('Group 1');
end
14:
How do I change the control's foreground color

with ExplorerBar1 do
begin
	ForeColor := RGB(0,0,255);
	ForeColorGroup := RGB(255,0,0);
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		Expanded := True;
	end;
	Groups.Add('Group 2');
end
13:
How can I change the control's font

with ExplorerBar1 do
begin
	Font.Name := 'Tahoma';
	Groups.Add('Group 1');
end
12:
How do I change the control's foreground color

with ExplorerBar1 do
begin
	ForeColor := RGB(255,0,0);
	with Groups.Add('Group 1') do
	begin
		AddItem('Item 1',Null);
		Expanded := True;
	end;
end
11:
How do I change the control's background color

with ExplorerBar1 do
begin
	BackColor := RGB(200,200,200);
end
10:
How do I change the control's border, using your EBN files

with ExplorerBar1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Appearance := EXPLORERBARLib_TLB.AppearanceEnum($1000000);
end
9:
How do I remove the control's border
with ExplorerBar1 do
begin
	Appearance := EXPLORERBARLib_TLB.exNone;
end
8:
How do I put a picture on the center of the control
with ExplorerBar1 do
begin
	Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXPLORERBARLib_TLB.MiddleCenter;
end
7:
How do I resize/stretch a picture on the control's background
with ExplorerBar1 do
begin
	Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXPLORERBARLib_TLB.Stretch;
end
6:
How do I put a picture on the control's center right bottom side

with ExplorerBar1 do
begin
	Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXPLORERBARLib_TLB.LowerRight;
end
5:
How do I put a picture on the control's center left bottom side
with ExplorerBar1 do
begin
	Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXPLORERBARLib_TLB.LowerLeft;
end
4:
How do I put a picture on the control's center top side
with ExplorerBar1 do
begin
	Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXPLORERBARLib_TLB.UpperCenter;
end
3:
How do I put a picture on the control's right top corner
with ExplorerBar1 do
begin
	Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXPLORERBARLib_TLB.UpperRight;
end
2:
How do I put a picture on the control's left top corner
with ExplorerBar1 do
begin
	Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXPLORERBARLib_TLB.UpperLeft;
end
1:
How do I put a picture on the control's background
with ExplorerBar1 do
begin
	Picture := ExplorerBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
end