101:
How can I use the BackgroundExt property

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFormat to "1,2,3"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComBackgroundExt of hoPanel to "bottom[10,pattern=6,back=RGB(255,0,0),text=`<font ;6><img>alert</img><b>Alert!`,align=0x11]"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
		Set ComBackgroundExt of hoPanel1 to "bottom[20,back=RGB(128,0,0),text=`<fgcolor FFFFFF><img>alert</img><b>Alert!`,align=0x11]"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "Panel 3"
		Set ComBackgroundExt of hoPanel2 to "bottom[30,back=RGB(64,0,0),text=`<font ;12><fgcolor FFFFFF><img>alert</img><b>Alert!`,align=0x11]"
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure
100:
How do I access the properties and the methods of an inner ActiveX control to a panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(24;5/6)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComControlID of hoPanel to "MSCAL.Calendar"
		Variant voCalendar
		Get ComObject of hoPanel to voCalendar
		Handle hoCalendar
		Get Create (RefClass(cComCalendar)) to hoCalendar
		Set pvComObject of hoCalendar to voCalendar
			Set ComMonthLength of hoCalendar to 0
			Set ComBackColor of hoCalendar to (RGB(255,255,255))
		Send Destroy to hoCalendar
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 5 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
		Set ComAlignment of hoPanel1 to OLEexAlignMiddleLeft
		Set ComPercent of hoPanel1 to 75
		Set ComTransparency of hoPanel1 to 35
		Set ComOffset of hoPanel1 to "4 2 -4 -2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
99:
How do I insert an ActiveX control to a panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(24;5/6)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComControlID of hoPanel to "MSChart20Lib.MSChart"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComControlID of hoPanel1 to "MSCAL.Calendar"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 5 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
		Set ComAlignment of hoPanel2 to OLEexAlignMiddleLeft
		Set ComPercent of hoPanel2 to 75
		Set ComTransparency of hoPanel2 to 35
		Set ComOffset of hoPanel2 to "4 2 -4 -2"
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure
98:
How can I show the percent value over the progress bar using a semi-transparent color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(24;5/6)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
		Set ComPercent of hoPanel to 75
		Set ComTransparency of hoPanel to 35
		Set ComOffset of hoPanel to "4 2 -4 -2"
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
97:
How can I control the padding of the percent/progressbar control

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(24;5/6)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "15%"
		Set ComPercent of hoPanel to 15
		Set ComOffsetPercent of hoPanel to "6 6 -6 -6"
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
96:
Can I change the visual appearance of the percent or a progress-bar inside the panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(24;5/6)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComBackColor of hoPanel to (RGB(255,255,255))
		Set ComText of hoPanel to "15%"
		Set ComPercent of hoPanel to 15
		Set ComBackColorPercent of hoPanel to |CI$1000000
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
95:
Can I change the visual appearance of the percent or a progress-bar inside the panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg8GhiAADACAxRDAMgBQKAAzQFAYbhrBaERhGIYYJhUAIIRZGMIjFDcEwxDSMQJjaCRQh+JYkR6MQCSBJkMw5AaXYrlWJoMjKA4nTbKMjRfKcWRjGKeJ5kOaZIhuJgCUJLM70HRMExqGQaRJpeoZVDUMJSQjVVYUbDVFwHIKkZzoWhJQiKXIuRzXdKzLYVSABA6xbLiWrpWqebQAThbdD3FC1aTBISpaztepKZpeVaGXxcdo3LTlbzzOC3MRva7MOjqJJIYjMGJ3fLuA49QrBKymWJcYwyGgIQiBdKaK7+WgBVp/YqjeL9IgMUBpGKdBynlzGHzeQiQRK8BDIbQSFCEdpADSrKBiFioZjXGwbBaXJ4ujOdY2D2Do3FeOZbmmdx6HAECAg==" to Nothing
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(24;5/6)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<fgcolor=FFFFFF><img>1</img>75%</fgcolor>"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
		Set ComPercent of hoPanel to 75
		Set ComTransparency of hoPanel to 35
		Set ComOffset of hoPanel to "4 2 -4 -2"
		Set ComBackColorPercent of hoPanel to |CI$1000000
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
94:
How can I change the color of the percent or a progress-bar inside the panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(24;5/6)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "15%"
		Set ComPercent of hoPanel to 15
		Set ComBackColorPercent of hoPanel to (RGB(255,0,0))
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
93:
How can I display a percent or a progress-bar inside the panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(24;5/6)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "15%"
		Set ComPercent of hoPanel to 15
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
92:
Is there any property to get the width/height of the panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(5/6)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to (ComWidth(hoPanel))
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 6 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to (ComHeight(hoPanel1))
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
91:
How can I disable a panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(5/6)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Disabled"
		Set ComEnabled of hoPanel to False
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
90:
How can I assign an extra data to my panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "UserData"
		Set ComUserData of hoPanel to "this is just some extra data associated to the panel"
		Set ComToolTipText of hoPanel to (ComUserData(hoPanel))
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
89:
Is there any option to draw myself the panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 5 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "OwnerDraw"
		Set ComOwnerDraw of hoPanel to True
	Send Destroy to hoPanel
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure
88:
How can I assign a tooltip to a panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Set ComFormat to "1/2/3"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel1 to (ComText(hoPanel1))
		Set ComToolTipTitle of hoPanel1 to "Title"
		Set ComAlignment of hoPanel1 to OLEexAlignMiddleLeft
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel2 to (ComText(hoPanel2))
		Set ComToolTipTitle of hoPanel2 to "Title"
		Set ComAlignment of hoPanel2 to OLEexAlignMiddleLeft
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure
87:
How can I assign an icon/image to a panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComImage of hoPanel to 1
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 6 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComImage of hoPanel1 to 2
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 8 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComImage of hoPanel2 to 3
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure
86:
How can I get the index of the panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure
85:
How can I get the index of the panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Variant v
			Variant voPanel1
			Get ComPanel 1 to voPanel1
			Handle hoPanel1
			Get Create (RefClass(cComPanel)) to hoPanel1
			Set pvComObject of hoPanel1 to voPanel1
				Get ComIndex of hoPanel1 to v
			Send Destroy to hoPanel1
		Set ComText of hoPanel to v
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
84:
How can I change the panel's visual appearance using EBN files

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure
83:
How can I change the panel's visual appearance using EBN files

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 3 "c:\exontrol\images\normal.ebn" to Nothing
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\pushed.ebn" to Nothing
		Get ComAdd of hoAppearance 1 "CP:3 2 2 -2 -2" to Nothing
		Get ComAdd of hoAppearance 2 "CP:4 2 2 -2 -2" to Nothing
	Send Destroy to hoAppearance
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComBackColor of hoPanel to |CI$1000000
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
		Set ComBackColor of hoPanel1 to |CI$2000000
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
82:
How can I change the panel's visual appearance using EBN files

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to """:4,((4;""/1/4;""),"":4,(4;""/2/4;"")),"":4"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComBackColor of hoPanel to |CI$1000000
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
		Set ComBackColor of hoPanel1 to |CI$2000000
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
81:
How can I change the panel's background color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFormat to """:4,((4;""/1/4;""),"":4,(4;""/2/4;"")),"":4"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComBackColor of hoPanel to (RGB(255,255,0))
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
		Set ComBackColor of hoPanel1 to (RGB(255,0,255))
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
80:
How can I change the caption's foreground color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1:48/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComForeColor of hoPanel to (RGB(255,255,0))
	Send Destroy to hoPanel
	Variant var_Panel
	Get ComPanel 2 to var_Panel
		Set ComText to "Panel 2"
		Set ComForeColor to (RGB(255,0,255))
	Send ComEndUpdate
End_Procedure
79:
How can I show in strikeout the caption in the panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComStrikeOut of hoPanel to True
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<s>Panel</s> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
78:
How can I underline the caption in the panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComUnderline of hoPanel to True
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<u>Panel</u> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
77:
How can I show in italic a specified panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComItalic of hoPanel to True
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<i>Panel</i> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
76:
How can I show in bold a specified panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComBold of hoPanel to True
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<b>Panel</b> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
75:
How do I control the padding on the left, top or other sides

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDebug to True
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2/(3,4)"
	Variant voPanel
	Get ComPanel 3 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Arrange the panels as you want using CRD strings"
		Set ComAlignment of hoPanel to OLEexAlignTopLeft
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComOffset of hoPanel to "10 10 -10 -10"
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
74:
How can I display the panel using a single line

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDebug to True
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2/(3,4)"
	Variant voPanel
	Get ComPanel 3 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Arrange the panels as you want using CRD strings"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComWordWrap of hoPanel to False
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
73:
How can I align the text inside the panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "(0/16/32),(1/17/33),(2/18/34)"
	Variant voPanel
	Get ComPanel 0 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "exAlignTopLeft"
		Set ComAlignment of hoPanel to OLEexAlignTopLeft
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 1 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "exAlignTopCenter"
		Set ComAlignment of hoPanel1 to OLEexAlignTopCenter
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 2 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "exAlignTopRight"
		Set ComAlignment of hoPanel2 to OLEexAlignTopRight
	Send Destroy to hoPanel2
	Variant voPanel3
	Get ComPanel 16 to voPanel3
	Handle hoPanel3
	Get Create (RefClass(cComPanel)) to hoPanel3
	Set pvComObject of hoPanel3 to voPanel3
		Set ComText of hoPanel3 to "exAlignMiddleLeft"
		Set ComAlignment of hoPanel3 to OLEexAlignMiddleLeft
	Send Destroy to hoPanel3
	Variant voPanel4
	Get ComPanel 17 to voPanel4
	Handle hoPanel4
	Get Create (RefClass(cComPanel)) to hoPanel4
	Set pvComObject of hoPanel4 to voPanel4
		Set ComText of hoPanel4 to "exAlignMiddleCenter"
		Set ComAlignment of hoPanel4 to OLEexAlignMiddleCenter
	Send Destroy to hoPanel4
	Variant voPanel5
	Get ComPanel 18 to voPanel5
	Handle hoPanel5
	Get Create (RefClass(cComPanel)) to hoPanel5
	Set pvComObject of hoPanel5 to voPanel5
		Set ComText of hoPanel5 to "exAlignMiddleRight"
		Set ComAlignment of hoPanel5 to OLEexAlignMiddleRight
	Send Destroy to hoPanel5
	Variant voPanel6
	Get ComPanel 32 to voPanel6
	Handle hoPanel6
	Get Create (RefClass(cComPanel)) to hoPanel6
	Set pvComObject of hoPanel6 to voPanel6
		Set ComText of hoPanel6 to "exAlignBottomLeft"
		Set ComAlignment of hoPanel6 to OLEexAlignBottomLeft
	Send Destroy to hoPanel6
	Variant voPanel7
	Get ComPanel 33 to voPanel7
	Handle hoPanel7
	Get Create (RefClass(cComPanel)) to hoPanel7
	Set pvComObject of hoPanel7 to voPanel7
		Set ComText of hoPanel7 to "exAlignBottomCenter"
		Set ComAlignment of hoPanel7 to OLEexAlignBottomCenter
	Send Destroy to hoPanel7
	Variant voPanel8
	Get ComPanel 34 to voPanel8
	Handle hoPanel8
	Get Create (RefClass(cComPanel)) to hoPanel8
	Set pvComObject of hoPanel8 to voPanel8
		Set ComText of hoPanel8 to "exAlignBottomRight"
		Set ComAlignment of hoPanel8 to OLEexAlignBottomRight
	Send Destroy to hoPanel8
	Send ComEndUpdate
End_Procedure
72:
How can I display the <b> in the panel's caption

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<b>Bold</b>"
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
71:
How can I insert anchors or hyperlinks

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Link <a1>1</a>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<a2>Link 2</a>"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
70:
How can I change the font for a panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<font Tahoma>Panel 1</font>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<font System>Panel 2</font>"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
69:
Is there any option to display the text using different fonts

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel <font Tahoma;20>1</font>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel <font Tahoma;16>2</font>"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
68:
Is there any option to insert custom size pictures in the text

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1<img>pic1</img>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel <img>pic2</img> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
67:
Is there any option to insert icons in the text

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1<img>1</img>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<img>2</img>Panel 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
66:
How do I show the panel's caption using multiple lines

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1<br>Line 1<br>Line2"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<bgcolor=FFFF00>Panel</bgcolor> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
65:
How do I show a portion of the text using a different background color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<bgcolor=FF0000>Panel</bgcolor> 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<bgcolor=FFFF00>Panel</bgcolor> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
64:
How do I show a portion of the text in a different color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<fgcolor=FF0000>Panel</fgcolor> 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<fgcolor=FFFF00>Panel</fgcolor> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
63:
How do I show a portion of the text as italic in the panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<i>Panel</i> 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<i>Panel</i> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
62:
How do I show a portion of the text as strikeout in the panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<s>Panel</s> 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<s>Panel</s> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
61:
How do I underline a portion of the text in the panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<u>Panel</u> 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<u>Panel</u> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
60:
How do I bold a portion of the text in the panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<b>Panel</b> 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<b>Panel</b> 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
59:
How do I assign a caption or a text to a panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComBackColor to |CI$8000000f
	Set ComFormat to "1/2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
58:
How do I access properties and methods of the panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1010/2020"
	Variant voPanel
	Get ComPanel 1010 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
		Set ComBold of hoPanel to True
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2020 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
57:
How do I clear the panels

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComBackColor to |CI$8000000f
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1/2/48;(3,4:48)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "Panel 3"
	Send Destroy to hoPanel2
	Variant voPanel3
	Get ComPanel 4 to voPanel3
	Handle hoPanel3
	Get Create (RefClass(cComPanel)) to hoPanel3
	Set pvComObject of hoPanel3 to voPanel3
		Set ComText of hoPanel3 to "Panel 4"
	Send Destroy to hoPanel3
	Send ComClearPanels
	Send ComEndUpdate
End_Procedure
56:
How can I add or arrange the panels in the status bar control

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFormat to ""<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"
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\border.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\border.ebn" to Nothing
		Get ComAdd of hoAppearance 3 "CP:2 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance
	Set ComAppearance to OLENone2
	Set ComBackColor to |CI$8000000f
	Set ComBackColorPanels to |CI$3000000
	Variant voPanel
	Get ComPanel 11 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel <b>1</b>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 3 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComTransparency of hoPanel1 to 50
		Set ComText of hoPanel1 to "<img>1</img>75%"
		Set ComPercent of hoPanel1 to 75
		Set ComAlignment of hoPanel1 to OLEexAlignMiddleLeft
		Set ComOffset of hoPanel1 to "4 4 -4 -4"
		Set ComOffsetPercent of hoPanel1 to (ComOffset(hoPanel1))
		Set ComBackColorPercent of hoPanel1 to |CI$1000000
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 21 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComImage of hoPanel2 to 1
	Send Destroy to hoPanel2
	Variant voPanel3
	Get ComPanel 33 to voPanel3
	Handle hoPanel3
	Get Create (RefClass(cComPanel)) to hoPanel3
	Set pvComObject of hoPanel3 to voPanel3
		Set ComText of hoPanel3 to "Panel 3"
		Set ComBold of hoPanel3 to True
		Set ComEnabled of hoPanel3 to False
	Send Destroy to hoPanel3
	Variant voPanel4
	Get ComPanel 44 to voPanel4
	Handle hoPanel4
	Get Create (RefClass(cComPanel)) to hoPanel4
	Set pvComObject of hoPanel4 to voPanel4
		Set ComText of hoPanel4 to "Panel 4"
	Send Destroy to hoPanel4
	Send ComEndUpdate
End_Procedure
55:
How can I add three panels aligned from top to bottom, and the last divided in two panels

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComBackColor to |CI$8000000f
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1/2/48;(3,4:48)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "Panel 3"
	Send Destroy to hoPanel2
	Variant voPanel3
	Get ComPanel 4 to voPanel3
	Handle hoPanel3
	Get Create (RefClass(cComPanel)) to hoPanel3
	Set pvComObject of hoPanel3 to voPanel3
		Set ComText of hoPanel3 to "Panel 4"
	Send Destroy to hoPanel3
	Send ComEndUpdate
End_Procedure
54:
How can I add three panels aligned from top to bottom

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComBackColor to |CI$8000000f
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1/2/3"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "Panel 3"
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure
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

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComBackColor to |CI$8000000f
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1:64,"<img>1</img> just text and so on ..."[a=17],2:96"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
52:
How can I add two panels to the status bar control, first aligned to the left, the second aligned to the right

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1:64,"",2:96"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
51:
How can I add two panels to the status bar control, so the first has a specified width

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1:64,2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
50:
How can I add two panels to the status bar control, so the second has a specified width

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2:64"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
49:
How can I add two panels to the status bar control

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Send ComEndUpdate
End_Procedure
48:
How do I add one panel to the status bar control

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 2 2 -2 -2" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
47:
How do I arrange the panels in the status bar

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDebug to True
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\hot.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 2 2 -2 -2" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to ""<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"
	Send ComEndUpdate
End_Procedure
46:
How do I arrange the panels in the status bar

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDebug to True
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 2 2 -2 -2" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2:32,(3/4/5)"
	Send ComEndUpdate
End_Procedure
45:
How do I arrange the panels in the status bar

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDebug to True
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 2 2 -2 -2" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,(3/4/5)"
	Send ComEndUpdate
End_Procedure
44:
How do I get the panel from the cursor
Procedure OnCreate
	Forward Send OnCreate
	Variant p
	Get ComPanelFromPoint -1 -1 to p
End_Procedure
43:
How do I draw a border for all panels

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDebug to True
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 2 2 -2 -2" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,(3/4/5)"
	Send ComEndUpdate
End_Procedure
42:
How do I draw a border for all panels

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 2 2 -2 -2" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComDebug to True
	Set ComFormat to "(0/1:32),2,(3/4/5)"
	Send ComEndUpdate
End_Procedure
41:
Is there any option to display the identifiers of the panels

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDebug to True
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Panel 1"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "Panel 2"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "Panel 3"
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure
40:
Can I get the anchor from the point so I can display a tooltip
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<a1>link 1</a>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<a2>link 2</a>"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "<a3>link 3</a>"
	Send Destroy to hoPanel2
	Send ComShowToolTip (ComAnchorFromPoint(Self,-1,-1)) Nothing Nothing Nothing Nothing
	Send ComEndUpdate
End_Procedure
39:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFormatAnchor False to "<b><u><fgcolor=880000> </fgcolor></u></b>"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<a1>link 1</a>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<a2>link 2</a>"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "<a3>link 3</a>"
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure
38:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFormatAnchor True to "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<a1>link 1</a>"
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<a2>link 2</a>"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "<a3>link 3</a>"
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure
37:
Can I displays a custom size picture to panels

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComFormat to "1,2,3,4"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<img>pic1</img>"
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
36:
How can I show the tooltip programatically
Procedure OnCreate
	Forward Send OnCreate
	Send ComShowToolTip "This is a bit of text that should appear when ShowToolTip method is called." Nothing Nothing Nothing Nothing
End_Procedure
35:
I've seen that the width of the tooltip is variable. Can I make it larger

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 426
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
34:
How do I call your x-script language

Procedure OnCreate
	Forward Send OnCreate
	Set ComDebug to True
	Set ComFormat to "1"
	Variant voPanel
	Get ComExecuteTemplate "Panel(1)" to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "this is called through ExecuteTemplate property"
	Send Destroy to hoPanel
End_Procedure
33:
How do I call your x-script language

Procedure OnCreate
	Forward Send OnCreate
	Set ComTemplate to "BackColor = RGB(255,0,0)"
End_Procedure
32:
How can I disable the control

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComEnabled to False
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComImage of hoPanel to 1
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "<img>2</img>"
		Set ComAlignment of hoPanel2 to OLEexAlignMiddleRight
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure
31:
How do I let the tooltip being displayed longer

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 1
	Set ComToolTipPopDelay to 10000
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
30:
Can I change the background color for the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 1
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexToolTipAppearance to |CI$1000000
	Set ComBackground OLEexToolTipBackColor to (RGB(246,245,240))
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
29:
Can I change the background color for the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 1
	Set ComBackground OLEexToolTipBackColor to (RGB(255,0,0))
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Drag the cursor hover so the tooltip shows up"
		Set ComToolTipText of hoPanel to "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a panel"
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
28:
Does the tooltip support HTML format

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 1
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "Drag the cursor hover so the tooltip shows up"
		Set ComToolTipText of hoPanel to "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>panel</fgcolor>"
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
27:
Can I change the forecolor for the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 1
	Set ComBackground OLEexToolTipForeColor to (RGB(255,0,0))
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
26:
Can I change the foreground color for the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 1
	Variant voStdFont
	Get ComToolTipFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComName of hoStdFont to "Tahoma"
		Set ComSize of hoStdFont to 14
	Send Destroy to hoStdFont
	Set ComToolTipWidth to 364
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "this is a tooltip assigned to a panel"
		Set ComToolTipText of hoPanel to "<fgcolor=FF0000>this is a tooltip assigned to a panel</fgcolor>"
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
25:
Can I change the font for the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 1
	Variant voStdFont
	Get ComToolTipFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComName of hoStdFont to "Tahoma"
		Set ComSize of hoStdFont to 14
	Send Destroy to hoStdFont
	Set ComToolTipWidth to 364
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
24:
How do I disable showing the tooltip for all control
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 0
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
23:
How do I show the tooltip quicker

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexToolTipAppearance to |CI$1000000
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
22:
Can I change the default border of the tooltip, using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexToolTipAppearance to |CI$1000000
	Set ComFormat to "1"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "This is a bit of text that should occurs when the cursor hovers the panel"
		Set ComToolTipText of hoPanel to (ComText(hoPanel))
		Set ComToolTipTitle of hoPanel to "Title"
		Set ComAlignment of hoPanel to OLEexAlignMiddleLeft
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
21:
How do I retrieve the handle of the window
Procedure OnCreate
	Forward Send OnCreate
	Set ComFormat to (ComhWnd(Self))
	Send ComClearPanels
End_Procedure
20:
How can I prevent the control from painting when multiple changes occurs
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComImage of hoPanel to 1
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "<img>2</img>"
		Set ComAlignment of hoPanel2 to OLEexAlignMiddleRight
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure
19:
How can I insert an icon aligned to the right

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 2 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<img>2</img>"
		Set ComAlignment of hoPanel to OLEexAlignMiddleRight
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
18:
How can I insert an icon to a panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 2 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComText of hoPanel to "<img>2</img>"
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
17:
How can I insert icons to status bar control

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComImage of hoPanel to 1
	Send Destroy to hoPanel
	Variant voPanel1
	Get ComPanel 2 to voPanel1
	Handle hoPanel1
	Get Create (RefClass(cComPanel)) to hoPanel1
	Set pvComObject of hoPanel1 to voPanel1
		Set ComText of hoPanel1 to "<img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> icons"
	Send Destroy to hoPanel1
	Variant voPanel2
	Get ComPanel 3 to voPanel2
	Handle hoPanel2
	Get Create (RefClass(cComPanel)) to hoPanel2
	Set pvComObject of hoPanel2 to voPanel2
		Set ComText of hoPanel2 to "<img>2</img>"
		Set ComAlignment of hoPanel2 to OLEexAlignMiddleRight
	Send Destroy to hoPanel2
	Send ComEndUpdate
End_Procedure
16:
How can I insert an icon to a panel

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Variant voPanel
	Get ComPanel 1 to voPanel
	Handle hoPanel
	Get Create (RefClass(cComPanel)) to hoPanel
	Set pvComObject of hoPanel to voPanel
		Set ComImage of hoPanel to 1
	Send Destroy to hoPanel
	Send ComEndUpdate
End_Procedure
15:
Is there any option to increase the empty space on borders of the control

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComBorderWidth to 20
	Set ComBorderHeight to 20
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure
14:
How do I get the version of the control
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFormat to (ComVersion(Self))
	Send ComClearPanels
	Send ComEndUpdate
End_Procedure
13:
How do I put a picture on the center of the control

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEMiddleCenter
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure
12:
How do I resize/stretch a picture on the control's background

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEStretch
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure
11:
How do I put a picture on the control's center right bottom side

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLELowerRight
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure
10:
How do I put a picture on the control's center left bottom side

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLELowerLeft
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure
9:
How do I put a picture on the control's center top side

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEUpperCenter
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure
8:
How do I put a picture on the control's right top corner

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEUpperRight
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure
7:
How do I put a picture on the control's left top corner

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEUpperLeft
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure
6:
How do I put a picture on the control's background

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure
5:
How do I change the control's foreground color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComForeColor to (RGB(120,120,120))
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure
4:
How do I change the control's background color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComBackColor to (RGB(200,200,200))
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure
3:
How do I change the control's border, using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComAppearance to |CI$1000000
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance1
	Variant voAppearance2
	Get ComVisualAppearance to voAppearance2
	Handle hoAppearance2
	Get Create (RefClass(cComAppearance)) to hoAppearance2
	Set pvComObject of hoAppearance2 to voAppearance2
		Get ComAdd of hoAppearance2 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance2
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure
2:
How do I remove the control's border

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure
1:
How can I change the control's font

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Variant f
	Get Comcreateobject "StdFont" to f
		Set ComName to "Verdana"
		Set ComSize to 12
	Set ComFont to f
	Set ComFormat to ""static text"[fg=255][a=17],11,22,(33/44)"
	Send ComEndUpdate
End_Procedure