Class TCaptionButton (unit cptbtn)

Inherits from

TComponent

Constructors


constructor Create(Owner: TComponent);

Public declarations


Functions

destructor Destroy;


procedure CalcArea;


procedure CheckHint(sender:tobject);


procedure Getglyph(const no:byte;var c_glyph:tbitmap);

if fgray then mygrayedbmp(c_glyph,clbtnhighlight,clbtnshadow);

procedure GetglyphStretched(const no:byte;var c_glyph:tbitmap;w,h:integer);


procedure loaded;


procedure OnButDestroy( Sender: TObject );

SetWindowLong(TForm(Owner).

procedure PaintButton;

if fgray then mygrayedbmp(c_glyph,clbtnhighlight,clbtnshadow);

procedure SetDown( Value: Boolean );


procedure SetEnabled( Value: Boolean );


procedure SetGlyph( Value: tbitmap );


procedure setnumglyphs(value:integer);


procedure SetStretch( Value: Boolean );


procedure SetVisible( Value: Boolean );


procedure WinProc(var Message: TMessage);


Properties

property Down : boolean


property Enabled : Boolean

Published declarations

property Glyph : TBitmap


property Hint : string


property NumGlyphs : integer


property ShowHint : boolean


property Stretch : boolean


property Visible : Boolean


Events

event OnClick : TCPTbtnNotifyEvent


Variables

ButtonArea : TRect;


DefWinProc : TFarProc;


DefWinProcInstance : Pointer;


DrawPushed : Boolean;


fdown : boolean;


FEnabled : Boolean;


FGlyph : tbitmap;


fhint : string;


fnumglyphs : integer;


fonclick : TCPTbtnNotifyEvent;


FOnFormDestroy : TNotifyEvent;


fshowhint : boolean;


fstretch : boolean;


FVisible : Boolean;


gwidth : integer;


hinttimer : tbi_timer;


lastpos : tpoint;


myID : integer;


Pushed : Boolean;


RestoreWndProc : Boolean;


rgn : HRGN;


Stop : Boolean;


thehint : tinstanthint;


transclr : integer;



Constructors


constructor Create(Owner: TComponent);

Public declarations


Functions


destructor Destroy;


procedure CalcArea;


procedure CheckHint(sender:tobject);


procedure Getglyph(const no:byte;var c_glyph:tbitmap);

if fgray then mygrayedbmp(c_glyph,clbtnhighlight,clbtnshadow);


procedure GetglyphStretched(const no:byte;var c_glyph:tbitmap;w,h:integer);


procedure loaded;


procedure OnButDestroy( Sender: TObject );

SetWindowLong(TForm(Owner).Handle, GWL_WNDPROC, Longint(DefWinProc));


procedure PaintButton;

if fgray then mygrayedbmp(c_glyph,clbtnhighlight,clbtnshadow);


procedure SetDown( Value: Boolean );


procedure SetEnabled( Value: Boolean );


procedure SetGlyph( Value: tbitmap );


procedure setnumglyphs(value:integer);


procedure SetStretch( Value: Boolean );


procedure SetVisible( Value: Boolean );


procedure WinProc(var Message: TMessage);


Properties


property Down : boolean


property Enabled : Boolean

Published declarations


property Glyph : TBitmap


property Hint : string


property NumGlyphs : integer


property ShowHint : boolean


property Stretch : boolean


property Visible : Boolean


Events


event OnClick : TCPTbtnNotifyEvent


Variables


ButtonArea : TRect;


DefWinProc : TFarProc;


DefWinProcInstance : Pointer;


DrawPushed : Boolean;


fdown : boolean;


FEnabled : Boolean;


FGlyph : tbitmap;


fhint : string;


fnumglyphs : integer;


fonclick : TCPTbtnNotifyEvent;


FOnFormDestroy : TNotifyEvent;


fshowhint : boolean;


fstretch : boolean;


FVisible : Boolean;


gwidth : integer;


hinttimer : tbi_timer;


lastpos : tpoint;


myID : integer;


Pushed : Boolean;


RestoreWndProc : Boolean;


rgn : HRGN;


Stop : Boolean;


thehint : tinstanthint;


transclr : integer;