| Class TColor95Button (unit ColorBtns) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Click;
destructor Destroy;
procedure OnButtonRepeat(Sender: TObject);
function GetPalette: HPALETTE;
procedure Loaded;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Paint;
procedure CMButtonPressed(var Message: TMessage);
procedure CMDialogChar(var Message: TCMDialogChar);
procedure CMEnabledChanged(var Message: TMessage);
procedure CMFontChanged(var Message: TMessage);
procedure CMMouseEnter(var Message: TMessage);
procedure CMMouseLeave(var Message: TMessage);
procedure CMTextChanged(var Message: TMessage);
function GetGlyph: TBitmap;
function GetNumGlyphs: TNumGlyphs;
procedure GlyphChanged(Sender: TObject);
procedure SetAllowAllUp(Value: Boolean);
procedure SetColor(Value: TColor);
procedure SetDown(Value: Boolean);
procedure SetGlyph(Value: TBitmap);
procedure SetGroupIndex(Value: Integer);
procedure SetLayout(Value: TButtonLayout);
procedure SetMargin(Value: Integer);
procedure SetNumGlyphs(Value: TNumGlyphs);
procedure SetOptions(Value: TButtonOptions);
procedure SetSpacing(Value: Integer);
procedure SetStyle(Value: TClr95ButtonStyle);
procedure UpdateExclusive;
procedure WMLButtonDblClk(var Message: TWMMouse);| Properties |
property AllowAllUp : Boolean
property Caption :
property Color : TColor
property Down : Boolean
property Enabled :
property Font :
property Glyph : TBitmap
property GroupIndex : Integer
property Layout : TButtonLayout
property Margin : Integer
property NumGlyphs : TNumGlyphs
property Options : TButtonOptions
property ParentFont :
property ParentShowHint :
property ShowHint :
property SoundClick : TFilename
property SoundMouseOver : TFilename
property Spacing : Integer
property Style : TClr95ButtonStyle
property Visible :
property State : TButtonState| Events |
event OnClick :
event OnDblClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnOwnerDraw : TClrBtnOwnerDrawEvent| Variables |
FState : TButtonState;
FAllowAllUp : Boolean;
FColor : TColor;
FDown : Boolean;
FDragging : Boolean;
FGlyph : Pointer;
FGroupIndex : Integer;
FLayout : TButtonLayout;
FMargin : Integer;
FMouseOver : Boolean;
fOptions : TButtonOptions;
FOwnerDraw : TClrBtnOwnerDrawEvent;
FPattern : TBitmap;
FSndClick : TFilename;
FSndMouseOver : TFilename;
FSpacing : Integer;
FStyle : TClr95ButtonStyle;| Constructors |
constructor Create(AOwner: TComponent);TColor95Button
| Functions |
procedure Click;
destructor Destroy;
procedure OnButtonRepeat(Sender: TObject);
function GetPalette: HPALETTE;
procedure Loaded;Default drawing for Onwer Draw
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Paint;
procedure CMButtonPressed(var Message: TMessage);
procedure CMDialogChar(var Message: TCMDialogChar);
procedure CMEnabledChanged(var Message: TMessage);
procedure CMFontChanged(var Message: TMessage);
procedure CMMouseEnter(var Message: TMessage);
procedure CMMouseLeave(var Message: TMessage);
procedure CMTextChanged(var Message: TMessage);
function GetGlyph: TBitmap;
function GetNumGlyphs: TNumGlyphs;
procedure GlyphChanged(Sender: TObject);
procedure SetAllowAllUp(Value: Boolean);
procedure SetColor(Value: TColor);
procedure SetDown(Value: Boolean);
procedure SetGlyph(Value: TBitmap);
procedure SetGroupIndex(Value: Integer);
procedure SetLayout(Value: TButtonLayout);
procedure SetMargin(Value: Integer);
procedure SetNumGlyphs(Value: TNumGlyphs);
procedure SetOptions(Value: TButtonOptions);
procedure SetSpacing(Value: Integer);
procedure SetStyle(Value: TClr95ButtonStyle);
procedure UpdateExclusive;
procedure WMLButtonDblClk(var Message: TWMMouse);| Properties |
property AllowAllUp : Boolean
property Caption :
property Color : TColor
property Down : Boolean
property Enabled :
property Font :
property Glyph : TBitmap
property GroupIndex : Integer
property Layout : TButtonLayout
property Margin : Integer
property NumGlyphs : TNumGlyphs
property Options : TButtonOptions
property ParentFont :
property ParentShowHint :
property ShowHint :
property SoundClick : TFilename
property SoundMouseOver : TFilename
property Spacing : Integer
property Style : TClr95ButtonStyle
property Visible :
property State : TButtonState| Events |
event OnClick :
event OnDblClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnOwnerDraw : TClrBtnOwnerDrawEvent| Variables |
FState : TButtonState;
FAllowAllUp : Boolean;
FColor : TColor;
FDown : Boolean;
FDragging : Boolean;
FGlyph : Pointer;
FGroupIndex : Integer;
FLayout : TButtonLayout;
FMargin : Integer;
FMouseOver : Boolean;
fOptions : TButtonOptions;
FOwnerDraw : TClrBtnOwnerDrawEvent;
FPattern : TBitmap;
FSndClick : TFilename;
FSndMouseOver : TFilename;
FSpacing : Integer;
FStyle : TClr95ButtonStyle;