********************** ESPAÑOL *********************************************
Etiqueta que cambia de color y fuente al situar el ratón sobre el componente.
También permite definir un control gráfico (TImage) con dos imágenes
que se alternan al entrar y salir el raton de la etiqueta.
Basado en el código de Jay O'Donnell Oct/97.
****************************************************************************
*Autor : *
* *
* Carlos Ponce de León. *
* Madrid Febrero 1998. *
* *
* Creado: 22 de Febrero de 1998 *
* *
* Versión: 2.1 *
* *
* Historia *
* Versión 2.1 10/03/98 Corrige el bug que hace que después de un click *
* el color no cambie. *
* *
* Versión 2.0 22/02/98 Versión inicial freeware *
****************************************************************************
//AVISO IMPORTANTE : //
// //
// //
// Este programa es FreeWare //
// //
// Por favor, no distribuyas versiones modificadas de este código fuente.//
// Si tienes alguna modificación que crees que debería hacerse, envia- //
// mela a carlosponce@eoi.es y la incluire (después de verificarla) //
// haciendo mención a su autor. //
// //
// Gracias. //
Se han añadido diversas propiedades y métódos al componente padre (TLabel)
property ImgControl : TImage Control conectado con TEtigraf.
Se cambia la propidad TPicture cuando el
ratón entra (ImagenE) y sale (ImagenS).
Si no se asigna, no ocurre nada.
property ImagenE : TPicture Contenido que se asigna a la propiedad
TPicture del control TImage conectado
(ImgControl) cuando el ratón entra en el
elemento TEtiGraf.
property ImagenS : TPicture Idem, pero cuando el ratón sale.
Property ColFondoAlEntrar: TColor Color de fondo del elemento TEtiGraf
cuando el ratón entra. Cuando el ratón
sale, el color mostrado es el indicado
por la propiedad <>.
Property FuenteAlEntrar : TFont Fuente que se asigna al TEtigraf cuando
el ratón entra. Cuando el ratón
sale, la fuente mostrada es la definida
por la propiedad <>.
Property Activa : Boolean Indica si el control TEtiGraf debe
responder o no a los movimientos de
entrada y salida del ratón.
***************************** ENGLISH ****************************************
Label that changes the color and the font when the mouse moves over it.
Also it's possible to assign a TImage control with two pictures that take turn
when the mouse moves in & out of the Label.
Based on the Jay O'Donnell Oct/97 code.
****************************************************************************
*Author : *
* *
* Carlos Ponce de León. *
* Madrid Febrero 1998. *
* *
* Created: 22, February 1998 *
* *
* Version: 2.1 *
* *
* History *
* Version 2.1 03/10/98 Fix the bug that makes the color unchangeable *
* after a click on the control *
* *
* Version 2.0 22/02/98 Initial freeware version *
****************************************************************************
//IMPORTANT NOTICE : //
// //
// //
// This program is FreeWare //
// //
// Please do not release modified versions of this source code. //
// If you've made any changes that you think should have been there, //
// feel free to submit them to me at carlosponce@eoi.es and I'll include //
// it (after test it) naming its author. //
It has been addes some properties to the TLabel component.
property ImgControl : TImage Conected Control to TEtigraf. The
property TPicture change when the mouse
moves in (ImagenE) and moves out
(ImagenS). It is optional
property ImagenE : TPicture Image that ImgControl shows (property
TPicture) when mouse moves in.
property ImagenS : TPicture Idem, but when the mouse moves out.
Property ColFondoAlEntrar: TColor TEtiGraf background color when mouse
moves in. When the mouse goes out, the
background color is the indicated by the
<> property.
Property FuenteAlEntrar : TFont TEtiGraf Font when mouse moves in. When
the mouse goes out, the Font is the
indicated by the <> property.
Property Activa : Boolean When False, TEtiGraf woks as regular
TLabel. When True, works as mentioned
above.
TEtigraf -
Register -
procedure Register;