|
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
|