Outlooknavbar on right side of screen shrinking to left

Topics: Enhancement Request, General
Jul 17, 2010 at 9:19 PM

Love this control very much, so much I am using two of them on one form. The problem is the one on the right side shrinks to the left. Is there any way to correct this with the changeview method?

Developer
Jul 31, 2010 at 4:42 PM

Hi jrfrye1.
I really don't know if you can achieve this just changing ChangeView method.
I think that you will need to do more changes to achieve this.

Jul 31, 2010 at 4:55 PM
Edited Jul 31, 2010 at 4:56 PM
I did it by overriding the buttonclick event and assigning two custom properties to the form:
Lparameters llShrunk
nodefault
With This.Parent
	If llShrunk
		This.OldWidth = .Width
		This.OldAnchor = .Anchor
		thisform.listbarleft=.left
		thisform.calendarwidth=thisform.ctmday2.Width
		
		.Width = 33
		.left=thisform.Width-33
		*
		.InvisibleControls.Remove(-1)
		.FindInvisibleControls(.Panes)
		*
		.Panes.SetAll("Visible",.F.)
		.Panes.Visible = .F.
		STORE .Left-thisform.sfsplitterh2.Width TO sleft
		thisform.sfsplitterh2.left=sleft
		STORE thisform.ctmday2.width TO mwidth
		
		thisform.ctmday2.Width=mwidth-34+this.OldWidth
		
	Else
		.left = thisform.listbarleft
		.Width = This.OldWidth
		STORE .Left-thisform.sfsplitterh2.Width TO sleft
		thisform.sfsplitterh2.left=sleft
		
		
		thisform.ctmday2.Width=thisform.calendarwidth
		
		.Panes.SetAll("Visible",.T.)
		.Panes.Visible = .T.
		*
		Local lcObject, loObject
		For Each lcObject In .InvisibleControls
			loObject = Evaluate('.' + lcObject)
			loObject.Visible = .F.
		Next lcObject
		.InvisibleControls.Remove(-1)
		*
	Endif
	.ReArrangeButtons()
	.ViewModeChanged(llShrunk)
Endwith
It seems to work just fine now.