Foros Club Delphi - Valor por defecto de propiedades en formularios

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Valor por defecto de propiedades en formularios (https://www.clubdelphi.com/foros/showthread.php?t=7357)

Valor por defecto de propiedades en formularios

Hola,

Quiero crear un descendiente de TForm con nuevas propiedades publicadas para que aparezcan en el inspector de objetos. La manera en que lo hago es añadiendo el formulario al repositorio (¿existe esta palabra en español?) y creando un paquete que lo registra con RegisterCustomModule.

Esto funciona bien pero quisiera además cambiar el valor por defecto de algunas propiedades ya existentes, por ejemplo:

Código:

TBarForm = class

published

  property Height default 28;

  property BorderStyle default bsNone;

end;

Poniendo los nuevos valores en el constructor.

De acuerdo a la documentación esto debería funcionar pero no hay manera; cada vez que heredo un formulario desde el repositorio aparece con los valores originales de siempre.

¿Tienen alguna de idea de cómo hacer esto?

// Gracias

¿En el create de esta clase, estás asignando estos valores a las propiedades?... el default solo indica que si el valor de la propiedad es el indicado por el default, este no se guardará y nada mas. Por eso cuando carga la propiedad esta no está guardada, el valor a la propiedad se lo debemos asignar en el constructor de la clase.

Saludos!

Cita:

Empezado por delphi.com.ar

¿En el create de esta clase, estás asignando estos valores a las propiedades?

En efecto:

Cita:

Empezado por roman

Poniendo los nuevos valores en el constructor.

:D

Y al no funcionar intenté otras cosas como asignarlos en AfterConstruction pero sin suerte. Sólo poniéndolos en Loaded pero claro que así no vale ya que entonces nunca puedo cambiar los valores en diseño.

Me pregunto si tendré que utilizar alguna de las tools api para crear el formulario "en forma" con algún "expert" pero quisiera evitarmelo por el momento.

// Saludos y gracias

Ups... Evidentemente no he leído bien tu mensaje :D...
Ahora... si creas el formulario con el IDE es igual que si lo creas a mano (TMiForm.Create)???

Cita:

Empezado por delphi.com.ar

si creas el formulario con el IDE es igual que si lo creas a mano (TMiForm.Create)???

Si lo creo a mano sí queda bien.

// Gracias

Cita:

Empezado por roman

Si lo creo a mano sí queda bien.

Esto da a suponer que es el IDE el que le da el tamaño al form...

Cita:

Empezado por delphi.com.ar

Esto da a suponer que es el IDE el que le da el tamaño al form...

:confused: ¿Esto significa que pierdo toda esperanza? :D :( (no sé si reir o llorar)

¿Piensas que con "wizards" lo puedo hacer?

// Gracias

¡¡¡la esperanza nunca se pierde!!!
La verdad que no tengo nada de tiempo como para darle una miradita al tema...

Por otro lado, te recomiendo particular precaución con el tema de las propiedades con default, ahora en un momento te describo un problema que me sucede a menudo.

Saludos!

Cita:

Empezado por delphi.com.ar

La verdad que no tengo nada de tiempo como para darle una miradita al tema...

[modalidad=sarcasmo]
¡Caramba!, necesito el código para hoy, ¿no puedes cancelar algunos compromisos?
[/modalidad]

:D

Preguntaba lo de los wizards sólo para evitarme el clavado en dicha área en caso de no tener nada que ver con éso.

Cita:

Empezado por delphi.com.ar

Por otro lado, te recomiendo particular precaución con el tema de las propiedades con default, ahora en un momento te describo un problema que me sucede a menudo.

Aquí espero,

// Gracias

Bueno... No te emociones, no es la solución, es el problema que sucede con los default y la herencia visual, uso de frames...:

Si tengo un formulario (Form1) con un TPanel sobre este con la propiedad Anchor = [akLeft, akTop, akRight, akBottom] (diferente al defaul), y creo un formulario heredado de este (Form2) donde cambio el valor de la propiedad Anchor a [akLeft, akTop] (el default), resulta que el TWriter no guardará el valor en el Form2 porque el default de esta propiedad es igual al valor, pero a la hora de cargarlo, como no está guardada esta propiedad, traerá el valor default de su clase heredada (TForm1), donde Anchor = [akLeft, akTop, akRight, akBottom]. Lo que esta MAL!

Hagan la prueba, siguiendo los siguientes pasos:

Abrir Delphi
Crear un nuevo proyecto
En el formulario pegar un panel
Ponerle a la propiedad Anchor el valor [akLeft, akTop, akRight, akBottom]
Ir al menu File \ New \ Other
Buscar en la solapa Project1, el Form1… esto nos creará el Form2 heredado del Form1
Poner en la propiedad Anchor del panel del Form2 el valor [akLeft, akTop], si estamos en Delphi 7 notaremos que el Object Inspector ya se ha confundido y la propiedad no está en negrita.
Guardar y cerrar los dos forms.
Abrir el form2 y corroborar si el Anchor del panel es igual al que pusimos en el punto 7

Bueno, si tu form tiene un ancho fijo, y haces herencia visual de este ancho............... ¿Entiendes a donde voy?

Saludos!

Disculpa la tardanza en contestar pero tuve que salir.

Creo entender lo que dices. Sin embargo la herencia visual es algo distinta. Supongo que el problema que describes se debe a que el IDE en sí no tiene noción del cambio de valores por defecto ya que Form1 no está registrado. Uno esperaría que si hacemos:

Código:

TForm1 = class(TForm)

published

  property Anchors default [akLeft,akRight, akTop, akBottom];

end;

y registramos el formulario entonces sí debería funcionar. Claro que a juzgar por las pruebas que hice no es así, al menos sin usar wizards.

Será cosa de seguir investigando.

// Saludos

Pues me tiré el clavado. A ver si no es demasiada vuelta.

Tuve que hacer un Wizard y un Creator:

Código:

type

  TAppBarCreator = class(

    TInterfacedObject, IOTACreator, IOTAModuleCreator

  )

    { De IOTAModuleCreator }

    procedure FormCreated(const FormEditor: IOTAFormEditor);

  end;



  TAppBarWizard = class(

    TNotifierObject, IOTAWizard, IOTARepositoryWizard, IOTAFormWizard

  )

    { De IOTAWizard }

    procedure Execute;

  end;



procedure Register;



implementation



{ Este método lo llama el IDE en cuanto se crea el formulario }

procedure TAppBarCreator.FormCreated(const FormEditor: TFormEditor)

var

  NTAComponent: INTAComponent;

  Component: TComponent;



begin

  // Obtenemos una referencia al formulario recién creado 

  if Supports(FormEditor.GetRootComponent, INTAComponent, NTAComponent) then

  begin

    Component := NTAComponent.GetComponent;

    if Component is TAppBarForm then

      // y le asignamos el valor deseado a la propiedad

      TAppBarForm(Component).Height := 55;

  end;  

end;



{ Aquí le pasamos al IDE el Creator del formulario }

procedure TAppBarWizard.Execute;

var

  Services: IOTAModuleServices;



begin

  Supports(BorlandIDEServices, IOTAModuleServices, Services);

  Services.CreateModule(TAppBarCreator.Create);

end;



{ Registramos el Wizard y el formulario }

procedure Register;

begin

  RegisterPackageWizard(TAppBarWizard.Create);

  RegisterCustomModule(TAppBarForm, TCustomModule);

end;



end.

De esa forma obtengo tres cosas:

El icono para agregar un formulario TAppBar aparece automáticamente en "New Items"
Las nuevas propiedades publicadas aparecen en el inspector de objetos
El formulario aparece con las dimensiones deseadas

Quedan cosas en el tintero ya que entiendo poco de las ToolsApi y aún quiero ver si puedo evitarme la vuelta al Wizard (aunque vino bien aprender cómo se hace). Además al agregar el formulario nuevo aparece como TAppBarForm2 en lugar de TAppBarForm1, es decir, que sigue la numeración del formulario principal de la aplicación.

// Saludos