101:
How can I use the BackgroundExt property

with AxStatusBar1 do
begin
	BeginUpdate();
	Format := '1,2,3';
	with get_Panel(TObject(1)) do
	begin
		Text := 'Panel 1';
		BackgroundExt := 'bottom[10,pattern=6,back=RGB(255,0,0),text=`<font ;6><img>alert</img><b>Alert!`,align=0x11]';
	end;
	with get_Panel(TObject(2)) do
	begin
		Text := 'Panel 2';
		BackgroundExt := 'bottom[20,back=RGB(128,0,0),text=`<fgcolor FFFFFF><img>alert</img><b>Alert!`,align=0x11]';
	end;
	with get_Panel(TObject(3)) do
	begin
		Text := 'Panel 3';
		BackgroundExt := 'bottom[30,back=RGB(64,0,0),text=`<font ;12><fgcolor FFFFFF><img>alert</img><b>Alert!`,align=0x11]';
	end;
	EndUpdate();
end
100:
How do I access the properties and the methods of an inner ActiveX control to a panel

with AxStatusBar1 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=');
	with VisualAppearance do
	begin
		Add(4,'c:\exontrol\images\border.ebn');
		Add(5,'CP:4 1 1 -1 -1');
	end;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2,(24;5/6)';
	with get_Panel(TObject(1)) do
	begin
		ControlID := 'MSCAL.Calendar';
		with (Object as MSACAL.Calendar) do
		begin
			MonthLength := 0;
			BackColor := $ffffff;
		end;
	end;
	with get_Panel(TObject(5)) do
	begin
		Text := '<fgcolor=FFFFFF><img>1</img>75%</fgcolor>';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft;
		Percent := 75;
		Transparency := 35;
		Offset := '4 2 -4 -2';
	end;
	EndUpdate();
end
99:
How do I insert an ActiveX control to a panel

with AxStatusBar1 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=');
	with VisualAppearance do
	begin
		Add(4,'c:\exontrol\images\border.ebn');
		Add(5,'CP:4 1 1 -1 -1');
	end;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2,(24;5/6)';
	get_Panel(TObject(1)).ControlID := 'MSChart20Lib.MSChart';
	get_Panel(TObject(2)).ControlID := 'MSCAL.Calendar';
	with get_Panel(TObject(5)) do
	begin
		Text := '<fgcolor=FFFFFF><img>1</img>75%</fgcolor>';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft;
		Percent := 75;
		Transparency := 35;
		Offset := '4 2 -4 -2';
	end;
	EndUpdate();
end
98:
How can I show the percent value over the progress bar using a semi-transparent color

with AxStatusBar1 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=');
	with VisualAppearance do
	begin
		Add(4,'c:\exontrol\images\border.ebn');
		Add(5,'CP:4 1 1 -1 -1');
	end;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2,(24;5/6)';
	with get_Panel(TObject(5)) do
	begin
		Text := '<fgcolor=FFFFFF><img>1</img>75%</fgcolor>';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft;
		Percent := 75;
		Transparency := 35;
		Offset := '4 2 -4 -2';
	end;
	EndUpdate();
end
97:
How can I control the padding of the percent/progressbar control

with AxStatusBar1 do
begin
	BeginUpdate();
	with VisualAppearance do
	begin
		Add(4,'c:\exontrol\images\border.ebn');
		Add(5,'CP:4 1 1 -1 -1');
	end;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2,(24;5/6)';
	with get_Panel(TObject(5)) do
	begin
		Text := '15%';
		Percent := 15;
		OffsetPercent := '6 6 -6 -6';
	end;
	EndUpdate();
end
96:
Can I change the visual appearance of the percent or a progress-bar inside the panel

with AxStatusBar1 do
begin
	BeginUpdate();
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\normal.ebn');
		Add(4,'c:\exontrol\images\border.ebn');
		Add(5,'CP:4 1 1 -1 -1');
	end;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2,(24;5/6)';
	with get_Panel(TObject(5)) do
	begin
		BackColor := $ffffff;
		Text := '15%';
		Percent := 15;
		BackColorPercent := $1000000;
	end;
	EndUpdate();
end
95:
Can I change the visual appearance of the percent or a progress-bar inside the panel

with AxStatusBar1 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=');
	with VisualAppearance do
	begin
		Add(1,'gBFLBCJwBAEHhEJAEGg8GhiAADACAxRDAMgBQKAAzQFAYbhrBaERhGIYYJhUAIIRZGMIjFDcEwxDSMQJjaCRQh+JYkR6MQCSBJkMw5AaXYrlWJoMjKA4nTbKMjRfKcWR' + 
	'jGKeJ5kOaZIhuJgCUJLM70HRMExqGQaRJpeoZVDUMJSQjVVYUbDVFwHIKkZzoWhJQiKXIuRzXdKzLYVSABA6xbLiWrpWqebQAThbdD3FC1aTBISpaztepKZpeVaGXxcd' + 
	'o3LTlbzzOC3MRva7MOjqJJIYjMGJ3fLuA49QrBKymWJcYwyGgIQiBdKaK7+WgBVp/YqjeL9IgMUBpGKdBynlzGHzeQiQRK8BDIbQSFCEdpADSrKBiFioZjXGwbBaXJ4u' + 
	'jOdY2D2Do3FeOZbmmdx6HAECAg==');
		Add(4,'c:\exontrol\images\border.ebn');
		Add(5,'CP:4 1 1 -1 -1');
	end;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2,(24;5/6)';
	with get_Panel(TObject(5)) do
	begin
		Text := '<fgcolor=FFFFFF><img>1</img>75%</fgcolor>';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft;
		Percent := 75;
		Transparency := 35;
		Offset := '4 2 -4 -2';
		BackColorPercent := $1000000;
	end;
	EndUpdate();
end
94:
How can I change the color of the percent or a progress-bar inside the panel

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2,(24;5/6)';
	with get_Panel(TObject(5)) do
	begin
		Text := '15%';
		Percent := 15;
		BackColorPercent := $ff;
	end;
	EndUpdate();
end
93:
How can I display a percent or a progress-bar inside the panel

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2,(24;5/6)';
	with get_Panel(TObject(5)) do
	begin
		Text := '15%';
		Percent := 15;
	end;
	EndUpdate();
end
92:
Is there any property to get the width/height of the panel

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2,(5/6)';
	with get_Panel(TObject(5)) do
	begin
		Text := Width;
	end;
	with get_Panel(TObject(6)) do
	begin
		Text := Height;
	end;
	EndUpdate();
end
91:
How can I disable a panel

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2,(5/6)';
	with get_Panel(TObject(5)) do
	begin
		Text := 'Disabled';
		Enabled := False;
	end;
	EndUpdate();
end
90:
How can I assign an extra data to my panel

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2,(5/6/7/8)';
	with get_Panel(TObject(5)) do
	begin
		Text := 'UserData';
		UserData := 'this is just some extra data associated to the panel';
		ToolTipText := UserData;
	end;
	EndUpdate();
end
89:
Is there any option to draw myself the panel

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2,(5/6/7/8)';
	with get_Panel(TObject(5)) do
	begin
		Text := 'OwnerDraw';
		OwnerDraw := True;
	end;
	Debug := True;
	EndUpdate();
end
88:
How can I assign a tooltip to a panel

with AxStatusBar1 do
begin
	BeginUpdate();
	ToolTipDelay := 1;
	ToolTipWidth := 364;
	Format := '1/2/3';
	with get_Panel(TObject(1)) do
	begin
		Text := 'This is a bit of text that should occurs when the cursor hovers the panel';
		ToolTipText := Text;
		ToolTipTitle := 'Title';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft;
	end;
	with get_Panel(TObject(2)) do
	begin
		Text := 'This is a bit of text that should occurs when the cursor hovers the panel';
		ToolTipText := Text;
		ToolTipTitle := 'Title';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft;
	end;
	with get_Panel(TObject(3)) do
	begin
		Text := 'This is a bit of text that should occurs when the cursor hovers the panel';
		ToolTipText := Text;
		ToolTipTitle := 'Title';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft;
	end;
	EndUpdate();
end
87:
How can I assign an icon/image to a panel

with AxStatusBar1 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=');
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1,2,3,4,(5/6/7/8)';
	get_Panel(TObject(1)).Image := 1;
	get_Panel(TObject(6)).Image := 2;
	get_Panel(TObject(8)).Image := 3;
	EndUpdate();
end
86:
How can I get the index of the panel

with AxStatusBar1 do
begin
	BeginUpdate();
	Appearance := EXSTATUSBARLib.AppearanceEnum.None2;
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
85:
How can I get the index of the panel

with AxStatusBar1 do
begin
	BeginUpdate();
	Appearance := EXSTATUSBARLib.AppearanceEnum.None2;
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1,2,3,4,(5/6/7/8)';
	get_Panel(TObject(1)).Text := AxStatusBar1.Panel[TObject(1)].Index;
	EndUpdate();
end
84:
How can I change the panel's visual appearance using EBN files

with AxStatusBar1 do
begin
	BeginUpdate();
	Appearance := EXSTATUSBARLib.AppearanceEnum.None2;
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
83:
How can I change the panel's visual appearance using EBN files

with AxStatusBar1 do
begin
	BeginUpdate();
	with VisualAppearance do
	begin
		Add(3,'c:\exontrol\images\normal.ebn');
		Add(4,'c:\exontrol\images\pushed.ebn');
		Add(1,'CP:3 2 2 -2 -2');
		Add(2,'CP:4 2 2 -2 -2');
	end;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2';
	with get_Panel(TObject(1)) do
	begin
		Text := 'Panel 1';
		BackColor := $1000000;
	end;
	with get_Panel(TObject(2)) do
	begin
		Text := 'Panel 2';
		BackColor := $2000000;
	end;
	EndUpdate();
end
82:
How can I change the panel's visual appearance using EBN files

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '"":4,((4;""/1/4;""),"":4,(4;""/2/4;"")),"":4';
	with get_Panel(TObject(1)) do
	begin
		Text := 'Panel 1';
		BackColor := $1000000;
	end;
	with get_Panel(TObject(2)) do
	begin
		Text := 'Panel 2';
		BackColor := $2000000;
	end;
	EndUpdate();
end
81:
How can I change the panel's background color

with AxStatusBar1 do
begin
	BeginUpdate();
	Format := '"":4,((4;""/1/4;""),"":4,(4;""/2/4;"")),"":4';
	with get_Panel(TObject(1)) do
	begin
		Text := 'Panel 1';
		BackColor := $ffff;
	end;
	with get_Panel(TObject(2)) do
	begin
		Text := 'Panel 2';
		BackColor := $ff00ff;
	end;
	EndUpdate();
end
80:
How can I change the caption's foreground color

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1:48/2';
	with get_Panel(TObject(1)) do
	begin
		Text := 'Panel 1';
		ForeColor := $ffff;
	end;
	var_Panel := get_Panel(TObject(2));
	with var_Panel do
	begin
		Text := 'Panel 2';
		ForeColor := $ff00ff;
	end;
	EndUpdate();
end
79:
How can I show in strikeout the caption in the panel

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2';
	with get_Panel(TObject(1)) do
	begin
		Text := 'Panel 1';
		StrikeOut := True;
	end;
	get_Panel(TObject(2)).Text := '<s>Panel</s> 2';
	EndUpdate();
end
78:
How can I underline the caption in the panel

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2';
	with get_Panel(TObject(1)) do
	begin
		Text := 'Panel 1';
		Underline := True;
	end;
	get_Panel(TObject(2)).Text := '<u>Panel</u> 2';
	EndUpdate();
end
77:
How can I show in italic a specified panel

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2';
	with get_Panel(TObject(1)) do
	begin
		Text := 'Panel 1';
		Italic := True;
	end;
	get_Panel(TObject(2)).Text := '<i>Panel</i> 2';
	EndUpdate();
end
76:
How can I show in bold a specified panel

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2';
	with get_Panel(TObject(1)) do
	begin
		Text := 'Panel 1';
		Bold := True;
	end;
	get_Panel(TObject(2)).Text := '<b>Panel</b> 2';
	EndUpdate();
end
75:
How do I control the padding on the left, top or other sides

with AxStatusBar1 do
begin
	BeginUpdate();
	Debug := True;
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2/(3,4)';
	with get_Panel(TObject(3)) do
	begin
		Text := 'Arrange the panels as you want using CRD strings';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignTopLeft;
		ToolTipText := Text;
		Offset := '10 10 -10 -10';
	end;
	EndUpdate();
end
74:
How can I display the panel using a single line

with AxStatusBar1 do
begin
	BeginUpdate();
	Debug := True;
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2/(3,4)';
	with get_Panel(TObject(3)) do
	begin
		Text := 'Arrange the panels as you want using CRD strings';
		ToolTipText := Text;
		WordWrap := False;
	end;
	EndUpdate();
end
73:
How can I align the text inside the panel

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '(0/16/32),(1/17/33),(2/18/34)';
	with get_Panel(TObject(0)) do
	begin
		Text := 'exAlignTopLeft';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignTopLeft;
	end;
	with get_Panel(TObject(1)) do
	begin
		Text := 'exAlignTopCenter';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignTopCenter;
	end;
	with get_Panel(TObject(2)) do
	begin
		Text := 'exAlignTopRight';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignTopRight;
	end;
	with get_Panel(TObject(16)) do
	begin
		Text := 'exAlignMiddleLeft';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft;
	end;
	with get_Panel(TObject(17)) do
	begin
		Text := 'exAlignMiddleCenter';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleCenter;
	end;
	with get_Panel(TObject(18)) do
	begin
		Text := 'exAlignMiddleRight';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleRight;
	end;
	with get_Panel(TObject(32)) do
	begin
		Text := 'exAlignBottomLeft';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignBottomLeft;
	end;
	with get_Panel(TObject(33)) do
	begin
		Text := 'exAlignBottomCenter';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignBottomCenter;
	end;
	with get_Panel(TObject(34)) do
	begin
		Text := 'exAlignBottomRight';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignBottomRight;
	end;
	EndUpdate();
end
72:
How can I display the <b> in the panel's caption

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1';
	get_Panel(TObject(1)).Text := '<b>Bold</b>';
	EndUpdate();
end
71:
How can I insert anchors or hyperlinks

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2';
	get_Panel(TObject(1)).Text := 'Link <a1>1</a>';
	get_Panel(TObject(2)).Text := '<a2>Link 2</a>';
	EndUpdate();
end
70:
How can I change the font for a panel

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2';
	get_Panel(TObject(1)).Text := '<font Tahoma>Panel 1</font>';
	get_Panel(TObject(2)).Text := '<font System>Panel 2</font>';
	EndUpdate();
end
69:
Is there any option to display the text using different fonts

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2';
	get_Panel(TObject(1)).Text := 'Panel <font Tahoma;20>1</font>';
	get_Panel(TObject(2)).Text := 'Panel <font Tahoma;16>2</font>';
	EndUpdate();
end
68:
Is there any option to insert custom size pictures in the text

with AxStatusBar1 do
begin
	BeginUpdate();
	set_HTMLPicture('pic1','c:\exontrol\images\zipdisk.gif');
	set_HTMLPicture('pic2','c:\exontrol\images\auction.gif');
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2';
	get_Panel(TObject(1)).Text := 'Panel 1<img>pic1</img>';
	get_Panel(TObject(2)).Text := 'Panel <img>pic2</img> 2';
	EndUpdate();
end
67:
Is there any option to insert icons in the text

with AxStatusBar1 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=');
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2';
	get_Panel(TObject(1)).Text := 'Panel 1<img>1</img>';
	get_Panel(TObject(2)).Text := '<img>2</img>Panel 2';
	EndUpdate();
end
66:
How do I show the panel's caption using multiple lines

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2';
	get_Panel(TObject(1)).Text := 'Panel 1<br>Line 1<br>Line2';
	get_Panel(TObject(2)).Text := '<bgcolor=FFFF00>Panel</bgcolor> 2';
	EndUpdate();
end
65:
How do I show a portion of the text using a different background color

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2';
	get_Panel(TObject(1)).Text := '<bgcolor=FF0000>Panel</bgcolor> 1';
	get_Panel(TObject(2)).Text := '<bgcolor=FFFF00>Panel</bgcolor> 2';
	EndUpdate();
end
64:
How do I show a portion of the text in a different color

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2';
	get_Panel(TObject(1)).Text := '<fgcolor=FF0000>Panel</fgcolor> 1';
	get_Panel(TObject(2)).Text := '<fgcolor=FFFF00>Panel</fgcolor> 2';
	EndUpdate();
end
63:
How do I show a portion of the text as italic in the panel

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2';
	get_Panel(TObject(1)).Text := '<i>Panel</i> 1';
	get_Panel(TObject(2)).Text := '<i>Panel</i> 2';
	EndUpdate();
end
62:
How do I show a portion of the text as strikeout in the panel

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2';
	get_Panel(TObject(1)).Text := '<s>Panel</s> 1';
	get_Panel(TObject(2)).Text := '<s>Panel</s> 2';
	EndUpdate();
end
61:
How do I underline a portion of the text in the panel

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2';
	get_Panel(TObject(1)).Text := '<u>Panel</u> 1';
	get_Panel(TObject(2)).Text := '<u>Panel</u> 2';
	EndUpdate();
end
60:
How do I bold a portion of the text in the panel

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2';
	get_Panel(TObject(1)).Text := '<b>Panel</b> 1';
	get_Panel(TObject(2)).Text := '<b>Panel</b> 2';
	EndUpdate();
end
59:
How do I assign a caption or a text to a panel

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Format := '1/2';
	get_Panel(TObject(1)).Text := 'Panel 1';
	get_Panel(TObject(2)).Text := 'Panel 2';
	EndUpdate();
end
58:
How do I access properties and methods of the panel

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1010/2020';
	with get_Panel(TObject(1010)) do
	begin
		Text := 'Panel 1';
		Bold := True;
	end;
	get_Panel(TObject(2020)).Text := 'Panel 2';
	EndUpdate();
end
57:
How do I clear the panels

with AxStatusBar1 do
begin
	BeginUpdate();
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1/2/48;(3,4:48)';
	get_Panel(TObject(1)).Text := 'Panel 1';
	get_Panel(TObject(2)).Text := 'Panel 2';
	get_Panel(TObject(3)).Text := 'Panel 3';
	get_Panel(TObject(4)).Text := 'Panel 4';
	ClearPanels();
	EndUpdate();
end
56:
How can I add or arrange the panels in the status bar control

with AxStatusBar1 do
begin
	BeginUpdate();
	Format := '"<a1>link</a>"[a=17]:64,11:64,((24;21/"Arrange the panels as you want using CRD strings"[a=17][ww])/24;3),(33/44):48';
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\border.ebn');
		Add(2,'c:\exontrol\images\border.ebn');
		Add(3,'CP:2 1 1 -1 -1');
	end;
	Appearance := EXSTATUSBARLib.AppearanceEnum.None2;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $3000000;
	get_Panel(TObject(11)).Text := 'Panel <b>1</b>';
	with get_Panel(TObject(3)) do
	begin
		Transparency := 50;
		Text := '<img>1</img>75%';
		Percent := 75;
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft;
		Offset := '4 4 -4 -4';
		OffsetPercent := Offset;
		BackColorPercent := $1000000;
	end;
	get_Panel(TObject(21)).Image := 1;
	with get_Panel(TObject(33)) do
	begin
		Text := 'Panel 3';
		Bold := True;
		Enabled := False;
	end;
	get_Panel(TObject(44)).Text := 'Panel 4';
	EndUpdate();
end
55:
How can I add three panels aligned from top to bottom, and the last divided in two panels

with AxStatusBar1 do
begin
	BeginUpdate();
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1/2/48;(3,4:48)';
	get_Panel(TObject(1)).Text := 'Panel 1';
	get_Panel(TObject(2)).Text := 'Panel 2';
	get_Panel(TObject(3)).Text := 'Panel 3';
	get_Panel(TObject(4)).Text := 'Panel 4';
	EndUpdate();
end
54:
How can I add three panels aligned from top to bottom

with AxStatusBar1 do
begin
	BeginUpdate();
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1/2/3';
	get_Panel(TObject(1)).Text := 'Panel 1';
	get_Panel(TObject(2)).Text := 'Panel 2';
	get_Panel(TObject(3)).Text := 'Panel 3';
	EndUpdate();
end
53:
How can I add two panels to the status bar control, first aligned to the left, the second aligned to the right, and in the middle some text

with AxStatusBar1 do
begin
	BeginUpdate();
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColor := $8000000f;
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1:64,"<img>1</img> just text and so on ..."[a=17],2:96';
	get_Panel(TObject(1)).Text := 'Panel 1';
	get_Panel(TObject(2)).Text := 'Panel 2';
	EndUpdate();
end
52:
How can I add two panels to the status bar control, first aligned to the left, the second aligned to the right

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1:64,"",2:96';
	get_Panel(TObject(1)).Text := 'Panel 1';
	get_Panel(TObject(2)).Text := 'Panel 2';
	EndUpdate();
end
51:
How can I add two panels to the status bar control, so the first has a specified width

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1:64,2';
	get_Panel(TObject(1)).Text := 'Panel 1';
	get_Panel(TObject(2)).Text := 'Panel 2';
	EndUpdate();
end
50:
How can I add two panels to the status bar control, so the second has a specified width

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2:64';
	get_Panel(TObject(1)).Text := 'Panel 1';
	get_Panel(TObject(2)).Text := 'Panel 2';
	EndUpdate();
end
49:
How can I add two panels to the status bar control

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2';
	get_Panel(TObject(1)).Text := 'Panel 1';
	get_Panel(TObject(2)).Text := 'Panel 2';
	EndUpdate();
end
48:
How do I add one panel to the status bar control

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 2 2 -2 -2');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1';
	get_Panel(TObject(1)).Text := 'Panel 1';
	EndUpdate();
end
47:
How do I arrange the panels in the status bar

with AxStatusBar1 do
begin
	BeginUpdate();
	Debug := True;
	VisualAppearance.Add(4,'c:\exontrol\images\hot.ebn');
	VisualAppearance.Add(5,'CP:4 2 2 -2 -2');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '"<a1>link</a>"[a=17]:64,11:64,((24;21/"Arrange the panels as you want using CRD strings"[a=17][ww])/24;3),(33/44):48';
	EndUpdate();
end
46:
How do I arrange the panels in the status bar

with AxStatusBar1 do
begin
	BeginUpdate();
	Debug := True;
	VisualAppearance.Add(4,'c:\exontrol\images\pushed.ebn');
	VisualAppearance.Add(5,'CP:4 2 2 -2 -2');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2:32,(3/4/5)';
	EndUpdate();
end
45:
How do I arrange the panels in the status bar

with AxStatusBar1 do
begin
	BeginUpdate();
	Debug := True;
	VisualAppearance.Add(4,'c:\exontrol\images\normal.ebn');
	VisualAppearance.Add(5,'CP:4 2 2 -2 -2');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,(3/4/5)';
	EndUpdate();
end
44:
How do I get the panel from the cursor
with AxStatusBar1 do
begin
	p := (get_PanelFromPoint(-1,-1) as Object);
end
43:
How do I draw a border for all panels

with AxStatusBar1 do
begin
	BeginUpdate();
	Debug := True;
	VisualAppearance.Add(4,'c:\exontrol\images\normal.ebn');
	VisualAppearance.Add(5,'CP:4 2 2 -2 -2');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,(3/4/5)';
	EndUpdate();
end
42:
How do I draw a border for all panels

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 2 2 -2 -2');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Debug := True;
	Format := '(0/1:32),2,(3/4/5)';
	EndUpdate();
end
41:
Is there any option to display the identifiers of the panels

with AxStatusBar1 do
begin
	BeginUpdate();
	Debug := True;
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3';
	get_Panel(TObject(1)).Text := 'Panel 1';
	get_Panel(TObject(2)).Text := 'Panel 2';
	get_Panel(TObject(3)).Text := 'Panel 3';
	EndUpdate();
end
40:
Can I get the anchor from the point so I can display a tooltip
with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3';
	get_Panel(TObject(1)).Text := '<a1>link 1</a>';
	get_Panel(TObject(2)).Text := '<a2>link 2</a>';
	get_Panel(TObject(3)).Text := '<a3>link 3</a>';
	ShowToolTip(get_AnchorFromPoint(-1,-1),Nil,Nil,Nil,Nil);
	EndUpdate();
end
39:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

with AxStatusBar1 do
begin
	BeginUpdate();
	set_FormatAnchor(False,'<b><u><fgcolor=880000> </fgcolor></u></b>');
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3';
	get_Panel(TObject(1)).Text := '<a1>link 1</a>';
	get_Panel(TObject(2)).Text := '<a2>link 2</a>';
	get_Panel(TObject(3)).Text := '<a3>link 3</a>';
	EndUpdate();
end
38:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

with AxStatusBar1 do
begin
	BeginUpdate();
	set_FormatAnchor(True,'<b><u><fgcolor=FF0000> </fgcolor></u></b>');
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3';
	get_Panel(TObject(1)).Text := '<a1>link 1</a>';
	get_Panel(TObject(2)).Text := '<a2>link 2</a>';
	get_Panel(TObject(3)).Text := '<a3>link 3</a>';
	EndUpdate();
end
37:
Can I displays a custom size picture to panels

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	set_HTMLPicture('pic1','c:\exontrol\images\zipdisk.gif');
	Format := '1,2,3,4';
	get_Panel(TObject(1)).Text := '<img>pic1</img>';
	EndUpdate();
end
36:
How can I show the tooltip programatically
with AxStatusBar1 do
begin
	ShowToolTip('This is a bit of text that should appear when ShowToolTip method is called.',Nil,Nil,Nil,Nil);
end
35:
I've seen that the width of the tooltip is variable. Can I make it larger

with AxStatusBar1 do
begin
	BeginUpdate();
	ToolTipDelay := 1;
	ToolTipWidth := 426;
	Format := '1';
	with get_Panel(TObject(1)) do
	begin
		Text := 'This is a bit of text that should occurs when the cursor hovers the panel';
		ToolTipText := Text;
		ToolTipTitle := 'Title';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft;
	end;
	EndUpdate();
end
34:
How do I call your x-script language

with AxStatusBar1 do
begin
	Debug := True;
	Format := '1';
	(ExecuteTemplate('Panel(1)') as EXSTATUSBARLib.Panel).Text := 'this is called through ExecuteTemplate property';
end
33:
How do I call your x-script language

with AxStatusBar1 do
begin
	Template := 'BackColor = RGB(255,0,0)';
end
32:
How can I disable the control

with AxStatusBar1 do
begin
	BeginUpdate();
	Enabled := False;
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	get_Panel(TObject(1)).Image := 1;
	get_Panel(TObject(2)).Text := '<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons';
	with get_Panel(TObject(3)) do
	begin
		Text := '<img>2</img>';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleRight;
	end;
	EndUpdate();
end
31:
How do I let the tooltip being displayed longer

with AxStatusBar1 do
begin
	BeginUpdate();
	ToolTipDelay := 1;
	ToolTipPopDelay := 10000;
	Format := '1';
	with get_Panel(TObject(1)) do
	begin
		Text := 'This is a bit of text that should occurs when the cursor hovers the panel';
		ToolTipText := Text;
		ToolTipTitle := 'Title';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft;
	end;
	EndUpdate();
end
30:
Can I change the background color for the tooltip

with AxStatusBar1 do
begin
	BeginUpdate();
	ToolTipDelay := 1;
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	set_Background(EXSTATUSBARLib.BackgroundPartEnum.exToolTipAppearance,$1000000);
	set_Background(EXSTATUSBARLib.BackgroundPartEnum.exToolTipBackColor,$f0f5f6);
	Format := '1';
	with get_Panel(TObject(1)) do
	begin
		Text := 'This is a bit of text that should occurs when the cursor hovers the panel';
		ToolTipText := Text;
		ToolTipTitle := 'Title';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft;
	end;
	EndUpdate();
end
29:
Can I change the background color for the tooltip

with AxStatusBar1 do
begin
	BeginUpdate();
	ToolTipDelay := 1;
	set_Background(EXSTATUSBARLib.BackgroundPartEnum.exToolTipBackColor,$ff);
	Format := '1';
	with get_Panel(TObject(1)) do
	begin
		Text := 'Drag the cursor hover so the tooltip shows up';
		ToolTipText := '<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a panel';
	end;
	EndUpdate();
end
28:
Does the tooltip support HTML format

with AxStatusBar1 do
begin
	BeginUpdate();
	ToolTipDelay := 1;
	Format := '1';
	with get_Panel(TObject(1)) do
	begin
		Text := 'Drag the cursor hover so the tooltip shows up';
		ToolTipText := '<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>panel</fgcolor>';
	end;
	EndUpdate();
end
27:
Can I change the forecolor for the tooltip

with AxStatusBar1 do
begin
	BeginUpdate();
	ToolTipDelay := 1;
	set_Background(EXSTATUSBARLib.BackgroundPartEnum.exToolTipForeColor,$ff);
	Format := '1';
	with get_Panel(TObject(1)) do
	begin
		Text := 'This is a bit of text that should occurs when the cursor hovers the panel';
		ToolTipText := Text;
		ToolTipTitle := 'Title';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft;
	end;
	EndUpdate();
end
26:
Can I change the foreground color for the tooltip

with AxStatusBar1 do
begin
	BeginUpdate();
	ToolTipDelay := 1;
	with ToolTipFont do
	begin
		Name := 'Tahoma';
		Size := 14;
	end;
	ToolTipWidth := 364;
	Format := '1';
	with get_Panel(TObject(1)) do
	begin
		Text := 'this is a tooltip assigned to a panel';
		ToolTipText := '<fgcolor=FF0000>this is a tooltip assigned to a panel</fgcolor>';
		ToolTipTitle := 'Title';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft;
	end;
	EndUpdate();
end
25:
Can I change the font for the tooltip

with AxStatusBar1 do
begin
	BeginUpdate();
	ToolTipDelay := 1;
	with ToolTipFont do
	begin
		Name := 'Tahoma';
		Size := 14;
	end;
	ToolTipWidth := 364;
	Format := '1';
	with get_Panel(TObject(1)) do
	begin
		Text := 'This is a bit of text that should occurs when the cursor hovers the panel';
		ToolTipText := Text;
		ToolTipTitle := 'Title';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft;
	end;
	EndUpdate();
end
24:
How do I disable showing the tooltip for all control
with AxStatusBar1 do
begin
	BeginUpdate();
	ToolTipDelay := 0;
	Format := '1';
	with get_Panel(TObject(1)) do
	begin
		Text := 'This is a bit of text that should occurs when the cursor hovers the panel';
		ToolTipText := Text;
		ToolTipTitle := 'Title';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft;
	end;
	EndUpdate();
end
23:
How do I show the tooltip quicker

with AxStatusBar1 do
begin
	BeginUpdate();
	ToolTipDelay := 1;
	ToolTipWidth := 364;
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	set_Background(EXSTATUSBARLib.BackgroundPartEnum.exToolTipAppearance,$1000000);
	Format := '1';
	with get_Panel(TObject(1)) do
	begin
		Text := 'This is a bit of text that should occurs when the cursor hovers the panel';
		ToolTipText := Text;
		ToolTipTitle := 'Title';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft;
	end;
	EndUpdate();
end
22:
Can I change the default border of the tooltip, using your EBN files

with AxStatusBar1 do
begin
	BeginUpdate();
	ToolTipDelay := 1;
	ToolTipWidth := 364;
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	set_Background(EXSTATUSBARLib.BackgroundPartEnum.exToolTipAppearance,$1000000);
	Format := '1';
	with get_Panel(TObject(1)) do
	begin
		Text := 'This is a bit of text that should occurs when the cursor hovers the panel';
		ToolTipText := Text;
		ToolTipTitle := 'Title';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleLeft;
	end;
	EndUpdate();
end
21:
How do I retrieve the handle of the window
with AxStatusBar1 do
begin
	Format := hWnd;
	ClearPanels();
end
20:
How can I prevent the control from painting when multiple changes occurs
with AxStatusBar1 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=');
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	get_Panel(TObject(1)).Image := 1;
	get_Panel(TObject(2)).Text := '<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons';
	with get_Panel(TObject(3)) do
	begin
		Text := '<img>2</img>';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleRight;
	end;
	EndUpdate();
end
19:
How can I insert an icon aligned to the right

with AxStatusBar1 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=');
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	with get_Panel(TObject(2)) do
	begin
		Text := '<img>2</img>';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleRight;
	end;
	EndUpdate();
end
18:
How can I insert an icon to a panel

with AxStatusBar1 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=');
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	get_Panel(TObject(2)).Text := '<img>2</img>';
	EndUpdate();
end
17:
How can I insert icons to status bar control

with AxStatusBar1 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=');
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	get_Panel(TObject(1)).Image := 1;
	get_Panel(TObject(2)).Text := '<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons';
	with get_Panel(TObject(3)) do
	begin
		Text := '<img>2</img>';
		Alignment := EXSTATUSBARLib.TextAlignEnum.exAlignMiddleRight;
	end;
	EndUpdate();
end
16:
How can I insert an icon to a panel

with AxStatusBar1 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=');
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	get_Panel(TObject(1)).Image := 1;
	EndUpdate();
end
15:
Is there any option to increase the empty space on borders of the control

with AxStatusBar1 do
begin
	BeginUpdate();
	BorderWidth := 20;
	BorderHeight := 20;
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
14:
How do I get the version of the control
with AxStatusBar1 do
begin
	BeginUpdate();
	Format := Version;
	ClearPanels();
	EndUpdate();
end
13:
How do I put a picture on the center of the control

with AxStatusBar1 do
begin
	BeginUpdate();
	(GetOcx() as EXSTATUSBARLib.StatusBar).Picture := AxStatusBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXSTATUSBARLib.PictureDisplayEnum.MiddleCenter;
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
12:
How do I resize/stretch a picture on the control's background

with AxStatusBar1 do
begin
	BeginUpdate();
	(GetOcx() as EXSTATUSBARLib.StatusBar).Picture := AxStatusBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXSTATUSBARLib.PictureDisplayEnum.Stretch;
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
11:
How do I put a picture on the control's center right bottom side

with AxStatusBar1 do
begin
	BeginUpdate();
	(GetOcx() as EXSTATUSBARLib.StatusBar).Picture := AxStatusBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXSTATUSBARLib.PictureDisplayEnum.LowerRight;
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
10:
How do I put a picture on the control's center left bottom side

with AxStatusBar1 do
begin
	BeginUpdate();
	(GetOcx() as EXSTATUSBARLib.StatusBar).Picture := AxStatusBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXSTATUSBARLib.PictureDisplayEnum.LowerLeft;
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
9:
How do I put a picture on the control's center top side

with AxStatusBar1 do
begin
	BeginUpdate();
	(GetOcx() as EXSTATUSBARLib.StatusBar).Picture := AxStatusBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXSTATUSBARLib.PictureDisplayEnum.UpperCenter;
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
8:
How do I put a picture on the control's right top corner

with AxStatusBar1 do
begin
	BeginUpdate();
	(GetOcx() as EXSTATUSBARLib.StatusBar).Picture := AxStatusBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXSTATUSBARLib.PictureDisplayEnum.UpperRight;
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
7:
How do I put a picture on the control's left top corner

with AxStatusBar1 do
begin
	BeginUpdate();
	(GetOcx() as EXSTATUSBARLib.StatusBar).Picture := AxStatusBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXSTATUSBARLib.PictureDisplayEnum.UpperLeft;
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
6:
How do I put a picture on the control's background

with AxStatusBar1 do
begin
	BeginUpdate();
	(GetOcx() as EXSTATUSBARLib.StatusBar).Picture := AxStatusBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
5:
How do I change the control's foreground color

with AxStatusBar1 do
begin
	BeginUpdate();
	ForeColor := Color.FromArgb(120,120,120);
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
4:
How do I change the control's background color

with AxStatusBar1 do
begin
	BeginUpdate();
	BackColor := Color.FromArgb(200,200,200);
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
3:
How do I change the control's border, using your EBN files

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Appearance := EXSTATUSBARLib.AppearanceEnum($1000000);
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
2:
How do I remove the control's border

with AxStatusBar1 do
begin
	BeginUpdate();
	Appearance := EXSTATUSBARLib.AppearanceEnum.None2;
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
1:
How can I change the control's font

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	f := (ComObj.CreateComObject(ComObj.ProgIDToClassID('StdFont')) as stdole.StdFont);
	with f do
	begin
		Name := 'Verdana';
		Size := 12;
	end;
	Font := (f as stdole.StdFont);
	Format := '"static text"[fg=255][a=17],11,22,(33/44)';
	EndUpdate();
end