13:
Can I display items one below to other

Dim oToolBarCRD as P
Dim var_Item as local
Dim var_Item1 as local
Dim var_Item2 as local
Dim var_Item3 as local

oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
oToolBarCRD.Format = "(1/2):64,(3/4):64"
' oToolBarCRD.Item(1).Caption = "Item <off 4><b>A"
var_Item = oToolBarCRD.Item(1)
oToolBarCRD.TemplateDef = "dim var_Item"
oToolBarCRD.TemplateDef = var_Item
oToolBarCRD.Template = "var_Item.Caption = `Item <off 4><b>A`"

' oToolBarCRD.Item(2).Caption = "Item <off 4><b>B"
var_Item1 = oToolBarCRD.Item(2)
oToolBarCRD.TemplateDef = "dim var_Item1"
oToolBarCRD.TemplateDef = var_Item1
oToolBarCRD.Template = "var_Item1.Caption = `Item <off 4><b>B`"

' oToolBarCRD.Item(3).Caption = "Item <off 4><b>C"
var_Item2 = oToolBarCRD.Item(3)
oToolBarCRD.TemplateDef = "dim var_Item2"
oToolBarCRD.TemplateDef = var_Item2
oToolBarCRD.Template = "var_Item2.Caption = `Item <off 4><b>C`"

' oToolBarCRD.Item(4).Caption = "Item <off 4><b>D"
var_Item3 = oToolBarCRD.Item(4)
oToolBarCRD.TemplateDef = "dim var_Item3"
oToolBarCRD.TemplateDef = var_Item3
oToolBarCRD.Template = "var_Item3.Caption = `Item <off 4><b>D`"


12:
How can I add a separator item

Dim oToolBarCRD as P

oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
oToolBarCRD.Format = "1,2,-1,3,4"

11:
Is it possible to disable an item

Dim oToolBarCRD as P
Dim var_Item as local
Dim var_Item1 as local
Dim var_Item2 as P

oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
oToolBarCRD.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oToolBarCRD.BackColor = 16777215
oToolBarCRD.Format = "1,2,3"
' oToolBarCRD.Item(1).Caption = "<img>1</img>"
var_Item = oToolBarCRD.Item(1)
oToolBarCRD.TemplateDef = "dim var_Item"
oToolBarCRD.TemplateDef = var_Item
oToolBarCRD.Template = "var_Item.Caption = `<img>1</img>`"

' oToolBarCRD.Item(2).Caption = "<img>2</img>"
var_Item1 = oToolBarCRD.Item(2)
oToolBarCRD.TemplateDef = "dim var_Item1"
oToolBarCRD.TemplateDef = var_Item1
oToolBarCRD.Template = "var_Item1.Caption = `<img>2</img>`"

var_Item2 = oToolBarCRD.Item(3)
	var_Item2.Caption = "<img>3</img>Disabled"
	var_Item2.Enabled = .f.

10:
Is it possible to change the item's caption/image when user hovers the cursor

' Occurs when the mouse enters the part.
function MouseIn as v (ID  as  A)
	Dim var_Item as local
	oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
	' oToolBarCRD.Item(ID).Caption = "hover"
	var_Item = oToolBarCRD.Item(ID)
	oToolBarCRD.TemplateDef = "dim var_Item"
	oToolBarCRD.TemplateDef = var_Item
	oToolBarCRD.Template = "var_Item.Caption = `hover`"

end function

' Occurs when the mouse exists the part.
function MouseOut as v (ID  as  A)
	Dim var_Item as local
	oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
	' oToolBarCRD.Item(ID).Caption = ID
	var_Item = oToolBarCRD.Item(ID)
	oToolBarCRD.TemplateDef = "dim var_Item"
	oToolBarCRD.TemplateDef = var_Item
	oToolBarCRD.Template = "var_Item.Caption = ID"

end function

Dim oToolBarCRD as P

oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
oToolBarCRD.Format = "1,2,3,4"

9:
Does your control support tooltip for items

Dim oToolBarCRD as P
Dim var_Item as P
Dim var_Item1 as local
Dim var_Item2 as local

oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
oToolBarCRD.Format = "(1/2),3"
var_Item = oToolBarCRD.Item(1)
	var_Item.Caption = "Item <b>1"
	var_Item.ToolTip = "This is a bit of text that's shown when cursor hovers the item"
' oToolBarCRD.Item(2).Caption = "Item <b>2"
var_Item1 = oToolBarCRD.Item(2)
oToolBarCRD.TemplateDef = "dim var_Item1"
oToolBarCRD.TemplateDef = var_Item1
oToolBarCRD.Template = "var_Item1.Caption = `Item <b>2`"

' oToolBarCRD.Item(3).Caption = "Item <b>3"
var_Item2 = oToolBarCRD.Item(3)
oToolBarCRD.TemplateDef = "dim var_Item2"
oToolBarCRD.TemplateDef = var_Item2
oToolBarCRD.Template = "var_Item2.Caption = `Item <b>3`"


8:
Is it possible to add an anchor element, similar to a link into a webpage

' Occurs when an anchor element is clicked.
function AnchorClick as v (AnchorID  as  C,Options  as  C)
	oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
	? AnchorID 
end function

Dim oToolBarCRD as P

oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
oToolBarCRD.BackColor = 16777215
oToolBarCRD.Format = "\"<a a1>link</a>\":32,1,2,3"

7:
How can I change the background of the hovering item

Dim oToolBarCRD as P

oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
oToolBarCRD.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oToolBarCRD.Template = "Background(155) = 16777216" // oToolBarCRD.Background(155) = 16777216
oToolBarCRD.Format = "1,2,3,4"

6:
Can I display an item aligned to the right

Dim oToolBarCRD as P
Dim var_Item as local

oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
oToolBarCRD.Format = "1,2,|,3:64"
' oToolBarCRD.Item(3).Caption = "< <b>right</b> >"
var_Item = oToolBarCRD.Item(3)
oToolBarCRD.TemplateDef = "dim var_Item"
oToolBarCRD.TemplateDef = var_Item
oToolBarCRD.Template = "var_Item.Caption = `< <b>right</b> >`"


5:
Can I display pictures in the toolbar

Dim oToolBarCRD as P
Dim var_Item as local
Dim var_Item1 as local
Dim var_Item2 as local

oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
oToolBarCRD.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\card.png`" // oToolBarCRD.HTMLPicture("pic1") = "c:\exontrol\images\card.png"
oToolBarCRD.Template = "HTMLPicture(`pic2`) = `c:\exontrol\images\diary.png`" // oToolBarCRD.HTMLPicture("pic2") = "c:\exontrol\images\diary.png"
oToolBarCRD.Format = "1,2,3"
' oToolBarCRD.Item(1).Caption = "<img>pic1:48</img>"
var_Item = oToolBarCRD.Item(1)
oToolBarCRD.TemplateDef = "dim var_Item"
oToolBarCRD.TemplateDef = var_Item
oToolBarCRD.Template = "var_Item.Caption = `<img>pic1:48</img>`"

' oToolBarCRD.Item(2).Caption = "<img>pic2:30</img>"
var_Item1 = oToolBarCRD.Item(2)
oToolBarCRD.TemplateDef = "dim var_Item1"
oToolBarCRD.TemplateDef = var_Item1
oToolBarCRD.Template = "var_Item1.Caption = `<img>pic2:30</img>`"

' oToolBarCRD.Item(3).Caption = "<img>pic1:24</img> Picture"
var_Item2 = oToolBarCRD.Item(3)
oToolBarCRD.TemplateDef = "dim var_Item2"
oToolBarCRD.TemplateDef = var_Item2
oToolBarCRD.Template = "var_Item2.Caption = `<img>pic1:24</img> Picture`"


4:
Can I display icons in the toolbar

Dim oToolBarCRD as P
Dim var_Item as local
Dim var_Item1 as local
Dim var_Item2 as local

oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
oToolBarCRD.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oToolBarCRD.BackColor = 16777215
oToolBarCRD.Format = "1,2,3"
' oToolBarCRD.Item(1).Caption = "<img>1</img>"
var_Item = oToolBarCRD.Item(1)
oToolBarCRD.TemplateDef = "dim var_Item"
oToolBarCRD.TemplateDef = var_Item
oToolBarCRD.Template = "var_Item.Caption = `<img>1</img>`"

' oToolBarCRD.Item(2).Caption = "<img>2</img>"
var_Item1 = oToolBarCRD.Item(2)
oToolBarCRD.TemplateDef = "dim var_Item1"
oToolBarCRD.TemplateDef = var_Item1
oToolBarCRD.Template = "var_Item1.Caption = `<img>2</img>`"

' oToolBarCRD.Item(3).Caption = "<img>3</img>Icon"
var_Item2 = oToolBarCRD.Item(3)
oToolBarCRD.TemplateDef = "dim var_Item2"
oToolBarCRD.TemplateDef = var_Item2
oToolBarCRD.Template = "var_Item2.Caption = `<img>3</img>Icon`"


3:
How can I get ride of the top-bottom lines

Dim oToolBarCRD as P
Dim var_Item as local
Dim var_Item1 as local

oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
oToolBarCRD.Appearance = 4
oToolBarCRD.BackColor = 16777215
oToolBarCRD.Format = "1,-1,2"
' oToolBarCRD.Item(1).Caption = "Exit"
var_Item = oToolBarCRD.Item(1)
oToolBarCRD.TemplateDef = "dim var_Item"
oToolBarCRD.TemplateDef = var_Item
oToolBarCRD.Template = "var_Item.Caption = `Exit`"

' oToolBarCRD.Item(2).Caption = "Item <b>A\r\nItem <b>A#1\r\nItem <b>B#2\r\nItem <b>C#3"
var_Item1 = oToolBarCRD.Item(2)
oToolBarCRD.TemplateDef = "dim var_Item1"
oToolBarCRD.TemplateDef = var_Item1
oToolBarCRD.Template = "var_Item1.Caption = `Item <b>A\r\nItem <b>A#1\r\nItem <b>B#2\r\nItem <b>C#3`"


2:
How can I display a drop-down panel

' Notifies once the user clicks the item.
function Select as v (ID  as  A,SelectedID  as  A)
	oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
	? "Select" 
	? SelectedID 
end function

Dim oToolBarCRD as P
Dim var_Item as local
Dim var_Item1 as local

oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
oToolBarCRD.Format = "1,-1,2"
' oToolBarCRD.Item(1).Caption = "Exit"
var_Item = oToolBarCRD.Item(1)
oToolBarCRD.TemplateDef = "dim var_Item"
oToolBarCRD.TemplateDef = var_Item
oToolBarCRD.Template = "var_Item.Caption = `Exit`"

' oToolBarCRD.Item(2).Caption = "Item <b>A\r\nItem <b>A#1\r\nItem <b>B#2\r\nItem <b>C#3"
var_Item1 = oToolBarCRD.Item(2)
oToolBarCRD.TemplateDef = "dim var_Item1"
oToolBarCRD.TemplateDef = var_Item1
oToolBarCRD.Template = "var_Item1.Caption = `Item <b>A\r\nItem <b>A#1\r\nItem <b>B#2\r\nItem <b>C#3`"


1:
How can I add / display items with the toolbar

' Notifies once the user clicks the item.
function Select as v (ID  as  A,SelectedID  as  A)
	oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
	? "Select" 
	? oToolBarCRD.Item(ID).Caption 
end function

Dim oToolBarCRD as P
Dim var_Item as local
Dim var_Item1 as local
Dim var_Item2 as local

oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
oToolBarCRD.Format = "1,-1,2,3"
' oToolBarCRD.Item(1).Caption = "Exit"
var_Item = oToolBarCRD.Item(1)
oToolBarCRD.TemplateDef = "dim var_Item"
oToolBarCRD.TemplateDef = var_Item
oToolBarCRD.Template = "var_Item.Caption = `Exit`"

' oToolBarCRD.Item(2).Caption = "Item <b>A"
var_Item1 = oToolBarCRD.Item(2)
oToolBarCRD.TemplateDef = "dim var_Item1"
oToolBarCRD.TemplateDef = var_Item1
oToolBarCRD.Template = "var_Item1.Caption = `Item <b>A`"

' oToolBarCRD.Item(3).Caption = "Item <b>B"
var_Item2 = oToolBarCRD.Item(3)
oToolBarCRD.TemplateDef = "dim var_Item2"
oToolBarCRD.TemplateDef = var_Item2
oToolBarCRD.Template = "var_Item2.Caption = `Item <b>B`"