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

Constructors


constructor Create(aOwner : Tcomponent);



Functions

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

Properties

property Align :


property Color :


property Font :


property Hint :


property ParentColor :


property Parentfont :


property ParentShowHint :


property Picture : TPicture

Published declarations

property ShowHint :


property Title : String


Events

event OnClick :


Variables

fImage : TPicture;

Private declarations

fTitle : String;



Constructors


constructor Create(aOwner : Tcomponent);


Functions


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


Properties


property Align :


property Color :


property Font :


property Hint :


property ParentColor :


property Parentfont :


property ParentShowHint :


property Picture : TPicture

Published declarations


property ShowHint :


property Title : String


Events


event OnClick :


Variables


fImage : TPicture;

Private declarations


fTitle : String;