Scroll horizontal texto

[jaimeh]

Gracias por responderme Neftali

La rutina que he puesto va dentro del evento de un timer de 50 ó 100ms,
pero con letras grandes se nota que el desplazamiento no es suave.
Es como si tuviera que hacerse a nivel de pixels y no de caracteres.

Y otra cosa, con la rutina que he puesto no sabría como hacer para
que volviese ha empezar a entrar por la derecha, cuando acabara de salir
por la izquierda del label.

Esto sería para un rótulo.

Saludos a todos

[jaimeh]

Pongo el todo el codigo, aunque es una prueba

Código Delphi [-]
var
   s: string;
   i: Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
   //
   s:= Edit1.Text;
   Timer1.Enabled := true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Timer1.Enabled := false;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
   //
   i:= 1;
   Form1.DoubleBuffered := true;
   Label1.Perform(WM_SETREDRAW, 0, 0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 //

   if i <= length(Edit1.Text) then
   begin
     label1.Caption := LeftStr(s, i);
     Inc(i);
   end
   else begin
     s := s + ' ';
     label1.Caption := s;
   end;


end;

[Neftali [Germán.Estévez]]

Empezado por jaimeh

...pero con letras grandes se nota que el desplazamiento no es suave. Es como si tuviera que hacerse a nivel de pixels y no de caracteres.

en ese caso sólo se me ocurre que la etiqueta o texto la guardes como imagen (antes de empezar la animación) y luego en cada paso cortes una sección por la izquierda y la pegues por la derecha. No se si me explico....

Empezado por jaimeh

Y otra cosa, con la rutina que he puesto no sabría como hacer para que volviese ha empezar a entrar por la derecha, cuando acabara de salir por la izquierda del label.

Debería bastar con poner en el Timer esto:

Código Delphi [-]
  Str := Label1.caption;
  Str := Copy(Str, 2, length(Str)) + Str[1];
  Label1.Caption := Str;