Unit PopButton

****************************************************************************} {******************************************************************************} {*** Unit: PopButton ***} {*** Author: Bas Weerman. CentERdata, Tilburg University ***} {*** Date: 23/12/1997 ***} {*** Uses: Messages, Classes, Graphics, Controls en ExtCtrls ***} {*** ***} {*** Description: ***} {*** This unit simulates the 'new' popping buttons, used by (e.g.)microsoft ***} {*** office 97 and the netscape navigator. It is also possible to put ***} {*** images on the popbutton. ***} {*** ***} {*** Features: {*** property FocusColor : Sets the Color of the Text while the button ***} {*** has the focus. ***} {*** property PressedColor : Sets the Color of the Text while the button ***} {*** is pressed. ***} {*** property OnGotFocus : Calls the GotFocus Event ***} {*** property OnLostFocus : Calls the LostFocus Event ***} {*** ***} {*** It is possible to drop TImage objects on the PopButton. They will then ***} {*** also raise the OnClick event of the PopButton. ***} {******************************************************************************} {

Classes

TPopButton -

Functions

Register -

Types

TGotFocusEvent
TLostFocusEvent

Constants

Variables


Functions


procedure Register;


Types


TGotFocusEvent  = procedure(Sender: TObject) of object
* Two new focusevents
TLostFocusEvent = procedure(Sender: TObject) of object

Constants


Variables