Unit Etigraf

********************** 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.

Classes

TEtigraf -

Functions

Register -

Types

Constants

Variables


Functions


procedure Register;


Types


Constants


Variables