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.
procedure TForm1.ExplorerBar1Click(ASender: TObject; );
begin
	with ExplorerBar1 do
	begin
		OutputDebugString( ItemFromPoint[-1,-1] );
	end
end;

with ExplorerBar1 do
begin
	HighlightItemType := Integer(EXPLORERBARLib_TLB.exFull) Or Integer(EXPLORERBARLib_TLB.exUnion);
	with Groups.Add('Group 1') do
	begin
		AddItem('Item <b>1</b>',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
		AddItem('Item <b>2</b>',Null).CaptionFormat := EXPLORERBARLib_TLB.exHTML;
		Expanded := True;
	end;
end
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