Class TSoftButt (unit SoftButt)

Inherits from

TSpeedButton

*** SoftButt.Pas by Rickard Dahlstrand (c)Tilde Konsult 1997 *** This Component is like the Speedbutton except for the softborders, nice ehh? And some other stuff I played around with. And as a BONUS, the --> SoftPann <-- just like a panel but... This is creditware so by using this you have to accept the following condition. You can change my code or use it as is, but whatever you do please include me in your creditline! Like this... ' Thanks to rickard@tilde.se for the SoftButts... ' If you don't like doing this, mail me and we'll discuss it! AND... I like credit in my mailbox too!! So if you like this or/and have made improvements, MAIL ME!!! If anyone looking for useless things to do, try to derive the TSoftButt from TButton, if you do, please mail me a copy!! /rickard@tilde.se

Constructors


constructor Create(AOwner: TComponent);

Just init some values.


Functions

procedure Paint;

This is the BUTT paint method.

procedure CMMouseEnter(var Message: TMessage);

Draw a focusline on mouseenter

procedure CMMouseLeave(var Message: TMessage);

Remove the focusline on mouseleave

Properties

property ShowFocusRing : Boolean


Events

Variables

focused : Boolean;


Sshowfocusring : Boolean;



Constructors


constructor Create(AOwner: TComponent);

Just init some values...


Functions


procedure Paint;

This is the BUTT paint method...


procedure CMMouseEnter(var Message: TMessage);

Draw a focusline on mouseenter


procedure CMMouseLeave(var Message: TMessage);

Remove the focusline on mouseleave


Properties


property ShowFocusRing : Boolean


Events


Variables


focused : Boolean;


Sshowfocusring : Boolean;