Codejock Forums Homepage
Forum Home Forum Home > Codejock Products > ActiveX COM > Command Bars
  New Posts New Posts RSS Feed - Caption of control is not shown
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Caption of control is not shown
 Post Reply Post Reply
Author
Message
  Topic Search Topic Search  Topic Options Topic Options
Stefan Überbacher View Drop Down
Groupie
Groupie


Joined: 20 December 2011
Status: Offline
Points: 11 		Post Options Post Options   Thanks (0) Thanks(0)   Quote Stefan Überbacher Quote  Post ReplyReply Direct Link To This Post Topic: Caption of control is not shown
    Posted: 20 December 2011 at 2:51am
Hi,

I've added a custom control to the commandbar, but the caption of the control is not shown. Why is that?

Stefan
Back to Top
SuperMario View Drop Down
Admin Group
Admin Group
Avatar

Joined: 14 February 2004
Status: Offline
Points: 18057 		Post Options Post Options   Thanks (0) Thanks(0)   Quote SuperMario Quote  Post ReplyReply Direct Link To This Post Posted: 03 January 2012 at 2:43pm
You can just add a command and set the style to xtpControlLabel before this custom control.
Back to Top
Stefan Überbacher View Drop Down
Groupie
Groupie


Joined: 20 December 2011
Status: Offline
Points: 11 		Post Options Post Options   Thanks (0) Thanks(0)   Quote Stefan Überbacher Quote  Post ReplyReply Direct Link To This Post Posted: 04 January 2012 at 1:25am
Ok, but the label is not on the same level as the customcontrol. It should look like this (the customcontrol is a datetimepicker-control):

Date: 04.01.2012

How do you do that in a ribbonbar?
Back to Top
SuperMario View Drop Down
Admin Group
Admin Group
Avatar

Joined: 14 February 2004
Status: Offline
Points: 18057 		Post Options Post Options   Thanks (0) Thanks(0)   Quote SuperMario Quote  Post ReplyReply Direct Link To This Post Posted: 11 January 2012 at 11:20am
I modified the ribbon sample, note the control flags for the progress control:

    Dim TabAdvanced As RibbonTab
    Set TabAdvanced = RibbonBar.InsertTab(7, "&Advanced")
    TabAdvanced.Id = ID_TAB_ADVANCED
    
    Set ViewGroup = TabAdvanced.Groups.AddGroup("&Advanced Controls", ID_GROUP_ADVANCED)
    ViewGroup.ControlsCentering = True
    
    Set Control = ViewGroup.Add(xtpControlLabel, 0, "Indent")
    Control.Style = xtpButtonCaption
    Control.BeginGroup = True
    
    Set Control = CommandBars.CreateCommandBarControl("CXTPControlProgress")
    ViewGroup.AddControl Control
    Control.Width = 100
    Control.Pos = 30
    Control.Flags = xtpFlagWrapRow
  
    Set Control = CommandBars.CreateCommandBarControl("CXTPControlScrollBar")
    ViewGroup.AddControl Control
    Control.Width = 100
    Control.BeginGroup = True
 
    Set Control = CommandBars.CreateCommandBarControl("CXTPControlScrollBar")
    Control.ScrollBarStyle = xtpScrollStyleSlider
    ViewGroup.AddControl Control
    Control.Width = 100
    Control.BeginGroup = True
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.04
Copyright ©2001-2021 Web Wiz Ltd.

This page was generated in 0.142 seconds.