Unit IEBtn

TIEButton component version 2.0, copyright © A. Meeder, 1997 The idea for TIEButton came from Microsoft's Internet Explorer 3.0 (this is where 'IE' stands for). The buttons on the button/task-bar behave different from normal 'standard' Windows-buttons. This version is a totaly rewritten version of my former TIEButton-component. When you used the older version, you will have to delete that one from the component-palet and also from your programs. This control now has many new features described below: properties AllowAllUp (boolean, default false) same as with 'TSpeedButton' from Delphi BorderWidth (default 1, min. 1 / max. 5) ColorHighLight (default clBtnHighLight, see also ColorShadow) ColorShadow (default clBtnShadow, see also ColorHighLight) Down (default false, button-state) Glyph (default Empty, see also NumGlyphs) GroupIndex (default 0, button behaves like IE 3.0 button, > 0 button behaves like MS Office 97 speedbuttons) InactiveStyle (default dsFocus, style of inavtive glyph when no one is available and GroupIndex = 0) LayOut (default blGlyphTop, also Bottom, Left and Right) MenuMark (default false, only applicable when FGroupIndex = 0, see also PopupMenu) NumGlyphs (default 2, or Glyph.Width div Glyph.Height min. 1 max. 3) PopupMenu (default nil, You will only have to select menu and it will work correct...) ShowCaption (default true) Spacing (default 4, margin between Caption and Glyph) TransparentColor (default clOlive, when Glyph <> nil default lower left pixelcolor, can be selected) events OnMouseEnter OnMouseLeave If you have suggestions about TIEButton or make changes, please mail me: ameeder@dds.nl

Classes

TIEButton -

Functions

Register -

Types

TBorderWidth
TButtonLayout
TMouseEnter
TMouseLeave
TNumGlyphs
TSpacing

Constants

Variables


Functions


procedure Register;


Types


TBorderWidth = 1..5

TButtonLayout = (blGlyphLeft, blGlyphRight, blGlyphTop, blGlyphBottom);

TMouseEnter = procedure (Sender: TControl; var Message: TMessage) of object

TMouseLeave = procedure (Sender: TControl; var Message: TMessage) of object

TNumGlyphs = 1..3

TSpacing = 0..MAXINT

Constants


Variables