Unit PageControl98

////////////////////////////////////////////////////////////////////////////// PAGECONTROL98 // ////////////////////////////////////////////////////////////////////////////// Enhanced PageControl for D2 & D3 // * Image List, Right & Left Tabs, ... // ////////////////////////////////////////////////////////////////////////////// Version 2.16 // Date de création : 10/03/1997 // Date dernière modification : 18/03/1998 // ////////////////////////////////////////////////////////////////////////////// Jean-Luc Mattei // jlucm@club-internet.fr / jlucm@mygale.org // ////////////////////////////////////////////////////////////////////////////// IMPORTANT NOTICE : // // // This program is FreeWare // // Please do not release modified versions of this source code. // If you've made any changes that you think should have been there, // feel free to submit them to me at jlucm@club-internet.fr // ////////////////////////////////////////////////////////////////////////////// REVISIONS : // // 1.00 : // * Added .DCR // 1.10 : * CommCtrlEx.pas included (for D2) // * TNMCustomDraw Ok (for D2) // 1.20 : * Added FlatButtons style (IE4 installed only) // 1.30 : * Added MeasureItem // * Added Image drawing // 1.40 : * CommCtrlEx Modified for D2 (thanks to Gerhard Volk) // * TDrawTabEvent, TMeasureTabEvent Pagre parameter changed from // TPageControl to TPageControl98 (thanks to Marcus Monnig) // 1.50 : * CustomPageControl98 allows hidden properties // * TTabSheet98 allows selecting imageindex for a page // * ENGLISH and FRANCAIS compiler directive for messages langage // 1.60 : * Removed unused properties // * Sme declaration modified for D2 compatibility // (thanks to Gerhard Volk - again - for all the tests :-)) // * Unified version number // 1.70 : * See TabControl98 for changes // * Disabled Pages Painting (Roger Misteli) // * Disabled Pages can't be selected now (Roger Misteli) // * TabSheet98 has a Color property now // 1.80 : * New DrawTab Painting method to avoid strange borders // * LockWindowUpdate removed to avoid entire screen flickering // * PageHint for each Page // * No more "PageIndex invalid" message when Position is left / right// * Font can be choosen for each Tab (TabFont property) // * New Paint method for "colorized" Pages // * TTabShhet SetImageIndex modified to correctly handle imageindex // when some pages are not visible (thanks to Fred Covely) // 1.90 : * New TabSheet98 propertie Data (a pointer) and a new even // * OnDestroy (Added by Rafal Smotrzyk) // 1.91 : * New WMPaint method for Colorized Pages : no more control // "overdrawing" (Thanks again to Rafal Smotrzyk) // 1.95 : * New proc BorderColorPaint to handle correctly PageBorder color // (if you have a client aligned control in your TabSheet border is // drawn correctly) // * When you change TabPosition at runtime tabs looks ok now // (if you have more than on tab) // * BorderColor is not drawn if Button or IE4 Button Style // * BUG : If you are in Left or right BUTTON mode tabsheet have a // strange size (half size) if someone find why .... // * Images are still visible at design time when you change a // "RecreateWindow Property" like Pagecontrol.Color // (thanks to Richard Chang for his comments) // * NEED TABCONTROL98 V 1.95 // 1.96 : * ToolTip GPF Bug corrected // 1.97 : * Works with D2 (CM_RECREATEWND replaced by CM_SHOWINGCHANGED) // * Uses ComCtl98.pas for D2 & D3 // 1.98 : * Some bugs removed // 1.99 : * More bugs removed (thanks to Edward Zhuravlov) // 2.00 : * IconJustification properties (thanks to Wayne Niddery) // 2.01 : * Bug corrected (If you didn't used ImageList there were errors). // Thanks to Adrian Logan and Alper Yazgan. // 2.10 : * NEED TABCONTROL98 V 2.10 // * Bug corrected (If you didn't used ImageList there were errors). // Thanks to Adrian Logan and Alper Yazgan. // this time is the good one :-) // 2.11 : * TabSheet Font is destroyed now (thanks to Olivier Grosclaude) // 2.12 : * AnsiString added for GetVerb (compiles with short strings // compiler options on) // 2.13 : * OnChange Event occurs only one time now // * Border color don't overlap controls when Tabs are Left / Right or// Bottom. (thanks to Jérôme Bouvattier) // 2.14 : * Transparent property added // * OnGetTabColor change TabColor only // 2.15 : * TabIndex Property is public, you can use it to know activepage // 2.16 : * Spanish version added (thanks to Carlos Ponce de León) // * Property Tabs is public in TCustomTabControl98 (V 2.14) // * SetActivePage and ChangeActivePage Modified // (thanks to Shraga Milon) // ////////////////////////////////////////////////////////////////////////////// {$define FRANCAIS} {$define ENGLISH

Classes

TCustomPageControl98 -
TPageControl98 -
TTabSheet98 -

Functions

Register -

Types

TTabSheet98Event

Constants

Variables


Functions


procedure Register;


Types


TTabSheet98Event = procedure(asheet : TTabSheet98) of object

Constants


Variables