Valor por defecto de propiedades en formularios

[roman]

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]



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

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

[delphi.com.ar]

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:

1. Abrir Delphi
2. Crear un nuevo proyecto
3. En el formulario pegar un panel
4. Ponerle a la propiedad Anchor el valor [akLeft, akTop, akRight, akBottom]
5. Ir al menu File \ New \ Other
6. Buscar en la solapa Project1, el Form1… esto nos creará el Form2 heredado del Form1
7. 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.
8. Guardar y cerrar los dos forms.
9. 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!

[roman]

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:

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

[roman]

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

Tuve que hacer un Wizard y un Creator:

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:

1. El icono para agregar un formulario TAppBar aparece automáticamente en "New Items"
2. Las nuevas propiedades publicadas aparecen en el inspector de objetos
3. 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