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 |
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 |