TGraphicControl ----+ | TmlRegionGraphicControl ----+ | TmlRegionSpeedButton
Unit:
regions
(regions.pas)
Constructors:
Propertys:
Methods:
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;
property GlyphPosY: Integer read FGlyphPosY write SetGlyphPosY;
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;