Scroll horizontal texto

[Aleca]

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    cTexto: String;
    nLargoMarq: Integer;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Byte;
  nLarTexto: Byte;
begin
  cTexto := 'Hola Mundo';
  nLargoMarq := 50;
  nLarTexto := Length(cTexto);
  for i := 1 to nLargoMarq - nLarTexto do
    Insert(' ', cTexto, 0);
  Label1.Caption := cTexto;
  Timer1.Interval := 100;
  Timer1.Enabled := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
  cChar: String[1];
begin
  cChar := copy(cTexto, 1, 1);
  Delete(cTexto, 1, 1);
  cTexto := cTexto + cChar;
  Label1.Caption := cTexto;
  Label1.RePaint;
end;
end.

fijate si te sirve.

[jaimeh]

Muchas gracias por responderme a todos,

La rutina de neftali se ajustaba al ancho de la cadena de texto, claro que
el ancho de la label fija (sin autosize) quería que fuera mucho mayor
que el ancho de la cadena de texto.

La rutina de aleca, el nlargoMarq yo quería que fuera el ancho de la label
fija (sin autosize), habria que saber cuantos caracteres cabrían en la label
(para hacer las cuentas), y ahí habría que averiguar la cantidad de pixeles
que ocupa la font. De todas formas se notan bastante los saltos en el
desplazamiento.

Utilizando jvcl con el componente jvSrollText va bastante bien, yo de este
ya sabía de él, pero no había hecho con él las pruebas. Se puede decir la
cantidad de pixeles que queremos que se desplacen en cada momento,
con lo cual llegamos a conseguir un desplazaminto bastante suave.

El único problema que he encontrado, es que su metodo Pause me deja
colgado el programa, así que no se como hacer para que se pueda parar
el desplazamiento y luego volver a seguir desplázandose desde donde
estaba. Habría que poner después de jvScrollText.Pause algo pero no se
el qué.


Muchas gracias a todos y saludos

[jaimeh]

Disculpad,

Ya vi como se podía parar y reanudar el desplazamiento solo hace falta
poner la propiedad jvScrollText.ScrollPixels := 0 para parar el desplazamiento y darle un valor positivo para que se reanude.

Muchas gracias a todos y saludos.