Class TEtigraf (unit Etigraf)

Inherits from

TLabel

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

destructor Destroy;

Primero crea los elementos necesarios First create the necessary elements

Procedure WMMouseMove(var msg: TWMMouseMove);

Protected declarations

Procedure SetColorFondoAlEntrar(Color : Tcolor);


Procedure SetEtiquetaActiva(Valor: Boolean);


Procedure SetFuente(Fuente: TFont);


procedure SetImagenE(img: TPicture);


procedure SetImagenS(img: TPicture);


procedure SetImgControl(img: TImage);


Properties

property Activa : Boolean


property ColFondoAlEntrar : TColor


property FuenteAlEntrar : TFont


property ImagenE : TPicture


property ImagenS : TPicture


property ImgControl : TImage

Published declarations

Events

Variables

FActiva : Boolean;


FColorFondoAlEntrar : TColor;


FColorOrig : TColor;


FFuenteEntrar : TFont;


FFuenteOrig : TFont;


FImagenE : TPicture;


FImagenS : TPicture;


FImgControl : TImage;

Private declarations

FRatonDentro : Boolean;


Primeravez : Boolean;

Se utiliza para evita que se reasigne el color y la fuente original cuando se hace click en el componente.


Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


destructor Destroy;

Primero crea los elementos necesarios First create the necessary elements


Procedure WMMouseMove(var msg: TWMMouseMove);

Protected declarations


Procedure SetColorFondoAlEntrar(Color : Tcolor);


Procedure SetEtiquetaActiva(Valor: Boolean);


Procedure SetFuente(Fuente: TFont);


procedure SetImagenE(img: TPicture);


procedure SetImagenS(img: TPicture);


procedure SetImgControl(img: TImage);


Properties


property Activa : Boolean


property ColFondoAlEntrar : TColor


property FuenteAlEntrar : TFont


property ImagenE : TPicture


property ImagenS : TPicture


property ImgControl : TImage

Published declarations


Events


Variables


FActiva : Boolean;


FColorFondoAlEntrar : TColor;


FColorOrig : TColor;


FFuenteEntrar : TFont;


FFuenteOrig : TFont;


FImagenE : TPicture;


FImagenS : TPicture;


FImgControl : TImage;

Private declarations


FRatonDentro : Boolean;


Primeravez : Boolean;

Se utiliza para evita que se reasigne el color y la fuente original cuando se hace click en el componente. Used to avoid reassign the original font and color property when the control receives a click.