Class: TmlRegionSpeedButton

TGraphicControl ----+
               |
    TmlRegionGraphicControl ----+
                                |
                      TmlRegionSpeedButton

Description:
Speed button with region support

Unit:
regions (regions.pas)

Constructors:

constructor Create(AOwner: TComponent); override;

Propertys:

property AllowAllUp: Boolean read FAllowAllUp write SetAllowAllUp default False;
property GroupIndex: Integer read FGroupIndex write SetGroupIndex default 0;
property Down: Boolean read FDown write SetDown default False;
property Caption;
property Enabled;
property Flat: Boolean read FFlat write SetFlat default False;
property Font;
property Glyph: TBitmap read GetGlyph write SetGlyph;
property GlyphPosX: Integer read FGlyphPosX write SetGlyphPosX;
Glyph horizontal position
property GlyphPosY: Integer read FGlyphPosY write SetGlyphPosY;
Glyph vertical position
property Layout: TButtonLayout read FLayout write SetLayout default blGlyphLeft;
property Margin: Integer read FMargin write SetMargin default -1;
property NumGlyphs: TNumGlyphs read GetNumGlyphs write SetNumGlyphs default 1;
property ParentFont;
property ParentShowHint;
property ShowHint;
property Spacing: Integer read FSpacing write SetSpacing default 4;
property Visible;
property OnClick;
property OnDblClick;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;

Methods:

function GetPalette: HPALETTE; override;
procedure Loaded; override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
procedure Paint; override;
destructor Destroy; override;
procedure Click; override;
procedure NewRegion(Size: integer; RgnData: PRgnData); override;

constructor Create(AOwner: TComponent); override;


property AllowAllUp: Boolean read FAllowAllUp write SetAllowAllUp default False;


property GroupIndex: Integer read FGroupIndex write SetGroupIndex default 0;


property Down: Boolean read FDown write SetDown default False;


property Caption;


property Enabled;


property Flat: Boolean read FFlat write SetFlat default False;


property Font;


property Glyph: TBitmap read GetGlyph write SetGlyph;


property GlyphPosX: Integer read FGlyphPosX write SetGlyphPosX;

Glyph horizontal position


property GlyphPosY: Integer read FGlyphPosY write SetGlyphPosY;

Glyph vertical position


property Layout: TButtonLayout read FLayout write SetLayout default blGlyphLeft;


property Margin: Integer read FMargin write SetMargin default -1;


property NumGlyphs: TNumGlyphs read GetNumGlyphs write SetNumGlyphs default 1;


property ParentFont;


property ParentShowHint;


property ShowHint;


property Spacing: Integer read FSpacing write SetSpacing default 4;


property Visible;


property OnClick;


property OnDblClick;


property OnMouseDown;


property OnMouseMove;


property OnMouseUp;


function GetPalette: HPALETTE; override;


procedure Loaded; override;


procedure MouseDown(Button: TMouseButton; Shift: TShiftState;


procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;


procedure MouseUp(Button: TMouseButton; Shift: TShiftState;


procedure Paint; override;


destructor Destroy; override;


procedure Click; override;


procedure NewRegion(Size: integer; RgnData: PRgnData); override;