Unit CapCtrl

*****************************************************************************) (* TCaptionControl 1.10 for Delphi 3.0 *) (* Beta Development version - Build 1 *) (* NOT FOR DISTRIBUTION *) (* *) (* Copyright (c) 1996, 98 Yorai Aminov *) (

Classes

TCaptionButton - TCaptionButton
TCaptionButtons - TCaptionButtons
TCaptionControl -
TCustomCaptionControl - TCustomCaptionControl

Functions

Register - Register component

Types

TCaptionButtonClickEvent
TCaptionButtonDrawEvent
TCaptionButtonKind
TCaptionGradient
TDirection
TDrawCaptionEvent

Constants

Variables


Functions


procedure Register;

Register component

Types


TCaptionButtonClickEvent = procedure(Sender: TObject; ButtonIndex: Integer;
    var Pushed: Boolean) of object

TCaptionButtonDrawEvent = procedure(Sender: TObject; ButtonIndex: Integer;
    Canvas: TCanvas; Rect: TRect; var Drawn: boolean) of object

TCaptionButtonKind = (cbkCustom, cbkOk, cbkRollUp, cbkRollDown, cbkDocument,
    cbkFolder, cbkWindow, cbkMail, cbkDownArrow, cbkUpArrow, cbkLeftArrow,
    cbkRightArrow, cbkMore, cbkFlag, cbkCool, cbkInfo);

TCaptionGradient = (cgNone, cgActive, cgAlways);

TDirection = (dirLeft, dirRight);
Types
TDrawCaptionEvent = procedure(Sender: TObject; var CaptionText: String;
    Canvas: TCanvas; Rect: TRect; var Drawn: boolean) of object
Events

Constants


Variables