Unit WWWBtn97 |
////////////////////////////////////////////////////////////////////////////// WWWBtn97.PAS // ////////////////////////////////////////////////////////////////////////////// This component is a DropDown Button, which display all the Internet // Explorer (3.0 & 4.0) Favorite with a PopupMenu. // The PopupMenu is displayed with Office97 style (Glyph on MenuItem). // ////////////////////////////////////////////////////////////////////////////// Version 1.4 // Created : 10/07/1997 // Last Update : 01/10/1997 // ////////////////////////////////////////////////////////////////////////////// Stéphane Chova E-Mail : stephane.chova@hol.fr // WWW : http://wwwperso.hol.fr/~schova // ////////////////////////////////////////////////////////////////////////////// NOTES : This component is a FreeWare (With source). // If you want to use a part or all the component source, you must // only tell me it. If you like this component, you can send me a // postcard at this adress : Mr CHOVA Stéphane // 3, Allée René CLAIR // 13500 Martigues // FRANCE // ////////////////////////////////////////////////////////////////////////////// WANTED : For last update, i research a document which explain the NETSCAPE // Favorites. // If you have this information, please send me it by E-Mail. ////////////////////////////////////////////////////////////////////////////// REVISIONS : Rev .4 // // - Fix No Favorites folder bug . // (Thanks to Mike Riley for have report this bug). // - Add Color Property (Background Color of the Button). // (Thanks to Andy Chentsov for to have add this property) // - Add Caption Property (For Main Button). // - Add Layout Property (For Glyph & Caption position on Main Button). // - Add Font Property (For Caption's Main Button). // // //////////////////////////////////////////////////////////////////////////////
Classes |
TMenuOption -
TURLrec - List of pointer for Favorite's links record.
TWWWBtn97 -
Functions |
Register - Register procedure.
SortFunction - pointer procedure for sort the list.
Types |
TBorderStyle
TLayout
TMenuStyle
TURLDisplay
Constants |
Variables |
Functions |
Types |
TBorderStyle = (bsNone,bsRaised,bsLowered);Menu Type.
TLayout = (GlyphTop,GlyphBottom,GlyphLeft,GlyphRight);TWWWBtn97
TMenuStyle = (Standard, Extended);TMenuOption Property Editor
TURLDisplay = (Only_one_icon, All_icon);Border Style.
Constants |
Variables |