¡Malditos componentes!

[ElDuc]

Lo del icono ya lo he podido resolver, pero con un archivo *.dcr en lugar del *.res. ALELUYA.

Para la propiedad he intentado lo que tú me has aconsejado y no me compila.

Gracias, de todas formas, si se te ocurre otra idea te la agradeceré.

[[maeyanes]]

Hola...

Empezado por ElDuc

Para la propiedad he intentado lo que tú me has aconsejado y no me compila.

Gracias, de todas formas, si se te ocurre otra idea te la agradeceré.

¿Por qué no te compila? ¿Te muestra algún error? Si es así, por que no nos dices cual es para que te podamos ayudar mejor...


Saludos...

[[coso]]

si, el codigo que puse tiene errores

Código Delphi [-]
constructor TMiComponente.Create(AOwner : TComponent);
begin
    inherited;
    Desp := TDesplegable.Create;
end;

lo mismo en destroy. Saludos.

[ElDuc]

Este es el código completo de la unidad:

Código Delphi [-]
unit _ieApplication;
interface
uses
  SysUtils, Classes, JfMain;
type
  TieData=Class(TPersistent)
    A:Integer;
    B:Integer;
    End;
Type
  TieApplication = class(TJfCApplication)
  private
    { Private declarations }
    vieData:TieData;
    Function rieData:TieData;
    Procedure wieData(V:TieData);
  protected
    { Protected declarations }
  public
    { Public declarations }
    Constructor Create(AOwner:TComponent) Overload;
    Destructor Destroy; Overload;
  published
    { Published declarations }
    Property ieData:TieData Read rieData Write wieData;
  end;
procedure Register;
implementation
Constructor TieApplication.Create(Owner:TComponent);
Begin
Inherited;
vieData:=TieData.Create;
End;
Destructor TieApplication.Destroy;
Begin
ieData.Free;
Inherited;
End;
Function TieApplication.rieData:TieData;
Begin
Result.A:=vieData.A;
Result.B:=vieData.B;
End;
Procedure TieApplication.wieData(V:TieData);
Begin
vieData.A:=V.A;
vieData.B:=V.B;
End;
procedure Register;
begin
  RegisterComponents('ieCRON', [TieApplication]);
end;
end.

Y estos son los errores:
[Error] _ieApplication.pas(10): Published field 'A' not a class nor interface type
[Error] _ieApplication.pas(11): Published field 'B' not a class nor interface type

Yo no sé que quiere decir.

[[coso]]

Hola,

Código Delphi [-]
Destructor TieApplication.Destroy;
Begin
ieData.Free;
Inherited;
End;

aqui estas liberando la propiedad, no la variable, que es vieData.
En cuanto a los errores de compilacion, prueba de colocar las variables de la clase TieData dentro de una llave public, a ver si es eso. Un saludo.

[[maeyanes]]

Hola...

Me parece que el error está en la parte de lectura de la propiedad, esta debería ser tu declaración:

Código Delphi [-]
private
  vieData: TieData;

  procedure wieData(Value: TieData);
published
  property ieData: TieData read vieData write wieData;
end;

implementation

procedure TieApplication.wieData(Value: TieData);
begin
  vieData.A := Value.A;
  vieData.B := Value.B
end;

Saludos...

[ElDuc]

Colegas, muchas gracias por vuestra colaboración, por fin lo he conseguid.

Pongo el código y mis comentarios para revertir en aquellos que, como yo hasta ahora, puedan necesitarlo.

Icono del componente:
Lo he solucionado utilizando un archivo *.DCR en lugar de *.RES.
Ya sabéis, si vuestro archivo de código en el que se declara el componente se llama Componentes.PAS, vuestro paquete de recursos debe llamarse Componentes.DCR (igual que el *.PAS, pero cambiando la extensión) y si dentro del archivo Componentes.PAS hay la declaración de dos componentes Componente1 y Componente2, deberéis crear dos bitmaps de 24x24 pixels con los nombre COMPONENTE1 y COMPONENTE2 (TODO EN MAYÚSCULAS), Lo compilais todo y a correr.

Propiedades desplegables (Conjuntos / Record)
Aqií os pongo el código completo de mi unidad:

Código Delphi [-]
unit _ieApplication;
 
interface
 
uses
  SysUtils, Classes, JfMain;
 
type
  TieData=Class(TPersistent)
    Private
    vA:Integer;
    vB:String;
    Function rA:Integer;
    Procedure wA(Value:Integer);
    Function rB:String;
    Procedure wB(Value:String);
    Published
    // Normalmente no son necesarios estos métodos a no ser que se quiera ejercer
    // algún control, pero esto limitará las posibilidades de los descendientes
    Property A:Integer Read rA Write wA;
    Property B:String Read rB Write wB;
    End;

  TieApplication = class(TJfCApplication)
    private
    { Private declarations }
    vieData:TieData;
    Procedure wieData(V:TieData);
    protected
    { Protected declarations }
    public
    { Public declarations }
    Constructor Create(AOwner:TComponent); Override;
    Destructor Destroy; Override;
    published
    { Published declarations }
    // No me acepta una función de lectura cuando el tipo es una clase,
    // pero no es una limitación muy importante
    Property ieData:TieData Read vieData Write wieData;
  end;
 
procedure Register;
 
implementation
 
Function TieData.rA:Integer;
Begin
Result:=vA;
End;
 
Procedure TieData.wA(Value:Integer);
Begin
vA:=Value;
End;
 
Function TieData.rB:String;
Begin
Result:=vB;
End;
 
Procedure TieData.wB(Value:String);
Begin
vB:=Value;
End;
 
Constructor TieApplication.Create(AOwner:TComponent);
Begin
Inherited Create(AOwner);
vieData:=TieData.Create;
// Default
vieData.A:=123;
vieData.B:='Vacia';
End;
 
Destructor TieApplication.Destroy;
Begin
vieData.Free;
Inherited;
End;
 
Procedure TieApplication.wieData(V:TieData);
Begin
vieData.A:=V.A;
vieData.B:=V.B;
End;
 
procedure Register;
begin
  RegisterComponents('ieCRON', [TieApplication]);
end;
 
end.

Cuando quieres crear un conjunto de propiedades (las que en el inspector de objetos se pueden replegar y desplegar con el icono +desplegar y -replegar)
Debes crear una clase con sus propiedades, como en mi código en el cual creo una propiedad ieData que contiene dos propiedades:
A:Integer y B:String;

Espero que esta información pueda ser de utilidad para los que andéis perdidos como estaba yo.