|
164
|
How can I select an item using on its full part, not only on its icon or caption
// Occurs when the user presses and then releases the left mouse button over the control.
Procedure OnComClick
Forward Send OnComClick
Showln (ComItemFromPoint(Self,-1,-1))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComHighlightItemType to (OLEexFull + OLEexUnion)
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voItem
Get ComAddItem of hoGroup "Item <b>1</b>" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaptionFormat of hoItem to OLEexHTML
Send Destroy to hoItem
Variant voItem1
Get ComAddItem of hoGroup "Item <b>2</b>" Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCaptionFormat of hoItem1 to OLEexHTML
Send Destroy to hoItem1
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
163
|
Does your control support subscript or superscript, in HTML captions
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voItem
Get ComAddItem of hoGroup "Item <b><off 4><font ;6>1" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaptionFormat of hoItem to OLEexHTML
Send Destroy to hoItem
Variant voItem1
Get ComAddItem of hoGroup "Item <b><off 4><font ;6>2" Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCaptionFormat of hoItem1 to OLEexHTML
Send Destroy to hoItem1
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
162
|
How do I get notified once the user selects or activates a group
// Occurs when a group is selected.
Procedure OnComSelectGroup Variant llOldGroup Variant llNewGroup
Forward Send OnComSelectGroup llOldGroup llNewGroup
Showln "Current " llNewGroup
Showln "Previously " llOldGroup
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Get ComAddItem of hoGroup1 "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Get ComAddItem of hoGroup2 "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup2 "Item 2" Nothing to Nothing
Send Destroy to hoGroup2
Send Destroy to hoGroups2
End_Procedure
|
|
161
|
Can I specify a different colors for groups using your EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackColorGroup to |CI$1000000
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComBackColor of hoGroup to |CI$100aabb
Send Destroy to hoGroup
Send Destroy to hoGroups1
Set ComSelectGroup to 1
End_Procedure
|
|
160
|
Can I change the color of the control's border (EBN files)
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComAppearance to (|CI$1aabbc8 + OLEexDrop)
End_Procedure
|
|
159
|
How do I specify the width of the item
Procedure OnCreate
Forward Send OnCreate
Set ComHighlightItemType to OLEexNoHighlight
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComItemWidth of hoGroup to 32
Get ComAddItem of hoGroup 0 Nothing to Nothing
Get ComAddItem of hoGroup 1 Nothing to Nothing
Get ComAddItem of hoGroup 2 Nothing to Nothing
Get ComAddItem of hoGroup 3 Nothing to Nothing
Get ComAddItem of hoGroup 4 Nothing to Nothing
Get ComAddItem of hoGroup 5 Nothing to Nothing
Get ComAddItem of hoGroup 6 Nothing to Nothing
Get ComAddItem of hoGroup 7 Nothing to Nothing
Get ComAddItem of hoGroup 8 Nothing to Nothing
Get ComAddItem of hoGroup 9 Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Get ComAdd of hoGroups1 "Group 2" to Nothing
Send Destroy to hoGroups1
End_Procedure
|
|
158
|
How do I change the visual appearance of the item from the cursor, using EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Get ComAdd of hoAppearance 22 "c:\exontrol\images\pushed.ebn" to Nothing
Get ComAdd of hoAppearance 2 "CP:22 0 8 0 -8" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexSelectItem to |CI$1000000
Set ComBackground OLEexHightlightItem to |CI$2000000
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Set ComSelectItem of hoGroup to 1
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Get ComAdd of hoGroups1 "Group 2" to Nothing
Send Destroy to hoGroups1
End_Procedure
|
|
157
|
How do I change the visual appearance of the selected item, using EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexSelectItem to |CI$1000000
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Set ComSelectItem of hoGroup to 1
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Get ComAdd of hoGroups1 "Group 2" to Nothing
Send Destroy to hoGroups1
End_Procedure
|
|
156
|
How do I select an item
Procedure OnCreate
Forward Send OnCreate
Set ComSelectItemType to OLEexSelectPop
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Set ComSelectItem of hoGroup to 1
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Get ComAdd of hoGroups1 "Group 2" to Nothing
Send Destroy to hoGroups1
End_Procedure
|
|
155
|
How do I specify how a selected item shows
Procedure OnCreate
Forward Send OnCreate
Set ComSelectItemType to OLEexSelectPop
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Get ComAdd of hoGroups1 "Group 2" to Nothing
Send Destroy to hoGroups1
End_Procedure
|
|
154
|
How do I select or activate a group
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
Set ComSelectGroup to 1
End_Procedure
|
|
153
|
Is there any option to display groups from left to right
Procedure OnCreate
Forward Send OnCreate
Set ComOrientation to OLEexHorizontal
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
Set ComSelectGroup to 1
End_Procedure
|
|
152
|
How do I change the foreground color of the selected group
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSelectGroup to True
Set ComSelBackColorGroup to (ComBackColorGroup(Self))
Set ComSelForeColorGroup to (RGB(255,0,0))
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
Set ComSelectGroup to 1
End_Procedure
|
|
151
|
How do I highlight the selected group
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComMarkSelectGroup to True
Set ComSelBackColorGroup to |CI$1000000
Set ComSelForeColorGroup to (RGB(0,0,0))
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
Set ComSelectGroup to 1
End_Procedure
|
|
150
|
How do I change the visual appearance of the selected group, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComMarkSelectGroup to True
Set ComSelBackColorGroup to |CI$1000000
Set ComSelForeColorGroup to (RGB(0,0,0))
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
Set ComSelectGroup to 1
End_Procedure
|
|
149
|
How do I specify the background color for selected group
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSelectGroup to True
Set ComSelBackColorGroup to (RGB(255,0,0))
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
Set ComSelectGroup to 1
End_Procedure
|
|
148
|
How can I indent an item
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voItem
Get ComAddItem of hoGroup "Item 1" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComAlignment of hoItem to OLEexLeft
Send Destroy to hoItem
Variant voItem1
Get ComAddItem of hoGroup "Sub Item <b>1</b>" Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCaptionFormat of hoItem1 to OLEexHTML
Set ComAlignment of hoItem1 to OLEexLeft
Set ComIndent of hoItem1 to 12
Send Destroy to hoItem1
Variant voItem2
Get ComAddItem of hoGroup "Sub Item <b>2</b>" Nothing to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCaptionFormat of hoItem2 to OLEexHTML
Set ComAlignment of hoItem2 to OLEexLeft
Set ComIndent of hoItem2 to 12
Send Destroy to hoItem2
Variant voItem3
Get ComAddItem of hoGroup "Sub Item <b>3</b>" Nothing to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComCaptionFormat of hoItem3 to OLEexHTML
Set ComAlignment of hoItem3 to OLEexLeft
Set ComIndent of hoItem3 to 12
Send Destroy to hoItem3
Variant voItem4
Get ComAddItem of hoGroup "Sub Sub Item <b>3</b>" Nothing to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Set ComCaptionFormat of hoItem4 to OLEexHTML
Set ComAlignment of hoItem4 to OLEexLeft
Set ComIndent of hoItem4 to 24
Send Destroy to hoItem4
Variant voItem5
Get ComAddItem of hoGroup "Item 2" Nothing to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Set ComAlignment of hoItem5 to OLEexLeft
Send Destroy to hoItem5
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
147
|
How can I use HTML format to display my item
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "<font Tahoma;11>T</font>his is an HTML <b>item</b> assigned to a <fgcolor=FF0000>group</fgcolor>" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaptionFormat of hoItem to OLEexHTML
Send Destroy to hoItem
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
146
|
How can I assign a tooltip to an item
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "ToolTip" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComToolTip of hoItem to "This is bit of text that should appear when the cursor hovers the <b>item</b>."
Send Destroy to hoItem
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
145
|
How can I show or hide an item
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "Item 2" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComVisible of hoItem to False
Send Destroy to hoItem
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
144
|
How can I change the item's background color
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "Item 2" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComBackColor of hoItem to (RGB(255,0,0))
Set ComBackColor2 of hoItem to (RGB(255,255,255))
Send Destroy to hoItem
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
143
|
How can I change the item's background color
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "<bgcolor=FF0000>Item</bgcolor> 2" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaptionFormat of hoItem to OLEexHTML
Send Destroy to hoItem
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
142
|
How can I change the item's foreground color
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "Item 2" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComForeColor of hoItem to (RGB(255,0,0))
Send Destroy to hoItem
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
141
|
How can I change the visual appearance of the item using your EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "Item 2" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComBackColor of hoItem to |CI$1000000
Send Destroy to hoItem
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
140
|
How can I change the item's background color
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "Item 2" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComBackColor of hoItem to (RGB(255,0,0))
Send Destroy to hoItem
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
139
|
How can I get the group of the item
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "Item 2" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Variant voGroup1
Get ComGroup of hoItem to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComBold of hoGroup1 to True
Send Destroy to hoGroup1
Send Destroy to hoItem
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
138
|
How can I get the index of the item
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voItem
Get ComAddItem of hoGroup "Item 1" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaption of hoItem to (ComIndex(hoItem))
Send Destroy to hoItem
Variant voItem1
Get ComAddItem of hoGroup "Item 2" Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCaption of hoItem1 to (ComIndex(hoItem1))
Send Destroy to hoItem1
Variant voItem2
Get ComAddItem of hoGroup "Item 3" Nothing to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComCaption of hoItem2 to (ComIndex(hoItem2))
Send Destroy to hoItem2
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
137
|
How can I draw underlined an item
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "<u>Item</u> 2" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaptionFormat of hoItem to OLEexHTML
Send Destroy to hoItem
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
136
|
How can I draw underlined an item
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "Item 2" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComUnderline of hoItem to True
Send Destroy to hoItem
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
135
|
How can I draw as strikeout an item
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "<s>Item</s> 2" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaptionFormat of hoItem to OLEexHTML
Send Destroy to hoItem
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
134
|
How can I draw as strikeout an item
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "Item 2" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComStrikeOut of hoItem to True
Send Destroy to hoItem
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
133
|
How can I draw as italic an item
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "<i>Item</i> 2" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaptionFormat of hoItem to OLEexHTML
Send Destroy to hoItem
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
132
|
How can I draw as italic an item
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "Item 2" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComItalic of hoItem to True
Send Destroy to hoItem
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
131
|
How can I add a anchor or a hyperlink
Procedure OnCreate
Forward Send OnCreate
Set ComHighlightItemType to OLEexNoHighlight
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voItem
Get ComAddItem of hoGroup "Link <a1><b>1</b></a>" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaptionFormat of hoItem to OLEexHTML
Send Destroy to hoItem
Variant voItem1
Get ComAddItem of hoGroup "Link <a2><b>2</b></a>" Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComCaptionFormat of hoItem1 to OLEexHTML
Send Destroy to hoItem1
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
130
|
How do I bold an item
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "<b>Item</a> 2" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaptionFormat of hoItem to OLEexHTML
Send Destroy to hoItem
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
129
|
How do I bold an item
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "Item 2" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComBold of hoItem to True
Send Destroy to hoItem
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
128
|
How can I align an item
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComItemHeight of hoGroup to 28
Variant voItem
Get ComAddItem of hoGroup "Left" 1 to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComAlignment of hoItem to OLEexLeft
Send Destroy to hoItem
Variant voItem1
Get ComAddItem of hoGroup "Center" 2 to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComAlignment of hoItem1 to OLEexCenter
Send Destroy to hoItem1
Variant voItem2
Get ComAddItem of hoGroup "Right" 3 to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComAlignment of hoItem2 to OLEexRight
Send Destroy to hoItem2
Variant voItem3
Get ComAddItem of hoGroup "Middle" 1 to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Set ComAlignment of hoItem3 to OLEexMiddle
Send Destroy to hoItem3
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
127
|
How can I assign some extra data to an item
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voItem
Get ComAddItem of hoGroup "Item 1" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComUserData of hoItem to "your data"
Send Destroy to hoItem
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
126
|
How can I assign or display an icon for an item
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voItem
Get ComAddItem of hoGroup "Item <img>1</img> text <img>2</img>" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaptionFormat of hoItem to OLEexHTML
Send Destroy to hoItem
Variant voItem1
Get ComAddItem of hoGroup "Item 2" Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComImage of hoItem1 to 2
Send Destroy to hoItem1
Variant voItem2
Get ComAddItem of hoGroup "Item 3" Nothing to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComImage of hoItem2 to 3
Send Destroy to hoItem2
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
125
|
How can I assign or display an icon for an item
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voItem
Get ComAddItem of hoGroup "Item 1" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComImage of hoItem to 1
Send Destroy to hoItem
Variant voItem1
Get ComAddItem of hoGroup "Item 2" Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Set ComImage of hoItem1 to 2
Send Destroy to hoItem1
Variant voItem2
Get ComAddItem of hoGroup "Item 3" Nothing to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Set ComImage of hoItem2 to 3
Send Destroy to hoItem2
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
124
|
How can I assign or display an icon for an item
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" 1 to Nothing
Get ComAddItem of hoGroup "Item 2" 2 to Nothing
Get ComAddItem of hoGroup "Item 3" 3 to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
123
|
How can I change the item's position
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "Item 3" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComPosition of hoItem to 0
Send Destroy to hoItem
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
122
|
How can I change the item's caption
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Variant voItem
Get ComAddItem of hoGroup "Item 2" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComCaption of hoItem to "new caption"
Send Destroy to hoItem
Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
121
|
How do I add new items
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Variant voItem
Get ComAddItem of hoGroup "Item 1" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Set ComBold of hoItem to True
Send Destroy to hoItem
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
120
|
How do I assign a group to a set in the shortcut bar
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComShowShortcutBar to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComShortcut of hoGroup to "Set <img>1</img>"
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComShortcut of hoGroup1 to "Set <img>1</img>"
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComShortcut of hoGroup2 to "Set <img>2</img>"
Send Destroy to hoGroup2
Send Destroy to hoGroups2
Variant voGroups3
Get ComGroups to voGroups3
Handle hoGroups3
Get Create (RefClass(cComGroups)) to hoGroups3
Set pvComObject of hoGroups3 to voGroups3
Variant voGroup3
Get ComAdd of hoGroups3 "Group 4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComShortcut of hoGroup3 to "Set <img>2</img>"
Send Destroy to hoGroup3
Send Destroy to hoGroups3
End_Procedure
|
|
119
|
How can I assign a tooltip to a group
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "ToolTip" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComToolTip of hoGroup to "This is a bit of text that's shown when the cursor hovers the <b>group</b>."
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
118
|
How can I display HTML text in the group's caption
Procedure OnCreate
Forward Send OnCreate
Set ComGroupHeight to 44
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComCaptionFormat of hoGroup to OLEexHTML
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
117
|
How can I change the group's background color ( gradient )
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComBackColor of hoGroup to (RGB(255,0,0))
Set ComBackColor2 of hoGroup to (RGB(255,255,255))
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
End_Procedure
|
|
116
|
How can I specify the height of the items
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Set ComItemHeight of hoGroup to 13
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
Set ComSelectGroup to 1
End_Procedure
|
|
115
|
How do I put a picture on the group's background
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture of hoGroup to (vPicture)
Set ComPictureDisplay of hoGroup to OLEUpperRight
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
Set ComSelectGroup to 1
End_Procedure
|
|
114
|
How do I put a picture on the group's background
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComPicture of hoGroup to (vPicture)
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
Set ComSelectGroup to 1
End_Procedure
|
|
113
|
How can I change the foreground color for items
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Set ComForeColorList of hoGroup to (RGB(255,0,0))
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
Set ComSelectGroup to 1
End_Procedure
|
|
112
|
How can I change the background color for the items
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
Set ComBackColorList of hoGroup to (RGB(255,0,0))
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
Set ComSelectGroup to 1
End_Procedure
|
|
111
|
How can I change the group's foreground color
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "<fgcolor=FF0000>Group</fgcolor> 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComCaptionFormat of hoGroup to OLEexHTML
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
End_Procedure
|
|
110
|
How can I change the group's foreground color
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComForeColor of hoGroup to (RGB(255,0,0))
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
End_Procedure
|
|
109
|
How can I change the group's background color
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "<bgcolor=FF0000>Group</bgcolor> 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComCaptionFormat of hoGroup to OLEexHTML
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
End_Procedure
|
|
108
|
How can I change the visual appearance of the group, using EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComGroupAppearance to OLEexSingle
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComBackColor of hoGroup to |CI$1000000
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
End_Procedure
|
|
107
|
How can I change the group's background color
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComBackColor of hoGroup to (RGB(255,0,0))
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
End_Procedure
|
|
106
|
How do I get the index of the group
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComCaption of hoGroup to (ComIndex(hoGroup))
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComCaption of hoGroup1 to (ComIndex(hoGroup1))
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup2
Get ComAdd of hoGroups2 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComCaption of hoGroup2 to (ComIndex(hoGroup2))
Send Destroy to hoGroup2
Send Destroy to hoGroups2
End_Procedure
|
|
105
|
How can I underline the group's name
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "<u>Group</u> 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComCaptionFormat of hoGroup to OLEexHTML
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
104
|
How can I underline the group's name
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComUnderline of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
End_Procedure
|
|
103
|
How can I show the group's name as strikeout
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "<s>Group</s> 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComCaptionFormat of hoGroup to OLEexHTML
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|
|
102
|
How can I show the group's name as strikeout
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Get ComAdd of hoGroups "Group 1" to Nothing
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup
Get ComAdd of hoGroups1 "Group 2" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComStrikeOut of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Get ComAdd of hoGroups2 "Group 3" to Nothing
Send Destroy to hoGroups2
End_Procedure
|
|
101
|
How can I draw as italic the group's name
Procedure OnCreate
Forward Send OnCreate
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups "<i>Group</i> 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComCaptionFormat of hoGroup to OLEexHTML
Send Destroy to hoGroup
Send Destroy to hoGroups
End_Procedure
|