![]() |
Add a Separator item |
Post Reply ![]() |
Author | |
gibra ![]() Senior Member ![]() Joined: 31 October 2008 Location: Italy Status: Offline Points: 288 |
![]() ![]() ![]() ![]() ![]() Posted: 02 June 2011 at 12:07pm |
How can add a separator between items of same group?
I.e., in CommandBar we can set BeginGroup property.
But in TaskPanel how to obtain same effect?
Like:
Thank.
|
|
gibra
CJ SuiteControl v: 13.x to 19.x Windows 10 64bit VS2019 - VB6.0 SP6 <a href="http://nuke.vbcorner.net/Home/tabid/36/language/en-US/Default.aspx" rel="nofollow">VS/VB 6.0 Installer v6.8 |
|
![]() |
|
gibra ![]() Senior Member ![]() Joined: 31 October 2008 Location: Italy Status: Offline Points: 288 |
![]() ![]() ![]() ![]() ![]() |
Isn't possible?
![]() |
|
gibra
CJ SuiteControl v: 13.x to 19.x Windows 10 64bit VS2019 - VB6.0 SP6 <a href="http://nuke.vbcorner.net/Home/tabid/36/language/en-US/Default.aspx" rel="nofollow">VS/VB 6.0 Installer v6.8 |
|
![]() |
|
Oleg ![]() Admin Group ![]() Joined: 21 May 2003 Location: United States Status: Offline Points: 11234 |
![]() ![]() ![]() ![]() ![]() |
Something like this
wndTaskPanel.EnableMarkup = True Group.Items.Add 0, "<Rectangle Width='150' Height='1' Fill='Gray'/>", xtpTaskItemTypeText, 0 |
|
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS |
|
![]() |
|
gibra ![]() Senior Member ![]() Joined: 31 October 2008 Location: Italy Status: Offline Points: 288 |
![]() ![]() ![]() ![]() ![]() |
Very good.
Thank!
![]() |
|
gibra
CJ SuiteControl v: 13.x to 19.x Windows 10 64bit VS2019 - VB6.0 SP6 <a href="http://nuke.vbcorner.net/Home/tabid/36/language/en-US/Default.aspx" rel="nofollow">VS/VB 6.0 Installer v6.8 |
|
![]() |
|
Carlos Rocha ![]() Groupie ![]() Joined: 11 February 2008 Location: Portugal Status: Offline Points: 92 |
![]() ![]() ![]() ![]() ![]() |
Nice. Any chance to make the width depending on the width of items?
|
|
SuitePro 20.3.0
OS: Windows 10 Language: Visual Objects 2.8 |
|
![]() |
|
gibra ![]() Senior Member ![]() Joined: 31 October 2008 Location: Italy Status: Offline Points: 288 |
![]() ![]() ![]() ![]() ![]() |
I have used the TaskPanel.Width
Dim sep As TaskPanelItem
Set sep = group.items.Add(0, "<Rectangle Width='" & TaskPanel1.Width & "' Height='1' Fill='Gray'/>", xtpTaskItemTypeText, 0) |
|
gibra
CJ SuiteControl v: 13.x to 19.x Windows 10 64bit VS2019 - VB6.0 SP6 <a href="http://nuke.vbcorner.net/Home/tabid/36/language/en-US/Default.aspx" rel="nofollow">VS/VB 6.0 Installer v6.8 |
|
![]() |
|
Oleg ![]() Admin Group ![]() Joined: 21 May 2003 Location: United States Status: Offline Points: 11234 |
![]() ![]() ![]() ![]() ![]() |
Dashed Separator:
wndTaskPanel.EnableMarkup = True Group.Items.Add 0, "<Line X2='200'Stroke='Gray' StrokeDashArray='2 2' />", xtpTaskItemTypeText, 0 |
|
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS |
|
![]() |
Post Reply ![]() |
|
Tweet
|
Forum Jump | Forum Permissions ![]() You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |