Бегущая строка

[Сергей Сергеев]

Привет! Как сделать "бегущую строку" в TLabel  или TEdit - длинный текст, если не влазит в отведенное место по ширине, то авто скролл горизонтальный..

пробовал через добавление TFloatAnimation в CustomStyle к свойству Text, изменяя position - ничего не происходит, пробовал Font.Size  менять ( для проверки - а вообще оно работает?) тоже ничего не происходило.

Запускаю в Win, а нужно  вообще для Androiod и Ios.

 

[nassl]

Как костыль: пробуй менять соответствующим образом сам текст

Приве.

.ривет

[Сергей Сергеев]

Сделал так..

TEdit положил внутри THorzScrollBox. Ширина TEdit больше чем Scroll, что не влезло справа, обрезалось. Спрятал ScrollBar, чтобы не портил вид.

Положил на форму TrackBar c Value от 0 до 150.  Для значения Value добавил TFloatAnimaton с изменением Value от 0-150 по циклу и с реверсом.

На событие OnChangeValue TrackBar повесил обработчик в котором, в зависимости от значения Track меняю у HorzscrollBox позицию ползунка ( .ScrollBy (dX,dY) - еле нашел!) 

Результат на видео https://youtu.be/crtw-qQmjFc. Проект вечером прикреплю - может кому понадобится.

"мозг" тут :
 

var
  Form1: TForm1;
  currPos : integer=0;

implementation

{$R *.fmx}
{$R *.LgXhdpiPh.fmx ANDROID}
{$R *.Windows.fmx MSWINDOWS}


procedure TForm1.TrackBar1Change(Sender: TObject);
var
cnt : integer;
cp :integer ;
begin


      lbT.Text := TrackBar1.Value.ToString;
      cp :=    Round(TrackBar1.Value) ;
      cnt := currPos - cp;
      currPos := cp;

       HorzScrollBox1.ScrollBy(cnt,0) ;

end;

 

Test.rar

Изменено 14 января, 2019 пользователем Сергей Сергеев
прикрепил исходники тест