Foros Club Delphi - Componente TLabel

Página 3 de 3

Mostrar 40 mensajes desde este tema en una página

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Componente TLabel (https://www.clubdelphi.com/foros/showthread.php?t=46637)

Delphius

05-08-2007 22:33:25

Cita:

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

05-08-2007 22:35:31

Fijate en esta seccion:

Código:

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

05-08-2007 22:36:25

Cita:

Empezado por Caral (Mensaje 220455)

Que significa?
Saludos

Que has instalado muchas cosas.

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

Caral

05-08-2007 22:38:28

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

05-08-2007 22:39:51

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

Código:

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

05-08-2007 22:40:40

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

Código:

Blinklbl in 'Blinklbl.pas',

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

Caral

05-08-2007 22:50:13

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

05-08-2007 22:58:09

Cita:

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?

:o Jeje, con las prisas copie dos veces lo mismo:

Donde pongo:

Código:

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:

Código:

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

05-08-2007 22:59:09

Cita:

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!:eek: ¡Una simple coma!:D:p

Cita:

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:D... jajaja. Todo bien.:cool:

Saludos,

Caral

05-08-2007 23:07:36

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

Cita:

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:

Cita:

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

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

Caral

05-08-2007 23:53:06

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

05-08-2007 23:57:15

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í:D

Saludos,

Caral

06-08-2007 00:02:47

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

La franja horaria es GMT +2. Ahora son las 21:05:24.

Página 3 de 3

Mostrar 40 mensajes desde este tema en una página