|
170
|
How can I replace or add an icon at runtime
with thisform.ListBar1
.BeginUpdate
var_s = "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+Ok"
var_s = var_s + "YB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA=="
.ReplaceIcon(var_s)
.ReplaceIcon("C:\images\favicon.ico",0)
with .Groups.Add("Group 1")
.AddItem("Item <img>1</img> text").CaptionFormat = 1
.AddItem("Item 2").Image = 2
.AddItem("Item 3").Image = 3
endwith
.EndUpdate
endwith
|
|
169
|
How can I know what group and item is selected
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
with .Groups.Add("Group 3")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
.SelectGroup = 1
.Groups.Item(thisform.ListBar1.SelectGroup).SelectItem = 1
DEBUGOUT( "SelectGroup return " )
DEBUGOUT( .SelectGroup )
DEBUGOUT( "Groups(SelectGroup).SelectItem return " )
DEBUGOUT( .Groups.Item(thisform.ListBar1.SelectGroup).SelectItem )
endwith
|
|
168
|
How do I programatically select a group and an item
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
with .Groups.Add("Group 3")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
.SelectGroup = 1
.Groups.Item(thisform.ListBar1.SelectGroup).SelectItem = 1
endwith
|
|
167
|
How do I get notified once the user selects a group or an item
*** SelectGroup event - Occurs when a group is selected. ***
LPARAMETERS OldGroup, NewGroup
with thisform.ListBar1
DEBUGOUT( "Current " )
DEBUGOUT( NewGroup )
DEBUGOUT( "Previously " )
DEBUGOUT( OldGroup )
endwith
*** SelectItem event - Occurs when an item is selected. ***
LPARAMETERS OldItem, NewItem
with thisform.ListBar1
DEBUGOUT( "Current " )
DEBUGOUT( NewItem )
DEBUGOUT( "Previously " )
DEBUGOUT( OldItem )
endwith
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
with .Groups.Add("Group 3")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
endwith
|
|
166
|
Display a custom tooltip
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button, Shift, X, Y
with thisform.ListBar1
.ShowToolTip("new content","",Null,"+8","+8")
endwith
|
|
165
|
Shows the tooltip of the object moved relative to its default position
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button, Shift, X, Y
with thisform.ListBar1
.ShowToolTip("<null>","<null>",Null,"+8","+8")
endwith
with thisform.ListBar1
.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
endwith
|
|
164
|
How can I select an item using on its full part, not only on its icon or caption
*** Click event - Occurs when the user presses and then releases the left mouse button over the control. ***
LPARAMETERS nop
with thisform.ListBar1
DEBUGOUT( .ItemFromPoint(-1,-1) )
endwith
with thisform.ListBar1
.HighlightItemType = 19 && HighLightItemEnum.exFull Or HighLightItemEnum.exUnion
with .Groups.Add("Group 1")
.AddItem("Item <b>1</b>").CaptionFormat = 1
.AddItem("Item <b>2</b>").CaptionFormat = 1
endwith
endwith
|
|
163
|
Does your control support subscript or superscript, in HTML captions
with thisform.ListBar1
with .Groups.Add("Group")
.AddItem("Item <b><off 4><font ;6>1").CaptionFormat = 1
.AddItem("Item <b><off 4><font ;6>2").CaptionFormat = 1
endwith
endwith
|
|
162
|
How do I get notified once the user selects or activates a group
*** SelectGroup event - Occurs when a group is selected. ***
LPARAMETERS OldGroup, NewGroup
with thisform.ListBar1
DEBUGOUT( "Current " )
DEBUGOUT( NewGroup )
DEBUGOUT( "Previously " )
DEBUGOUT( OldGroup )
endwith
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
with .Groups.Add("Group 3")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
endwith
|
|
161
|
Can I specify a different colors for groups using your EBN files
with thisform.ListBar1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.BackColorGroup = 0x1000000
.Groups.Add("Group 1")
.Groups.Add("Group 2").BackColor = 0x100aabb
.SelectGroup = 1
endwith
|
|
160
|
Can I change the color of the control's border (EBN files)
with thisform.ListBar1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.Appearance = 27966412 && 0x1aabbc8 Or AppearanceEnum.exDrop
endwith
|
|
159
|
How do I specify the width of the item
with thisform.ListBar1
.HighlightItemType = 0
with .Groups.Add("Group 1")
.ItemWidth = 32
.AddItem(0)
.AddItem(1)
.AddItem(2)
.AddItem(3)
.AddItem(4)
.AddItem(5)
.AddItem(6)
.AddItem(7)
.AddItem(8)
.AddItem(9)
endwith
.Groups.Add("Group 2")
endwith
|
|
158
|
How do I change the visual appearance of the item from the cursor, using EBN files
with thisform.ListBar1
with .VisualAppearance
.Add(1,"c:\exontrol\images\normal.ebn")
.Add(22,"c:\exontrol\images\pushed.ebn")
.Add(2,"CP:22 0 8 0 -8")
endwith
.Object.Background(4) = 0x1000000
.Object.Background(5) = 0x2000000
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2")
.SelectItem = 1
endwith
.Groups.Add("Group 2")
endwith
|
|
157
|
How do I change the visual appearance of the selected item, using EBN files
with thisform.ListBar1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.Object.Background(4) = 0x1000000
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2")
.SelectItem = 1
endwith
.Groups.Add("Group 2")
endwith
|
|
156
|
How do I select an item
with thisform.ListBar1
.SelectItemType = 2
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2")
.SelectItem = 1
endwith
.Groups.Add("Group 2")
endwith
|
|
155
|
How do I specify how a selected item shows
with thisform.ListBar1
.SelectItemType = 2
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
.Groups.Add("Group 2")
endwith
|
|
154
|
How do I select or activate a group
with thisform.ListBar1
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
.Groups.Add("Group 3")
.SelectGroup = 1
endwith
|
|
153
|
Is there any option to display groups from left to right
with thisform.ListBar1
.Orientation = 1
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
.Groups.Add("Group 3")
.SelectGroup = 1
endwith
|
|
152
|
How do I change the foreground color of the selected group
with thisform.ListBar1
.MarkSelectGroup = .T.
.SelBackColorGroup = .BackColorGroup
.SelForeColorGroup = RGB(255,0,0)
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
.Groups.Add("Group 3")
.SelectGroup = 1
endwith
|
|
151
|
How do I highlight the selected group
with thisform.ListBar1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.MarkSelectGroup = .T.
.SelBackColorGroup = 0x1000000
.SelForeColorGroup = RGB(0,0,0)
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
.Groups.Add("Group 3")
.SelectGroup = 1
endwith
|
|
150
|
How do I change the visual appearance of the selected group, using your EBN files
with thisform.ListBar1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.MarkSelectGroup = .T.
.SelBackColorGroup = 0x1000000
.SelForeColorGroup = RGB(0,0,0)
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
.Groups.Add("Group 3")
.SelectGroup = 1
endwith
|
|
149
|
How do I specify the background color for selected group
with thisform.ListBar1
.MarkSelectGroup = .T.
.SelBackColorGroup = RGB(255,0,0)
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
endwith
.Groups.Add("Group 3")
.SelectGroup = 1
endwith
|
|
148
|
How can I indent an item
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1").Alignment = 0
with .AddItem("Sub Item <b>1</b>")
.CaptionFormat = 1
.Alignment = 0
.Indent = 12
endwith
with .AddItem("Sub Item <b>2</b>")
.CaptionFormat = 1
.Alignment = 0
.Indent = 12
endwith
with .AddItem("Sub Item <b>3</b>")
.CaptionFormat = 1
.Alignment = 0
.Indent = 12
endwith
with .AddItem("Sub Sub Item <b>3</b>")
.CaptionFormat = 1
.Alignment = 0
.Indent = 24
endwith
with .AddItem("Item 2")
.Alignment = 0
endwith
endwith
endwith
|
|
147
|
How can I use HTML format to display my item
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("<font Tahoma;11>T</font>his is an HTML <b>item</b> assigned to a <fgcolor=FF0000>group</fgcolor>").CaptionFormat = 1
.AddItem("Item 3")
endwith
endwith
|
|
146
|
How can I assign a tooltip to an item
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("ToolTip").ToolTip = "This is bit of text that should appear when the cursor hovers the <b>item</b>."
.AddItem("Item 3")
endwith
endwith
|
|
145
|
How can I show or hide an item
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").Visible = .F.
.AddItem("Item 3")
endwith
endwith
|
|
144
|
How can I change the item's background color
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
with .AddItem("Item 2")
.BackColor = RGB(255,0,0)
.BackColor2 = RGB(255,255,255)
endwith
.AddItem("Item 3")
endwith
endwith
|
|
143
|
How can I change the item's background color
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("<bgcolor=FF0000>Item</bgcolor> 2").CaptionFormat = 1
.AddItem("Item 3")
endwith
endwith
|
|
142
|
How can I change the item's foreground color
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").ForeColor = RGB(255,0,0)
.AddItem("Item 3")
endwith
endwith
|
|
141
|
How can I change the visual appearance of the item using your EBN files
with thisform.ListBar1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").BackColor = 0x1000000
.AddItem("Item 3")
endwith
endwith
|
|
140
|
How can I change the item's background color
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").BackColor = RGB(255,0,0)
.AddItem("Item 3")
endwith
endwith
|
|
139
|
How can I get the group of the item
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").Group.Bold = .T.
.AddItem("Item 3")
endwith
endwith
|
|
138
|
How can I get the index of the item
with thisform.ListBar1
with .Groups.Add("Group 1")
with .AddItem("Item 1")
.Caption = .Index
endwith
with .AddItem("Item 2")
.Caption = .Index
endwith
with .AddItem("Item 3")
.Caption = .Index
endwith
endwith
endwith
|
|
137
|
How can I draw underlined an item
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("<u>Item</u> 2").CaptionFormat = 1
.AddItem("Item 3")
endwith
endwith
|
|
136
|
How can I draw underlined an item
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").Underline = .T.
.AddItem("Item 3")
endwith
endwith
|
|
135
|
How can I draw as strikeout an item
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("<s>Item</s> 2").CaptionFormat = 1
.AddItem("Item 3")
endwith
endwith
|
|
134
|
How can I draw as strikeout an item
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").StrikeOut = .T.
.AddItem("Item 3")
endwith
endwith
|
|
133
|
How can I draw as italic an item
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("<i>Item</i> 2").CaptionFormat = 1
.AddItem("Item 3")
endwith
endwith
|
|
132
|
How can I draw as italic an item
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").Italic = .T.
.AddItem("Item 3")
endwith
endwith
|
|
131
|
How can I add a anchor or a hyperlink
with thisform.ListBar1
.HighlightItemType = 0
with .Groups.Add("Group 1")
.AddItem("Link <a1><b>1</b></a>").CaptionFormat = 1
.AddItem("Link <a2><b>2</b></a>").CaptionFormat = 1
endwith
endwith
|
|
130
|
How do I bold an item
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("<b>Item</a> 2").CaptionFormat = 1
.AddItem("Item 3")
endwith
endwith
|
|
129
|
How do I bold an item
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").Bold = .T.
.AddItem("Item 3")
endwith
endwith
|
|
128
|
How can I align an item
with thisform.ListBar1
var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Images(var_s)
with .Groups.Add("Group 1")
.ItemHeight = 28
.AddItem("Left",1).Alignment = 0
.AddItem("Center",2).Alignment = 1
.AddItem("Right",3).Alignment = 2
.AddItem("Middle",1).Alignment = 4
endwith
endwith
|
|
127
|
How can I assign some extra data to an item
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1").UserData = "your data"
.AddItem("Item 2")
.AddItem("Item 3")
endwith
endwith
|
|
126
|
How can I assign or display an icon for an item
with thisform.ListBar1
var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Images(var_s)
with .Groups.Add("Group 1")
.AddItem("Item <img>1</img> text <img>2</img>").CaptionFormat = 1
.AddItem("Item 2").Image = 2
.AddItem("Item 3").Image = 3
endwith
endwith
|
|
125
|
How can I assign or display an icon for an item
with thisform.ListBar1
var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Images(var_s)
with .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.AddItem("Item 2").Image = 2
.AddItem("Item 3").Image = 3
endwith
endwith
|
|
124
|
How can I assign or display an icon for an item
with thisform.ListBar1
var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Images(var_s)
with .Groups.Add("Group 1")
.AddItem("Item 1",1)
.AddItem("Item 2",2)
.AddItem("Item 3",3)
endwith
endwith
|
|
123
|
How can I change the item's position
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3").Position = 0
endwith
endwith
|
|
122
|
How can I change the item's caption
with thisform.ListBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").Caption = "new caption"
.AddItem("Item 3")
endwith
endwith
|
|
121
|
How do I add new items
with thisform.ListBar1
.Groups.Add("Group 1").AddItem("Item 1").Bold = .T.
endwith
|
|
120
|
How do I assign a group to a set in the shortcut bar
with thisform.ListBar1
var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Images(var_s)
.ShowShortcutBar = .T.
.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
endwith
|
|
119
|
How can I assign a tooltip to a group
with thisform.ListBar1
.ToolTipDelay = 1
.Groups.Add("ToolTip").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
with thisform.ListBar1
.GroupHeight = 44
.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Images(var_s)
.Groups.Add("<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>").CaptionFormat = 1
endwith
|
|
117
|
How can I change the group's background color ( gradient )
with thisform.ListBar1
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.BackColor = RGB(255,0,0)
.BackColor2 = RGB(255,255,255)
endwith
.Groups.Add("Group 3")
endwith
|
|
116
|
How can I specify the height of the items
with thisform.ListBar1
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.ItemHeight = 13
endwith
.Groups.Add("Group 3")
.SelectGroup = 1
endwith
|
|
115
|
How do I put a picture on the group's background
with thisform.ListBar1
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 2
endwith
.Groups.Add("Group 3")
.SelectGroup = 1
endwith
|
|
114
|
How do I put a picture on the group's background
with thisform.ListBar1
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
endwith
.Groups.Add("Group 3")
.SelectGroup = 1
endwith
|
|
113
|
How can I change the foreground color for items
with thisform.ListBar1
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.ForeColorList = RGB(255,0,0)
endwith
.Groups.Add("Group 3")
.SelectGroup = 1
endwith
|
|
112
|
How can I change the background color for the items
with thisform.ListBar1
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.BackColorList = RGB(255,0,0)
endwith
.Groups.Add("Group 3")
.SelectGroup = 1
endwith
|
|
111
|
How can I change the group's foreground color
with thisform.ListBar1
.Groups.Add("Group 1")
.Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2").CaptionFormat = 1
.Groups.Add("Group 3")
endwith
|
|
110
|
How can I change the group's foreground color
with thisform.ListBar1
.Groups.Add("Group 1")
.Groups.Add("Group 2").ForeColor = RGB(255,0,0)
.Groups.Add("Group 3")
endwith
|
|
109
|
How can I change the group's background color
with thisform.ListBar1
.Groups.Add("Group 1")
.Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2").CaptionFormat = 1
.Groups.Add("Group 3")
endwith
|
|
108
|
How can I change the visual appearance of the group, using EBN files
with thisform.ListBar1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.GroupAppearance = 1
.Groups.Add("Group 1")
.Groups.Add("Group 2").BackColor = 0x1000000
.Groups.Add("Group 3")
endwith
|
|
107
|
How can I change the group's background color
with thisform.ListBar1
.Groups.Add("Group 1")
.Groups.Add("Group 2").BackColor = RGB(255,0,0)
.Groups.Add("Group 3")
endwith
|
|
106
|
How do I get the index of the group
with thisform.ListBar1
with .Groups.Add("Group 1")
.Caption = .Index
endwith
with .Groups.Add("Group 2")
.Caption = .Index
endwith
with .Groups.Add("Group 3")
.Caption = .Index
endwith
endwith
|
|
105
|
How can I underline the group's name
with thisform.ListBar1
.Groups.Add("<u>Group</u> 1").CaptionFormat = 1
endwith
|
|
104
|
How can I underline the group's name
with thisform.ListBar1
.Groups.Add("Group 1")
.Groups.Add("Group 2").Underline = .T.
.Groups.Add("Group 3")
endwith
|
|
103
|
How can I show the group's name as strikeout
with thisform.ListBar1
.Groups.Add("<s>Group</s> 1").CaptionFormat = 1
endwith
|
|
102
|
How can I show the group's name as strikeout
with thisform.ListBar1
.Groups.Add("Group 1")
.Groups.Add("Group 2").StrikeOut = .T.
.Groups.Add("Group 3")
endwith
|
|
101
|
How can I draw as italic the group's name
with thisform.ListBar1
.Groups.Add("<i>Group</i> 1").CaptionFormat = 1
endwith
|