Add a Separator item
Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Task Panel
Forum Description: Topics Related to Codejock Task Panel
URL: https://forum.codejock.com/forum_posts.asp?TID=18487
Printed Date: 13 November 2026 at 7:36am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com
Topic: Add a Separator item
Posted By: gibra
Subject: Add a Separator item
Date 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 |
Replies:
Posted By: gibra
Date Posted: 06 June 2011 at 11:17am
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 |
Posted By: Oleg
Date Posted: 06 June 2011 at 11:28am
|
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 |
Posted By: gibra
Date Posted: 06 June 2011 at 2:17pm
|
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 |
Posted By: Carlos Rocha
Date Posted: 06 June 2011 at 2:27pm
|
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 |
Posted By: gibra
Date Posted: 06 June 2011 at 6:20pm
|
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 |
Posted By: Oleg
Date Posted: 07 June 2011 at 1:54am
|
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 |