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
  Topic Search Topic Search  Topic Options Topic Options
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
Senior Member
Senior Member
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
Senior Member
Senior Member
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.078 seconds.