Class TRaiseLowerButton (unit raisebtn) |
Inherits from
TCustomPanel
If you use or modify this component, have Fun. But please send an email
(And if possible, the modified component) to rhand@idealss.com.. THanx
constructor Create(aOwner : Tcomponent);
procedure CMMouseEnter(var msg:TMessage);
Windows Message Handlers
procedure CMMouseLeave(var msg: TMessage);
respond to mouse enter
destructor Destroy;
Constructor and Destructor
function GetTitle:String;
Procedure SetPicture(NewPic : TPicture);
procedure SetTitle(Newcap : String);
Public declarations Procedures to SEt property Values
procedure WMSize(var Message:TWMSize);
respond to mouse leave
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Protected declarations
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Paint;
procedure SetName(const NewName : TComponentName);
Overriden procedures
property Align :
property Color :
property Font :
property Hint :
property ParentColor :
property Parentfont :
property ParentShowHint :
property Picture : TPicture
Published declarations
property ShowHint :
property Title : String
event OnClick :
fImage : TPicture;
Private declarations
fTitle : String;
constructor Create(aOwner : Tcomponent);
procedure CMMouseEnter(var msg:TMessage);
Windows Message Handlers
procedure CMMouseLeave(var msg: TMessage);
respond to mouse enter
destructor Destroy;
Constructor and Destructor
function GetTitle:String;
Procedure SetPicture(NewPic : TPicture);
procedure SetTitle(Newcap : String);
Public declarations
Procedures to SEt property Values
procedure WMSize(var Message:TWMSize);
respond to mouse leave
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Protected declarations
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Paint;
procedure SetName(const NewName : TComponentName);
Overriden procedures
property Align :
property Color :
property Font :
property Hint :
property ParentColor :
property Parentfont :
property ParentShowHint :
property Picture : TPicture
Published declarations
property ShowHint :
property Title : String
event OnClick :
fImage : TPicture;
Private declarations
fTitle : String;