|
176
|
How can I select an item using on its full part, not only on its icon or caption
' Occurs when the user presses and then releases the left mouse button over the control.
function Click as v ()
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
? oExplorerBar.ItemFromPoint(-1,-1)
end function
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
Dim var_Item1 as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.HighlightItemType = 19 'exFull + exUnion
var_Group = oExplorerBar.Groups.Add("Group 1")
' var_Group.AddItem("Item <b>1</b>").CaptionFormat = 1
var_Item = var_Group.AddItem("Item <b>1</b>")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.CaptionFormat = 1"
' var_Group.AddItem("Item <b>2</b>").CaptionFormat = 1
var_Item1 = var_Group.AddItem("Item <b>2</b>")
oExplorerBar.TemplateDef = "dim var_Item1"
oExplorerBar.TemplateDef = var_Item1
oExplorerBar.Template = "var_Item1.CaptionFormat = 1"
var_Group.Expanded = .t.
|
|
175
|
How can I change the group's color
Dim oExplorerBar as P
Dim var_Groups as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BackColorGroup = 255
oExplorerBar.BackColorGroup2 = oExplorerBar.BackColorGroup
oExplorerBar.GroupAppearance = 0
var_Groups = oExplorerBar.Groups
var_Groups.Add("Group 1")
var_Groups.Add("Group 2")
|
|
174
|
How can remove the group's appearance
Dim oExplorerBar as P
Dim var_Groups as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BackColorGroup = oExplorerBar.BackColor
oExplorerBar.BackColorGroup2 = oExplorerBar.BackColor
oExplorerBar.GroupAppearance = 1
var_Groups = oExplorerBar.Groups
var_Groups.Add("Group 1")
var_Groups.Add("Group 2")
|
|
173
|
How can I align the group/item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.Alignment = 0
' var_Group.AddItem("Item 1").Alignment = 0
var_Item = var_Group.AddItem("Item 1")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.Alignment = 0"
var_Group.Expanded = .t.
oExplorerBar.EndUpdate()
|
|
172
|
Just seen the BackgroundExt property. Not sure what I can do with that
' Occurs when a new group is added to collection.
function AddGroup as v (Group as OLE::Exontrol.ExplorerBar.1::IGroup)
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
end function
' Occurs when a new item is added to a group.
function AddItem as v (Item as OLE::Exontrol.ExplorerBar.1::IItem)
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
end function
Dim oExplorerBar as P
Dim var_Appearance as P
Dim var_Group as P
Dim var_Group1 as P
Dim var_Group2 as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
oExplorerBar.Appearance = 0
var_Appearance = oExplorerBar.VisualAppearance
var_Appearance.Add(1,"c:\exontrol\images\normal.ebn")
var_Appearance.Add(2,"CP:1 48 12 -24 0")
var_Appearance.Add(3,"c:\exontrol\images\pushed.ebn")
oExplorerBar.Template = "HTMLPicture(`uk`) = `c:\exontrol\images\zipdisk.gif`" // oExplorerBar.HTMLPicture("uk") = "c:\exontrol\images\zipdisk.gif"
oExplorerBar.Template = "HTMLPicture(`brazil`) = `c:\exontrol\images\auction.gif`" // oExplorerBar.HTMLPicture("brazil") = "c:\exontrol\images\auction.gif"
oExplorerBar.Template = "HTMLPicture(`sweden`) = `c:\exontrol\images\colorize.gif`" // oExplorerBar.HTMLPicture("sweden") = "c:\exontrol\images\colorize.gif"
oExplorerBar.BackColorGroup = 33554432
oExplorerBar.BackColorGroup2 = oExplorerBar.BackColorGroup
oExplorerBar.GroupHeight = 40
var_Group = oExplorerBar.Groups.Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>United Kingdom")
' var_Group.BackgroundExtValue(2,4) = "<img>uk:44</img>"
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.BackgroundExtValue(2,4) = `<img>uk:44</img>`"
var_Group.AddItem("London Eye")
var_Group.AddItem("Tower of London")
var_Group.AddItem("Buckingham Palace")
var_Group.AddItem("River Thames")
var_Group.AddItem("Stonehenge")
var_Group1 = oExplorerBar.Groups.Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>Brazil")
' var_Group1.BackgroundExtValue(2,4) = "<img>brazil:44</img>"
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.BackgroundExtValue(2,4) = `<img>brazil:44</img>`"
var_Group1.AddItem("Cristo Redentor")
var_Group1.AddItem("Copacabana")
var_Group1.AddItem("Ipanema, Rio de Janeiro")
var_Group1.AddItem("Iguazu Falls")
var_Group1.AddItem("Sugarloaf Mountain")
var_Group1.Expanded = .t.
var_Group2 = oExplorerBar.Groups.Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>Sweden")
' var_Group2.BackgroundExtValue(2,4) = "<img>sweden:44</img>"
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.BackgroundExtValue(2,4) = `<img>sweden:44</img>`"
var_Group2.AddItem("Gamla stan")
var_Group2.AddItem("Vasa Museum")
var_Group2.AddItem("Stockholm Palace")
var_Group2.AddItem("Skansen")
var_Group2.AddItem("Djurgården")
oExplorerBar.EndUpdate()
|
|
171
|
Can I specify a different colors for groups using your EBN files
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExplorerBar.BackColorGroup = 16777216
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("Group 2").BackColor = 16820923
var_Group = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.BackColor = 16820923"
|
|
170
|
Can I change the color of the control's border (EBN files)
Dim oExplorerBar as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExplorerBar.Appearance = 27966412 '1aabbc8 + exDrop
|
|
169
|
How can I make the items visible automatically, or how can I ensure an item is visible or it is shown in the control's client area
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Groups as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
oExplorerBar.GroupHeight = 48
var_Groups = oExplorerBar.Groups
var_Groups.Add("Group 1")
var_Groups.Add("Group 2")
var_Groups.Add("Group 3")
var_Groups.Add("Group 4")
var_Groups.Add("Group 5")
var_Groups.Add("Group 6")
var_Groups.Add("Group 7")
var_Groups.Add("Group 8")
var_Groups.Add("Group 9")
var_Groups.Add("Group 10")
var_Groups.Add("Group 11")
var_Group = var_Groups.Add("Group 12")
var_Group.AddItem(0)
var_Group.AddItem(1)
var_Group.AddItem(2)
oExplorerBar.EnsureVisible(11,2)
oExplorerBar.EndUpdate()
|
|
168
|
How can I scroll to the end of the groups
Dim oExplorerBar as P
Dim var_Groups as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
oExplorerBar.GroupHeight = 48
var_Groups = oExplorerBar.Groups
var_Groups.Add("Group 1")
var_Groups.Add("Group 2")
var_Groups.Add("Group 3")
var_Groups.Add("Group 4")
var_Groups.Add("Group 5")
var_Groups.Add("Group 6")
var_Groups.Add("Group 7")
var_Groups.Add("Group 8")
var_Groups.Add("Group 9")
var_Groups.Add("Group 10")
var_Groups.Add("Group 11")
var_Groups.Add("Group 12")
oExplorerBar.EnsureVisible(11)
oExplorerBar.EndUpdate()
|
|
167
|
How can I display an item by multiple lines
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("SingleLine")
var_Item = var_Group.AddItem("This is bit of text that should break the lines, and so <b>multiple</b> lines are displayed")
var_Item.Alignment = 0
var_Item.CaptionFormat = 1
var_Item.SingleLine = .f.
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
166
|
How can I indent an item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
Dim var_Item1 as P
Dim var_Item2 as P
Dim var_Item3 as P
Dim var_Item4 as P
Dim var_Item5 as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
' var_Group.AddItem("Item 1").Alignment = 0
var_Item = var_Group.AddItem("Item 1")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.Alignment = 0"
var_Item1 = var_Group.AddItem("Sub Item <b>1</b>")
var_Item1.CaptionFormat = 1
var_Item1.Alignment = 0
var_Item1.Indent = 12
var_Item2 = var_Group.AddItem("Sub Item <b>2</b>")
var_Item2.CaptionFormat = 1
var_Item2.Alignment = 0
var_Item2.Indent = 12
var_Item3 = var_Group.AddItem("Sub Item <b>3</b>")
var_Item3.CaptionFormat = 1
var_Item3.Alignment = 0
var_Item3.Indent = 12
var_Item4 = var_Group.AddItem("Sub Sub Item <b>3</b>")
var_Item4.CaptionFormat = 1
var_Item4.Alignment = 0
var_Item4.Indent = 24
var_Item5 = var_Group.AddItem("Item 2")
var_Item5.Alignment = 0
var_Group.Expanded = .t.
|
|
165
|
How can I use HTML format to display my item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
' var_Group.AddItem("<font Tahoma;11>T</font>his is an HTML <b>item</b> assigned to a <fgcolor=FF0000>group</fgcolor>").CaptionFormat = 1
var_Item = var_Group.AddItem("<font Tahoma;11>T</font>his is an HTML <b>item</b> assigned to a <fgcolor=FF0000>group</fgcolor>")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.CaptionFormat = 1"
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
164
|
How can I assign a tooltip to an item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
' var_Group.AddItem("ToolTip").ToolTip = "This is bit of text that should appear when the cursor hovers the <b>item</b>."
var_Item = var_Group.AddItem("ToolTip")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.ToolTip = `This is bit of text that should appear when the cursor hovers the <b>item</b>.`"
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
163
|
How can I show or hide an item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
' var_Group.AddItem("Item 2").Visible = .f.
var_Item = var_Group.AddItem("Item 2")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.Visible = False"
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
162
|
How can I align an icon for an item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as P
Dim var_Item1 as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Item = var_Group.AddItem("Item 1")
var_Item.Image = 1
var_Item.ImageAlignment = 0
var_Item1 = var_Group.AddItem("Item 2")
var_Item1.Image = 2
var_Item1.ImageAlignment = 2
var_Group.Expanded = .t.
|
|
161
|
How can I stop highlighting an item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
' var_Group.AddItem("Item 2 - no ").AllowHighLight = .f.
var_Item = var_Group.AddItem("Item 2 - no ")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.AllowHighLight = False"
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
160
|
How can I change the item's background color
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
var_Item = var_Group.AddItem("Item 2")
var_Item.BackColor = 255
var_Item.BackColor2 = 16777215
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
159
|
How can I change the item's background color
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
' var_Group.AddItem("<bgcolor=FF0000>Item</bgcolor> 2").CaptionFormat = 1
var_Item = var_Group.AddItem("<bgcolor=FF0000>Item</bgcolor> 2")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.CaptionFormat = 1"
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
158
|
How can I change the item's foreground color
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
' var_Group.AddItem("Item 2").ForeColor = 255
var_Item = var_Group.AddItem("Item 2")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.ForeColor = 255"
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
157
|
How can I change the visual appearance of the item using your EBN files
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
' var_Group.AddItem("Item 2").BackColor = 16777216
var_Item = var_Group.AddItem("Item 2")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.BackColor = 16777216"
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
156
|
How can I change the item's background color
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
' var_Group.AddItem("Item 2").BackColor = 255
var_Item = var_Group.AddItem("Item 2")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.BackColor = 255"
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
155
|
How can I get the group of the item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Group1 as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
' var_Group.AddItem("Item 2").Group.Bold = .t.
var_Group1 = var_Group.AddItem("Item 2").Group
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Bold = True"
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
154
|
How can I get the index of the item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as P
Dim var_Item1 as P
Dim var_Item2 as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Item = var_Group.AddItem("Item 1")
var_Item.Caption = var_Item.Index
var_Item1 = var_Group.AddItem("Item 2")
var_Item1.Caption = var_Item1.Index
var_Item2 = var_Group.AddItem("Item 3")
var_Item2.Caption = var_Item2.Index
var_Group.Expanded = .t.
|
|
153
|
How can I draw underlined an item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
' var_Group.AddItem("<u>Item</u> 2").CaptionFormat = 1
var_Item = var_Group.AddItem("<u>Item</u> 2")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.CaptionFormat = 1"
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
152
|
How can I draw underlined an item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
' var_Group.AddItem("Item 2").Underline = .t.
var_Item = var_Group.AddItem("Item 2")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.Underline = True"
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
151
|
How can I draw as strikeout an item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
' var_Group.AddItem("<s>Item</s> 2").CaptionFormat = 1
var_Item = var_Group.AddItem("<s>Item</s> 2")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.CaptionFormat = 1"
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
150
|
How can I draw as strikeout an item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
' var_Group.AddItem("Item 2").StrikeOut = .t.
var_Item = var_Group.AddItem("Item 2")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.StrikeOut = True"
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
149
|
How can I draw as italic an item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
' var_Group.AddItem("<i>Item</i> 2").CaptionFormat = 1
var_Item = var_Group.AddItem("<i>Item</i> 2")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.CaptionFormat = 1"
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
148
|
How can I draw as italic an item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
' var_Group.AddItem("Item 2").Italic = .t.
var_Item = var_Group.AddItem("Item 2")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.Italic = True"
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
147
|
How can I add a anchor or a hyperlink
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
Dim var_Item1 as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.HighlightItemType = 0
oExplorerBar.HandCursor = .f.
var_Group = oExplorerBar.Groups.Add("Group 1")
' var_Group.AddItem("Link <a1><b>1</b></a>").CaptionFormat = 1
var_Item = var_Group.AddItem("Link <a1><b>1</b></a>")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.CaptionFormat = 1"
' var_Group.AddItem("Link <a2><b>2</b></a>").CaptionFormat = 1
var_Item1 = var_Group.AddItem("Link <a2><b>2</b></a>")
oExplorerBar.TemplateDef = "dim var_Item1"
oExplorerBar.TemplateDef = var_Item1
oExplorerBar.Template = "var_Item1.CaptionFormat = 1"
var_Group.Expanded = .t.
|
|
146
|
How do I bold an item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
' var_Group.AddItem("<b>Item</a> 2").CaptionFormat = 1
var_Item = var_Group.AddItem("<b>Item</a> 2")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.CaptionFormat = 1"
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
145
|
How do I bold an item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
' var_Group.AddItem("Item 2").Bold = .t.
var_Item = var_Group.AddItem("Item 2")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.Bold = True"
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
144
|
How can I align an item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
Dim var_Item1 as local
Dim var_Item2 as local
Dim var_Item3 as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.ItemHeight = 28
' var_Group.AddItem("Left",1).Alignment = 0
var_Item = var_Group.AddItem("Left",1)
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.Alignment = 0"
' var_Group.AddItem("Center",2).Alignment = 1
var_Item1 = var_Group.AddItem("Center",2)
oExplorerBar.TemplateDef = "dim var_Item1"
oExplorerBar.TemplateDef = var_Item1
oExplorerBar.Template = "var_Item1.Alignment = 1"
' var_Group.AddItem("Right",3).Alignment = 2
var_Item2 = var_Group.AddItem("Right",3)
oExplorerBar.TemplateDef = "dim var_Item2"
oExplorerBar.TemplateDef = var_Item2
oExplorerBar.Template = "var_Item2.Alignment = 2"
' var_Group.AddItem("Middle",1).Alignment = 4
var_Item3 = var_Group.AddItem("Middle",1)
oExplorerBar.TemplateDef = "dim var_Item3"
oExplorerBar.TemplateDef = var_Item3
oExplorerBar.Template = "var_Item3.Alignment = 4"
var_Group.Expanded = .t.
|
|
143
|
How can I assign some extra data to an item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
' var_Group.AddItem("Item 1").UserData = "your data"
var_Item = var_Group.AddItem("Item 1")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.UserData = `your data`"
var_Group.AddItem("Item 2")
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
142
|
How can I assign or display an icon for an item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
Dim var_Item1 as local
Dim var_Item2 as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oExplorerBar.Groups.Add("Group 1")
' var_Group.AddItem("Item <img>1</img> text <img>2</img>").CaptionFormat = 1
var_Item = var_Group.AddItem("Item <img>1</img> text <img>2</img>")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.CaptionFormat = 1"
' var_Group.AddItem("Item 2").Image = 2
var_Item1 = var_Group.AddItem("Item 2")
oExplorerBar.TemplateDef = "dim var_Item1"
oExplorerBar.TemplateDef = var_Item1
oExplorerBar.Template = "var_Item1.Image = 2"
' var_Group.AddItem("Item 3").Image = 3
var_Item2 = var_Group.AddItem("Item 3")
oExplorerBar.TemplateDef = "dim var_Item2"
oExplorerBar.TemplateDef = var_Item2
oExplorerBar.Template = "var_Item2.Image = 3"
var_Group.Expanded = .t.
|
|
141
|
How can I assign or display an icon for an item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
Dim var_Item1 as local
Dim var_Item2 as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oExplorerBar.Groups.Add("Group 1")
' var_Group.AddItem("Item 1").Image = 1
var_Item = var_Group.AddItem("Item 1")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.Image = 1"
' var_Group.AddItem("Item 2").Image = 2
var_Item1 = var_Group.AddItem("Item 2")
oExplorerBar.TemplateDef = "dim var_Item1"
oExplorerBar.TemplateDef = var_Item1
oExplorerBar.Template = "var_Item1.Image = 2"
' var_Group.AddItem("Item 3").Image = 3
var_Item2 = var_Group.AddItem("Item 3")
oExplorerBar.TemplateDef = "dim var_Item2"
oExplorerBar.TemplateDef = var_Item2
oExplorerBar.Template = "var_Item2.Image = 3"
var_Group.Expanded = .t.
|
|
140
|
How can I assign or display an icon for an item
Dim oExplorerBar as P
Dim var_Group as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1",1)
var_Group.AddItem("Item 2",2)
var_Group.AddItem("Item 3",3)
var_Group.Expanded = .t.
|
|
139
|
How can I change the item's position
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
' var_Group.AddItem("Item 3").Position = 0
var_Item = var_Group.AddItem("Item 3")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.Position = 0"
var_Group.Expanded = .t.
|
|
138
|
How can I change the item's caption
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
' var_Group.AddItem("Item 2").Caption = "new caption"
var_Item = var_Group.AddItem("Item 2")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.Caption = `new caption`"
var_Group.AddItem("Item 3")
var_Group.Expanded = .t.
|
|
137
|
How do I add new items
Dim oExplorerBar as P
Dim var_Item as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
' oExplorerBar.Groups.Add("Group 1").AddItem("Item 1").Bold = .t.
var_Item = oExplorerBar.Groups.Add("Group 1").AddItem("Item 1")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.Bold = True"
|
|
136
|
How do I assign a group to a set in the shortcut bar
Dim oExplorerBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.ShowShortcutBar = .t.
' oExplorerBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"
' oExplorerBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"
' oExplorerBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"
' oExplorerBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oExplorerBar.Groups.Add("Group 4")
oExplorerBar.TemplateDef = "dim var_Group3"
oExplorerBar.TemplateDef = var_Group3
oExplorerBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"
|
|
135
|
How can I show or hide the expanding or collapsing button
Dim oExplorerBar as P
Dim var_Group as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1").AddItem("Item 1")
var_Group = oExplorerBar.Groups.Add("Group 2, expanding/collapsing button is missing ")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.Expanded = .t.
var_Group.AllowExpand = .f.
oExplorerBar.Groups.Add("Group 3").AddItem("Item 1")
|
|
134
|
How can I avoid expanding or collapsing a group
Dim oExplorerBar as P
Dim var_Group as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1").AddItem("Item 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.Expanded = .t.
var_Group.AllowExpand = .f.
oExplorerBar.Groups.Add("Group 3").AddItem("Item 1")
|
|
133
|
How can I assign a tooltip to a group
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.ToolTipDelay = 1
' oExplorerBar.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the <b>group</b>."
var_Group = oExplorerBar.Groups.Add("ToolTip")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.ToolTip = `This is a bit of text that's shown when the cursor hovers the <b>group</b>.`"
|
|
132
|
How can I display HTML text in the group's caption
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.GroupHeight = 44
oExplorerBar.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oExplorerBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
' oExplorerBar.Groups.Add("<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>").CaptionFormat = 1
var_Group = oExplorerBar.Groups.Add("<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"
|
|
131
|
How can I disable scrolling the group's list when it is expanded or collapsed
Dim oExplorerBar as P
Dim var_Group as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.Expanded = .t.
var_Group.AllowScroll = .f.
oExplorerBar.Groups.Add("Group 3")
|
|
130
|
How can I change the group's background color ( gradient )
Dim oExplorerBar as P
Dim var_Group as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
var_Group.BackColor = 255
var_Group.BackColor2 = 16777215
oExplorerBar.Groups.Add("Group 3")
|
|
129
|
How can I access the bounding rectangle of the group's area
Dim oExplorerBar as P
Dim var_Group as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.AddItem(var_Group.Top)
var_Group.AddItem(var_Group.Left)
var_Group.AddItem(var_Group.Width)
var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 3")
|
|
128
|
How can I expand or collapse a group
Dim oExplorerBar as P
Dim var_Group as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 3")
|
|
127
|
How can I specify the height of the items
Dim oExplorerBar as P
Dim var_Group as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.ItemHeight = 13
var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 3")
|
|
126
|
How do I put a picture on the group's background
Dim oExplorerBar as P
Dim var_Group as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.Picture = oExplorerBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
var_Group.PictureDisplay = 2
var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 3")
|
|
125
|
How do I put a picture on the group's background
Dim oExplorerBar as P
Dim var_Group as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.Picture = oExplorerBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 3")
|
|
124
|
How can I change the foreground color for items
Dim oExplorerBar as P
Dim var_Group as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.ForeColorList = 255
var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 3")
|
|
123
|
How can I change the background color for the items
Dim oExplorerBar as P
Dim var_Group as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.BackColorList = 255
var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 3")
|
|
122
|
How can I change the group's foreground color
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2").CaptionFormat = 1
var_Group = oExplorerBar.Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"
oExplorerBar.Groups.Add("Group 3")
|
|
121
|
How can I change the group's foreground color
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("Group 2").ForeColor = 255
var_Group = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.ForeColor = 255"
oExplorerBar.Groups.Add("Group 3")
|
|
120
|
How can I change the group's background color
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2").CaptionFormat = 1
var_Group = oExplorerBar.Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"
oExplorerBar.Groups.Add("Group 3")
|
|
119
|
How can I change the visual appearance of the group, using EBN files
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExplorerBar.GroupAppearance = 1
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("Group 2").BackColor = 16777216
var_Group = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.BackColor = 16777216"
oExplorerBar.Groups.Add("Group 3")
|
|
118
|
How can I change the group's background color
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("Group 2").BackColor = 255
var_Group = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.BackColor = 255"
oExplorerBar.Groups.Add("Group 3")
|
|
117
|
How do I get the index of the group
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Group1 as P
Dim var_Group2 as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.Caption = var_Group.Index
var_Group1 = oExplorerBar.Groups.Add("Group 2")
var_Group1.Caption = var_Group1.Index
var_Group2 = oExplorerBar.Groups.Add("Group 3")
var_Group2.Caption = var_Group2.Index
|
|
116
|
How can I underline the group's name
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
' oExplorerBar.Groups.Add("<u>Group</u> 1").CaptionFormat = 1
var_Group = oExplorerBar.Groups.Add("<u>Group</u> 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"
|
|
115
|
How can I underline the group's name
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("Group 2").Underline = .t.
var_Group = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Underline = True"
oExplorerBar.Groups.Add("Group 3")
|
|
114
|
How can I show the group's name as strikeout
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
' oExplorerBar.Groups.Add("<s>Group</s> 1").CaptionFormat = 1
var_Group = oExplorerBar.Groups.Add("<s>Group</s> 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"
|
|
113
|
How can I show the group's name as strikeout
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("Group 2").StrikeOut = .t.
var_Group = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.StrikeOut = True"
oExplorerBar.Groups.Add("Group 3")
|
|
112
|
How can I draw as italic the group's name
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
' oExplorerBar.Groups.Add("<i>Group</i> 1").CaptionFormat = 1
var_Group = oExplorerBar.Groups.Add("<i>Group</i> 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"
|
|
111
|
How do I draw italic the group's name
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("Group 2").Italic = .t.
var_Group = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Italic = True"
oExplorerBar.Groups.Add("Group 3")
|
|
110
|
How do I bold the group's name
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
' oExplorerBar.Groups.Add("<b>Group</b> 1").CaptionFormat = 1
var_Group = oExplorerBar.Groups.Add("<b>Group</b> 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"
|
|
109
|
How do I bold the group's name
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("Group 2").Bold = .t.
var_Group = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Bold = True"
oExplorerBar.Groups.Add("Group 3")
|
|
108
|
How can I align the icon in the group's caption
Dim oExplorerBar as P
Dim var_Group as P
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.Image = 1
var_Group.ImageAlignment = 2
var_Group.Alignment = 2
|
|
107
|
How can I align the group's name
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
' oExplorerBar.Groups.Add("Group 1").Alignment = 2
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Alignment = 2"
|
|
106
|
How can I align the group's name
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
' oExplorerBar.Groups.Add("Group 1").Alignment = 0
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Alignment = 0"
|
|
105
|
How can I assign some extra data to a group
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
' oExplorerBar.Groups.Add("Group 1").UserData = "your data"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.UserData = `your data`"
|
|
104
|
How can I display an icon in the group's caption
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
' oExplorerBar.Groups.Add("Group <img>1</img> text <img>2</img>").CaptionFormat = 1
var_Group = oExplorerBar.Groups.Add("Group <img>1</img> text <img>2</img>")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"
|
|
103
|
How can I display an icon in the group's caption
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
' oExplorerBar.Groups.Add("Group 1").Image = 1
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Image = 1"
|
|
102
|
How can I access an item by its position
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
Dim var_Item1 as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
' var_Group.AddItem("Item 3").Position = 0
var_Item = var_Group.AddItem("Item 3")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.Position = 0"
' var_Group.ItemByPos(1).Bold = .t.
var_Item1 = var_Group.ItemByPos(1)
oExplorerBar.TemplateDef = "dim var_Item1"
oExplorerBar.TemplateDef = var_Item1
oExplorerBar.Template = "var_Item1.Bold = True"
var_Group.Expanded = .t.
|
|
101
|
How can I change the position of a group
Dim oExplorerBar as P
Dim var_Group as local
oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
oExplorerBar.Groups.Add("Group 2")
' oExplorerBar.Groups.Add("Group 3").Position = 0
var_Group = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Position = 0"
|