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 |
Functions |
Register -
Types |
Constants |
Variables |
Functions |
Types |
TGotFocusEvent = procedure(Sender: TObject) of object* Two new focusevents
TLostFocusEvent = procedure(Sender: TObject) of object
Constants |
Variables |