Codejock Forums Homepage
Forum Home Forum Home > Codejock Products > ActiveX COM > Suite Pro
  New Posts New Posts RSS Feed - ShortCutBar and LunaColors=False
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

ShortCutBar and LunaColors=False
 Post Reply Post Reply
Author
Message Reverse Sort Order
  Topic Search Topic Search  Topic Options Topic Options
ianp View Drop Down
Moderator Group
Moderator Group
Avatar

Joined: 19 December 2003
Location: United Kingdom
Status: Offline
Points: 119 		Post Options Post Options   Thanks (0) Thanks(0)   Quote ianp Quote  Post ReplyReply Direct Link To This Post Topic: ShortCutBar and LunaColors=False
    Posted: 14 July 2005 at 1:52am

Have you tried using ColorManager.SetColor? It will affect the colors used by all SuiteControls, but allows you to modify the colors.

Private Sub Form_Initialize()
  With SuiteControlsGlobalSettings.ColorManager
    .SystemTheme = xtpSystemThemeUnknown
    .SetColor STDCOLOR_BTNFACE, &HA6AFB2
    .SetColor STDCOLOR_WINDOW, &HD2E1E3
  End With
End Sub
Back to Top
williamyang View Drop Down
Newbie
Newbie


Joined: 12 July 2005
Status: Offline
Points: 2 		Post Options Post Options   Thanks (0) Thanks(0)   Quote williamyang Quote  Post ReplyReply Direct Link To This Post Posted: 13 July 2005 at 10:30am

I mean shortcutbar, not shorcutcaption, they are different control, shortcutbar has not GrandientColor property.

Originally posted by SuperMario SuperMario wrote:

This will disable luna colors in all suite controls (TaskPanel, ShortcutBar, etc).

Private Sub Form_Initialize()
    SuiteControlsGlobalSettings.ColorManager.SystemTheme = xtpSystemThemeUnknown
End Sub

Then you would use gshawn's code to update the ShortcutCaption Controls:
   
    ShortcutCaption1.GradientColorLight = &HD2E1E3
    ShortcutCaption1.GradientColorDark = &HA6AFB2
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: 13 July 2005 at 9:26am
This will disable luna colors in all suite controls (TaskPanel, ShortcutBar, etc).

Private Sub Form_Initialize()
    SuiteControlsGlobalSettings.ColorManager.SystemTheme = xtpSystemThemeUnknown
End Sub

Then you would use gshawn's code to update the ShortcutCaption Controls:
   
    ShortcutCaption1.GradientColorLight = &HD2E1E3
    ShortcutCaption1.GradientColorDark = &HA6AFB2
Back to Top
williamyang View Drop Down
Newbie
Newbie


Joined: 12 July 2005
Status: Offline
Points: 2 		Post Options Post Options   Thanks (0) Thanks(0)   Quote williamyang Quote  Post ReplyReply Direct Link To This Post Posted: 12 July 2005 at 11:01pm
I got same problem, how to disable Lunacolors in Shortcut bar.
Back to Top
gshawn View Drop Down
Senior Member
Senior Member


Joined: 04 October 2004
Status: Offline
Points: 227 		Post Options Post Options   Thanks (0) Thanks(0)   Quote gshawn Quote  Post ReplyReply Direct Link To This Post Posted: 21 February 2005 at 4:35am
Originally posted by aterron aterron wrote:

Well, thanks...but I'm talking about the ShortCutBar not the ShortCutBarCaption...
Oops, sorry about that... That's what I get for replying to a post at 5 in the morning!
Back to Top
aterron View Drop Down
Newbie
Newbie


Joined: 21 October 2004
Status: Offline
Points: 7 		Post Options Post Options   Thanks (0) Thanks(0)   Quote aterron Quote  Post ReplyReply Direct Link To This Post Posted: 21 February 2005 at 2:50am
Thanks SuperMario
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: 18 February 2005 at 7:59am
This will disable luna colors in all suite controls (TaskPanel, ShortcutBar, etc).

Private Sub Form_Initialize()
    SuiteControlsGlobalSettings.ColorManager.SystemTheme = xtpSystemThemeUnknown
End Sub

Then you would use gshawn's code to update the ShortcutCaption Controls:
   
    ShortcutCaption1.GradientColorLight = &HD2E1E3
    ShortcutCaption1.GradientColorDark = &HA6AFB2

Edited by SuperMario
Back to Top
aterron View Drop Down
Newbie
Newbie


Joined: 21 October 2004
Status: Offline
Points: 7 		Post Options Post Options   Thanks (0) Thanks(0)   Quote aterron Quote  Post ReplyReply Direct Link To This Post Posted: 17 February 2005 at 5:41am
Well, thanks...but I'm talking about the ShortCutBar not the ShortCutBarCaption...
Back to Top
gshawn View Drop Down
Senior Member
Senior Member


Joined: 04 October 2004
Status: Offline
Points: 227 		Post Options Post Options   Thanks (0) Thanks(0)   Quote gshawn Quote  Post ReplyReply Direct Link To This Post Posted: 17 February 2005 at 5:02am

This may not be the best workaround, but as of v9.60 you can specify the colors in code:

    ShortcutCaption1.GradientColorLight = &HD2E1E3
    ShortcutCaption1.GradientColorDark = &HA6AFB2

I hope this helps!
Back to Top
aterron View Drop Down
Newbie
Newbie


Joined: 21 October 2004
Status: Offline
Points: 7 		Post Options Post Options   Thanks (0) Thanks(0)   Quote aterron Quote  Post ReplyReply Direct Link To This Post Posted: 17 February 2005 at 4:46am

I can't figure out how to mimic the shortcutbar shown in the attached image. As you can see the colors of the ShortCutbar are identical of those of the CommandBar when Lunacolors = False

TIA

 
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.047 seconds.