|
176
|
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.ExplorerBar1
DEBUGOUT( .ItemFromPoint(-1,-1) )
endwith
with thisform.ExplorerBar1
.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
.Expanded = .T.
endwith
endwith
|
|
175
|
How can I change the group's color
with thisform.ExplorerBar1
.BackColorGroup = RGB(255,0,0)
.BackColorGroup2 = .BackColorGroup
.GroupAppearance = 0
with .Groups
.Add("Group 1")
.Add("Group 2")
endwith
endwith
|
|
174
|
How can remove the group's appearance
with thisform.ExplorerBar1
.BackColorGroup = .BackColor
.BackColorGroup2 = .BackColor
.GroupAppearance = 1
with .Groups
.Add("Group 1")
.Add("Group 2")
endwith
endwith
|
|
173
|
How can I align the group/item
with thisform.ExplorerBar1
.BeginUpdate
with .Groups.Add("Group 1")
.Alignment = 0
.AddItem("Item 1").Alignment = 0
.Expanded = .T.
endwith
.EndUpdate
endwith
|
|
172
|
Just seen the BackgroundExt property. Not sure what I can do with that
*** AddGroup event - Occurs when a new group is added to collection. ***
LPARAMETERS Group
with thisform.ExplorerBar1
with Group
endwith
endwith
*** AddItem event - Occurs when a new item is added to a group. ***
LPARAMETERS Item
with thisform.ExplorerBar1
with Item
endwith
endwith
with thisform.ExplorerBar1
.BeginUpdate
.Appearance = 0
with .VisualAppearance
.Add(1,"c:\exontrol\images\normal.ebn")
.Add(2,"CP:1 48 12 -24 0")
.Add(3,"c:\exontrol\images\pushed.ebn")
endwith
.Object.HTMLPicture("uk") = "c:\exontrol\images\zipdisk.gif"
.Object.HTMLPicture("brazil") = "c:\exontrol\images\auction.gif"
.Object.HTMLPicture("sweden") = "c:\exontrol\images\colorize.gif"
.BackColorGroup = 0x2000000
.BackColorGroup2 = .BackColorGroup
.GroupHeight = 40
with .Groups.Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>United Kingdom")
.BackgroundExtValue(2,4) = "<img>uk:44</img>"
.AddItem("London Eye")
.AddItem("Tower of London")
.AddItem("Buckingham Palace")
.AddItem("River Thames")
.AddItem("Stonehenge")
endwith
with .Groups.Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>Brazil")
.BackgroundExtValue(2,4) = "<img>brazil:44</img>"
.AddItem("Cristo Redentor")
.AddItem("Copacabana")
.AddItem("Ipanema, Rio de Janeiro")
.AddItem("Iguazu Falls")
.AddItem("Sugarloaf Mountain")
.Expanded = .T.
endwith
with .Groups.Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>Sweden")
.BackgroundExtValue(2,4) = "<img>sweden:44</img>"
.AddItem("Gamla stan")
.AddItem("Vasa Museum")
.AddItem("Stockholm Palace")
.AddItem("Skansen")
.AddItem("Djurgården")
endwith
.EndUpdate
endwith
|
|
171
|
Can I specify a different colors for groups using your EBN files
with thisform.ExplorerBar1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.BackColorGroup = 0x1000000
.Groups.Add("Group 1")
.Groups.Add("Group 2").BackColor = 0x100aabb
endwith
|
|
170
|
Can I change the color of the control's border (EBN files)
with thisform.ExplorerBar1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.Appearance = 27966412 && 0x1aabbc8 Or AppearanceEnum.exDrop
endwith
|
|
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
with thisform.ExplorerBar1
.BeginUpdate
.GroupHeight = 48
with .Groups
.Add("Group 1")
.Add("Group 2")
.Add("Group 3")
.Add("Group 4")
.Add("Group 5")
.Add("Group 6")
.Add("Group 7")
.Add("Group 8")
.Add("Group 9")
.Add("Group 10")
.Add("Group 11")
with .Add("Group 12")
.AddItem(0)
.AddItem(1)
.AddItem(2)
endwith
endwith
.EnsureVisible(11,2)
.EndUpdate
endwith
|
|
168
|
How can I scroll to the end of the groups
with thisform.ExplorerBar1
.BeginUpdate
.GroupHeight = 48
with .Groups
.Add("Group 1")
.Add("Group 2")
.Add("Group 3")
.Add("Group 4")
.Add("Group 5")
.Add("Group 6")
.Add("Group 7")
.Add("Group 8")
.Add("Group 9")
.Add("Group 10")
.Add("Group 11")
.Add("Group 12")
endwith
.EnsureVisible(11)
.EndUpdate
endwith
|
|
167
|
How can I display an item by multiple lines
with thisform.ExplorerBar1
with .Groups.Add("Group 1")
.AddItem("SingleLine")
with .AddItem("This is bit of text that should break the lines, and so <b>multiple</b> lines are displayed")
.Alignment = 0
.CaptionFormat = 1
.SingleLine = .F.
endwith
.AddItem("Item 3")
.Expanded = .T.
endwith
endwith
|
|
166
|
How can I indent an item
with thisform.ExplorerBar1
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
.Expanded = .T.
endwith
endwith
|
|
165
|
How can I use HTML format to display my item
with thisform.ExplorerBar1
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")
.Expanded = .T.
endwith
endwith
|
|
164
|
How can I assign a tooltip to an item
with thisform.ExplorerBar1
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")
.Expanded = .T.
endwith
endwith
|
|
163
|
How can I show or hide an item
with thisform.ExplorerBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").Visible = .F.
.AddItem("Item 3")
.Expanded = .T.
endwith
endwith
|
|
162
|
How can I align an icon for an item
with thisform.ExplorerBar1
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")
with .AddItem("Item 1")
.Image = 1
.ImageAlignment = 0
endwith
with .AddItem("Item 2")
.Image = 2
.ImageAlignment = 2
endwith
.Expanded = .T.
endwith
endwith
|
|
161
|
How can I stop highlighting an item
with thisform.ExplorerBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2 - no ").AllowHighLight = .F.
.AddItem("Item 3")
.Expanded = .T.
endwith
endwith
|
|
160
|
How can I change the item's background color
with thisform.ExplorerBar1
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")
.Expanded = .T.
endwith
endwith
|
|
159
|
How can I change the item's background color
with thisform.ExplorerBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("<bgcolor=FF0000>Item</bgcolor> 2").CaptionFormat = 1
.AddItem("Item 3")
.Expanded = .T.
endwith
endwith
|
|
158
|
How can I change the item's foreground color
with thisform.ExplorerBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").ForeColor = RGB(255,0,0)
.AddItem("Item 3")
.Expanded = .T.
endwith
endwith
|
|
157
|
How can I change the visual appearance of the item using your EBN files
with thisform.ExplorerBar1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").BackColor = 0x1000000
.AddItem("Item 3")
.Expanded = .T.
endwith
endwith
|
|
156
|
How can I change the item's background color
with thisform.ExplorerBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").BackColor = RGB(255,0,0)
.AddItem("Item 3")
.Expanded = .T.
endwith
endwith
|
|
155
|
How can I get the group of the item
with thisform.ExplorerBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").Group.Bold = .T.
.AddItem("Item 3")
.Expanded = .T.
endwith
endwith
|
|
154
|
How can I get the index of the item
with thisform.ExplorerBar1
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
.Expanded = .T.
endwith
endwith
|
|
153
|
How can I draw underlined an item
with thisform.ExplorerBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("<u>Item</u> 2").CaptionFormat = 1
.AddItem("Item 3")
.Expanded = .T.
endwith
endwith
|
|
152
|
How can I draw underlined an item
with thisform.ExplorerBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").Underline = .T.
.AddItem("Item 3")
.Expanded = .T.
endwith
endwith
|
|
151
|
How can I draw as strikeout an item
with thisform.ExplorerBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("<s>Item</s> 2").CaptionFormat = 1
.AddItem("Item 3")
.Expanded = .T.
endwith
endwith
|
|
150
|
How can I draw as strikeout an item
with thisform.ExplorerBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").StrikeOut = .T.
.AddItem("Item 3")
.Expanded = .T.
endwith
endwith
|
|
149
|
How can I draw as italic an item
with thisform.ExplorerBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("<i>Item</i> 2").CaptionFormat = 1
.AddItem("Item 3")
.Expanded = .T.
endwith
endwith
|
|
148
|
How can I draw as italic an item
with thisform.ExplorerBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").Italic = .T.
.AddItem("Item 3")
.Expanded = .T.
endwith
endwith
|
|
147
|
How can I add a anchor or a hyperlink
with thisform.ExplorerBar1
.HighlightItemType = 0
.HandCursor = .F.
with .Groups.Add("Group 1")
.AddItem("Link <a1><b>1</b></a>").CaptionFormat = 1
.AddItem("Link <a2><b>2</b></a>").CaptionFormat = 1
.Expanded = .T.
endwith
endwith
|
|
146
|
How do I bold an item
with thisform.ExplorerBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("<b>Item</a> 2").CaptionFormat = 1
.AddItem("Item 3")
.Expanded = .T.
endwith
endwith
|
|
145
|
How do I bold an item
with thisform.ExplorerBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").Bold = .T.
.AddItem("Item 3")
.Expanded = .T.
endwith
endwith
|
|
144
|
How can I align an item
with thisform.ExplorerBar1
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
.Expanded = .T.
endwith
endwith
|
|
143
|
How can I assign some extra data to an item
with thisform.ExplorerBar1
with .Groups.Add("Group 1")
.AddItem("Item 1").UserData = "your data"
.AddItem("Item 2")
.AddItem("Item 3")
.Expanded = .T.
endwith
endwith
|
|
142
|
How can I assign or display an icon for an item
with thisform.ExplorerBar1
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
.Expanded = .T.
endwith
endwith
|
|
141
|
How can I assign or display an icon for an item
with thisform.ExplorerBar1
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
.Expanded = .T.
endwith
endwith
|
|
140
|
How can I assign or display an icon for an item
with thisform.ExplorerBar1
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)
.Expanded = .T.
endwith
endwith
|
|
139
|
How can I change the item's position
with thisform.ExplorerBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3").Position = 0
.Expanded = .T.
endwith
endwith
|
|
138
|
How can I change the item's caption
with thisform.ExplorerBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").Caption = "new caption"
.AddItem("Item 3")
.Expanded = .T.
endwith
endwith
|
|
137
|
How do I add new items
with thisform.ExplorerBar1
.Groups.Add("Group 1").AddItem("Item 1").Bold = .T.
endwith
|
|
136
|
How do I assign a group to a set in the shortcut bar
with thisform.ExplorerBar1
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
|
|
135
|
How can I show or hide the expanding or collapsing button
with thisform.ExplorerBar1
.Groups.Add("Group 1").AddItem("Item 1")
with .Groups.Add("Group 2, expanding/collapsing button is missing ")
.AddItem("Item 1")
.AddItem("Item 2")
.Expanded = .T.
.AllowExpand = .F.
endwith
.Groups.Add("Group 3").AddItem("Item 1")
endwith
|
|
134
|
How can I avoid expanding or collapsing a group
with thisform.ExplorerBar1
.Groups.Add("Group 1").AddItem("Item 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.Expanded = .T.
.AllowExpand = .F.
endwith
.Groups.Add("Group 3").AddItem("Item 1")
endwith
|
|
133
|
How can I assign a tooltip to a group
with thisform.ExplorerBar1
.ToolTipDelay = 1
.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the <b>group</b>."
endwith
|
|
132
|
How can I display HTML text in the group's caption
with thisform.ExplorerBar1
.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
|
|
131
|
How can I disable scrolling the group's list when it is expanded or collapsed
with thisform.ExplorerBar1
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.Expanded = .T.
.AllowScroll = .F.
endwith
.Groups.Add("Group 3")
endwith
|
|
130
|
How can I change the group's background color ( gradient )
with thisform.ExplorerBar1
.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
|
|
129
|
How can I access the bounding rectangle of the group's area
with thisform.ExplorerBar1
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem(.Top)
.AddItem(.Left)
.AddItem(.Width)
.Expanded = .T.
endwith
.Groups.Add("Group 3")
endwith
|
|
128
|
How can I expand or collapse a group
with thisform.ExplorerBar1
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.Expanded = .T.
endwith
.Groups.Add("Group 3")
endwith
|
|
127
|
How can I specify the height of the items
with thisform.ExplorerBar1
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.ItemHeight = 13
.Expanded = .T.
endwith
.Groups.Add("Group 3")
endwith
|
|
126
|
How do I put a picture on the group's background
with thisform.ExplorerBar1
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 2
.Expanded = .T.
endwith
.Groups.Add("Group 3")
endwith
|
|
125
|
How do I put a picture on the group's background
with thisform.ExplorerBar1
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.Expanded = .T.
endwith
.Groups.Add("Group 3")
endwith
|
|
124
|
How can I change the foreground color for items
with thisform.ExplorerBar1
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.ForeColorList = RGB(255,0,0)
.Expanded = .T.
endwith
.Groups.Add("Group 3")
endwith
|
|
123
|
How can I change the background color for the items
with thisform.ExplorerBar1
.Groups.Add("Group 1")
with .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.BackColorList = RGB(255,0,0)
.Expanded = .T.
endwith
.Groups.Add("Group 3")
endwith
|
|
122
|
How can I change the group's foreground color
with thisform.ExplorerBar1
.Groups.Add("Group 1")
.Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2").CaptionFormat = 1
.Groups.Add("Group 3")
endwith
|
|
121
|
How can I change the group's foreground color
with thisform.ExplorerBar1
.Groups.Add("Group 1")
.Groups.Add("Group 2").ForeColor = RGB(255,0,0)
.Groups.Add("Group 3")
endwith
|
|
120
|
How can I change the group's background color
with thisform.ExplorerBar1
.Groups.Add("Group 1")
.Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2").CaptionFormat = 1
.Groups.Add("Group 3")
endwith
|
|
119
|
How can I change the visual appearance of the group, using EBN files
with thisform.ExplorerBar1
.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
|
|
118
|
How can I change the group's background color
with thisform.ExplorerBar1
.Groups.Add("Group 1")
.Groups.Add("Group 2").BackColor = RGB(255,0,0)
.Groups.Add("Group 3")
endwith
|
|
117
|
How do I get the index of the group
with thisform.ExplorerBar1
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
|
|
116
|
How can I underline the group's name
with thisform.ExplorerBar1
.Groups.Add("<u>Group</u> 1").CaptionFormat = 1
endwith
|
|
115
|
How can I underline the group's name
with thisform.ExplorerBar1
.Groups.Add("Group 1")
.Groups.Add("Group 2").Underline = .T.
.Groups.Add("Group 3")
endwith
|
|
114
|
How can I show the group's name as strikeout
with thisform.ExplorerBar1
.Groups.Add("<s>Group</s> 1").CaptionFormat = 1
endwith
|
|
113
|
How can I show the group's name as strikeout
with thisform.ExplorerBar1
.Groups.Add("Group 1")
.Groups.Add("Group 2").StrikeOut = .T.
.Groups.Add("Group 3")
endwith
|
|
112
|
How can I draw as italic the group's name
with thisform.ExplorerBar1
.Groups.Add("<i>Group</i> 1").CaptionFormat = 1
endwith
|
|
111
|
How do I draw italic the group's name
with thisform.ExplorerBar1
.Groups.Add("Group 1")
.Groups.Add("Group 2").Italic = .T.
.Groups.Add("Group 3")
endwith
|
|
110
|
How do I bold the group's name
with thisform.ExplorerBar1
.Groups.Add("<b>Group</b> 1").CaptionFormat = 1
endwith
|
|
109
|
How do I bold the group's name
with thisform.ExplorerBar1
.Groups.Add("Group 1")
.Groups.Add("Group 2").Bold = .T.
.Groups.Add("Group 3")
endwith
|
|
108
|
How can I align the icon in the group's caption
with thisform.ExplorerBar1
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")
.Image = 1
.ImageAlignment = 2
.Alignment = 2
endwith
endwith
|
|
107
|
How can I align the group's name
with thisform.ExplorerBar1
.Groups.Add("Group 1").Alignment = 2
endwith
|
|
106
|
How can I align the group's name
with thisform.ExplorerBar1
.Groups.Add("Group 1").Alignment = 0
endwith
|
|
105
|
How can I assign some extra data to a group
with thisform.ExplorerBar1
.Groups.Add("Group 1").UserData = "your data"
endwith
|
|
104
|
How can I display an icon in the group's caption
with thisform.ExplorerBar1
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("Group <img>1</img> text <img>2</img>").CaptionFormat = 1
endwith
|
|
103
|
How can I display an icon in the group's caption
with thisform.ExplorerBar1
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("Group 1").Image = 1
endwith
|
|
102
|
How can I access an item by its position
with thisform.ExplorerBar1
with .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3").Position = 0
.ItemByPos(1).Bold = .T.
.Expanded = .T.
endwith
endwith
|
|
101
|
How can I change the position of a group
with thisform.ExplorerBar1
.Groups.Add("Group 1")
.Groups.Add("Group 2")
.Groups.Add("Group 3").Position = 0
endwith
|