Código en Delphi 6, válido para Delphi for win32 y CodeGear RAD Studio (Delphi win32) | ||
Gradiente múltiple. Este es un componente gráfico que dibuja un gradiente en un control que admita controles (p.e. Form). El código base de este componente es de Luis Roche y yo he añadido al código la posiblilidad de más de dos colores y propiedades de encuadre.
Propiedades :
Colors : Colección de colores:Color : Cada uno de los colores.Bevel : Encuadre interior del control : bvNone, bvRaised, bvLowered, bvSpace.
BevelOuter : Encuadre exterior del control : bvNone, bvRaised, bvLowered, bvSpace.
BevelWidth : Ancho de línea de Bevel.
BevelOuterWidth : Ancho de línea de BevelOuter.
BevelInner : Distancia desde encuadre externo al interno (BevelOuter a Bevel).
Dirección : Tipo de gradiente. Los tipos de gradiente son los siguientes :
dHorizontal dVertical Ejemplos :