Class TssCustomButtonEdit

Unit

SsButtonEd

Declaration

type TssCustomButtonEdit = class(TCustomEdit)

Description

Delphi 2006

Hierarchy

• TCustomEdit
• TssCustomButtonEdit

Overview

Fields

FButton: TBitBtn;

Methods

	procedure ButtonClick(Sender: TObject);
	function GetGlyph: TBitmap;
	function GetNumGlyphs: integer;
	procedure SetGlyph(const g: TBitmap);
	procedure SetNumGlyphs(const n: integer);
	procedure CreateParams(var Params: TCreateParams); override;
	procedure DoButtonClick; virtual; abstract;
	function GetEnabled: boolean; reintroduce;
	procedure SetEnabled(e: boolean); reintroduce;
	procedure WMSize(var Message: TWMSize); message WM_SIZE;
	constructor Create(AOwner: TComponent); override;

Properties

	property Button: TBitBtn read FButton write FButton;
	property Enabled: boolean read GetEnabled write SetEnabled;
	property Glyph: TBitmap read GetGlyph write SetGlyph;
	property NumGlyphs: integer read GetNumGlyphs write SetNumGlyphs;

Description

Fields

	FButton: TBitBtn;

Methods

	procedure ButtonClick(Sender: TObject);

	function GetGlyph: TBitmap;

	function GetNumGlyphs: integer;

	procedure SetGlyph(const g: TBitmap);

	procedure SetNumGlyphs(const n: integer);

	procedure CreateParams(var Params: TCreateParams); override;

	procedure DoButtonClick; virtual; abstract;

	function GetEnabled: boolean; reintroduce;

	procedure SetEnabled(e: boolean); reintroduce;

	procedure WMSize(var Message: TWMSize); message WM_SIZE;

	constructor Create(AOwner: TComponent); override;

Properties

	property Button: TBitBtn read FButton write FButton;

	property Enabled: boolean read GetEnabled write SetEnabled;

	property Glyph: TBitmap read GetGlyph write SetGlyph;

	property NumGlyphs: integer read GetNumGlyphs write SetNumGlyphs;