Перейти к содержанию
Fire Monkey от А до Я
  • 0

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


Сергей Сергеев

Вопрос

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

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

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

 

Ссылка на комментарий

Рекомендуемые сообщения

  • 0

Сделал так..

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

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

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

×
×
  • Создать...