Создание бегущей строки в Delphi
Итак, как вы уже догадались, сегодня мы будем делать бегущую строку в своём Delphi-приложении.
Однажды мне очень понадобилось некое подобие TEdit¢a, только не со стационарной, а с бегущей строкой (все символы просто не влазили, а показать нужно было всё...) Вот я и задумался, как же это сделать. Сегодня я расскажу вам 2 способа решения данной проблeмы.
Способ первый, он первым пришёл мне в голову. Поиграться со свойством Text Edit¢a, т.е. через определённый промежуток времени "смещать" саму строку. Под смещением я понимаю удаление первого символа строки и добавление нового последнего. Таким образом получается цикл нужного нам текста.
Для этого кинем на форму один таймер, один TEdit и объявим глобальную переменную i сразу после слова implementation. i по умолчанию должно равняться единице, т.е. её оъявление будет выглядеть так:[code=Delphi]...
implementation
var
i: integer = 1;
...
А сам код таймера будет выглядеть так:
procedure TForm1.Timer1Timer(Sender: TObject);
const
GoString=¢А вoт и бегущая строка в Delphi
¢; {Текст, который будет двигаться в Edit¢e} var
s: string; {Временная переменная для работы с текстом, т.к. удалять символы напрямую из Edit¢a мы не можем}
begin
s := Edit1.Text; {Берём текст}
Delete(s,1,1); {Удаляем первый символ}
s := s+GoString[i]; {Добавляем в конец текста следующий по списку символ}
Edit1.Text := s; {Возвращаем изменённый текст на родину}
inc(i); {В следующий раз будем добавлять следующий символ}
if i>length(GoString) then i := 1; {Но если номер следующего символа вылазит за границу строки,
то это знак что нужно начинать сначала}
end;[/code]Для того, чтобы данный способ работал корректно, нужно чтобы изначально текст Edit¢a был чем-то заполнен. Чем - не важно. Это будет видно только в самом начале. Можно просто взять кучу пробелов. Но длина текста останется постоянной, т.е. какая была, такой и останется...
Данный метод, конечно, хорош. Но передавать строки ему не очень удобно, а если строка должна ещё и периодически изменяться, то совсем неудобен. К тому же, смещение происходит посимвольно, что, если приглядеться, заметно. А мне хотелось, чтобы смещение было максимально плавным, да и кодить этот "ужасный" код совсем не хотелось - было мало времени.
огда я использовал способ второй. А суть заключается в том, что не надо изобретать велосипед, если он уже изобретён. Напряжём мозги и вспомним старый добрый HTML. Опа! А там же есть уже реализованная отличная бегущая строка! MARQUEE вспомнили? Если нет, то сейчас вспомните!
Данный тег с атрибутами выглядит примерно так:[code=HTML]<marquee height="100%" width="167" bgcolor="white" behavior="scroll" direction="left" scrollamount="4">
Текст бегущей строки
</marquee>[/code]height - высота бегущей строки. В данном случае змеряется в процентах
width - ширина бегущей строки. В данном случае измеряется в пикселях
behavior - поведение строки. Может равняться:
|
|
Scrollamount - скорость движения строки. Может принимать значения от 1 до 10.
Конечно же, для бегущей строки можно задавать и другие HTML атрибуты (hspace, vspace и align).
Пример бегущей строки можете посмотреть вначале этой статьи. Её код выглядит так:
[code=HTML]<marquee height="100%" width="167" bgcolor="white" scrollamount="4">
<small>Такая же бегущая строка будет и у вас в Delphi-приложении</small>
</marquee>[/code]
Тег small делает шрифт текста меньшим, относительно основного текста.
Ну вот, теорию повторили! Теперь перейдём к проблемам реализации.
Как вы уже догадались, показывать нашу страничку мы будем в TWebBrowser => для отображения бегущей строки мы используем Internet Explorer (точнее, TWebBrowser использует IE). Следовательно, и отображаться она будет всегда одинаково! Значит, никаких проблем с разностью в браузерах нет! Это хорошо.
Но, как же мы будем показывать нашу страничку, если TWebBrowser умеет открывать только существующие странички? Очень просто. Сохранять на диск нашу HTML страничку мы не будем - не респектно! Для отображения странички воспользуемся протоколом about. Коротко говоря об этом протоколе, если создать строку вида "about: Наш HTML код " и передать эту строку в качестве параметра в TWebBrowser.Navigate, то наша страничка корректно отобразиться. Например:[code=Delphi]WebBrowser1.Navigate(¢about:<body bgcolor="red"><center>Hello, Dem@nXP!</center></body>¢);[/code]
Этот код отобразит нам страничку с красным фоном, посередине которой на первой строке будет надпись "Hello, Dem@nXP!" чёрными буквами.
А почему бы нам не отобразить так же и бегущую строку? Пробуем!
[code=Delphi]WebBrowser1.Navigate(¢about:<body>¢+
¢<marquee height="20" width="167" bgcolor="white" scrollamount="4">¢+
¢<small>Такая же бегущая строка будет и у вас в Delphi-приложении</small>¢+
¢</marquee></body>¢);
[/code]
Уррряя! Всё работает! Так, теперь доведём всё до человеческого вида, т.е. Сделаем размеры нашего WebBrowser¢a соизмеримыми с размерами Edit¢a. В предвкушении законченого дела запускаем наше приложение и ... не тут то было! Эти чёртовы полосы прокрутки! Да ещё и сама строка находится не с самого верху! Мдя, будем лечить...
В HTML¢e есть понятия нижнего, верхнего, левого и правого отступов от краёв страницы. А что если их обнулить?
[code=Delphi]WebBrowser1.Navigate(¢about:<body topmargin="0" leftmargin="0" marginwidth="0" rightmargin="0" bottommargin="0">¢+
¢<marquee height="20" width="167" bgcolor="white" scrollamount="4">¢+
¢<small>Такая же бегущая строка будет и у вас в Delphi-приложении</small>¢+
¢</marquee></body>¢);[/code]
Угу. Уже получше - если освободить место для полос прокрутки, то будет видно, что наша строка вплотную прилегает к краям TWebBrowser¢a. Но полосы прокрутки портят весь вид! Вот их мы сейчас и уберём!
А убираются они довольно просто: в теге body пролписываем scroll="no". Всё гениальное просто . Делаем размер WebBrowser¢a "нормальным" (у меня height=20 а width=167), изменяем текст на:
[code=Delphi]WebBrowser1.Navigate(¢about:<body topmargin="0" leftmargin="0" marginwidth="0"¢+
¢rightmargin="0" bottommargin="0" scroll="no"> <marquee height="20" width="167"¢+
¢bgcolor="white" scrollamount="4"><small>Такая же бегущая строка будет и у вас в¢+
¢Delphi-приложении</small> </marquee>
</body>¢);[/code]
И радуемся жизни: теперь то всё работает! Ну, для полного счастья можно подвязать размеры бегущей строки с размерами браузера. Это делается так:
[code=Delphi]WebBrowser1.Navigate(¢about:<body topmargin="0" leftmargin="0" marginwidth="0"¢+ ¢rightmargin="0" bottommargin="0" scroll="no"> <marquee height="¢+ IntToStr(WebBrowser1.height-5)+¢" width="¢+IntToStr(WebBrowser1. width)+ ¢"bgcolor="white" scrollamount="4"><small>Такая же ¢+ ¢бегущая строка будет и у вас в Delphi-приложении</small></marquee></body>¢);[/code]
Теперь даже если попытаться прокрутить (скроллером или кнопкой мыши) нашу страничку, бегущая строка всё равно не изменит своей траектории. WebBrowser1.height-5 сделано именно для этого.
Ну и, наконец, всё это можно красиво оформить в одну процедурку:
[code=Delphi]procedure SetRunText(Web: TWebBrowser; Text: string); begin Web.Navigate(¢about:<body topmargin="0" leftmargin="0" marginwidth="0"¢+ ¢rightmargin="0" bottommargin="0" scroll="no"> <marquee height="¢+ IntToStr(Web.height-5)+¢" width="¢+IntToStr(Web. width)+ ¢"bgcolor="white" scrollamount="4"><small>¢+Text+ ¢</small></marquee></body>¢); end;[/code]
Ну, или же сразу передавать в процедуру и все настройки:
[code=Delphi]procedure SetRunTextProfy(Web: TWebBrowser; Text, bgcolor, behavior, direction: string; speed: integer); begin Web.Navigate(¢about:<body topmargin="0" leftmargin="0" marginwidth="0"¢+ ¢rightmargin="0" bottommargin="0" scroll="no"> <marquee height="¢+ IntToStr(Web.height-5)+¢" width="¢+IntToStr(Web. width)+ ¢"bgcolor="¢+bgcolor+¢" scrollamount="¢+IntToStr(speed)+¢" behavior="¢+ behavior+¢" direction="¢+direction+¢" ><small>¢ +Text+¢</small></marquee></body>¢); end;[/code]
Если захотите оставить параметры по умолчанию, то можно просто передать пустые строки в нужных параметрах. Данную процедуру можно ещё расширить: например, передавать цвет не строкой, а TColor¢ом. Но это вы уже сделаете сами
Ну вот и всё. Сегодня вы научились делать бегущую строку аж двумя способами, вспомнили HTML, написали пару полезных процедур. Я надеюсь, что эта статья принесла вам пользу, научила чему-нибудь.
Комментарии
BECK`S
05.08.2007Я так и сделал, но есть намного эффективный способ, и по проще. http://www.nashpereviznuk.net/forum/viewtopic.php?t=196