Componente TLabel

[[Delphius]]

Empezado por seoane

Hola Caral, parece que el error puede ser debido que package que estas utilizando hace referencia a una unit que no existe

A mi cuando no encontrada la unidades directamente me marcaba un error diciendome que faltaba un pas o el dcu. Estaba pensando en ello, pero a lo mejor.. que se ocurría de que no es que no encuentra las unidades... sino que talvez no encuentra la CLAUSURA Contains.

Puede que esté equivocado... pero como dije. Cuando no encontraba una unit directamente me salía con que no encontraba un xxxx.pas o un xxxx.dcu

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

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

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

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

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

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

[[Caral]]

Hola
Gracias.
Ahora lo que falta es hacer que el label empiece a la derecha, como implementamos esto:

function Alinea(S: String; N: Integer): String;
begin
while Length(S) < N do
Insert(' ',S,Length(S)+1);
Result:=S
end;

en trucomania, ejemplo de llamada:

Label1.Caption:=Alinea('hola',10);

Esto con el fin de que empiece desde la derecha como un anuncio, bueno algo asi.
Saludos

[[Caral]]

Hola
Hoy he aprendido muchísimo, estoy muy contento esto de los componentes y demas relacionados siempre me parecio muy interesante y queria hacer algo, si bien es cierto no hice nada, lo importante es cuanto aprendi.
Muchas gracias Maestros por vuestro tiempo y enseñanzas.
Saludos

[[Delphius]]

Hola nuevamente Caral,

si quieres introducirte más en el tema, tal vez pueda serte de utilidad este sitio: http://www.lawebdejm.com alli tiene un buen artículo sobre este y otros temas.

Yo seguí sus consejos y creo que aprendí

Saludos,

[[Caral]]

Hola
Muchas gracias Delphius, no conocia el sitio, le voy a sacar el jugo.
Saludos