Código en Delphi 6, válido para Delphi for win32 y CodeGear RAD Studio (Delphi win32) | ||
Es un componente no visual que nos permitirá cambiar alguna de las propiedades de un conjunto de controles contenidos en el mismo form que éste, haciendo que los valores de esas propiedades sean las mismas para todo el grupo. Por ejemplo, podemos hacer que todos las etiquetas tenga la misma apariencia con un sólo click de ratón, tanto en tiempo de ejecución como en tiempo de diseño (si así lo queremos).
Propiedades:
Elements : Controles del Form que forman parte del conjunto de componentes sobre los que el componente VisualProp hará las modificaciones en sus propiedades. Es de sólo lectura.
FileName : Fichero del que se pueden cargar las propiedades y sus valores en el componente. En tiempo de de ejecución utilizar el método LoadFromFile en lugar de asignar un valor a esta propiedad, ya que aunque el resultado es el mismo, en caso de asignar un valor a este propiedad aparecerá en pantalla una caja de diálogo preguntando si realmente se quieren cargar las propiedades del fichero. Este fichero tiene la estructura siguiente :
Propertie1=Value1
Propertie2=Value2
...
PropertieN=ValueNFont : Fuente. Esta es la fuente que se usará para la posible propiedad Font de los controles sobre los que tendrá acceso el componente y para el caso en que sea True la propiedad UseFont
UseFont : Indica si se usa la propiedad Font o no.
GetFrom : Nos permite en tiempo de diseño (y si se quiere en ejecución) rellenar Properties con las propiedades de un determinado control del form (con todas las propiedades).
Properties : Colección de propiedades y valores de las mismas que se modificarán al ejecutar el método Perform. Esta colección tiene a su vez las siguientes propiedades y métodos :
Propiedades :
Items : Array de elementos de colección con la estructura :
Prop : Nombre de propiedad.
Value : Valor.
Métodos :
FindIndex : Busca la posición ocupada por una propiedad dentro de Items. La firma de este método es : FindIndex(Text:String):Integer;
SetPropValue : Asigna valor a una propiedad de Items. Su firma es la siguiente : SetPropValue(Propertie:string;Value:Variant);
TagValue : Nº entero. Es el valor que deberemos poner en la propiedad Tag de los controles del Form que queramos que este pueda modificar.
Métodos :
Perform : asigna las propiedades a los componentes cuya propiedad Tag coincida con la propiedad TagValue del componente.
SaveToFile : Guarda en un fichero (que se le pasa como parámetro) las propiedades y valores de la colección Items.
LoadFromFile : asigna a Items las propiedades y valores leídos de un fichero. Se le pasa el nombre del fichero del que queremos leer como parámetro.
PropFrom : Permite llenar Items con todas o parte de las propiedades y valores de un determinado componente. Por ejemplo PropFrom(Edit1) (<-- todas ) ó PropFrom(Edit1,['Color','Ctl3D','Left']) <- sólo las propiedades Color Ctl3D y Left del componente Edit1.
PropFromArray : Lo mismo que la anterior método pero en tes caso pasamos como parámetros la lista de propiedades y valores. PropFromArray(['Color','Ctl3D','Left'],[clWhite,true,10]);
Notas :
Las propiedades que se pueden asignar son todas excepto aquellas que sean una clase o un método y las propiedades Name y Tag.
En tiempo de diseño puede ejecutar el método Perform y el método SaveToFile pulsando con el botón derecho del ratón sobre el componente.