Command Bars - Commandbar Styles

Print Page | Close Window

Commandbar Styles

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Command Bars
Forum Description: Topics Related to Codejock Command Bars
URL: http://forum.codejock.com/forum_posts.asp?TID=1232
Printed Date: 12 December 2024 at 5:42am
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: Commandbar Styles

Posted By: Trond
Subject: Commandbar Styles
Date Posted: 04 October 2004 at 3:56am

I like the CommandBar xtpThemeOffice2003 style when XPTheme is disabled.

The problem is when the user enable themes it would change color to blue. I dont want the color to change. Is there a way to use the "xtpThemeOffice2003 style /XPTheme disabled" permanent, regardless of XPTheme enabled/disabled?

Thank you
Trond Eirik Paulsen

Replies:

Posted By: SuperMario
Date Posted: 04 October 2004 at 6:51am

CommandBars.Options.LunaColors = False

Posted By: Trond
Date Posted: 04 October 2004 at 10:05am

Thanks, worked like a charm!

Posted By: hoanganh
Date Posted: 15 October 2004 at 1:14pm

private Sub ThemeOffice2003Ex()
    Const COLOR_SCROLLBAR = 0
    Const COLOR_3DDKSHADOW = 21
    Const COLOR_3DLIGHT = 22
    Const COLOR_INFOTEXT = 23
    Const COLOR_INFOBK = 24
    Const COLOR_HOTLIGHT = 26
    Const COLOR_GRADIENTACTIVECAPTION = 27
    Const COLOR_GRADIENTINACTIVECAPTION = 28
    Const XPCOLOR_CHECKED_TEXT = XPCOLOR_HIGHLIGHT_TEXT

    Const COLOR_BACKGROUND = 1
    Const COLOR_ACTIVECAPTION = 2
    Const COLOR_INACTIVECAPTION = 3
    Const COLOR_MENU = 4
    Const COLOR_WINDOW = 5
    Const COLOR_WINDOWFRAME = 6
    Const COLOR_MENUTEXT = 7
    Const COLOR_WINDOWTEXT = 8
    Const COLOR_CAPTIONTEXT = 9
    Const COLOR_ACTIVEBORDER = 10
    Const COLOR_INACTIVEBORDER = 11
    Const COLOR_APPWORKSPACE = 12
    Const COLOR_HIGHLIGHT = 13
    Const COLOR_HIGHLIGHTTEXT = 14
    Const COLOR_BTNFACE = 15
    Const COLOR_BTNSHADOW = 16
    Const COLOR_GRAYTEXT = 17
    Const COLOR_BTNTEXT = 18
    Const COLOR_INACTIVECAPTIONTEXT = 19
    Const COLOR_BTNHIGHLIGHT = 20
    Const XPCOLOR_LABEL = 56
    Const XPCOLOR_EDITCTRLBORDER = 53

    CommandBars.VisualTheme = xtpThemeOffice2003

    CommandBars.SetSpecialColor COLOR_SCROLLBAR, 0
    CommandBars.SetSpecialColor COLOR_BACKGROUND, 10841658
    CommandBars.SetSpecialColor COLOR_ACTIVECAPTION, 6956042
    CommandBars.SetSpecialColor COLOR_INACTIVECAPTION, 8421504
    CommandBars.SetSpecialColor COLOR_MENU, 13160660
    CommandBars.SetSpecialColor COLOR_WINDOW, 16777215
    CommandBars.SetSpecialColor COLOR_WINDOWFRAME, 0
    CommandBars.SetSpecialColor COLOR_MENUTEXT, 0
    CommandBars.SetSpecialColor COLOR_WINDOWTEXT, 0
    CommandBars.SetSpecialColor COLOR_CAPTIONTEXT, 16777215
    CommandBars.SetSpecialColor COLOR_ACTIVEBORDER, 13160660
    CommandBars.SetSpecialColor COLOR_INACTIVEBORDER, 13160660
    CommandBars.SetSpecialColor COLOR_APPWORKSPACE, 8421504
    CommandBars.SetSpecialColor COLOR_HIGHLIGHT, 6956042
    CommandBars.SetSpecialColor COLOR_HIGHLIGHTTEXT, 16777215
    CommandBars.SetSpecialColor COLOR_BTNFACE, 16105375
    CommandBars.SetSpecialColor COLOR_BTNSHADOW, 14964742
    CommandBars.SetSpecialColor COLOR_GRAYTEXT, 8421504
    CommandBars.SetSpecialColor COLOR_BTNTEXT, 0
    CommandBars.SetSpecialColor COLOR_INACTIVECAPTIONTEXT, 13160660
    CommandBars.SetSpecialColor COLOR_BTNHIGHLIGHT, 16777215
    CommandBars.SetSpecialColor COLOR_3DDKSHADOW, 4210752
    CommandBars.SetSpecialColor COLOR_3DLIGHT, 14147555
    CommandBars.SetSpecialColor COLOR_INFOTEXT, 0
    CommandBars.SetSpecialColor COLOR_INFOBK, 14811135
    CommandBars.SetSpecialColor COLOR_HOTLIGHT, 8388608
    CommandBars.SetSpecialColor COLOR_GRADIENTACTIVECAPTION, 15780518
    CommandBars.SetSpecialColor COLOR_GRADIENTINACTIVECAPTION, 0
    CommandBars.SetSpecialColor XPCOLOR_TOOLBAR_FACE, 16105375
    CommandBars.SetSpecialColor XPCOLOR_HIGHLIGHT, 12775167
    CommandBars.SetSpecialColor XPCOLOR_HIGHLIGHT_BORDER, 14898176
    CommandBars.SetSpecialColor XPCOLOR_HIGHLIGHT_PUSHED, 4096254
    CommandBars.SetSpecialColor XPCOLOR_HIGHLIGHT_CHECKED, 7323903
    CommandBars.SetSpecialColor XPCOLOR_HIGHLIGHT_CHECKED_BORDER, 14898176
    CommandBars.SetSpecialColor XPCOLOR_ICONSHADDOW, 10325384
    CommandBars.SetSpecialColor XPCOLOR_GRAYTEXT, 10921638
    CommandBars.SetSpecialColor XPCOLOR_TOOLBAR_GRIPPER, 14964742
    CommandBars.SetSpecialColor XPCOLOR_SEPARATOR, 15903360
    CommandBars.SetSpecialColor XPCOLOR_DISABLED, 9276813
    CommandBars.SetSpecialColor XPCOLOR_MENUBAR_FACE, 16251129
    CommandBars.SetSpecialColor XPCOLOR_MENUBAR_EXPANDED, 12699852
    CommandBars.SetSpecialColor XPCOLOR_MENUBAR_BORDER, 6710886
    CommandBars.SetSpecialColor XPCOLOR_MENUBAR_TEXT, 0
    CommandBars.SetSpecialColor XPCOLOR_HIGHLIGHT_TEXT, 0
    CommandBars.SetSpecialColor XPCOLOR_TOOLBAR_FACE, 16105375
    CommandBars.SetSpecialColor XPCOLOR_TOOLBAR_TEXT, 0
    CommandBars.SetSpecialColor XPCOLOR_PUSHED_TEXT, 16777215
    CommandBars.SetSpecialColor XPCOLOR_TAB_INACTIVE_BACK, 15332087
    CommandBars.SetSpecialColor XPCOLOR_TAB_INACTIVE_TEXT, 5592405
    CommandBars.SetSpecialColor XPCOLOR_HIGHLIGHT_PUSHED_BORDER, 14898176
    CommandBars.SetSpecialColor XPCOLOR_CHECKED_TEXT, 0
    CommandBars.SetSpecialColor XPCOLOR_3DFACE, 13160660
    CommandBars.SetSpecialColor XPCOLOR_3DSHADOW, 8421504
    CommandBars.SetSpecialColor XPCOLOR_EDITCTRLBORDER, 13752539
    CommandBars.SetSpecialColor XPCOLOR_FRAME, 8421504
    CommandBars.SetSpecialColor XPCOLOR_SPLITTER_FACE, 16053750
    CommandBars.SetSpecialColor XPCOLOR_LABEL, 13160660

    CommandBars.Options.LunaColors = False
    CommandBars.RecalcLayout
End Sub

Posted By: SuperMario
Date Posted: 15 October 2004 at 1:23pm

What is you question? You code looks fine ****Edit: I see now, the above post is to use Office 2003 colors when the application is running in an OS other than Windows XP****