|
176
|
How can I select an item using on its full part, not only on its icon or caption
METHOD OCX_Exontrol1Click() CLASS MainDialog
// Click event - Occurs when the user presses and then releases the left mouse button over the control.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[ItemFromPoint,-1,-1]) ))
RETURN NIL
local var_Group as IGroup
oDCOCX_Exontrol1:HighlightItemType := exFull | exUnion
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item <b>1</b>",nil):CaptionFormat := exHTML
var_Group:AddItem("Item <b>2</b>",nil):CaptionFormat := exHTML
var_Group:Expanded := true
|
|
175
|
How can I change the group's color
local var_Groups as IGroups
oDCOCX_Exontrol1:BackColorGroup := RGB(255,0,0)
oDCOCX_Exontrol1:BackColorGroup2 := oDCOCX_Exontrol1:BackColorGroup
oDCOCX_Exontrol1:GroupAppearance := exNone
var_Groups := oDCOCX_Exontrol1:Groups
var_Groups:Add("Group 1")
var_Groups:Add("Group 2")
|
|
174
|
How can remove the group's appearance
local var_Groups as IGroups
oDCOCX_Exontrol1:BackColorGroup := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:BackColorGroup2 := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:GroupAppearance := exSingle
var_Groups := oDCOCX_Exontrol1:Groups
var_Groups:Add("Group 1")
var_Groups:Add("Group 2")
|
|
173
|
How can I align the group/item
local var_Group as IGroup
oDCOCX_Exontrol1:BeginUpdate()
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:Alignment := exLeft
var_Group:AddItem("Item 1",nil):Alignment := exLeft
var_Group:Expanded := true
oDCOCX_Exontrol1:EndUpdate()
|
|
172
|
Just seen the BackgroundExt property. Not sure what I can do with that
METHOD OCX_Exontrol1AddGroup(Group) CLASS MainDialog
// AddGroup event - Occurs when a new group is added to collection.
RETURN NIL
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs when a new item is added to a group.
RETURN NIL
local var_Appearance as IAppearance
local var_Group,var_Group1,var_Group2 as IGroup
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Appearance := exNone
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"c:\exontrol\images\normal.ebn")
var_Appearance:Add(2,"CP:1 48 12 -24 0")
var_Appearance:Add(3,"c:\exontrol\images\pushed.ebn")
oDCOCX_Exontrol1:[HTMLPicture,"uk"] := "c:\exontrol\images\zipdisk.gif"
oDCOCX_Exontrol1:[HTMLPicture,"brazil"] := "c:\exontrol\images\auction.gif"
oDCOCX_Exontrol1:[HTMLPicture,"sweden"] := "c:\exontrol\images\colorize.gif"
oDCOCX_Exontrol1:BackColorGroup := 0x2000000
oDCOCX_Exontrol1:BackColorGroup2 := oDCOCX_Exontrol1:BackColorGroup
oDCOCX_Exontrol1:GroupHeight := 40
var_Group := oDCOCX_Exontrol1:Groups:Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>United Kingdom")
var_Group:[BackgroundExtValue,exIndexExt2,exTextExt] := "<img>uk:44</img>"
var_Group:AddItem("London Eye",nil)
var_Group:AddItem("Tower of London",nil)
var_Group:AddItem("Buckingham Palace",nil)
var_Group:AddItem("River Thames",nil)
var_Group:AddItem("Stonehenge",nil)
var_Group1 := oDCOCX_Exontrol1:Groups:Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>Brazil")
var_Group1:[BackgroundExtValue,exIndexExt2,exTextExt] := "<img>brazil:44</img>"
var_Group1:AddItem("Cristo Redentor",nil)
var_Group1:AddItem("Copacabana",nil)
var_Group1:AddItem("Ipanema, Rio de Janeiro",nil)
var_Group1:AddItem("Iguazu Falls",nil)
var_Group1:AddItem("Sugarloaf Mountain",nil)
var_Group1:Expanded := true
var_Group2 := oDCOCX_Exontrol1:Groups:Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>Sweden")
var_Group2:[BackgroundExtValue,exIndexExt2,exTextExt] := "<img>sweden:44</img>"
var_Group2:AddItem("Gamla stan",nil)
var_Group2:AddItem("Vasa Museum",nil)
var_Group2:AddItem("Stockholm Palace",nil)
var_Group2:AddItem("Skansen",nil)
var_Group2:AddItem("Djurgården",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
171
|
Can I specify a different colors for groups using your EBN files
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:BackColorGroup := 0x1000000
oDCOCX_Exontrol1:Groups:Add("Group 1")
oDCOCX_Exontrol1:Groups:Add("Group 2"):BackColor := 0x100aabb
|
|
170
|
Can I change the color of the control's border (EBN files)
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:Appearance := 0x1aabbc8 | exDrop
|
|
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
local var_Group as IGroup
local var_Groups as IGroups
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:GroupHeight := 48
var_Groups := oDCOCX_Exontrol1:Groups
var_Groups:Add("Group 1")
var_Groups:Add("Group 2")
var_Groups:Add("Group 3")
var_Groups:Add("Group 4")
var_Groups:Add("Group 5")
var_Groups:Add("Group 6")
var_Groups:Add("Group 7")
var_Groups:Add("Group 8")
var_Groups:Add("Group 9")
var_Groups:Add("Group 10")
var_Groups:Add("Group 11")
var_Group := var_Groups:Add("Group 12")
var_Group:AddItem(AsString(0),nil)
var_Group:AddItem(AsString(1),nil)
var_Group:AddItem(AsString(2),nil)
oDCOCX_Exontrol1:EnsureVisible(11,2,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
168
|
How can I scroll to the end of the groups
local var_Groups as IGroups
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:GroupHeight := 48
var_Groups := oDCOCX_Exontrol1:Groups
var_Groups:Add("Group 1")
var_Groups:Add("Group 2")
var_Groups:Add("Group 3")
var_Groups:Add("Group 4")
var_Groups:Add("Group 5")
var_Groups:Add("Group 6")
var_Groups:Add("Group 7")
var_Groups:Add("Group 8")
var_Groups:Add("Group 9")
var_Groups:Add("Group 10")
var_Groups:Add("Group 11")
var_Groups:Add("Group 12")
oDCOCX_Exontrol1:EnsureVisible(11,nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
167
|
How can I display an item by multiple lines
local var_Group as IGroup
local var_Item as IItem
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("SingleLine",nil)
var_Item := var_Group:AddItem("This is bit of text that should break the lines, and so <b>multiple</b> lines are displayed",nil)
var_Item:Alignment := exLeft
var_Item:CaptionFormat := exHTML
var_Item:SingleLine := false
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
166
|
How can I indent an item
local var_Group as IGroup
local var_Item,var_Item1,var_Item2,var_Item3,var_Item4 as IItem
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil):Alignment := exLeft
var_Item := var_Group:AddItem("Sub Item <b>1</b>",nil)
var_Item:CaptionFormat := exHTML
var_Item:Alignment := exLeft
var_Item:Indent := 12
var_Item1 := var_Group:AddItem("Sub Item <b>2</b>",nil)
var_Item1:CaptionFormat := exHTML
var_Item1:Alignment := exLeft
var_Item1:Indent := 12
var_Item2 := var_Group:AddItem("Sub Item <b>3</b>",nil)
var_Item2:CaptionFormat := exHTML
var_Item2:Alignment := exLeft
var_Item2:Indent := 12
var_Item3 := var_Group:AddItem("Sub Sub Item <b>3</b>",nil)
var_Item3:CaptionFormat := exHTML
var_Item3:Alignment := exLeft
var_Item3:Indent := 24
var_Item4 := var_Group:AddItem("Item 2",nil)
var_Item4:Alignment := exLeft
var_Group:Expanded := true
|
|
165
|
How can I use HTML format to display my item
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("<font Tahoma;11>T</font>his is an HTML <b>item</b> assigned to a <fgcolor=FF0000>group</fgcolor>",nil):CaptionFormat := exHTML
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
164
|
How can I assign a tooltip to an item
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("ToolTip",nil):ToolTip := "This is bit of text that should appear when the cursor hovers the <b>item</b>."
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
163
|
How can I show or hide an item
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil):Visible := false
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
162
|
How can I align an icon for an item
local var_Group as IGroup
local var_Item,var_Item1 as IItem
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Item := var_Group:AddItem("Item 1",nil)
var_Item:Image := 1
var_Item:ImageAlignment := exLeft
var_Item1 := var_Group:AddItem("Item 2",nil)
var_Item1:Image := 2
var_Item1:ImageAlignment := exRight
var_Group:Expanded := true
|
|
161
|
How can I stop highlighting an item
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2 - no ",nil):AllowHighLight := false
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
160
|
How can I change the item's background color
local var_Group as IGroup
local var_Item as IItem
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Item := var_Group:AddItem("Item 2",nil)
var_Item:BackColor := RGB(255,0,0)
var_Item:BackColor2 := RGB(255,255,255)
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
159
|
How can I change the item's background color
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("<bgcolor=FF0000>Item</bgcolor> 2",nil):CaptionFormat := exHTML
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
158
|
How can I change the item's foreground color
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil):ForeColor := RGB(255,0,0)
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
157
|
How can I change the visual appearance of the item using your EBN files
local var_Group as IGroup
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil):BackColor := 0x1000000
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
156
|
How can I change the item's background color
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil):BackColor := RGB(255,0,0)
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
155
|
How can I get the group of the item
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil):Group:Bold := true
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
154
|
How can I get the index of the item
local var_Group as IGroup
local var_Item,var_Item1,var_Item2 as IItem
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Item := var_Group:AddItem("Item 1",nil)
var_Item:Caption := AsString(var_Item:Index)
var_Item1 := var_Group:AddItem("Item 2",nil)
var_Item1:Caption := AsString(var_Item1:Index)
var_Item2 := var_Group:AddItem("Item 3",nil)
var_Item2:Caption := AsString(var_Item2:Index)
var_Group:Expanded := true
|
|
153
|
How can I draw underlined an item
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("<u>Item</u> 2",nil):CaptionFormat := exHTML
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
152
|
How can I draw underlined an item
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil):Underline := true
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
151
|
How can I draw as strikeout an item
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("<s>Item</s> 2",nil):CaptionFormat := exHTML
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
150
|
How can I draw as strikeout an item
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil):StrikeOut := true
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
149
|
How can I draw as italic an item
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("<i>Item</i> 2",nil):CaptionFormat := exHTML
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
148
|
How can I draw as italic an item
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil):Italic := true
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
147
|
How can I add a anchor or a hyperlink
local var_Group as IGroup
oDCOCX_Exontrol1:HighlightItemType := exNoHighlight
oDCOCX_Exontrol1:HandCursor := false
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Link <a1><b>1</b></a>",nil):CaptionFormat := exHTML
var_Group:AddItem("Link <a2><b>2</b></a>",nil):CaptionFormat := exHTML
var_Group:Expanded := true
|
|
146
|
How do I bold an item
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("<b>Item</a> 2",nil):CaptionFormat := exHTML
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
145
|
How do I bold an item
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil):Bold := true
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
144
|
How can I align an item
local var_Group as IGroup
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:ItemHeight := 28
var_Group:AddItem("Left",1):Alignment := exLeft
var_Group:AddItem("Center",2):Alignment := exCenter
var_Group:AddItem("Right",3):Alignment := exRight
var_Group:AddItem("Middle",1):Alignment := exMiddle
var_Group:Expanded := true
|
|
143
|
How can I assign some extra data to an item
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil):UserData := "your data"
var_Group:AddItem("Item 2",nil)
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
142
|
How can I assign or display an icon for an item
local var_Group as IGroup
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item <img>1</img> text <img>2</img>",nil):CaptionFormat := exHTML
var_Group:AddItem("Item 2",nil):Image := 2
var_Group:AddItem("Item 3",nil):Image := 3
var_Group:Expanded := true
|
|
141
|
How can I assign or display an icon for an item
local var_Group as IGroup
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil):Image := 1
var_Group:AddItem("Item 2",nil):Image := 2
var_Group:AddItem("Item 3",nil):Image := 3
var_Group:Expanded := true
|
|
140
|
How can I assign or display an icon for an item
local var_Group as IGroup
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",1)
var_Group:AddItem("Item 2",2)
var_Group:AddItem("Item 3",3)
var_Group:Expanded := true
|
|
139
|
How can I change the item's position
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil)
var_Group:AddItem("Item 3",nil):Position := 0
var_Group:Expanded := true
|
|
138
|
How can I change the item's caption
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil):Caption := "new caption"
var_Group:AddItem("Item 3",nil)
var_Group:Expanded := true
|
|
137
|
How do I add new items
oDCOCX_Exontrol1:Groups:Add("Group 1"):AddItem("Item 1",nil):Bold := true
|
|
136
|
How do I assign a group to a set in the shortcut bar
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:ShowShortcutBar := true
oDCOCX_Exontrol1:Groups:Add("Group 1"):Shortcut := "Set <img>1</img>"
oDCOCX_Exontrol1:Groups:Add("Group 2"):Shortcut := "Set <img>1</img>"
oDCOCX_Exontrol1:Groups:Add("Group 3"):Shortcut := "Set <img>2</img>"
oDCOCX_Exontrol1:Groups:Add("Group 4"):Shortcut := "Set <img>2</img>"
|
|
135
|
How can I show or hide the expanding or collapsing button
local var_Group as IGroup
oDCOCX_Exontrol1:Groups:Add("Group 1"):AddItem("Item 1",nil)
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 2, expanding/collapsing button is missing ")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil)
var_Group:Expanded := true
var_Group:AllowExpand := false
oDCOCX_Exontrol1:Groups:Add("Group 3"):AddItem("Item 1",nil)
|
|
134
|
How can I avoid expanding or collapsing a group
local var_Group as IGroup
oDCOCX_Exontrol1:Groups:Add("Group 1"):AddItem("Item 1",nil)
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 2")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil)
var_Group:Expanded := true
var_Group:AllowExpand := false
oDCOCX_Exontrol1:Groups:Add("Group 3"):AddItem("Item 1",nil)
|
|
133
|
How can I assign a tooltip to a group
oDCOCX_Exontrol1:ToolTipDelay := 1
oDCOCX_Exontrol1:Groups:Add("ToolTip"):ToolTip := "This is a bit of text that's shown when the cursor hovers the <b>group</b>."
|
|
132
|
How can I display HTML text in the group's caption
oDCOCX_Exontrol1:GroupHeight := 44
oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "c:\exontrol\images\zipdisk.gif"
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:Groups:Add("<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>"):CaptionFormat := exHTML
|
|
131
|
How can I disable scrolling the group's list when it is expanded or collapsed
local var_Group as IGroup
oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 2")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil)
var_Group:Expanded := true
var_Group:AllowScroll := false
oDCOCX_Exontrol1:Groups:Add("Group 3")
|
|
130
|
How can I change the group's background color ( gradient )
local var_Group as IGroup
oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 2")
var_Group:BackColor := RGB(255,0,0)
var_Group:BackColor2 := RGB(255,255,255)
oDCOCX_Exontrol1:Groups:Add("Group 3")
|
|
129
|
How can I access the bounding rectangle of the group's area
local var_Group as IGroup
oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 2")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil)
var_Group:AddItem(AsString(var_Group:Top),nil)
var_Group:AddItem(AsString(var_Group:Left),nil)
var_Group:AddItem(AsString(var_Group:Width),nil)
var_Group:Expanded := true
oDCOCX_Exontrol1:Groups:Add("Group 3")
|
|
128
|
How can I expand or collapse a group
local var_Group as IGroup
oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 2")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil)
var_Group:Expanded := true
oDCOCX_Exontrol1:Groups:Add("Group 3")
|
|
127
|
How can I specify the height of the items
local var_Group as IGroup
oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 2")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil)
var_Group:ItemHeight := 13
var_Group:Expanded := true
oDCOCX_Exontrol1:Groups:Add("Group 3")
|
|
126
|
How do I put a picture on the group's background
local var_Group as IGroup
oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 2")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil)
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
var_Group:Picture := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
var_Group:PictureDisplay := UpperRight
var_Group:Expanded := true
oDCOCX_Exontrol1:Groups:Add("Group 3")
|
|
125
|
How do I put a picture on the group's background
local var_Group as IGroup
oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 2")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil)
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
var_Group:Picture := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
var_Group:Expanded := true
oDCOCX_Exontrol1:Groups:Add("Group 3")
|
|
124
|
How can I change the foreground color for items
local var_Group as IGroup
oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 2")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil)
var_Group:ForeColorList := RGB(255,0,0)
var_Group:Expanded := true
oDCOCX_Exontrol1:Groups:Add("Group 3")
|
|
123
|
How can I change the background color for the items
local var_Group as IGroup
oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 2")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil)
var_Group:BackColorList := RGB(255,0,0)
var_Group:Expanded := true
oDCOCX_Exontrol1:Groups:Add("Group 3")
|
|
122
|
How can I change the group's foreground color
oDCOCX_Exontrol1:Groups:Add("Group 1")
oDCOCX_Exontrol1:Groups:Add("<fgcolor=FF0000>Group</fgcolor> 2"):CaptionFormat := exHTML
oDCOCX_Exontrol1:Groups:Add("Group 3")
|
|
121
|
How can I change the group's foreground color
oDCOCX_Exontrol1:Groups:Add("Group 1")
oDCOCX_Exontrol1:Groups:Add("Group 2"):ForeColor := RGB(255,0,0)
oDCOCX_Exontrol1:Groups:Add("Group 3")
|
|
120
|
How can I change the group's background color
oDCOCX_Exontrol1:Groups:Add("Group 1")
oDCOCX_Exontrol1:Groups:Add("<bgcolor=FF0000>Group</bgcolor> 2"):CaptionFormat := exHTML
oDCOCX_Exontrol1:Groups:Add("Group 3")
|
|
119
|
How can I change the visual appearance of the group, using EBN files
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:GroupAppearance := exSingle
oDCOCX_Exontrol1:Groups:Add("Group 1")
oDCOCX_Exontrol1:Groups:Add("Group 2"):BackColor := 0x1000000
oDCOCX_Exontrol1:Groups:Add("Group 3")
|
|
118
|
How can I change the group's background color
oDCOCX_Exontrol1:Groups:Add("Group 1")
oDCOCX_Exontrol1:Groups:Add("Group 2"):BackColor := RGB(255,0,0)
oDCOCX_Exontrol1:Groups:Add("Group 3")
|
|
117
|
How do I get the index of the group
local var_Group,var_Group1,var_Group2 as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:Caption := AsString(var_Group:Index)
var_Group1 := oDCOCX_Exontrol1:Groups:Add("Group 2")
var_Group1:Caption := AsString(var_Group1:Index)
var_Group2 := oDCOCX_Exontrol1:Groups:Add("Group 3")
var_Group2:Caption := AsString(var_Group2:Index)
|
|
116
|
How can I underline the group's name
oDCOCX_Exontrol1:Groups:Add("<u>Group</u> 1"):CaptionFormat := exHTML
|
|
115
|
How can I underline the group's name
oDCOCX_Exontrol1:Groups:Add("Group 1")
oDCOCX_Exontrol1:Groups:Add("Group 2"):Underline := true
oDCOCX_Exontrol1:Groups:Add("Group 3")
|
|
114
|
How can I show the group's name as strikeout
oDCOCX_Exontrol1:Groups:Add("<s>Group</s> 1"):CaptionFormat := exHTML
|
|
113
|
How can I show the group's name as strikeout
oDCOCX_Exontrol1:Groups:Add("Group 1")
oDCOCX_Exontrol1:Groups:Add("Group 2"):StrikeOut := true
oDCOCX_Exontrol1:Groups:Add("Group 3")
|
|
112
|
How can I draw as italic the group's name
oDCOCX_Exontrol1:Groups:Add("<i>Group</i> 1"):CaptionFormat := exHTML
|
|
111
|
How do I draw italic the group's name
oDCOCX_Exontrol1:Groups:Add("Group 1")
oDCOCX_Exontrol1:Groups:Add("Group 2"):Italic := true
oDCOCX_Exontrol1:Groups:Add("Group 3")
|
|
110
|
How do I bold the group's name
oDCOCX_Exontrol1:Groups:Add("<b>Group</b> 1"):CaptionFormat := exHTML
|
|
109
|
How do I bold the group's name
oDCOCX_Exontrol1:Groups:Add("Group 1")
oDCOCX_Exontrol1:Groups:Add("Group 2"):Bold := true
oDCOCX_Exontrol1:Groups:Add("Group 3")
|
|
108
|
How can I align the icon in the group's caption
local var_Group as IGroup
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:Image := 1
var_Group:ImageAlignment := exRight
var_Group:Alignment := exRight
|
|
107
|
How can I align the group's name
oDCOCX_Exontrol1:Groups:Add("Group 1"):Alignment := exRight
|
|
106
|
How can I align the group's name
oDCOCX_Exontrol1:Groups:Add("Group 1"):Alignment := exLeft
|
|
105
|
How can I assign some extra data to a group
oDCOCX_Exontrol1:Groups:Add("Group 1"):UserData := "your data"
|
|
104
|
How can I display an icon in the group's caption
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:Groups:Add("Group <img>1</img> text <img>2</img>"):CaptionFormat := exHTML
|
|
103
|
How can I display an icon in the group's caption
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:Groups:Add("Group 1"):Image := 1
|
|
102
|
How can I access an item by its position
local var_Group as IGroup
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group:AddItem("Item 1",nil)
var_Group:AddItem("Item 2",nil)
var_Group:AddItem("Item 3",nil):Position := 0
var_Group:[ItemByPos,1]:Bold := true
var_Group:Expanded := true
|
|
101
|
How can I change the position of a group
oDCOCX_Exontrol1:Groups:Add("Group 1")
oDCOCX_Exontrol1:Groups:Add("Group 2")
oDCOCX_Exontrol1:Groups:Add("Group 3"):Position := 0
|