Unit W95Btns

----------------------------------------------------------------------- * TWin95Button and TWin95SpeedButton v1.0 * * * * Copyright © 1996, 1997 InforTech, Inc. All Rights Reserved. * * Developed By: Steven Costa Martins * * E-MAIL: steven.martins@workmail.com * infortech@usa.net * * Home Page: * * http://www.geocities.com/SiliconValley/Park/7619/ * * * * Last Modification: 23 Dec 1996, 10:21 AM * ------------------------------------------------------------------------ * You are not allowed to redistribute this * * code or any part of it * ------------------------------------------------------------------------

Classes

TAboutProperty - * Property AboutBox
TBitBtn -
TWin95Button -
TWin95SpeedButton -

Functions

Register -

Types

TActivationEvent
TBitBtnKind
TButtonLayout
TButtonState
TButtonStyle
TNumGlyphs
TPopupNotify

Constants

Variables


Functions


procedure Register;


Types


TActivationEvent = (aeClick, aeMouseDown);

TBitBtnKind = (bkCustom, bkOK, bkCancel, bkHelp, bkYes, bkNo, bkClose,
    bkAbort, bkRetry, bkIgnore, bkAll);

TButtonLayout = (blGlyphLeft, blGlyphRight, blGlyphTop, blGlyphBottom);
Word align data } {$B-} { Complete Boolean Evaluation Directive } {$D-} { Debug Information Directive } {$L-} { Local Symbol Information Directive } {$R-} { Range checking off } {$S-} { Stack checking off } {$T-} { We don't need (nor want) this type checking!
TButtonState = (bsUp, bsDisabled, bsDown, bsExclusive);

TButtonStyle = (bsAutoDetect, bsWin31, bsNew);

TNumGlyphs = 1..4

TPopupNotify = procedure(Sender: TObject; var PopUp: boolean) of object

Constants


Variables