Componente TLabel

[[Caral]]

Hola
Intente abrir el archivo dclusr y me da ese error, no se como abrirlo?.
Saludos

[[seoane]]

Abrelo con el bloc de notas, no es mas que un archivo de texto.

[[Caral]]

Hola
Me sale esto:

package dclusr;

{$R *.res}
{$R 'USAPPBAR.dcr'}
{$R 'TrayIcon.dcr'}
{$R 'ATEXTO.dcr'}
{$R 'ALed.dcr'}
{$ALIGN 8}
{ ASSERTIONS ON}
{$BOOLEVAL OFF}
{ DEBUGINFO OFF}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{ LOCALSYMBOLS OFF}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO OFF}
{$SAFEDIVIDE OFF}
{ STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST ON}
{$MINENUMSIZE 1}
{$IMAGEBASE $51000000}
{$DESCRIPTION 'Borland User Components'}
{$LIBSUFFIX '60'}
{$DESIGNONLY}
{$IMPLICITBUILD ON}

requires
rtl,
vcl,
designide;

contains
NumEdit in 'NumEdit.pas',
USAppBar in 'USAPPBAR.PAS',
TrayIcon in 'TrayIcon.pas',
ATexto in 'ATEXTO.PAS',
ALed in 'ALed.pas',
Blinklbl in 'Blinklbl.pas',

end.

Que significa?
Saludos

[[seoane]]

Fijate en esta seccion:

contains
NumEdit in 'NumEdit.pas',
USAppBar in 'USAPPBAR.PAS',
TrayIcon in 'TrayIcon.pas',
ATexto in 'ATEXTO.PAS',
ALed in 'ALed.pas',
Blinklbl in 'Blinklbl.pas',

Alguna de esas unidades no existe, o no esta donde debería. Prueba a ir eliminando, desde el bloc de notas, una a una las lineas hasta encontrar cual es la que esta dando problemas. Lo mas seguro es que sea la ultima, empieza borrando esa.

PD: Antes de hacer nada, haz una copia del archivo, por seguridad

[[Caral]]

Hola
Lo voy a intentar, gracias.
Por cierto estuve probando el componente que hiciste y cuando se cambia la velocidad se queda muerto, no se puede volver a poner ni pasa nada.
Que sera?
Saludos

[[seoane]]

Caray !!! ahora que me fijo mejor, aqui:

Blinklbl in 'Blinklbl.pas',

no se si sera un error al copiar, pero en vez de coma debería de ser ;

[[Delphius]]

sHola, yo en "requires" tengo esto...

requires
  rtl,
  vcl,
  designide,
  visualclx;

La diferencia que tengo con la tuya es la últimas (visualclx). No se si se deberá a que tengo otros tantos componentes. O quizás... por allí venga el error.

Saludos,

[[Caral]]

Hola
Pues no se, aqui se aprende de todo.
Me quedo la duda de la velocidad en el componente, no se puede cambiar.?
Os fijasteis?
Saludos

[[seoane]]

Empezado por Caral

Hola
Pues no se, aqui se aprende de todo.
Me quedo la duda de la velocidad en el componente, no se puede cambiar.?
Os fijasteis?

Jeje, con las prisas copie dos veces lo mismo:

Donde pongo:

procedure TAnimLabel.SetVelocidad(Valor: Integer);
begin
  If FVelocidad <> Valor then
  begin
    if Valor <= 0 then
    begin
      FVelocidad:= 0;
      FTimer.Enabled:= FALSE;
    end else
    begin
      FVelocidad:= 0;
      FTimer.Enabled:= FALSE;
    end;
    FTimer.Interval:= FVelocidad;
  end;
end;

Tenia que haber puesto:

procedure TAnimLabel.SetVelocidad(Valor: Integer);
begin
  If FVelocidad <> Valor then
  begin
    if Valor <= 0 then
    begin
      FVelocidad:= 0;
      FTimer.Enabled:= FALSE;
    end else
    begin
      FVelocidad:= Valor;
      FTimer.Enabled:= TRUE;
    end;
    FTimer.Interval:= FVelocidad;
  end;
end;

[[Delphius]]

Empezado por seoane

no se si sera un error al copiar, pero en vez de coma debería de ser ;

¡Mi reino por una coma! ¡Una simple coma!

Empezado por caral

Hola
Pues no se, aqui se aprende de todo.
Me quedo la duda de la velocidad en el componente, no se puede cambiar.?
Os fijasteis?
Saludos

Hay un pequeño bug en el código de soeane en el procedimiento SetVelocidad. Independientemente del valor coloca falso en Enabled... fijate. Modifica eso y ¡Listo!

EDITO: Seoane... te me adelantaste...no se vale asi pues... jajaja. Todo bien.

Saludos,

[[eduarcol]]

Empezado por Caral

Que significa?
Saludos

Que has instalado muchas cosas.

prueba esto: quita las referencias a los paquetes instalados, y grabas deberia quedarte como nuevo