|
RibbonBar Tabs Font Problem |
Post Reply 
|
| Author | |
DDJJ 
Senior Member 
Joined: 13 December 2004 Status: Offline Points: 143 |
 Post Options
 Thanks(0)
 Quote Reply
 Topic: RibbonBar Tabs Font ProblemPosted: 28 December 2006 at 11:29am |
|
With 10.4, our ribbonbar fonts got out of wack. Under prior versions, we really didn't have any specific code to set the fonts...we were happy with the Tahoma, size 8. We can now get virtually all of the fonts to work using the following code, EXCEPT for the ribbonbar tabs.
Can anyone tell me how to change the following to get the fonts to work on the tabs? (Also, we tried the RibbonBar.TabPaintManager...didn't work).
With CommandBars1
.VisualTheme = xtpThemeRibbon
.Options.SetIconSize True, 32, 32 .Icons = frmMain.ImageManager2.Icons .Options.UseDisabledIcons = True .Options.IconsWithShadow = True .Options.OfficeStyleDisabledIcons = True .Options.LunaColors = False .Options.ToolBarAccelTips = True End With Set RibbonBar = CommandBars1.AddRibbonBar("The Ribbon Bar")
RibbonBar.EnableDocking xtpFlagStretched RibbonBar.EnableFrameTheme RibbonBar.Closeable = False RibbonBar.Customizable = False RibbonBar.ShowQuickAccess = False Set ControlFile2 = RibbonBar.AddSystemButton()
ControlFile2.IconId = 3000 Set RibbonBar = CommandBars1.ActiveMenuBar RibbonBar.CommandBars.Options.Font.Name = "Tahoma"
RibbonBar.CommandBars.Options.Font.Size = 8 RibbonBar.CommandBars.Options.ComboBoxFont.Name = "Tahoma" RibbonBar.CommandBars.Options.ComboBoxFont.Size = 8 RibbonBar.RibbonPaintManager.CaptionFont.Name = "Tahoma"
RibbonBar.RibbonPaintManager.CaptionFont.Size = 8 Dim TextFont As StdFont
Set TextFont = New StdFont TextFont.Name = "Tahoma" TextFont.Size = 8 Set RibbonBar.TabPaintManager.Font = TextFont
|
|
 |
|
|
DDJJ
Senior Member
Joined: 13 December 2004 Status: Offline Points: 143 |
Post Options
Thanks(0)
Quote Reply
Posted: 03 January 2007 at 12:00pm |
|
I'll try again... Our app uses various CommandBar RibbonBars on multiple forms. Is there a way to set the font name and size for all RibbonBar control elements (tabs, controls, groups) globally? If not globally, how? We're are applying the various Office2007 color themes (the same way done in the RibbonBar sample) and can get everything but the RibbonBar tab fonts to work.
Dan
|
|
|
|
|
Oleg
Admin Group 
Joined: 21 May 2003 Location: United States Status: Offline Points: 11234 |
Post Options
Thanks(0)
Quote Reply
Posted: 04 January 2007 at 2:38am |
|
Hello,
I tried
Dim TextFont As StdFont
Set TextFont = New StdFont TextFont.Name = "Tahoma" TextFont.Size = 12 Set RibbonBar.TabPaintManager.Font = TextFont and it works - I see large font in Tabs. May be you set it before you set Ribbon visual theme?
|
|
|
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS |
|
|
|
|
DDJJ
Senior Member
Joined: 13 December 2004 Status: Offline Points: 143 |
Post Options
Thanks(0)
Quote Reply
Posted: 04 January 2007 at 11:40am |
|
Tried setting before visual theme--doesn't work.
Can get to work in RibbonBar sample. Have tried setting properties using the order shown in the sample, still no luck.
If it helps, here's an image showing what the ribbonbar looks like in our app (with tab fonts larger than all other fonts):
 |
|
|
|
|
Oleg
Admin Group
Joined: 21 May 2003 Location: United States Status: Offline Points: 11234 |
Post Options
Thanks(0)
Quote Reply
Posted: 04 January 2007 at 3:02pm |
|
Hi,
May be you call RibbonBar.FontHeight = 8 somewhere after you changed font of tabs. Try to move it before you call it.
|
|
|
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS |
|
|
|
|
DDJJ
Senior Member
Joined: 13 December 2004 Status: Offline Points: 143 |
Post Options
Thanks(0)
Quote Reply
Posted: 04 January 2007 at 5:21pm |
|
Wasn't using the FontHeight property anywhere in code. Tried using here...it doesn't help. At this point, the only code I'm using for fonts is:
CommandBars1.Options.ComboBoxFont.Name = "Tahoma"
CommandBars1.Options.ComboBoxFont.Size = 8 CommandBars1.Options.Font.Name = "Tahoma" CommandBars1.Options.Font.Size = 8 RibbonBar.TabPaintManager.Font.Name = "Tahoma" RibbonBar.TabPaintManager.Font.Size = 8 RibbonBar.RibbonPaintManager.CaptionFont.Name = "Tahoma" RibbonBar.RibbonPaintManager.CaptionFont.Size = 8 RibbonBar.RecalcLayout
RibbonBar.RedrawBar Same result..can't get tab font to change.
|
|
|
|
|
DDJJ
Senior Member
Joined: 13 December 2004 Status: Offline Points: 143 |
Post Options
Thanks(0)
Quote Reply
Posted: 04 January 2007 at 5:23pm |
Move what before I call it?
|
|
|
|
|
jcollier
Senior Member
Joined: 15 February 2006 Status: Offline Points: 250 |
Post Options
Thanks(0)
Quote Reply
Posted: 04 January 2007 at 5:46pm |
|
I tried setting RibbonBar.FontHeight = 8 instead of RibbonBar.TabPaintManager.Font.Size = 8 and it seems to work
Using FontHeight sets all fonts on the ribbonbar to the same height. Using .Font.Size only sets the height of the fonts on the tabs. |
|
|
|
|
DDJJ
Senior Member
Joined: 13 December 2004 Status: Offline Points: 143 |
Post Options
Thanks(0)
Quote Reply
Posted: 04 January 2007 at 7:10pm |
|
I tried using only RibbonBar.FontHeight = 8. Regardless of whether I use 6,7,8,9,10,12,or 14 for the property, the RibbonBar always looks the same (I'm guessing about a font size of 10). Made sure I commented out any other code relating to fonts. |
|
|
|
|
Oleg
Admin Group
Joined: 21 May 2003 Location: United States Status: Offline Points: 11234 |
Post Options
Thanks(0)
Quote Reply
Posted: 05 January 2007 at 2:09am |
|
Hi,
Actually we agree that the font size become larger with 10.4 if Sergoe UI font was not installed. It will be jfixed in 10.4.1.
|
|
|
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS |
|
|
|
|
DDJJ
Senior Member
Joined: 13 December 2004 Status: Offline Points: 143 |
Post Options
Thanks(0)
Quote Reply
Posted: 05 January 2007 at 9:29am |
|
That doesn't explain why we are able to change font sizes using the RibbonBar sample, but not our app (on the same development machine).
We are trying to get an update released for our app by Jan 15th, so if anyone can suggest a workaround until 10.4.1 is released, it would be appreciated.
Dan
|
|
|
|
|
DDJJ
Senior Member
Joined: 13 December 2004 Status: Offline Points: 143 |
Post Options
Thanks(0)
Quote Reply
Posted: 05 January 2007 at 11:02am |
|
FYI, I am able to get the tab font sized reduced by adding a command button to run the following code AFTER our form loads:
CommandBars1.Options.ComboBoxFont.Name = "Tahoma"
CommandBars1.Options.ComboBoxFont.Size = 8 CommandBars1.Options.Font.Name = "Tahoma" CommandBars1.Options.Font.Size = 8 RibbonBar.TabPaintManager.Font.Name = "Tahoma" RibbonBar.TabPaintManager.Font.Size = 8 RibbonBar.RibbonPaintManager.CaptionFont.Name = "Tahoma" RibbonBar.RibbonPaintManager.CaptionFont.Size = 8 RibbonBar.RecalcLayout
RibbonBar.RedrawBar However, this creates another problem...RibbonBar controls with two lines of text end up having the second line start to move off the ribbonbar (looks like both the icon and the text move down a little bit).
Also, whenever I change the theme style (black, aqua, blue or silver), I need to hit the command button to get the tab font corrected.
Dan
|
|
|
|
|
Oleg
Admin Group
Joined: 21 May 2003 Location: United States Status: Offline Points: 11234 |
Post Options
Thanks(0)
Quote Reply
Posted: 05 January 2007 at 1:05pm |
|
Hello,
Create new issue I will send you 10.4.1 to test.
|
|
|
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS |
|
|
|
|
DDJJ
Senior Member
Joined: 13 December 2004 Status: Offline Points: 143 |
Post Options
Thanks(0)
Quote Reply
Posted: 05 January 2007 at 1:12pm |
|
Thanks, Oleg. I just created issue.
|
|
|
|
|
Post Reply
|
|
Tweet
|
| Forum Jump | Forum Permissions You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |
Topic Options
oleg wrote: