Simple-Scada forum

Simple-Scada 2 => Ваши вопросы => Тема начата: Олег Анатольевич от 19 Ноября 2024, 09:12:39

Название: Бегущая строка
Отправлено: Олег Анатольевич от 19 Ноября 2024, 09:12:39

День добрый. Как реализовать бегущую строку на экранной форме. Хочу выводить сообщения в таком виде

Название: Re: Бегущая строка
Отправлено: ARV от 19 Ноября 2024, 13:21:32

Например так.
Но, по-моему, это не красиво, не удобно и ресурсозатратно.

Название: Re: Бегущая строка
Отправлено: Олег Анатольевич от 19 Ноября 2024, 14:25:16

Код: (delphi)

Begin
   S.Value := Copy(S.Value, 2, Length(S.Value)) + Copy(S.Value, 1, 1);
   Text1.Text := S.Value;
   RunDelay(200, 1);
End;

Тоже ничего) Хочу красивее)

Название: Re: Бегущая строка
Отправлено: ARV от 19 Ноября 2024, 15:21:12

Ваш вариант скроллит по целой букве, что не фонтан на обычном (не дискретном) дисплее.
Мой скроллит попиксельно, но идеальной плавности не получается из-за самого движка скады.
Что красивее - вам решать.