¡Malditos componentes!

[ElDuc]

Código Delphi [-]
unit _ieApplication;
interface
uses
  SysUtils, Classes, JfMain;
type
  TieData=Record
    A:Integer;
    B:Integer;
    End;
  TieApplication = class(TJfCApplication)
  private
    { Private declarations }
    vieData:TieData;
    Function rieData:TieData;
    Procedure wieData(V:TieData);
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    Property ieData:TieData Read rieData Write wieData;
  end;
procedure Register;
implementation
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.

[[coso]]

Hola,
no he mirado al detalle tu codigo, pero te comento un par de cosas:

para hacer una propiedad desplegable, debe ser de una clase derivada de TPersistent

Código Delphi [-]
 
type TDesplegable = class(TPersistent)
    A : integer;
    B : string;
end;
 
type TMiComponente = class(TComponent)
   Desp : TDesplegable;
   public
   constructor Create(AOwner: TComponent); overload; 
   destructor Destroy; overload;
   published
    property Desplegable : TDesplegable read Desp write Desp;
end;
 
constructor TMiComponente.Create(AOwner : TComponent);
begin
    inherited;
    Desplegable := TDesplegable.Create;
end;
 
destructor TMicomponente.Destroy;
begin
    Desplegable.Free;
    inherited;
end;

Algo asi, lo hago de cabeza.
Para usar componentes visuales, deberias heredarlos de TComponent o TPersistent. No se si TJFApplication es la clase padre correcta...
Para usar tu propio bitmap, debes crear un bitmap en el archivo .res relacionado con exactamente el nombre de la clase : TMICOMPONENTE (creo que en la llave MAIN) Despues de un par de vez de recompilar y reinstalar, te aparecera el icono. Si no es asi, borra todos los .dcu y el .dpk relacionado, y vuelve a construirlo.
Algo asi, ya te digo que lo hago de cabeza. Lo mejor siempre es cojer un ejemplo sencillo y ir mirando paso a paso como se hace. Un saludo y a ver si te sirve.

[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...

Para crear los bitmaps que usa Delphi en la paleta de componentes, tienes que crear un archivo .DCR (que es un archivo de recursos).

Para esto creas un archivo en el bloc de notas y lo guardas como NombreUnidadDondeRegistrasElComponente.rc:

TMICOMPONENTE Bitmap archivo.bmp // Este es para la versión 24x24
TMICOMPONENTE16 Bitmap archivo16.bmp // Esta es la versión 16x16
TMICOMPONENTE32 Bitmap archivo32.bmp // Esta es la versión 32x32

Lo compilas con Borland Resource Compiler (brc32.exe):

brc32 -r -foNombreUnidadDondeRegistrasElComponente.dcr NombreUnidadDondeRegistrasElComponente.rc

Y lo agregas a tu proyecto (archivo .dpk):

Código Delphi [-]
package MiPackage;

{$R *.res}
{$R NombreUnidadDondeRegistrasElComponente.dcr}
// ...

Ya con esto cuando compiles e instales el paquete en Delphi, las imagenes se verán en la paleta de componentes, dependiendo del tamaño que tengas configurado mostrarlas (iconos chicos, medianos o grandes, esto último en Delphi 2007 en adelante)...


Saludos...