Componente TLabel

[[eduarcol]]

Magnifico amigo, a eso me referia tal como lo habia pensado

[[Caral]]

Hola
No se por que no lo puedo compilar, me da este error:

Error in module: CONTAINS clause is incorrect

Ni idea.
Explico lo que hice, lo mas facil, crear un unit y tratar de instalarlo.
Que hago mal, aparte de no saber.
Saludos

[[eduarcol]]

abre una unidad nueva, copia el codigo excepto la primera linea (unit)

grabalo, y deberia funcionar

[[Delphius]]

Hola a todos, llevo unos minutos declarando ese componente. Lo tengo igual a seoane, el problema, que no se como resolver, es que cuando uno cambia el contenido del edit, deja de funcionar el efecto de animación.

La diferencia con respecto a lo que tiene seoane es esta:

unit Blinklbl2;

interface

uses Blinklbl, StdCtrls, Classes;

type
  TMarqueeLabelEdit = class(TMarqueeLabel)
    private
      FMyEdit: TEdit;
      FInvertir: boolean;
      procedure SetMyEdit(Value: TEdit);
    protected
      procedure Animar(Sender: TObject); override;
    published
      property MyEdit: TEdit read FmyEdit write SetMyEdit;
      property Invertir: boolean read FInvertir write FInvertir;
  end;

procedure Register;

implementation

procedure TMarqueeLabelEdit.Animar(Sender: TObject);
begin
  if Assigned(MyEdit) then
  if FInvertir then
    Caption:= Copy(Caption,Length(MyEdit.Text),1) +  Copy(Caption,1,Length(MyEdit.Text)-1)
  else
    Caption:= Copy(MyEdit.Text,2,MAXINT) + Copy(MyEdit.Text,1,1);
end;

procedure TMarqueeLabelEdit.SetMyEdit(Value: TEdit);
begin
  FMyEdit := Value;
  if Value <> nil then Value.FreeNotification(self);
end;


procedure Register;
begin
  RegisterComponents('Curso', [TMarqueeLabelEdit]);
end;

end.

Saludos,

[[eduarcol]]

Acabo de probar el codigo de seoane completo y no me ha dado problemas, lo instale y modifique el texto en ejecucion funciona muy bien
lo qu eno entiendo es apara que le quitas parte del codigo, por ejemplo si no se ejecuta el create no va a ejecutarse el movimiento que se le asigna en ese evento

[[Caral]]

Hola
Que estoy haciendo mal.
Creo un unit nuevo, lo guardo con el nombre Blinklbl
Voy a Component, instal component
me da el error que mencione, algo de class
Que puede ser, que estoy haciendo mal.
Tambien lo hice como me mencionaste sin cambiar el nombre el unit, no me funciona.
Saludos

[[eduarcol]]

Pues en el error que mencionastes no dice nada de class sino clause.

Intenta esto, cierra delphi por completo, abrelo y selecciona Close All, luego File --> New --> Unit

borra todo excepto la primera linea, unit

copia el codigo, excepto la primera linea, dale guardar y asignale un nombre

Cierra todo de nuevo y abre instalar componentes, busca la unidad que acabas de guardar y le das ok, eso deberia instalarla

que delphi utilizas????

[[Caral]]

Hola
Paso a paso y lo mismo.
Pienso que tiene que ver con esto.

procedure Register;
begin
RegisterComponents('Curso', [TBlinkLabel]);
RegisterComponents('Curso', [TMarqueeLabel]);
end;

Vosotros estais cambiando algo? o solo lo copias y lo pegas?.
Me sigue dando el mismo error.
Uso delphi 6.
Saludos

[[Delphius]]

listo, hice la prueba... era un error conceptual mio y de apurado quise meter código y metí mal el dedo

Lo que estaría interesante, si es que le sirve a Caral, es contar con la posibilidad de deshabilitar/habilitar los efectos. E inclusive, porque no... adaptarlo para varios tipos de efectos:

1. Desplazamiento a la izquierda
2. Desplazamiento a la derecha
3. Cierre: que el texto vaya desplazandose desde los extremos al medio.
4. Apertura: que el texto vaya desplazandose desde el centro hacia afuera.
5. Aleatorio.

No creo que sea tan complicado generarlos... Se que lo más posible es que hay componentes ya hechos que realizan estas cosas... pero como práctica no está demás.

Saludos,

[[eduarcol]]

Si te fijas en el primer codigo estan los puntos que tu contemplas en el 1 y 2

[[Delphius]]

Si te fijas en el primer codigo estan los puntos que tu contemplas en el 1 y 2

Cierto! para ello está invertir!
Olvida los puntos 1 y 2.

Con respecto al error que le da a Caral... a mi no me arroja nada, todo bien. Tengo Delphi 6, que es la versión que emplea Caral (tengo entendido).
Nunca vi ese error... ¿Caral... sobre que línea te arroja el "DICHOSO" error?

Saludos,

[[eduarcol]]

Bueno ahora es que le hace falta a esta foro una herramienta: Acceso Remoto, seguro que seoane debe tener alguna porq por lo que dices no se me ocurre nada que echarle mano al codigo a ver

[[Caral]]

Hola
Simplemente me manda ese mensaje no dice en donde.
Ya no se que hacer, primera vez que me pasa algo asi, nunca he tenido problemas al instalar un componente.
Que sera?.
Alguien trajo la bola de cristal?
Saludos

[[Caral]]

Hola
Estaba tratando de abrir un paquete:
dclusr
Se supune que es donde se instala el componente (Delphi package source (*.dpk).
Al tratar de abrirlo me manda exactamente ese error.
Pregunto sera que meti las patas en algun lado y no puedo instalar componentes?
Tengo que instalarlo en otro lado?, se puede?
Saludos

[[Delphius]]

Pues caral yo también estoy intrigado, yo me hecho componentes y a pesar de que al comienzo tuve inconvenientes para instalarlos... nunca vi ese error.

Espero que mis pasos te sean de ayuda:

1. Abro un nuevo proyecto. Abrí un unit nuevo, borre TODO y copié exactamente el código de seoane. Ni más ni menos.
2. anadí al dpr dicha unidad. Guardo el proyecto entero e indicando con el nombre Blinklbl, y no con Uxxxx (Puede que alli esté el problema?). De modo que en el dpr queda esto:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Blinklbl in 'Blinklbl.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

3. Hago run, y listo... funciona. No marca error.
4. Voy a Component -> Install Component.
5. En el cuadro de Unit File Name busco el Blinklbl.pas y lo selecciono. Doy OK.
6. Me aparece un mensaje: "Package dclusr.bpl will be rebuilt. ¿Continue?" Le digo YES.
7. Me aparece un cuadro chico... con los componentes añadidos al paquete, le doy a Compile. Presiono en la X para cerrat y le indico que NO guarde los cambios. Y listo, el componente queda instalado...

A decir verdad, no se a que otra cosa puede deberse. Si tu dices que nunca antes tuviste problemas para instalar... a lo mejor tienes algún conflicto con algún componente que instalaste anteriormente.

Saludos,