ActiveX COM - Office 2007 Theme Black

Office 2007 Theme Black

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: ActiveX COM
Forum Description: Topics related to Codejock ActiveX COM products
URL: http://forum.codejock.com/forum_posts.asp?TID=15713
Printed Date: 28 April 2024 at 3:41pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: Office 2007 Theme Black

Posted By: madrianr
Subject: Office 2007 Theme Black
Date Posted: 25 November 2009 at 11:19am

Hello,

I'm new to codejock controls and I want to have the Office 2007 Theme Black for all the cj controls (Tab etc) and

for the commandbar - I use the following code at start to set the black theme:

    SuiteControlsGlobalSettings.Office2007Images = App.Path & "Styles\Office2007Black.dll"
    SuiteControlsGlobalSettings.ColorManager.SystemTheme = xtpSystemThemeAuto
    CommandBarsGlobalSettings.Office2007Images = App.Path & "Styles\Office2007Black.dll"
    CommandBarsGlobalSettings.ColorManager.SystemTheme = xtpSystemThemeAuto
    CommandBarsGlobalSettings.App = App

but the commandbar and the controls are still in Blue Theme - what's wrong?

regards

Replies:

Posted By: SuperMario
Date Posted: 25 November 2009 at 12:51pm

do you use CommandBars.VisualTheme = xtpThemeOffice2007

Posted By: madrianr
Date Posted: 25 November 2009 at 12:56pm

Yes of course - is it necessary to set other propertys to have Black theme?

Private Sub Form_Load()
    SuiteControlsGlobalSettings.Office2007Images = App.Path & "Styles\Office2007Black.dll"
    SuiteControlsGlobalSettings.ColorManager.SystemTheme = xtpSystemThemeAuto
    CommandBarsGlobalSettings.Office2007Images = App.Path & "Styles\Office2007Black.dll"
    CommandBarsGlobalSettings.ColorManager.SystemTheme = xtpSystemThemeAuto
    CommandBarsGlobalSettings.App = App
    CommandBarsFrame1.PaintManager.RefreshMetrics
    CommandBarsFrame1.RecalcLayout
    CommandBarsFrame1.VisualTheme = xtpThemeOffice2007
    TabControl1.Color = xtpTabColorOffice2007
End Sub

regards

Posted By: Oleg
Date Posted: 26 November 2009 at 1:29am

Try

App.Path & "\Styles\Office2007Black.dll"

instead

-------------
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS

Posted By: madrianr
Date Posted: 26 November 2009 at 1:40am

Thats it

thanks