Unit ColorBtns

----------------------------------------------------------} { TColor95Button - Fully Multimedia Button } { Programmed by William Yang, yang@btinternet.com } { Some Parts are From Delphi Visual Component Library } {----------------------------------------------------------} { Version : 1.90. } {----------------------------------------------------------

Classes

TColor95Button -

Functions

DrawButtonFace - DrawButtonFace - returns the remaining usable area inside the Client rect.
Register - Register procedure

Types

TButtonLayout
TButtonOptions
TButtonState
TClr95ButtonStyle
TClrBtnOwnerDrawEvent
TNumGlyphs

Constants

Variables


Functions


function DrawButtonFace(Canvas: TCanvas; const Client: TRect; Style: TClr95ButtonStyle; IsDesign, IsDown, IsFocused: Boolean; FaceColor: TColor): TRect;

DrawButtonFace - returns the remaining usable area inside the Client rect.

procedure Register;

Register procedure

Types


TButtonLayout = (blGlyphLeft, blGlyphRight, blGlyphTop, blGlyphBottom);

TButtonOptions = set of (boShowMouseFocus, boRepeatable, boDitherPattern,
  	boAutoBlackWhiteText)

TButtonState = (bsUp, bsDisabled, bsDown, bsExclusive);

TClr95ButtonStyle = (bsWin31, bsNew, bsEllipse, bsTab, bsIE4,
  	bsSideDownTab, bsGlass, bsFlat, bsOwnerDraw, bsMicroposeGame, bsGradient);

TClrBtnOwnerDrawEvent = procedure (Sender: TObject; ACanvas: TCanvas; var BtnRect: TRect) of object

TNumGlyphs = 1..4

Constants


Variables