Unit RXCtrls

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

Classes

TButtonImage - TButtonImage
TRxCheckListBox -
TRxCustomLabel - TRxCustomLabel
TRxCustomListBox -
TRxDrawGrid -
TRxLabel -
TRxSpeedButton - TRxSpeedButton
TSecretPanel - TSecretPanel
TTextListBox - TTextListBox

Functions

DrawShadowText - TRxCustomLabel

Types

TAcceptKeyEvent
TChangeStateEvent
TCheckKind
TEditAlignEvent
TEditLimitEvent
TEditShowEvent
TEditStyleEvent
TGetItemWidthEvent
TGlyphLayout
TInplaceEditStyle
TPicklistEvent
TPositiveInt
TRxButtonState
TRxDropDownMenuPos
TRxNumGlyphs
TShadowPosition
TTextLayout

Constants

clbDefaultEnabled
clbDefaultState

Variables


Functions


function DrawShadowText(DC: HDC; Str: PChar; Count: Integer; var Rect: TRect; Format: Word; ShadowSize: Byte; ShadowColor: TColorRef; ShadowPos: TShadowPosition): Integer;

TRxCustomLabel

Types


TAcceptKeyEvent = function (Sender: TObject; var Key: Char): Boolean of object
TRxDrawGrid
TChangeStateEvent = procedure (Sender: TObject; Index: Integer) of object

TCheckKind = (ckCheckBoxes, ckRadioButtons);
TRxCheckListBox
TEditAlignEvent = procedure (Sender: TObject; ACol, ARow: Longint;
    var Alignment: TAlignment) of object

TEditLimitEvent = procedure (Sender: TObject; var MaxLength: Integer) of object

TEditShowEvent = procedure (Sender: TObject; ACol, ARow: Longint;
    var AllowEdit: Boolean) of object

TEditStyleEvent = procedure (Sender: TObject; ACol, ARow: Longint;
    var Style: TInplaceEditStyle) of object

TGetItemWidthEvent = procedure(Control: TWinControl; Index: Integer;
    var Width: Integer) of object
TRxCustomListBox
TGlyphLayout = (glGlyphLeft, glGlyphRight, glGlyphTop, glGlyphBottom);

TInplaceEditStyle = (ieSimple, ieEllipsis, iePickList);

TPicklistEvent = procedure (Sender: TObject; ACol, ARow: Longint;
    PickList: TStrings) of object

TPositiveInt = 1..MaxInt

TRxButtonState = (rbsUp, rbsDisabled, rbsDown, rbsExclusive, rbsInactive);

TRxDropDownMenuPos = (dmpBottom, dmpRight);

TRxNumGlyphs = 1..5

TShadowPosition = (spLeftTop, spLeftBottom, spRightBottom, spRightTop);

TTextLayout = (tlTop, tlCenter, tlBottom);

Constants

clbDefaultEnabled = True

clbDefaultState = cbUnchecked


Variables