|
164
|
How can I select an item using on its full part, not only on its icon or caption
/*
with (this.EXLISTBARACTIVEXCONTROL1.nativeObject)
Click = class::nativeObject_Click
endwith
*/
// Occurs when the user presses and then releases the left mouse button over the control.
function nativeObject_Click()
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
? Str(oListBar.ItemFromPoint(-1,-1))
return
local oListBar,var_Group,var_Item,var_Item1
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.HighlightItemType = 19 /*exFull | exUnion*/
var_Group = oListBar.Groups.Add("Group 1")
// var_Group.AddItem("Item <b>1</b>").CaptionFormat = 1
var_Item = var_Group.AddItem("Item <b>1</b>")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.CaptionFormat = 1]
endwith
// var_Group.AddItem("Item <b>2</b>").CaptionFormat = 1
var_Item1 = var_Group.AddItem("Item <b>2</b>")
with (oListBar)
TemplateDef = [dim var_Item1]
TemplateDef = var_Item1
Template = [var_Item1.CaptionFormat = 1]
endwith
|
|
163
|
Does your control support subscript or superscript, in HTML captions
local oListBar,var_Group,var_Item,var_Item1
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group")
// var_Group.AddItem("Item <b><off 4><font ;6>1").CaptionFormat = 1
var_Item = var_Group.AddItem("Item <b><off 4><font ;6>1")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.CaptionFormat = 1]
endwith
// var_Group.AddItem("Item <b><off 4><font ;6>2").CaptionFormat = 1
var_Item1 = var_Group.AddItem("Item <b><off 4><font ;6>2")
with (oListBar)
TemplateDef = [dim var_Item1]
TemplateDef = var_Item1
Template = [var_Item1.CaptionFormat = 1]
endwith
|
|
162
|
How do I get notified once the user selects or activates a group
/*
with (this.EXLISTBARACTIVEXCONTROL1.nativeObject)
SelectGroup = class::nativeObject_SelectGroup
endwith
*/
// Occurs when a group is selected.
function nativeObject_SelectGroup(OldGroup,NewGroup)
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
? "Current "
? Str(NewGroup)
? "Previously "
? Str(OldGroup)
return
local oListBar,var_Group,var_Group1,var_Group2
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group1 = oListBar.Groups.Add("Group 2")
var_Group1.AddItem("Item 1")
var_Group1.AddItem("Item 2")
var_Group2 = oListBar.Groups.Add("Group 3")
var_Group2.AddItem("Item 1")
var_Group2.AddItem("Item 2")
|
|
161
|
Can I specify a different colors for groups using your EBN files
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.BackColorGroup = 0x1000000
oListBar.Groups.Add("Group 1")
// oListBar.Groups.Add("Group 2").BackColor = 0x100aabb
var_Group = oListBar.Groups.Add("Group 2")
with (oListBar)
TemplateDef = [dim var_Group]
TemplateDef = var_Group
Template = [var_Group.BackColor = 16820923]
endwith
oListBar.SelectGroup = 1
|
|
160
|
Can I change the color of the control's border (EBN files)
local oListBar
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.Appearance = 27966412 /*0x1aabbc8 | exDrop*/
|
|
159
|
How do I specify the width of the item
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.HighlightItemType = 0
var_Group = oListBar.Groups.Add("Group 1")
var_Group.ItemWidth = 32
var_Group.AddItem(Str(0))
var_Group.AddItem(Str(1))
var_Group.AddItem(Str(2))
var_Group.AddItem(Str(3))
var_Group.AddItem(Str(4))
var_Group.AddItem(Str(5))
var_Group.AddItem(Str(6))
var_Group.AddItem(Str(7))
var_Group.AddItem(Str(8))
var_Group.AddItem(Str(9))
oListBar.Groups.Add("Group 2")
|
|
158
|
How do I change the visual appearance of the item from the cursor, using EBN files
local oListBar,var_Appearance,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Appearance = oListBar.VisualAppearance
var_Appearance.Add(1,"c:\exontrol\images\normal.ebn")
var_Appearance.Add(22,"c:\exontrol\images\pushed.ebn")
var_Appearance.Add(2,"CP:22 0 8 0 -8")
oListBar.Template = [Background(4) = 16777216] // oListBar.Background(4) = 0x1000000
oListBar.Template = [Background(5) = 33554432] // oListBar.Background(5) = 0x2000000
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.SelectItem = 1
oListBar.Groups.Add("Group 2")
|
|
157
|
How do I change the visual appearance of the selected item, using EBN files
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.Template = [Background(4) = 16777216] // oListBar.Background(4) = 0x1000000
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.SelectItem = 1
oListBar.Groups.Add("Group 2")
|
|
156
|
How do I select an item
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.SelectItemType = 2
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.SelectItem = 1
oListBar.Groups.Add("Group 2")
|
|
155
|
How do I specify how a selected item shows
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.SelectItemType = 2
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
oListBar.Groups.Add("Group 2")
|
|
154
|
How do I select or activate a group
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1
|
|
153
|
Is there any option to display groups from left to right
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Orientation = 1
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1
|
|
152
|
How do I change the foreground color of the selected group
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.MarkSelectGroup = true
oListBar.SelBackColorGroup = oListBar.BackColorGroup
oListBar.SelForeColorGroup = 0xff
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1
|
|
151
|
How do I highlight the selected group
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.MarkSelectGroup = true
oListBar.SelBackColorGroup = 0x1000000
oListBar.SelForeColorGroup = 0x0
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1
|
|
150
|
How do I change the visual appearance of the selected group, using your EBN files
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.MarkSelectGroup = true
oListBar.SelBackColorGroup = 0x1000000
oListBar.SelForeColorGroup = 0x0
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1
|
|
149
|
How do I specify the background color for selected group
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.MarkSelectGroup = true
oListBar.SelBackColorGroup = 0xff
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1
|
|
148
|
How can I indent an item
local oListBar,var_Group,var_Item,var_Item1,var_Item2,var_Item3,var_Item4,var_Item5
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
// var_Group.AddItem("Item 1").Alignment = 0
var_Item = var_Group.AddItem("Item 1")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.Alignment = 0]
endwith
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
|
|
147
|
How can I use HTML format to display my item
local oListBar,var_Group,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.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>")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.CaptionFormat = 1]
endwith
var_Group.AddItem("Item 3")
|
|
146
|
How can I assign a tooltip to an item
local oListBar,var_Group,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.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")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.ToolTip = "This is bit of text that should appear when the cursor hovers the <b>item</b>."]
endwith
var_Group.AddItem("Item 3")
|
|
145
|
How can I show or hide an item
local oListBar,var_Group,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
// var_Group.AddItem("Item 2").Visible = false
var_Item = var_Group.AddItem("Item 2")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.Visible = False]
endwith
var_Group.AddItem("Item 3")
|
|
144
|
How can I change the item's background color
local oListBar,var_Group,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
var_Item = var_Group.AddItem("Item 2")
var_Item.BackColor = 0xff
var_Item.BackColor2 = 0xffffff
var_Group.AddItem("Item 3")
|
|
143
|
How can I change the item's background color
local oListBar,var_Group,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.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")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.CaptionFormat = 1]
endwith
var_Group.AddItem("Item 3")
|
|
142
|
How can I change the item's foreground color
local oListBar,var_Group,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
// var_Group.AddItem("Item 2").ForeColor = 0xff
var_Item = var_Group.AddItem("Item 2")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.ForeColor = 255]
endwith
var_Group.AddItem("Item 3")
|
|
141
|
How can I change the visual appearance of the item using your EBN files
local oListBar,var_Group,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
// var_Group.AddItem("Item 2").BackColor = 0x1000000
var_Item = var_Group.AddItem("Item 2")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.BackColor = 16777216]
endwith
var_Group.AddItem("Item 3")
|
|
140
|
How can I change the item's background color
local oListBar,var_Group,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
// var_Group.AddItem("Item 2").BackColor = 0xff
var_Item = var_Group.AddItem("Item 2")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.BackColor = 255]
endwith
var_Group.AddItem("Item 3")
|
|
139
|
How can I get the group of the item
local oListBar,var_Group,var_Group1
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
// var_Group.AddItem("Item 2").Group.Bold = true
var_Group1 = var_Group.AddItem("Item 2").Group
with (oListBar)
TemplateDef = [dim var_Group1]
TemplateDef = var_Group1
Template = [var_Group1.Bold = True]
endwith
var_Group.AddItem("Item 3")
|
|
138
|
How can I get the index of the item
local oListBar,var_Group,var_Item,var_Item1,var_Item2
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
var_Item = var_Group.AddItem("Item 1")
var_Item.Caption = Str(var_Item.Index)
var_Item1 = var_Group.AddItem("Item 2")
var_Item1.Caption = Str(var_Item1.Index)
var_Item2 = var_Group.AddItem("Item 3")
var_Item2.Caption = Str(var_Item2.Index)
|
|
137
|
How can I draw underlined an item
local oListBar,var_Group,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.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")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.CaptionFormat = 1]
endwith
var_Group.AddItem("Item 3")
|
|
136
|
How can I draw underlined an item
local oListBar,var_Group,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
// var_Group.AddItem("Item 2").Underline = true
var_Item = var_Group.AddItem("Item 2")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.Underline = True]
endwith
var_Group.AddItem("Item 3")
|
|
135
|
How can I draw as strikeout an item
local oListBar,var_Group,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.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")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.CaptionFormat = 1]
endwith
var_Group.AddItem("Item 3")
|
|
134
|
How can I draw as strikeout an item
local oListBar,var_Group,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
// var_Group.AddItem("Item 2").StrikeOut = true
var_Item = var_Group.AddItem("Item 2")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.StrikeOut = True]
endwith
var_Group.AddItem("Item 3")
|
|
133
|
How can I draw as italic an item
local oListBar,var_Group,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.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")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.CaptionFormat = 1]
endwith
var_Group.AddItem("Item 3")
|
|
132
|
How can I draw as italic an item
local oListBar,var_Group,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
// var_Group.AddItem("Item 2").Italic = true
var_Item = var_Group.AddItem("Item 2")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.Italic = True]
endwith
var_Group.AddItem("Item 3")
|
|
131
|
How can I add a anchor or a hyperlink
local oListBar,var_Group,var_Item,var_Item1
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.HighlightItemType = 0
var_Group = oListBar.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>")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.CaptionFormat = 1]
endwith
// var_Group.AddItem("Link <a2><b>2</b></a>").CaptionFormat = 1
var_Item1 = var_Group.AddItem("Link <a2><b>2</b></a>")
with (oListBar)
TemplateDef = [dim var_Item1]
TemplateDef = var_Item1
Template = [var_Item1.CaptionFormat = 1]
endwith
|
|
130
|
How do I bold an item
local oListBar,var_Group,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.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")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.CaptionFormat = 1]
endwith
var_Group.AddItem("Item 3")
|
|
129
|
How do I bold an item
local oListBar,var_Group,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
// var_Group.AddItem("Item 2").Bold = true
var_Item = var_Group.AddItem("Item 2")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.Bold = True]
endwith
var_Group.AddItem("Item 3")
|
|
128
|
How can I align an item
local oListBar,var_Group,var_Item,var_Item1,var_Item2,var_Item3
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oListBar.Groups.Add("Group 1")
var_Group.ItemHeight = 28
// var_Group.AddItem("Left",1).Alignment = 0
var_Item = var_Group.AddItem("Left",1)
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.Alignment = 0]
endwith
// var_Group.AddItem("Center",2).Alignment = 1
var_Item1 = var_Group.AddItem("Center",2)
with (oListBar)
TemplateDef = [dim var_Item1]
TemplateDef = var_Item1
Template = [var_Item1.Alignment = 1]
endwith
// var_Group.AddItem("Right",3).Alignment = 2
var_Item2 = var_Group.AddItem("Right",3)
with (oListBar)
TemplateDef = [dim var_Item2]
TemplateDef = var_Item2
Template = [var_Item2.Alignment = 2]
endwith
// var_Group.AddItem("Middle",1).Alignment = 4
var_Item3 = var_Group.AddItem("Middle",1)
with (oListBar)
TemplateDef = [dim var_Item3]
TemplateDef = var_Item3
Template = [var_Item3.Alignment = 4]
endwith
|
|
127
|
How can I assign some extra data to an item
local oListBar,var_Group,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
// var_Group.AddItem("Item 1").UserData = "your data"
var_Item = var_Group.AddItem("Item 1")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.UserData = "your data"]
endwith
var_Group.AddItem("Item 2")
var_Group.AddItem("Item 3")
|
|
126
|
How can I assign or display an icon for an item
local oListBar,var_Group,var_Item,var_Item1,var_Item2
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oListBar.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>")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.CaptionFormat = 1]
endwith
// var_Group.AddItem("Item 2").Image = 2
var_Item1 = var_Group.AddItem("Item 2")
with (oListBar)
TemplateDef = [dim var_Item1]
TemplateDef = var_Item1
Template = [var_Item1.Image = 2]
endwith
// var_Group.AddItem("Item 3").Image = 3
var_Item2 = var_Group.AddItem("Item 3")
with (oListBar)
TemplateDef = [dim var_Item2]
TemplateDef = var_Item2
Template = [var_Item2.Image = 3]
endwith
|
|
125
|
How can I assign or display an icon for an item
local oListBar,var_Group,var_Item,var_Item1,var_Item2
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oListBar.Groups.Add("Group 1")
// var_Group.AddItem("Item 1").Image = 1
var_Item = var_Group.AddItem("Item 1")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.Image = 1]
endwith
// var_Group.AddItem("Item 2").Image = 2
var_Item1 = var_Group.AddItem("Item 2")
with (oListBar)
TemplateDef = [dim var_Item1]
TemplateDef = var_Item1
Template = [var_Item1.Image = 2]
endwith
// var_Group.AddItem("Item 3").Image = 3
var_Item2 = var_Group.AddItem("Item 3")
with (oListBar)
TemplateDef = [dim var_Item2]
TemplateDef = var_Item2
Template = [var_Item2.Image = 3]
endwith
|
|
124
|
How can I assign or display an icon for an item
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1",1)
var_Group.AddItem("Item 2",2)
var_Group.AddItem("Item 3",3)
|
|
123
|
How can I change the item's position
local oListBar,var_Group,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.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")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.Position = 0]
endwith
|
|
122
|
How can I change the item's caption
local oListBar,var_Group,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
// var_Group.AddItem("Item 2").Caption = "new caption"
var_Item = var_Group.AddItem("Item 2")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.Caption = "new caption"]
endwith
var_Group.AddItem("Item 3")
|
|
121
|
How do I add new items
local oListBar,var_Item
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
// oListBar.Groups.Add("Group 1").AddItem("Item 1").Bold = true
var_Item = oListBar.Groups.Add("Group 1").AddItem("Item 1")
with (oListBar)
TemplateDef = [dim var_Item]
TemplateDef = var_Item
Template = [var_Item.Bold = True]
endwith
|
|
120
|
How do I assign a group to a set in the shortcut bar
local oListBar,var_Group,var_Group1,var_Group2,var_Group3
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = true
// oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
TemplateDef = [dim var_Group]
TemplateDef = var_Group
Template = [var_Group.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
with (oListBar)
TemplateDef = [dim var_Group1]
TemplateDef = var_Group1
Template = [var_Group1.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
with (oListBar)
TemplateDef = [dim var_Group2]
TemplateDef = var_Group2
Template = [var_Group2.Shortcut = "Set <img>2</img>"]
endwith
// oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
with (oListBar)
TemplateDef = [dim var_Group3]
TemplateDef = var_Group3
Template = [var_Group3.Shortcut = "Set <img>2</img>"]
endwith
|
|
119
|
How can I assign a tooltip to a group
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.ToolTipDelay = 1
// oListBar.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the <b>group</b>."
var_Group = oListBar.Groups.Add("ToolTip")
with (oListBar)
TemplateDef = [dim var_Group]
TemplateDef = var_Group
Template = [var_Group.ToolTip = "This is a bit of text that's shown when the cursor hovers the <b>group</b>."]
endwith
|
|
118
|
How can I display HTML text in the group's caption
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.GroupHeight = 44
oListBar.Template = [HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"] // oListBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
// oListBar.Groups.Add("<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>").CaptionFormat = 1
var_Group = oListBar.Groups.Add("<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>")
with (oListBar)
TemplateDef = [dim var_Group]
TemplateDef = var_Group
Template = [var_Group.CaptionFormat = 1]
endwith
|
|
117
|
How can I change the group's background color ( gradient )
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
var_Group.BackColor = 0xff
var_Group.BackColor2 = 0xffffff
oListBar.Groups.Add("Group 3")
|
|
116
|
How can I specify the height of the items
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.ItemHeight = 13
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1
|
|
115
|
How do I put a picture on the group's background
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
var_Group.PictureDisplay = 2
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1
|
|
114
|
How do I put a picture on the group's background
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1
|
|
113
|
How can I change the foreground color for items
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.ForeColorList = 0xff
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1
|
|
112
|
How can I change the background color for the items
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.BackColorList = 0xff
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1
|
|
111
|
How can I change the group's foreground color
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
// oListBar.Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2").CaptionFormat = 1
var_Group = oListBar.Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2")
with (oListBar)
TemplateDef = [dim var_Group]
TemplateDef = var_Group
Template = [var_Group.CaptionFormat = 1]
endwith
oListBar.Groups.Add("Group 3")
|
|
110
|
How can I change the group's foreground color
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
// oListBar.Groups.Add("Group 2").ForeColor = 0xff
var_Group = oListBar.Groups.Add("Group 2")
with (oListBar)
TemplateDef = [dim var_Group]
TemplateDef = var_Group
Template = [var_Group.ForeColor = 255]
endwith
oListBar.Groups.Add("Group 3")
|
|
109
|
How can I change the group's background color
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
// oListBar.Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2").CaptionFormat = 1
var_Group = oListBar.Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2")
with (oListBar)
TemplateDef = [dim var_Group]
TemplateDef = var_Group
Template = [var_Group.CaptionFormat = 1]
endwith
oListBar.Groups.Add("Group 3")
|
|
108
|
How can I change the visual appearance of the group, using EBN files
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.GroupAppearance = 1
oListBar.Groups.Add("Group 1")
// oListBar.Groups.Add("Group 2").BackColor = 0x1000000
var_Group = oListBar.Groups.Add("Group 2")
with (oListBar)
TemplateDef = [dim var_Group]
TemplateDef = var_Group
Template = [var_Group.BackColor = 16777216]
endwith
oListBar.Groups.Add("Group 3")
|
|
107
|
How can I change the group's background color
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
// oListBar.Groups.Add("Group 2").BackColor = 0xff
var_Group = oListBar.Groups.Add("Group 2")
with (oListBar)
TemplateDef = [dim var_Group]
TemplateDef = var_Group
Template = [var_Group.BackColor = 255]
endwith
oListBar.Groups.Add("Group 3")
|
|
106
|
How do I get the index of the group
local oListBar,var_Group,var_Group1,var_Group2
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
var_Group.Caption = Str(var_Group.Index)
var_Group1 = oListBar.Groups.Add("Group 2")
var_Group1.Caption = Str(var_Group1.Index)
var_Group2 = oListBar.Groups.Add("Group 3")
var_Group2.Caption = Str(var_Group2.Index)
|
|
105
|
How can I underline the group's name
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
// oListBar.Groups.Add("<u>Group</u> 1").CaptionFormat = 1
var_Group = oListBar.Groups.Add("<u>Group</u> 1")
with (oListBar)
TemplateDef = [dim var_Group]
TemplateDef = var_Group
Template = [var_Group.CaptionFormat = 1]
endwith
|
|
104
|
How can I underline the group's name
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
// oListBar.Groups.Add("Group 2").Underline = true
var_Group = oListBar.Groups.Add("Group 2")
with (oListBar)
TemplateDef = [dim var_Group]
TemplateDef = var_Group
Template = [var_Group.Underline = True]
endwith
oListBar.Groups.Add("Group 3")
|
|
103
|
How can I show the group's name as strikeout
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
// oListBar.Groups.Add("<s>Group</s> 1").CaptionFormat = 1
var_Group = oListBar.Groups.Add("<s>Group</s> 1")
with (oListBar)
TemplateDef = [dim var_Group]
TemplateDef = var_Group
Template = [var_Group.CaptionFormat = 1]
endwith
|
|
102
|
How can I show the group's name as strikeout
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
// oListBar.Groups.Add("Group 2").StrikeOut = true
var_Group = oListBar.Groups.Add("Group 2")
with (oListBar)
TemplateDef = [dim var_Group]
TemplateDef = var_Group
Template = [var_Group.StrikeOut = True]
endwith
oListBar.Groups.Add("Group 3")
|
|
101
|
How can I draw as italic the group's name
local oListBar,var_Group
oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
// oListBar.Groups.Add("<i>Group</i> 1").CaptionFormat = 1
var_Group = oListBar.Groups.Add("<i>Group</i> 1")
with (oListBar)
TemplateDef = [dim var_Group]
TemplateDef = var_Group
Template = [var_Group.CaptionFormat = 1]
endwith
|