Emerson Santon Reed

Neat Emerson.

Thanks!

Couple of points:
1. In the Themed controls, after you move all the tabs (on the left), to the top, the last tab (7) has a minus sign. When you click on it, the whole set of tabs "wrap around" and tab 1 is displayed with all the tabs going to the bottom. I would expect that only tab 7 would go down exposing tab 6 and not wrap around.

I prefer the wrap behaviour. So, I created a property named Wrap in ToolBox to let the developer choose to wrap (.T.) or not to wrap (.F.).
It will be available in the next version.

2. Themed Controls in a tool bar - when I click the little arrow in the bottommost bar I always get this error:

Lparameters vNewVal
With This
  Local lnOldSelectedButton, lcTitle, lcPicture24
  lnOldSelectedButton = .SelectedButton
  .SelectedButton = m.vNewVal

  With .Panel
     If lnOldSelectedButton>0
        .Controls(lnOldSelectedButton).ChangeBackground()
     Endif
     .Controls(m.vNewVal).ChangeBackground()

The error is on the last line and is :

"Controls is not an object."

Fixed! Will be available in the next version.

Thanks for take a look at ThemedControls and for your valuable help with ZoomNavBar.

If you have more suggestions or find bugs, please contact me.

Thank you!

I'm from China.I am concerned about this classes has been a long time,sinc Outlook2003Bar.

It's great!!!

I would like to know that Whether there are plans to make the theme of OutlookNavBar and Toolbar consistency?

I have no plans to create a themed toolbar for now.
Have you looked to Goran Zidar's Tab Menu project at VFPX?
http://www.codeplex.com/VFPX/Wiki/View.aspx?title=Tab%20Menu&referringTitle=Home

In sample project,I note that button class of glass.vcx can set buttoncolor custom properties,It's value can be 1,2,3.but,OutlookNavbar can be set to one of the six themes。It will be a very good work If they can maintain the same visual effect .

This class isn't finished yet. I'll come back to work on it after help is finished and themes are implemented in ZoomNavBar.

In addition, For OutlookNavBar, I hope to be able to add my own custom class (For example:MyTreeView or MyListBar )in page(to Achieve a better effect), however, no change code in the class library under the premise, I can not find a suitable route.You can give me some suggestions?

To add your treeview, click on ThemedOutlookNavBar control and select Panes control. Panes is a pageframe and you must set the PageCount property to the desired number of buttons you want to show. Now, select the page where you want to place the treeview and drag and drop them inside the page. For each page in Panes pageframe, ThemeOutlookNavBar will show a button at run time.

Thank you very much!

You're welcome!

Cool stuff.
Is there any way to have a layout that shows a leftmost panel and then to the immediate right, two panels but one on top of the other? i.e. not three panels all side by side.

Yes. Move and resize the controls to get the desired layout, change Anchor property of each control and handle the move when ThemedOutlookNavBar is collapsed/expanded in ViewModeChanged method.

A great job. I am using these classes in my applications and work perfectly.
There is a small problem:
Class ThemesManager creates a folder 'Temp' in the application directory. Sometimes this is not possible when the application directory is a file server.
Can you change the value of the property This.TempFolder?

This.TempFolder = GETENV ( "TEMP")
This.TempFolder = SYS (2023)

I'm creating the temp folder in the application folder because I have some issues in the past with Vista.

I'll take a look on it in the next version and make more tests.

Thanks for your suggestion!

In the 3.4.2 version, if ThemesManager can't create the temp folder inside app folder, it'll create all files in temp folder retrieved with Sys(2023) function.

Hello I'm a rookie, What a great Job Guru. Could you please tell me, how can i put "Treeview" in there. Much Appreciated for your best efforts.

Hello!
Take a look at this post:
http://weblogs.foxite.com/emersonreed/archive/2008/06/10/6250.aspx

A great job.But I can't download it. What can I do ?

Follow this link http://www.codeplex.com/VFPX/Release/ProjectReleases.aspx?ReleaseId=7003 and click in ThemedControls-2008-09-10 link to download the latest version.

Great Work, Emerson

I'm crazy about this technic. But I can't Download it from upper link. Problem is download stops after 60-70 % and not resume supported.

So plz plz i request u if u can send me at-

nareshdhakecha@gmail.com

Please, try to download from this link:
http://cid-7caeae63ed3a9a67.skydrive.live.com/self.aspx/P%c3%bablico/ThemedControls-2008-09-10.zip

Is there a way to add panes to the outlook navbar at run time? (Would need to set caption properties and such as well).

Hi Josh!

After set the OutlookNavBar.Panes.PageCount property to the number of buttons that you want, you can use the OutlookNavBar.UpdatePane() method to change the default buttons properties.

Something like this:

OutlookNavBar.UpdatePane(lnPane, lcCaption, lcPicture16, lcPicture24)