ThemedTitleBar

Project Manager: Markus Winhard

*Download latest release

* If you have questions or find bugs, please use the DISCUSSIONS button above.

The TitleBar of a VFP form displayed ‘In Screen’ or ‘In Top-Level Form’ looks a bit outdated nowadays. At least running in Win8 and compared to Office 2013 or Visual Studio 2013. The goal of this project is to provide a modern drop-in replacement for the default TitleBar, requiring no code changes to existing forms.

Before adding ThemedTitleBar:
Image:FormWithoutThemedTitleBar.PNG

After adding ThemedTitleBar:
Image:FormWithThemedTitleBar.PNG

How to:

1. Include ThemedTitleBar.vcx and ThemedTitleBarBase.vcx in your project.
2. Drop the ThemedTitleBar class on every form where you want to use it.

That's it.

Run the form ThemedTitleBarSample.SCX to see an example.

Tweaks:

• If you want to change default behavior or property values, feel free to overwrite methods and properties of the classes in ThemedTitleBar.VCX. This way you can use later versions of my ThemedTitleBarBase.VCX and don't lose your settings.
• Change ThemedTitleBarSettings.nTitleBarBackColor and .nTitleBarforeColor to use different colors.
• Write Thisform.ThemedTitleBar1.BackColor=RGB(...) in your form's Init() to give a special form a different TitleBar BackColor.
• ThemedTitleBar.lAutoMoveFormControls=.T. (default) moves the controls on your form downward to make room for itself. This happens between first Form.Show() and first Form.Activate(). Set to .F. to suppress this behavior.
• Add properties ThemedTitleBarDescription and ThemedTitleBarImage to your form base class. Set them at the form level. My sample form shows how to use it.
• If you don't like the property names ThemedTitleBarDescription and ThemedTitleBarImage you can change them in the ThemedTitleBar class. Please see it's properties cDesciptionProperty and cImageProperty.
• ThemedTitleBarSettings checks if a font listed in it's properties cCaptionFontFamily and cDescriptionFontFamily is available. The list of fonts is comma separated. The first available font is used.
• If you want all your forms to use ThemedTitleBar, write code like this in your form baseclass' Init():

This.NewObject( "ThemedTitleBar1", "ThemedTitleBar", "ThemedTitleBar.vcx" )
This.ThemedTitleBar1.Visible = .T.
This.ThemedTitleBar1.lAutoMoveFormControls = .T.

Full source code history of ThemedTitleBar is hosted in the repository under the SOURCE CODE button above.