Class TCaptionButton (unit cptbtn) |
Inherits from
TComponent
constructor Create(Owner: TComponent);
- Public declarations
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);
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
event OnClick : TCPTbtnNotifyEvent
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;
constructor Create(Owner: TComponent);
Public declarations
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);
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
event OnClick : TCPTbtnNotifyEvent
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;