TAppNameText - TCompanyText
TCaptionText - same as TCompanyText, just show differently in object inspector
TCompanyText -
TMSOfficeCaption -
Register - Wasn't anything we cared about, so tell Windows we didn't handle it.
TFontKind
TGradEnabled
TJustification
TOnDrawCaption
FWordSpacing
procedure Register;
Wasn't anything we cared about, so tell Windows we didn't handle it.
TFontKind = (fkCustom, fkSystem, fkSystemI, fkSystemB, fkSystemBI, fkAutoHeight);
TGradEnabled = (geAlways, geNever, geWhenActive, geSmart);
TJustification = (jAuto, jLeft, jCenter, jRight);
TOnDrawCaption = procedure(Sender: TObject; const Canvas: TCanvas; var R: TRect) of object
FWordSpacing = 3
********************************************************************} {** WordCap - provides a gradient filled caption bar, with Italic **} {** text, in the style of MSOffice for Win95. **} {** ---------------------------------------------------------------- **} {** Author - Warren F. Young. **} {** e-mail - wfy@ee.ed.ac.uk, or Warren.Young@ee.ed.ac.uk **} {** WWW - http://www.ee.ed.ac.uk/~wfy/components.html **} {** If the above emails do not work then (and only then) **} {** try this e-mail address: Warren@wmyoung.clara.net **} {** ---------------------------------------------------------------- **} {** Brief History **} {** - Version 1.00 (23/July/1996) Initial release (WWW). **} {** - Version 1.10 (1/October/1996) First official release. **} {** - Version 1.20 (17/December/1996) Fixed some drawing problems.**} {** - Version 1.30 (24/January/1997) Improved drawing (incl MDI) **} {** - Version 1.40 (15/May/1997) Fixed Mem leaks + small errors **} {** - Version 1.45 (11/November/1997) Allows different colours **} {** at boths ends of the caption. **} {** ---------------------------------------------------------------- **} {** Copyright- ©copyright 1996, 1997 by Warren F. Young. **} {** Free to use and redistribute and edit, but my name must appear **} {** somewhere in the source code. No warranty is given by the **} {** author, expressed or implied. **} {