Class TColor95Button (unit ColorBtns)

Inherits from

TGraphicControl

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;



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;