|
[SOLVED] Non square icons in TearOffPopupBar |
Post Reply 
|
| Author | |
Peter59 
Groupie 
Joined: 19 July 2007 Status: Offline Points: 61 |
 Post Options
 Thanks(0)
 Quote Reply
 Topic: [SOLVED] Non square icons in TearOffPopupBarPosted: 20 February 2011 at 2:42am |
|
Hello,
I added some non square icons (80 x 16) to a command bar set as TearOffPopupBar. When I tear off the popup bar it looks very strange.   Can someone give me some advice what I missed? See attached sample. uploads/3156/SampleSetIconSize.zip Thanks, Peter |
|
|
Product: Xtreme SuitePro (ActiveX) version 15.2.1
Platform: Windows 7 64 Bit Language: Visual Basic 6.0 SP6 |
|
 |
|
|
Aaron
Senior Member 
Joined: 29 January 2008 Status: Offline Points: 2192 |
Post Options
Thanks(0)
Quote Reply
Posted: 20 February 2011 at 6:07am |
|
Hi Peter, Long time no seen Seems you have to set:
With PopupButton.CommandBar
.ShowGripper = False .CommandBars.Options.LargeIcons = True .CommandBars.Options.SetIconSize True, 80, 16 ....
.SetTearOffPopup "Wide Icons", 33, 80 'To get one 'column'
to get what you want.
|
|
|
Product: Xtreme SuitePro (ActiveX) version 15.0.2
Platform: Windows XP (32bit) - SP 2 Language: Visual Basic 6.0 Zero replies is not an option.... |
|
|
|
|
Oleg
Admin Group 
Joined: 21 May 2003 Location: United States Status: Offline Points: 11234 |
Post Options
Thanks(0)
Quote Reply
Posted: 20 February 2011 at 8:35am |
|
maybe better solution is to create toolbar that is hidden by default
in case user tearoff your popup he will start drag this toolbar. Set ToolBar = CommandBars.Add("Colors", xtpBarTop) ToolBar.BarID = 33 ToolBar.Visible = False 'PopupButton.CommandBar.SetPopupToolBar True With ToolBar .ShowGripper = False .SetIconSize 80, 16 .SetTearOffPopup "Wide Icons", 33, 220 .DefaultButtonStyle = xtpButtonIconAndCaption Set cmdCtl = .Controls.Add(xtpControlButton, 101, "Blue") cmdCtl.IconId = 101 cmdCtl.SetIconSize 80, 16 Set cmdCtl = .Controls.Add(xtpControlButton, 102, "Green") cmdCtl.IconId = 102 cmdCtl.SetIconSize 80, 16 Set cmdCtl = .Controls.Add(xtpControlButton, 103, "Grey") cmdCtl.IconId = 103 cmdCtl.SetIconSize 80, 16 Set cmdCtl = .Controls.Add(xtpControlButton, 104, "Red") cmdCtl.IconId = 104 cmdCtl.SetIconSize 80, 16 Set cmdCtl = .Controls.Add(xtpControlButton, 105, "Yellow") cmdCtl.IconId = 105 cmdCtl.SetIconSize 80, 16 End With |
|
|
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS |
|
|
|
|
Peter59
Groupie
Joined: 19 July 2007 Status: Offline Points: 61 |
Post Options
Thanks(0)
Quote Reply
Posted: 20 February 2011 at 1:10pm |
|
@Aaron: Thank you for your suggestion and yes, long time no seen, but still in business! Do you think this is a sample for the code snippets forum worth?
@Oleg: Thank you for the "lighting up" idea - now the problem is solved - see attached sample.  uploads/3156/Sample_SetIconSize.zip Peter |
|
|
Product: Xtreme SuitePro (ActiveX) version 15.2.1
Platform: Windows 7 64 Bit Language: Visual Basic 6.0 SP6 |
|
|
|
|
Aaron
Senior Member
Joined: 29 January 2008 Status: Offline Points: 2192 |
Post Options
Thanks(0)
Quote Reply
Posted: 21 February 2011 at 2:00pm |
Hi Peter,
In my opinion every codesnippet is worth posting. There will always be someone looking for same problem, as you encountered, when 'trying' to implement some 'special' feature. Would be nice if all forum members would share there 'knowledge'
 Thanks
|
|
|
Product: Xtreme SuitePro (ActiveX) version 15.0.2
Platform: Windows XP (32bit) - SP 2 Language: Visual Basic 6.0 Zero replies is not an option.... |
|
|
|
|
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 |
![RSS Feed - [SOLVED] Non square icons in TearOffPopupBar](forum_images/rss.png "RSS Feed: [SOLVED] Non square icons in TearOffPopupBar")
Topic Options
Peter59 wrote: