Codejock Forums Homepage
Forum Home Forum Home > Codejock Products > ActiveX COM > Command Bars
  New Posts New Posts RSS Feed - Commandbar Styles
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Commandbar Styles

 Post Reply Post Reply
Author
Message
Trond View Drop Down
Newbie
Newbie


Joined: 04 October 2004
Status: Offline
Points: 4
Post Options Post Options   Thanks (0) Thanks(0)   Quote Trond Quote  Post ReplyReply Direct Link To This Post Topic: Commandbar Styles
    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

 

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: 04 October 2004 at 6:51am
CommandBars.Options.LunaColors = False
Back to Top
Trond View Drop Down
Newbie
Newbie


Joined: 04 October 2004
Status: Offline
Points: 4
Post Options Post Options   Thanks (0) Thanks(0)   Quote Trond Quote  Post ReplyReply Direct Link To This Post Posted: 04 October 2004 at 10:05am

Thanks, worked like a charm!

 

Back to Top
hoanganh View Drop Down
Newbie
Newbie


Joined: 15 October 2004
Status: Offline
Points: 4
Post Options Post Options   Thanks (0) Thanks(0)   Quote hoanganh Quote  Post ReplyReply Direct Link To This Post 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



Edited by hoanganh
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: 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****


Edited by SuperMario
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.186 seconds.