Unit SpeedBar

*****************************************************} { } { Delphi VCL Extensions (RX) } { } { Copyright (c) 1995, 1996 AO ROSNO } { Copyright (c) 1997 Master-Bank } { } {

Classes

TBtnControl - TBtnControl
TSpeedBar -
TSpeedbarSection - TSpeedbarSection
TSpeedItem - TSpeedItem

Functions

DrawCellButton -
FindSpeedBar - button size changed } { Utility routines for Speedbar Editors
NewSpeedItem -
NewSpeedSection - Utility routines

Types

TApplyAlignEvent
TBarOrientation
TBarPosition
TBoundLine
TBoundLines
TForEachItem
TSpeedbarOption
TSpeedbarOptions

Constants

DefButtonHeight
DefButtonWidth
SBR_BTNSELECT
SBR_BTNSIZECHANGED
SBR_CHANGED
SBR_DESTROYED

Variables


Functions


procedure DrawCellButton(Grid: TDrawGrid; R: TRect; Item: TSpeedItem; Image: TButtonImage);


function FindSpeedBar(const Pos: TPoint): TSpeedBar;

button size changed } { Utility routines for Speedbar Editors

function NewSpeedItem(AOwner: TComponent; ASpeedbar: TSpeedBar; Section: Integer; const AName: string): TSpeedItem;


function NewSpeedSection(ASpeedbar: TSpeedBar; const ACaption: string): Integer;

Utility routines

Types


TApplyAlignEvent = procedure (Sender: TObject; Align: TAlign;
    var Apply: Boolean) of object

TBarOrientation = (boHorizontal, boVertical);
TSpeedBar
TBarPosition = (bpAuto, bpCustom);

TBoundLine = (blTop, blBottom, blLeft, blRight);

TBoundLines = set of TBoundLine

TForEachItem = procedure (Item: TSpeedItem; Data: Longint) of object

TSpeedbarOption = (sbAllowDrag, sbAllowResize, sbFlatBtns, sbGrayedBtns,
    sbTransparentBtns, sbStretchBitmap);

TSpeedbarOptions = set of TSpeedbarOption

Constants

DefButtonHeight = 23

DefButtonWidth = 24

SBR_BTNSELECT = 2

destroy speedbar

SBR_BTNSIZECHANGED = 3

select button in speedbar

SBR_CHANGED = 0

Values for WParam for CM_SPEEDBARCHANGED message

SBR_DESTROYED = 1

change buttons properties

Variables