Codejock Developer Community : RibbonSample-System Menu http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 10 Jun 2026 13:44:47 +0000 Tue, 13 Feb 2007 05:15:50 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=6397 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[RibbonSample-System Menu : I did it, with this code, i get...]]> http://forum.codejock.com/forum_posts.asp?TID=6397&PID=20346&title=ribbonsamplesystem-menu#20346 Author: mav50202
Subject: 6397
Posted: 13 February 2007 at 5:15am

I did it, with this code, i get it from the samples in VB. (I work in Visual Foxpro 9).

Thanks.

 

With ControlFile.CommandBar.Controls

.Add xtpControlButton, ID_FILE_NEW, "&New"

.Add xtpControlButton, ID_FILE_OPEN, "&Open..."

.Add xtpControlButton, ID_FILE_SAVE, "&Save"

.Add xtpControlButton, ID_FILE_SAVE_AS, "Save &As..."

Set Control = .Add(xtpControlSplitButtonPopup, ID_FILE_PRINT, "&Print")

Control.BeginGroup = True

Set PopupBar = CommandBars.CreateCommandBar("CXTPRibbonSystemPopupBarPage")

Set Control.CommandBar = PopupBar

Set Control = PopupBar.Controls.Add(xtpControlLabel, 0, "Preview and print the document")

Control.Width = 296

Control.DefaultItem = True

Control.Style = xtpButtonCaption

PopupBar.DefaultButtonStyle = xtpButtonCaptionAndDescription

PopupBar.SetIconSize 32, 32

PopupBar.ShowGripper = False

PopupBar.Controls.Add xtpControlButton, ID_FILE_PRINT, "Print Pre&view"

PopupBar.Controls.Add xtpControlButton, ID_FILE_PRINT_SETUP, "Pr&int Setup..."

PopupBar.Controls.Add xtpControlButton, ID_FILE_PRINT_PREVIEW, "Print Pre&view"

.Add xtpControlButton, ID_FILE_PREPARE, "Prepare"

.Add xtpControlButton, ID_FILE_SEND, "Send"

.Add xtpControlButton, ID_FILE_PREPARE, "Publish"

.Add xtpControlButton, ID_FILE_CLOSE, "Close"

Set Control = CommandBars.CreateCommandBarControl("CXTPRibbonControlSystemPopupBarListCaption")

Control.Caption = "Recent Documents"

Control.BeginGroup = True

.AddControl Control

Set Control = CommandBars.CreateCommandBarControl("CXTPRibbonControlSystemPopupBarListItem")

Control.Caption = "frmMain.frm"

.AddControl Control

Set Control = CommandBars.CreateCommandBarControl("CXTPRibbonControlSystemPopupBarButton")

Control.Caption = "Options"

Control.Id = ID_FILE_OPTIONS

.AddControl Control

Set Control = CommandBars.CreateCommandBarControl("CXTPRibbonControlSystemPopupBarButton")

Control.Caption = "Exit Sample"

Control.Id = ID_APP_EXIT

.AddControl Control

ControlFile.CommandBar.SetIconSize 32, 32

End With

]]> Tue, 13 Feb 2007 05:15:50 +0000 http://forum.codejock.com/forum_posts.asp?TID=6397&PID=20346&title=ribbonsamplesystem-menu#20346 <![CDATA[RibbonSample-System Menu : Hi again, im trying to do a sample...]]> http://forum.codejock.com/forum_posts.asp?TID=6397&PID=20344&title=ribbonsamplesystem-menu#20344 Author: mav50202
Subject: 6397
Posted: 13 February 2007 at 4:46am

Hi again, im trying to do a sample like the ribbon sample in codejock downloads, and i have problems with the system menu, and i want to do some like this.
 
But I dont know to get the description and the icon in the "Print Preview Element" , i know that is a "CXTPRibbonControlSystemPopupBarListItem" but the description below and icon i dont know to set it.
 
And in the header "Preview and print the document", my background color is the same every time and in this sample is blue, how can i change?
 
And last, whats is the event in the main system menu when change the focus over print and send and change the elements in container.
 
Thank you very much for all and im so sorry this long topic.
 
 
 
 
]]> Tue, 13 Feb 2007 04:46:02 +0000 http://forum.codejock.com/forum_posts.asp?TID=6397&PID=20344&title=ribbonsamplesystem-menu#20344