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

LeftDown
Normal
NoSel
RightDown

Variables


Functions


Procedure Register;

Register procedure. -------------------

Function SortFunction(item1,item2:Pointer):Integer;

pointer procedure for sort the list.

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

LeftDown = 2

Normal = 0

Differents state of MainButton.

NoSel = 1

RightDown = 3


Variables