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 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") var_s = "<font Tahoma;11>T</font>his is an HTML <b>item</b> assigned to a <fgcolor=FF0000>group</fgcolor>" .AddItem(var_s).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/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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
100. How can I change the group's caption
with thisform.ExplorerBar1 with .Groups.Add("Group 1") .AddItem("Item 1") .AddItem("Item 2") .AddItem("Item 3") .Caption = "new caption" .Expanded = .T. endwith endwith
99. How can I get the number or count of items in a group
with thisform.ExplorerBar1 with .Groups.Add("Group 1") .AddItem("Item 1") .AddItem("Item 2") .AddItem("Item 3") .AddItem(.Count) .Expanded = .T. endwith endwith
98. How can I access an item in a group
with thisform.ExplorerBar1 with .Groups.Add("Group 1") .AddItem("Item 1") .AddItem("Item 2") .AddItem("Item 3") .Item(1).Bold = .T. .Expanded = .T. endwith endwith
97. How can I remove all items, from a group
with thisform.ExplorerBar1 with .Groups.Add("Group 1") .AddItem("Item 1") .AddItem("Item 2") .AddItem("Item 3") .Clear .Expanded = .T. endwith endwith
96. How can I remove an item, from a group
with thisform.ExplorerBar1 with .Groups.Add("Group 1") .AddItem("Item 1") .AddItem("Item 2") .AddItem("Item 3") .RemoveItem(1) .Expanded = .T. endwith endwith
95. How can I add a new item to a group
with thisform.ExplorerBar1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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) .Expanded = .T. endwith endwith
94. How can I add a new item to a group
with thisform.ExplorerBar1 .Groups.Add("Group 1").AddItem("Item 1") endwith
93. How can I add a new item to a group
with thisform.ExplorerBar1 with .Groups.Add("Group 1") .AddItem("Item 1") .Expanded = .T. endwith endwith
92. How can I get the groups as they are listed
with thisform.ExplorerBar1 with .Groups .Add("Group 1") .Add("Group 2") .Add("Group 3") endwith endwith
91. How can I access a group by position
with thisform.ExplorerBar1 with .Groups .Add("Group 1") .Add("Group 2") .Add("Group 3") .ItemByPos(1).Bold = .T. endwith endwith
90. How can I access a group
with thisform.ExplorerBar1 with .Groups .Add("Group 1") .Add("Group 2") .Add("Group 3") .Item(1).Bold = .T. endwith endwith
89. How can I clear the groups collection
with thisform.ExplorerBar1 with .Groups .Add("Group 1") .Add("Group 2") .Add("Group 3") .Clear endwith endwith
88. How can I remove a group
with thisform.ExplorerBar1 with .Groups .Add("Group 1") .Add("Group 2") .Add("Group 3") .Remove(1) endwith endwith
87. How can I add a group
with thisform.ExplorerBar1 with .Groups.Add("Group 1") .AddItem("Item 1") .AddItem("Item 2") .Expanded = .T. endwith endwith
86. How do I count the number of groups
with thisform.ExplorerBar1 with .Groups .Add("Group 1") .Add("Group 2") .Add("Group 3") .Add(.Count) endwith endwith
85. How can I display pictures with a custom size, instead icons, in the shortcut bar
with thisform.ExplorerBar1 .ShowShortcutBar = .T. .Groups.Add("Group 1").Shortcut = "Set 1" .Groups.Add("Group 2").Shortcut = "Set 1" .Groups.Add("Group 3").Shortcut = "Set 2" .Groups.Add("Group 4").Shortcut = "Set 2" .Object.ShortcutPicture("Set 1") = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .Object.ShortcutPicture("Set 2") = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)") .ShortcutPictureWidth = 32 .ShortcutPictureHeight = 32 .ShortcutBarHeight = 32 endwith
84. How can I display pictures instead icons, in the shortcut bar
with thisform.ExplorerBar1 .ShowShortcutBar = .T. .Groups.Add("Group 1").Shortcut = "Set 1" .Groups.Add("Group 2").Shortcut = "Set 1" .Groups.Add("Group 3").Shortcut = "Set 2" .Groups.Add("Group 4").Shortcut = "Set 2" .Object.ShortcutPicture("Set 1") = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .Object.ShortcutPicture("Set 2") = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)") .ShortcutBarHeight = 44 endwith
83. How can I change the visual appearance of the shortcut bar, using EBN files
with thisform.ExplorerBar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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>" .ShortcutResizeBackColor = 0x2000000 .ShortcutBarSelCaptionBackColor = 0x1000000 .ShortcutBarSelBackColor = 0x1000000 .BackColorGroup = 0x1000000 endwith
82. How can I change the visual appearance of the separator between groups and the shortcut bar, using your EBN files
with thisform.ExplorerBar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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>" .ShortcutResizeBackColor = 0x1000000 .ExpandShortcutCount = 1 endwith
81. How do I change the background color of the separator between groups and the shortcut bar
with thisform.ExplorerBar1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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>" .ShortcutResizeBackColor = RGB(255,0,0) .ExpandShortcutCount = 1 endwith
80. How can I change the visual appearance of the shortcut bar, using your EBN files
with thisform.ExplorerBar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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>" .ShortcutBarSelCaptionBackColor = 0x1000000 .ExpandShortcutCount = 1 endwith
79. How do I change the selection background color in the shortcut bar
with thisform.ExplorerBar1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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>" .ShortcutBarSelCaptionBackColor = RGB(255,0,0) .ExpandShortcutCount = 1 endwith
78. How can I change the visual appearance of the shortcut bar, using your EBN files
with thisform.ExplorerBar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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>" .ShortcutBarSelBackColor = 0x1000000 endwith
77. How do I change the selection background color in the shortcut bar
with thisform.ExplorerBar1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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>" .ShortcutBarSelBackColor = RGB(255,0,0) endwith
76. How can I change the visual appearance of the shortcut bar, using your EBN files
with thisform.ExplorerBar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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>" .ShortcutBarBackColor = 0x1000000 endwith
75. How do I change the background color in the shortcut bar
with thisform.ExplorerBar1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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>" .ShortcutBarBackColor = RGB(255,0,0) endwith
74. How can I programmatically change expand or collapse the shortcut bar
with thisform.ExplorerBar1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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>" .ExpandShortcutCount = 1 endwith
73. How do I change the icon for the expanding or collapsing the shortcut bar
with thisform.ExplorerBar1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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>" .ExpandShortcutImage = 3 endwith
72. How can I enable or disable resizing the shortcut bar
with thisform.ExplorerBar1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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>" .ExpandShortcutCount = 1 .AllowResizeShortcutBar = .F. endwith
71. How do I specify the height of the shortcut bar
with thisform.ExplorerBar1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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>" .ExpandShortcutCount = 1 .ShortcutBarHeight = 16 endwith
70. How do I select a shortcut
with thisform.ExplorerBar1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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>" .ExpandShortcutCount = 1 .SelectShortcut = "Set <img>2</img>" endwith
69. How do I show or hide the shortcut bar
with thisform.ExplorerBar1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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>" .ExpandShortcutCount = 1 endwith
68. How do I access the groups collection
with thisform.ExplorerBar1 .Groups.Add("Group 1") endwith
67. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
with thisform.ExplorerBar1 .Object.FormatAnchor(0) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>" .HighlightItemType = 0 .HandCursor = .F. .Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1 endwith
66. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
with thisform.ExplorerBar1 .Object.FormatAnchor(0) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>" .HighlightItemType = 0 .HandCursor = .F. with .Groups.Add("Group 1") .AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1 .Expanded = .T. endwith endwith
65. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
with thisform.ExplorerBar1 .HighlightItemType = 0 .HandCursor = .F. .Object.FormatAnchor(1) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>" .Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1 endwith
64. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
with thisform.ExplorerBar1 .HighlightItemType = 0 .HandCursor = .F. .Object.FormatAnchor(1) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>" with .Groups.Add("Group 1") .AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1 .Expanded = .T. endwith endwith
63. How can I add several pictures and icons to an item
with thisform.ExplorerBar1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif" with .Groups.Add("Group 1") .ItemHeight = 48 with .AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>") .Image = 2 .CaptionFormat = 1 endwith .Expanded = .T. endwith endwith
62. How can I add several pictures and icons to an item
with thisform.ExplorerBar1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif" with .Groups.Add("Group 1") .ItemHeight = 48 with .AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>") .Image = 2 .CaptionFormat = 1 endwith .Expanded = .T. endwith endwith
61. How can I add several pictures to an item
with thisform.ExplorerBar1 .Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif" with .Groups.Add("Group 1") .ItemHeight = 48 .AddItem("<img>pic1</img> text <img>pic2</img>").CaptionFormat = 1 .Expanded = .T. endwith endwith
60. How can I add several pictures to a group
with thisform.ExplorerBar1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif" .GroupHeight = 48 with .Groups.Add("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>") .Image = 2 .CaptionFormat = 1 .Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)") .AddItem("Item 1") .AddItem("Item 2") .Expanded = .T. endwith endwith
59. How can I add several pictures and icons to a group
with thisform.ExplorerBar1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif" .GroupHeight = 48 .Groups.Add("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>").CaptionFormat = 1 endwith
58. How can I add several pictures to a group
with thisform.ExplorerBar1 .Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif" .GroupHeight = 48 with .Groups.Add("<img>pic1</img> text <img>pic2</img>") .CaptionFormat = 1 .Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)") .AddItem("Item 1") .AddItem("Item 2") .Expanded = .T. endwith endwith
57. How can I add several pictures to a group
with thisform.ExplorerBar1 .Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif" .GroupHeight = 48 .Groups.Add("<img>pic1</img> text <img>pic2</img>").CaptionFormat = 1 endwith
56. How do I force refreshing the control
with thisform.ExplorerBar1 with .Groups.Add("Group 1") .Expanded = .T. .AddItem("Item 1") endwith .Refresh endwith
55. How can show or hide the focus rectangle
with thisform.ExplorerBar1 .ShowFocusRect = .F. with .Groups.Add("Group 1") .Expanded = .T. .AddItem("Item 1") endwith endwith
54. I've seen that the width of the tooltip is variable. Can I make it larger
with thisform.ExplorerBar1 .ToolTipWidth = 328 .Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group." endwith
53. How do I let the tooltip being displayed longer
with thisform.ExplorerBar1 .ToolTipPopDelay = 10000 .Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group." endwith
52. Can I change the default border of the tooltip, using your EBN files
with thisform.ExplorerBar1 .ToolTipDelay = 1 .ToolTipWidth = 364 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Object.Background(64) = 0x1000000 .Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group." endwith
51. Can I change the background color for the tooltip
with thisform.ExplorerBar1 .ToolTipDelay = 1 .ToolTipWidth = 364 .Object.Background(65) = RGB(255,0,0) .Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group." endwith
50. Does the tooltip support HTML format
with thisform.ExplorerBar1 .ToolTipDelay = 1 .ToolTipWidth = 364 var_s = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>group</fgcol" var_s = var_s + "or>" .Groups.Add("ToolTip").ToolTip = var_s endwith
49. Can I change the forecolor for the tooltip
with thisform.ExplorerBar1 .ToolTipDelay = 1 .ToolTipWidth = 364 .Object.Background(66) = RGB(255,0,0) .Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group." endwith
48. Can I change the foreground color for the tooltip
with thisform.ExplorerBar1 .ToolTipDelay = 1 .ToolTipWidth = 364 .Groups.Add("ToolTip").ToolTip = "<fgcolor=FF0000>This is a bit of text that's shown when the cursor hovers the group.</fgcolor>" endwith
47. Can I change the font for the tooltip
with thisform.ExplorerBar1 .ToolTipDelay = 1 .ToolTipWidth = 364 var_s = "<font Tahoma>This is a bit of text that's shown when the cursor hovers the group.</font> Back to" var_s = var_s + " the normal font" .Groups.Add("ToolTip").ToolTip = var_s endwith
46. Can I change the font for the tooltip
with thisform.ExplorerBar1 .ToolTipDelay = 1 with .ToolTipFont .Name = "Tahoma" .Size = 14 endwith .ToolTipWidth = 364 .Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group." endwith
45. How do I disable showing the tooltip for all control
with thisform.ExplorerBar1 .ToolTipDelay = 0 .Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group." endwith
44. How do I show the tooltip quicker
with thisform.ExplorerBar1 .ToolTipDelay = 1 .Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group." endwith
43. How do I call your x-script language
with thisform.ExplorerBar1 with .ExecuteTemplate("Groups.Add(`Group 1`)") .AddItem("Item 1") .Expanded = .T. endwith endwith
42. How do I call your x-script language
with thisform.ExplorerBar1
.Template = "BackColor = RGB(255,0,0)"
endwith
with thisform.ExplorerBar1 .AllowTooltip = .F. with .Groups.Add("Group 1") .Expanded = .T. .AddItem("This isa very long text that should break the control in several pieces") endwith endwith
40. How can I show a tooltip when the item exceeds its area, so ... are displayed
with thisform.ExplorerBar1 .AllowTooltip = .T. with .Groups.Add("Group 1") .Expanded = .T. .AddItem("This isa very long text that should break the control in several pieces") endwith endwith
39. How do I specify the distance between two groups
with thisform.ExplorerBar1 .BorderGroupHeight = 0 .Groups.Add("Group 1") .Groups.Add("Group 2").AddItem("Item 2") endwith
38. How can I change the expand / collapse buttons
with thisform.ExplorerBar1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Object.ExpandIcon(1) = 1 .Object.ExpandIcon(0) = 2 with .Groups.Add("Group 1") .AddItem("Item 1") .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith
37. How do I enable or disable the control
with thisform.ExplorerBar1 .Enabled = .F. with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") endwith
36. How do I hide the icons in the right side of the group, the expand / collapse buttons
with thisform.ExplorerBar1 .BeginUpdate .DisplayExpandIcon = .F. var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith
35. Is there any option to stop using the hand shape cursor, when the cursor hovers an item
with thisform.ExplorerBar1 .BeginUpdate .HandCursor = .F. var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .HighlightItemType = 0 with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith
34. How do I specify the color to highlight the item
with thisform.ExplorerBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .HyperLinkColor = RGB(255,0,0) .HighlightItemType = 4 with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith
33. How can I expand or collapse a group when I click only its right icon
with thisform.ExplorerBar1 .BeginUpdate .ExpandOnClick = .F. var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .HighlightItemType = 4 with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith
32. How do I remove the control's borders
with thisform.ExplorerBar1 .BeginUpdate .Appearance = 0 .BorderWidth = 0 .BorderHeight = 0 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .HighlightItemType = 4 with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith
31. How do I specify width or the height of the control's borders
with thisform.ExplorerBar1 .BeginUpdate .Appearance = 0 .BorderWidth = 0 .BorderHeight = 0 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .HighlightItemType = 4 with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith
28. How do I specify to highlight the items in the group, when the cursor hovers the item
with thisform.ExplorerBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .HighlightItemType = 4 with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith
27. How do I specify to highlight the items in the group, when the cursor hovers the item
with thisform.ExplorerBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .HighlightItemType = 3 with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith
26. How do I specify to highlight the items in the group, when the cursor hovers the item
with thisform.ExplorerBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .HighlightItemType = 2 with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith
25. How do I specify to highlight the items in the group, when the cursor hovers the item
with thisform.ExplorerBar1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .HighlightItemType = 1 with .Groups.Add("Group 1") .AddItem("Item 1").Image = 1 .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith
24. How do I specify the way the control highlight the items in the group
with thisform.ExplorerBar1 .BeginUpdate .HighlightItemType = 0 with .Groups.Add("Group 1") .AddItem("Item 1") .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith
23. Is there any function to avoid painting the control while adding multiple items and groups
with thisform.ExplorerBar1 .BeginUpdate with .Groups.Add("Group 1") .AddItem("Item 1") .Expanded = .T. endwith .Groups.Add("Group 2").AddItem("Item 2") .EndUpdate endwith
22. How do I decrease the delay to scroll a group
with thisform.ExplorerBar1 .DelayScroll = 0 with .Groups.Add("Group 1") .AddItem("Item 1") .Expanded = .T. endwith with .Groups.Add("Group 2") .AddItem("Item 2") .Expanded = .T. endwith endwith
21. How do I display icons
with thisform.ExplorerBar1 .SmallIcons = .T. var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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
20. How do I display 32x32 icons
with thisform.ExplorerBar1 .SmallIcons = .F. .GroupHeight = 36 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+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
19. How do I specify the height of the groups
with thisform.ExplorerBar1 .GroupHeight = 40 .Groups.Add("Group 1") .Groups.Add("Group 2") endwith
18. How do I change the visual appearance of the groups
with thisform.ExplorerBar1 .GroupAppearance = 1 .Groups.Add("Group 1") .Groups.Add("Group 2") endwith
17. How do I change the visual appearance of the 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") endwith
16. How do I change the background color for the groups
with thisform.ExplorerBar1 .BackColorGroup = RGB(255,0,0) .BackColorGroup2 = RGB(255,0,0) .Groups.Add("Group 1") endwith
15. How do I change the background color for the groups
with thisform.ExplorerBar1 .BackColorGroup = RGB(255,0,0) .Groups.Add("Group 1") endwith
14. How do I change the control's foreground color
with thisform.ExplorerBar1 .ForeColor = RGB(0,0,255) .ForeColorGroup = RGB(255,0,0) with .Groups.Add("Group 1") .AddItem("Item 1") .Expanded = .T. endwith .Groups.Add("Group 2") endwith
13. How can I change the control's font
with thisform.ExplorerBar1 .Font.Name = "Tahoma" .Groups.Add("Group 1") endwith
12. How do I change the control's foreground color
with thisform.ExplorerBar1 .ForeColor = RGB(255,0,0) with .Groups.Add("Group 1") .AddItem("Item 1") .Expanded = .T. endwith endwith
11. How do I change the control's background color
with thisform.ExplorerBar1
.BackColor = RGB(200,200,200)
endwith
with thisform.ExplorerBar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Appearance = 16777216 endwith
9. How do I remove the control's border
with thisform.ExplorerBar1
.Appearance = 0
endwith
with thisform.ExplorerBar1 .Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 17 endwith
7. How do I resize/stretch a picture on the control's background
with thisform.ExplorerBar1 .Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 49 endwith
6. How do I put a picture on the control's center right bottom side
with thisform.ExplorerBar1 .Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 34 endwith
5. How do I put a picture on the control's center left bottom side
with thisform.ExplorerBar1 .Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 32 endwith
4. How do I put a picture on the control's center top side
with thisform.ExplorerBar1 .Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 1 endwith
3. How do I put a picture on the control's right top corner
with thisform.ExplorerBar1 .Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 2 endwith
2. How do I put a picture on the control's left top corner
with thisform.ExplorerBar1 .Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 0 endwith
1. How do I put a picture on the control's background
with thisform.ExplorerBar1 .Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") endwith