13:
Can I display items one below to other

with ToolBarCRD1 do
begin
	Format := '(1/2):64,(3/4):64';
	Item[OleVariant(1)].Caption := 'Item <off 4><b>A';
	Item[OleVariant(2)].Caption := 'Item <off 4><b>B';
	Item[OleVariant(3)].Caption := 'Item <off 4><b>C';
	Item[OleVariant(4)].Caption := 'Item <off 4><b>D';
end
12:
How can I add a separator item

with ToolBarCRD1 do
begin
	Format := '1,2,-1,3,4';
end
11:
Is it possible to disable an item

with ToolBarCRD1 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=');
	BackColor := RGB(255,255,255);
	Format := '1,2,3';
	Item[OleVariant(1)].Caption := '<img>1</img>';
	Item[OleVariant(2)].Caption := '<img>2</img>';
	with Item[OleVariant(3)] do
	begin
		Caption := '<img>3</img>Disabled';
		Enabled := False;
	end;
end
10:
Is it possible to change the item's caption/image when user hovers the cursor

// MouseIn event - Occurs when the mouse enters the part.
procedure TForm1.ToolBarCRD1MouseIn(ASender: TObject; ID : OleVariant);
begin
	with ToolBarCRD1 do
	begin
		Item[OleVariant(ID)].Caption := 'hover';
	end
end;

// MouseOut event - Occurs when the mouse exists the part.
procedure TForm1.ToolBarCRD1MouseOut(ASender: TObject; ID : OleVariant);
begin
	with ToolBarCRD1 do
	begin
		Item[OleVariant(ID)].Caption := ID;
	end
end;

with ToolBarCRD1 do
begin
	Format := '1,2,3,4';
end
9:
Does your control support tooltip for items

with ToolBarCRD1 do
begin
	Format := '(1/2),3';
	with Item[OleVariant(1)] do
	begin
		Caption := 'Item <b>1';
		ToolTip := 'This is a bit of text that''s shown when cursor hovers the item';
	end;
	Item[OleVariant(2)].Caption := 'Item <b>2';
	Item[OleVariant(3)].Caption := 'Item <b>3';
end
8:
Is it possible to add an anchor element, similar to a link into a webpage

// AnchorClick event - Occurs when an anchor element is clicked.
procedure TForm1.ToolBarCRD1AnchorClick(ASender: TObject; AnchorID : WideString;Options : WideString);
begin
	with ToolBarCRD1 do
	begin
		OutputDebugString( AnchorID );
	end
end;

with ToolBarCRD1 do
begin
	BackColor := RGB(255,255,255);
	Format := '"<a a1>link</a>":32,1,2,3';
end
7:
How can I change the background of the hovering item

with ToolBarCRD1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Background[EXTOOLBARCRDLib_TLB.exToolBarButtonHotBackColor] := $1000000;
	Format := '1,2,3,4';
end
6:
Can I display an item aligned to the right

with ToolBarCRD1 do
begin
	Format := '1,2,|,3:64';
	Item[OleVariant(3)].Caption := '< <b>right</b> >';
end
5:
Can I display pictures in the toolbar

with ToolBarCRD1 do
begin
	HTMLPicture['pic1'] := 'c:\exontrol\images\card.png';
	HTMLPicture['pic2'] := 'c:\exontrol\images\diary.png';
	Format := '1,2,3';
	Item[OleVariant(1)].Caption := '<img>pic1:48</img>';
	Item[OleVariant(2)].Caption := '<img>pic2:30</img>';
	Item[OleVariant(3)].Caption := '<img>pic1:24</img> Picture';
end
4:
Can I display icons in the toolbar

with ToolBarCRD1 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=');
	BackColor := RGB(255,255,255);
	Format := '1,2,3';
	Item[OleVariant(1)].Caption := '<img>1</img>';
	Item[OleVariant(2)].Caption := '<img>2</img>';
	Item[OleVariant(3)].Caption := '<img>3</img>Icon';
end
3:
How can I get ride of the top-bottom lines

with ToolBarCRD1 do
begin
	Appearance := EXTOOLBARCRDLib_TLB.Etched;
	BackColor := RGB(255,255,255);
	Format := '1,-1,2';
	Item[OleVariant(1)].Caption := 'Exit';
	Item[OleVariant(2)].Caption := 'Item <b>A\r\nItem <b>A#1\r\nItem <b>B#2\r\nItem <b>C#3';
end
2:
How can I display a drop-down panel

// Select event - Notifies once the user clicks the item.
procedure TForm1.ToolBarCRD1Select(ASender: TObject; ID : OleVariant;SelectedID : OleVariant);
begin
	with ToolBarCRD1 do
	begin
		OutputDebugString( 'Select' );
		OutputDebugString( SelectedID );
	end
end;

with ToolBarCRD1 do
begin
	Format := '1,-1,2';
	Item[OleVariant(1)].Caption := 'Exit';
	Item[OleVariant(2)].Caption := 'Item <b>A\r\nItem <b>A#1\r\nItem <b>B#2\r\nItem <b>C#3';
end
1:
How can I add / display items with the toolbar

// Select event - Notifies once the user clicks the item.
procedure TForm1.ToolBarCRD1Select(ASender: TObject; ID : OleVariant;SelectedID : OleVariant);
begin
	with ToolBarCRD1 do
	begin
		OutputDebugString( 'Select' );
		OutputDebugString( Item[OleVariant(ID)].Caption );
	end
end;

with ToolBarCRD1 do
begin
	Format := '1,-1,2,3';
	Item[OleVariant(1)].Caption := 'Exit';
	Item[OleVariant(2)].Caption := 'Item <b>A';
	Item[OleVariant(3)].Caption := 'Item <b>B';
end